| 1 | SDAPIDP ;ALB/MTC - Outpatient API/Dispositions ; 03 MAY 1996 11:30 am
|
|---|
| 2 | ;;5.3;Scheduling;**27,132**;08/13/93
|
|---|
| 3 | ;
|
|---|
| 4 | EN(DFN,SDT,SDCL,SDUZ,SDMODE,SDVIEN) ; -- check api for appts
|
|---|
| 5 | N SDDA,SDOE
|
|---|
| 6 | S SDOE=0
|
|---|
| 7 | ;
|
|---|
| 8 | ; -- file check-out data ; get encount ien
|
|---|
| 9 | S SDOE=$$FILE(DFN,SDT,SDCL,SDUZ,SDMODE,$G(SDVIEN))
|
|---|
| 10 | ;
|
|---|
| 11 | ENQ Q SDOE
|
|---|
| 12 | ;
|
|---|
| 13 | ;
|
|---|
| 14 | FILE(DFN,SDT,SDCL,SDUZ,SDMODE,SDVIEN) ; -- file data
|
|---|
| 15 | N SDATA,SDHDL,SDOE,SDCOMPF,SDLOG
|
|---|
| 16 | S SDOE=""
|
|---|
| 17 | ;
|
|---|
| 18 | ; -- get encounter ien ; error if none returned
|
|---|
| 19 | S SDOE=$$GETDISP^SDVSIT2(DFN,SDT,$G(SDVIEN))
|
|---|
| 20 | I 'SDOE D ERRFILE^SDAPIER(110) G FILEQ
|
|---|
| 21 | ;
|
|---|
| 22 | ; -- log user and date/time data
|
|---|
| 23 | D LOGDATA^SDAPIAP(SDOE)
|
|---|
| 24 | ;
|
|---|
| 25 | ; -- process data
|
|---|
| 26 | D FILE^SDAPICO(SDOE,SDUZ)
|
|---|
| 27 | ;
|
|---|
| 28 | ; -- update check-out completion
|
|---|
| 29 | D EN^SDCOM(SDOE,SDMODE,1,.SDCOMPF)
|
|---|
| 30 | ;
|
|---|
| 31 | FILEQ Q SDOE
|
|---|
| 32 | ;
|
|---|
