source: WorldVistAEHR/trunk/r/AUTOMATED_MED_INFO_EXCHANGE-DVBA-DVBC/DVBAPST1.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.2 KB
Line 
1DVBAPST1 ;ALB/JLU;UTILITY ROUTINE FOR POST INIT;9/6/94
2 ;;2.7;AMIE;;Apr 10, 1995
3 ;
4REINDAC ;this entry point will reindex the 'AC' ref. in 396
5 S VAR=" - Reindexing the 'AC' cross-reference."
6 W !!,VAR
7 D BUMP^DVBAPOST(VAR)
8REAC1 ;around the displays
9 S DIK="^DVB(396,",DIK(1)=6.82
10 D ENALL^DIK
11 K DIK
12 S VAR="Reindexing of 'AC' complete!"
13 W !,VAR
14 D BUMPBLK^DVBAPOST
15 D BUMP^DVBAPOST(VAR)
16 K VAR
17 Q
18 ;
19REINDAF ;reindexing the 'AF' cross-reference
20 S VAR=" - Reindexing the 'AF' cross-reference."
21 W !!,VAR
22 D BUMP^DVBAPOST(VAR)
23REAF ;around displays
24 S DIK="^DVB(396.3,",DIK(1)=17
25 D ENALL^DIK
26 K DIK
27 S VAR="Reindexing of 'AF' complete!"
28 W !,VAR
29 D BUMP^DVBAPOST(VAR)
30 D BUMPBLK^DVBAPOST
31 D BUMPBLK^DVBAPOST
32 K VAR
33 Q
34 ;
35REINDAE ;** Reindexing the 'AE' and 'E' cross references (396)
36 S VAR=" - Reindexing the 'AE' cross-reference."
37 W !!,VAR
38 D BUMP^DVBAPOST(VAR)
39REAE ;** Around displays
40 S DIK="^DVB(396,",DIK(1)=23
41 D ENALL^DIK
42 K DIK
43 S VAR="Reindexing 'AE' for field 23 complete!"
44 W !,VAR
45 D BUMP^DVBAPOST(VAR)
46 D BUMPBLK^DVBAPOST
47 D BUMPBLK^DVBAPOST
48 K VAR
49 Q
50 ;
51VERSION() ;this function call returns the version of AMIE that is running.
52 ;It uses the 396 file.
53 ;
54 Q $G(^DD(396,0,"VR"))
Note: See TracBrowser for help on using the repository browser.