Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
610 bytes
|
Line | |
---|
1 | SDOEUT ;ALB/MJK - ACRP Misc APIs For An Encounter ;8/12/96
|
---|
2 | ;;5.3;Scheduling;**131,132,211**;Aug 13, 1993
|
---|
3 | ;
|
---|
4 | VIEN(SDOE) ; -- get visit ien from valid encounter
|
---|
5 | Q +$P($G(^SCE(SDOE,0)),U,5)
|
---|
6 | ;
|
---|
7 | OLD(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 | ;
|
---|
17 | CONV(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 | ;
|
---|
24 | POST ; -- 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.