33 lines
753 B
Mathematica
33 lines
753 B
Mathematica
SDAPIDP ;ALB/MTC - Outpatient API/Dispositions ; 03 MAY 1996 11:30 am
|
|
;;5.3;Scheduling;**27,132**;08/13/93
|
|
;
|
|
EN(DFN,SDT,SDCL,SDUZ,SDMODE,SDVIEN) ; -- check api for appts
|
|
N SDDA,SDOE
|
|
S SDOE=0
|
|
;
|
|
; -- file check-out data ; get encount ien
|
|
S SDOE=$$FILE(DFN,SDT,SDCL,SDUZ,SDMODE,$G(SDVIEN))
|
|
;
|
|
ENQ Q SDOE
|
|
;
|
|
;
|
|
FILE(DFN,SDT,SDCL,SDUZ,SDMODE,SDVIEN) ; -- file data
|
|
N SDATA,SDHDL,SDOE,SDCOMPF,SDLOG
|
|
S SDOE=""
|
|
;
|
|
; -- get encounter ien ; error if none returned
|
|
S SDOE=$$GETDISP^SDVSIT2(DFN,SDT,$G(SDVIEN))
|
|
I 'SDOE D ERRFILE^SDAPIER(110) G FILEQ
|
|
;
|
|
; -- log user and date/time data
|
|
D LOGDATA^SDAPIAP(SDOE)
|
|
;
|
|
; -- process data
|
|
D FILE^SDAPICO(SDOE,SDUZ)
|
|
;
|
|
; -- update check-out completion
|
|
D EN^SDCOM(SDOE,SDMODE,1,.SDCOMPF)
|
|
;
|
|
FILEQ Q SDOE
|
|
;
|