SDAPIDP.m

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 ---SDAPIDP   785     printed  Apr 09, 2024@21:48:17                                                                                                                                                                                                      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       ;