- 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 Mar 13, 2025@21:53:23 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 ;
