source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDAPICO.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: 1.0 KB
Line 
1SDAPICO ;ALB/MJK - API - Common Check-Out Processing;04 MAR 1993 10:00 am
2 ;;5.3;Scheduling;**27,44,78,93,132**;Aug 13, 1993
3 ;
4FILE(SDOE,SDUZ) ; File Data after checks
5 ; Input -- SDOE Outpatient Encounter IEN
6 ; SDUZ User ien to file 200
7 ; Output -- <none>
8 ;
9 N SDOE0,SDORG
10 IF '$G(SDOE) D ERRFILE^SDAPIER(110) G FILEQ
11 S SDOE0=$G(^SCE(+SDOE,0)),SDORG=$P(SDOE0,U,8)
12 ;
13 ; -- warning if check-out not required (for old appts)
14 IF $$REQ^SDM1A(+SDOE0)'="CO" D ERRFILE^SDAPIER(1030)
15 ;
16 ; -- warning if not appt and not a clinic
17 IF SDORG=1,'$$CLINIC^SDAMU($P(SDOE0,"^",4)) D ERRFILE^SDAPIER(130,$P(SDOE0,U,4)) G FILEQ
18 ;
19 ; -- warning if patient was inpatient at time of appt
20 IF $$INP^SDAM2(+$P(SDOE0,"^",2),+SDOE0)="I" D ERRFILE^SDAPIER(1031,+SDOE0)
21 ;
22 ; -- process data
23 D CLASS^SDAPICO1(SDOE) I $$ERRCHK^SDAPIER() G FILEQ
24 ;
25FILEQ Q
26 ;
27 ;
28DEL(SDOE,SDFL,SDVAL) ; -- delete entry in file if match
29 N DA,DIK,SDI
30 S SDI=0
31 F S SDI=$O(^SDD(SDFL,"AO",+SDOE,+SDVAL,SDI)) Q:'SDI S DIK="^SDD("_SDFL_",",DA=SDI D ^DIK K DIK,DA
32 Q
33 ;
Note: See TracBrowser for help on using the repository browser.