| 1 | DVBCIUT1 ;ALB/GTS-AMIE INSUFFICIENT UTILITY RTN 1 ; 11/14/94 3:00 PM
|
|---|
| 2 | ;;2.7;AMIE;**13**;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ;** Version Changes
|
|---|
| 5 | ; 2.7 - New routine (Enhc 15)
|
|---|
| 6 | ;
|
|---|
| 7 | INREAS ;** Select Insufficient Reasons
|
|---|
| 8 | N YSAVE
|
|---|
| 9 | S YSAVE=Y
|
|---|
| 10 | I YSAVE=-1 DO
|
|---|
| 11 | .S DIR(0)="YA"
|
|---|
| 12 | .S DIR("?",1)=" "
|
|---|
| 13 | .S DIR("?",2)=" Enter 'No' to print only those reasons previously"
|
|---|
| 14 | .S DIR("?",3)=" selected, 'Yes' to select all reasons existing"
|
|---|
| 15 | .S DIR("?")=" on currently entered exams."
|
|---|
| 16 | .S DIR("A",1)=" "
|
|---|
| 17 | .S DIR("A",2)=" You have selected to report all insufficient reasons."
|
|---|
| 18 | .S DIR("A")=" Is this correct? "
|
|---|
| 19 | .D ^DIR
|
|---|
| 20 | .I Y'=0,('$D(DUOUT)&('$D(DTOUT))) DO
|
|---|
| 21 | ..N DVBAXIFN
|
|---|
| 22 | ..F DVBAXIFN=0:0 S DVBAXIFN=$O(^DVB(396.94,DVBAXIFN)) Q:+DVBAXIFN=0 DO
|
|---|
| 23 | ...S DVBAARY("REASON",DVBAXIFN)=""
|
|---|
| 24 | .S Y=-1
|
|---|
| 25 | I +YSAVE>0 S DVBAARY("REASON",+YSAVE)=""
|
|---|
| 26 | S Y=YSAVE
|
|---|
| 27 | K DTOUT,DUOUT,DIR
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | EXMTPE ;** Select the exams to Report
|
|---|
| 31 | N YSAVE
|
|---|
| 32 | S YSAVE=Y
|
|---|
| 33 | I YSAVE=-1 DO
|
|---|
| 34 | .S DIR(0)="YA"
|
|---|
| 35 | .S DIR("?",1)=" "
|
|---|
| 36 | .S DIR("?",2)=" Enter 'No' to print only those exams previously"
|
|---|
| 37 | .S DIR("?")=" selected, 'Yes' to select all exams"
|
|---|
| 38 | .S DIR("A",1)=" "
|
|---|
| 39 | .S DIR("A",2)=" You have selected to report all AMIE exams."
|
|---|
| 40 | .S DIR("A")=" Is this correct? "
|
|---|
| 41 | .D ^DIR
|
|---|
| 42 | .I Y'=0,('$D(DUOUT)&('$D(DTOUT))) DO
|
|---|
| 43 | ..N DVBAXIFN
|
|---|
| 44 | ..F DVBAXIFN=0:0 S DVBAXIFN=$O(^DVB(396.6,DVBAXIFN)) Q:+DVBAXIFN=0 DO
|
|---|
| 45 | ...S ^TMP($J,"XMTYPE",DVBAXIFN)=""
|
|---|
| 46 | ...;removed inactive screen
|
|---|
| 47 | .S Y=-1
|
|---|
| 48 | I +YSAVE>0 S ^TMP($J,"XMTYPE",+YSAVE)=""
|
|---|
| 49 | S Y=YSAVE
|
|---|
| 50 | K DTOUT,DUOUT,DIR
|
|---|
| 51 | Q
|
|---|
