source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAPOPU.m@ 1714

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

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1DVBAPOPU ;ALB/JLU;utility routine for post inits;9/1/94
2 ;;2.7;AMIE;;Apr 10, 1995
3EN ;the main entry point
4 D SETPURG
5 Q
6 ;
7SETPURG ;this set up the DAYS TO KEEP 2507 HISTORY parameter.
8 N PAR
9 S VAR=" - Checking 2507 purge parameter"
10 W !!,VAR
11 D BUMPBLK^DVBAPOST,BUMPBLK^DVBAPOST,BUMP^DVBAPOST(VAR)
12 K VAR
13 S PAR=$$IFNPAR^DVBAUTL3
14 I 'PAR DO I 1
15 .N VAR
16 .S VAR="No parameter file entry exists!"
17 .W *7,!!,VAR
18 .D BUMPBLK^DVBAPOST,BUMPBLK^DVBAPOST,BUMP^DVBAPOST(VAR)
19 .S VAR="Consult the AMIE installation manual for further details."
20 .W !,VAR
21 .D BUMP^DVBAPOST(VAR)
22 .Q
23 E DO
24 .I +$P(^DVB(396.1,PAR,0),U,11)>119 Q
25 .S $P(^DVB(396.1,PAR,0),U,11)=120
26 .Q
27 Q
28 ;
29IEN6(X) ;this entry point returns the internal value of the amie exam file
30 ;a null is returned if not found.
31 ;
32 N X1
33 S X1=$O(^DVB(396.6,"B",$E(X,1,30),0))
34 I X1="" D ERR1("AMIE EXAM file",X) Q X1
35 I '$D(^DVB(396.6,X1,0)) D ERR2("AMIE EXAM file",X) S X1=""
36 Q X1
37 ;
38IEN7(X) ;this entry point returns the internal value of the amie 2507 BODY SYSTEM
39 ;file.
40 ;a null is returned if not found.
41 ;
42 N X1
43 S X1=$O(^DVB(396.7,"B",X,0))
44 I X1="" D ERR1("2507 BODY SYSTEM file",X) Q X1
45 I '$D(^DVB(396.7,X1,0)) D ERR2("2507 BODY SYSTEM file",X) S X1=""
46 Q X1
47 ;
48ERR1(A,B) ;this entry point is to inform the user of an error in the
49 ;B cross reference of the file
50 ;A is the file name
51 ;B is the entry number
52 D BUMPBLK^DVBAPOST
53 D BUMPBLK^DVBAPOST
54 S VAR="The entry "_B_" is not defined in "_A
55 W !,VAR D BUMP^DVBAPOST(VAR)
56 S VAR="Consult the AMIE Install Guide for details"
57 W !,VAR D BUMP^DVBAPOST(VAR)
58 Q
59 ;
60ERR2(A,B) ;this entry point is to inform the user of an error in the
61 ;the zero node of the file
62 ;A is the file name
63 ;B is the entry number
64 D BUMPBLK^DVBAPOST
65 D BUMPBLK^DVBAPOST
66 S VAR="The zero node of the entry "_B_" is missing in the "_A
67 W !,VAR D BUMP^DVBAPOST(VAR)
68 S VAR="Consult the AMIE Install Guide for details"
69 W !,VAR D BUMP^DVBAPOST(VAR)
70 Q
71 ;
72DELETE ;this entry point is used to kill the files 396.91, and 396.92
73 N VAR
74 K ^DVBP(396.91)
75 K ^DVBP(396.92)
76 S VAR(1,0)="0,0,0,1,0^Removal of data from file 396.91 and 396.92 is complete!"
77 D WR^DVBAUTL4("VAR")
78 Q
Note: See TracBrowser for help on using the repository browser.