source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAUTL6.m@ 724

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1DVBAUTL6 ;ALB/JLU;UTILITY ROUTINE;9/15/94
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4DSCIFN(A) ;returns the IFN of the discarge type in A. from file 405.2
5 ;
6 N DIC,X
7 S DIC="^DG(405.2,",DIC(0)="XMZ"
8 S X=A
9 D ^DIC
10 Q +Y
11 ;
12DSCTIEN(A) ;returns the IEN of the discharge type in file 405.3
13 N DIC,X
14 S DIC="^DG(405.3,",DIC(0)="XMZ"
15 S X=A
16 D ^DIC
17 Q +Y
18 ;
19CHECK(A) ;used in the lookup screen of the discharge report to check for
20 ;active facility movement types for the particular MAS movement types.
21 ;A is the MAS movement type
22 ;
23 N DVBA,DVBFOUND
24 S DVBA=""
25 F S DVBA=$O(^DG(405.1,"AM",A,DVBA)) Q:'DVBA!($D(DVBFOUND)) DO
26 .I '$D(^DG(405.1,DVBA,0)) Q
27 .I $P(^DG(405.1,DVBA,0),U,4)=1 S DVBFOUND=1
28 .Q
29 I $D(DVBFOUND) Q 1
30 E Q 0
31 ;
32LOCK(Y) ;locks the record.
33 ;called by dvbaren1, dvbarl21, dvbareg1
34 L +^DVB(396,+Y):2
35 I '$T DO Q 0
36 .S VAR(1,0)="1,0,0,2,0^Record is currently in use!"
37 .D WR^DVBAUTL4("VAR")
38 .K VAR
39 .D PAUSE^DVBCUTL4
40 Q 1
41 ;
42UNLOCK(Y) ;unlocks the global
43 ;called by dvbaren1, dvbarl21, dvbareg1
44 L -^DVB(396,+Y)
45 Q
46 ;
47ERR(A) ;displays an error message to the user called from DVBAREG1
48 N VAR
49 S VAR(1,0)="1,0,0,2:2,0^There is no Admission or Non Admission information"_$S(A>0:" for this date range!",1:".")
50 D WR^DVBAUTL4("VAR")
51 K VAR
52 D CONTMES^DVBCUTL4
53 Q
54 ;
Note: See TracBrowser for help on using the repository browser.