source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDOEUT.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: 610 bytes
Line 
1SDOEUT ;ALB/MJK - ACRP Misc APIs For An Encounter ;8/12/96
2 ;;5.3;Scheduling;**131,132,211**;Aug 13, 1993
3 ;
4VIEN(SDOE) ; -- get visit ien from valid encounter
5 Q +$P($G(^SCE(SDOE,0)),U,5)
6 ;
7OLD(SDOE) ; -- use old data?
8 ;
9 ; -- is this a 'new' encounter (since PCE)
10 IF $$DATE^SCDXUTL(+$G(^SCE(+SDOE,0))) Q 0
11 ;
12 ; -- has old data has been converted
13 IF $$CONV(.SDOE) Q 0
14 ;
15 Q 1
16 ;
17CONV(SDOE) ; -- has old encounter been converted
18 ;
19 ; -- has encounter been processd by conversion?
20 IF $P($G(^SCE(+SDOE,"CNV")),U,4) Q 1
21 ;
22 Q 0
23 ;
24POST ; -- post error action logic
25 ;W !,"Error:",!
26 ;ZW DIPI ZW DIPE
27 Q
28 ;
Note: See TracBrowser for help on using the repository browser.