Last change
on this file since 861 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
610 bytes
|
Rev | Line | |
---|
[613] | 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.