source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBCIUT1.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1DVBCIUT1 ;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 ;
7INREAS ;** 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 ;
30EXMTPE ;** 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
Note: See TracBrowser for help on using the repository browser.