|
Last change
on this file since 1240 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.
