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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDAPIDP 785 printed Oct 16, 2024@18:49:04 Page 2
SDAPIDP ;ALB/MTC - Outpatient API/Dispositions ; 03 MAY 1996 11:30 am
+1 ;;5.3;Scheduling;**27,132**;08/13/93
+2 ;
EN(DFN,SDT,SDCL,SDUZ,SDMODE,SDVIEN) ; -- check api for appts
+1 NEW SDDA,SDOE
+2 SET SDOE=0
+3 ;
+4 ; -- file check-out data ; get encount ien
+5 SET SDOE=$$FILE(DFN,SDT,SDCL,SDUZ,SDMODE,$GET(SDVIEN))
+6 ;
ENQ QUIT SDOE
+1 ;
+2 ;
FILE(DFN,SDT,SDCL,SDUZ,SDMODE,SDVIEN) ; -- file data
+1 NEW SDATA,SDHDL,SDOE,SDCOMPF,SDLOG
+2 SET SDOE=""
+3 ;
+4 ; -- get encounter ien ; error if none returned
+5 SET SDOE=$$GETDISP^SDVSIT2(DFN,SDT,$GET(SDVIEN))
+6 IF 'SDOE
DO ERRFILE^SDAPIER(110)
GOTO FILEQ
+7 ;
+8 ; -- log user and date/time data
+9 DO LOGDATA^SDAPIAP(SDOE)
+10 ;
+11 ; -- process data
+12 DO FILE^SDAPICO(SDOE,SDUZ)
+13 ;
+14 ; -- update check-out completion
+15 DO EN^SDCOM(SDOE,SDMODE,1,.SDCOMPF)
+16 ;
FILEQ QUIT SDOE
+1 ;
