source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDAPIDP.m@ 719

Last change on this file since 719 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 753 bytes
Line 
1SDAPIDP ;ALB/MTC - Outpatient API/Dispositions ; 03 MAY 1996 11:30 am
2 ;;5.3;Scheduling;**27,132**;08/13/93
3 ;
4EN(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 ;
11ENQ Q SDOE
12 ;
13 ;
14FILE(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 ;
31FILEQ Q SDOE
32 ;
Note: See TracBrowser for help on using the repository browser.