DVBAPST1 ;ALB/JLU;UTILITY ROUTINE FOR POST INIT;9/6/94
;;2.7;AMIE;;Apr 10, 1995
;
REINDAC ;this entry point will reindex the 'AC' ref. in 396
S VAR=" - Reindexing the 'AC' cross-reference."
W !!,VAR
D BUMP^DVBAPOST(VAR)
REAC1 ;around the displays
S DIK="^DVB(396,",DIK(1)=6.82
D ENALL^DIK
K DIK
S VAR="Reindexing of 'AC' complete!"
W !,VAR
D BUMPBLK^DVBAPOST
D BUMP^DVBAPOST(VAR)
K VAR
Q
;
REINDAF ;reindexing the 'AF' cross-reference
S VAR=" - Reindexing the 'AF' cross-reference."
W !!,VAR
D BUMP^DVBAPOST(VAR)
REAF ;around displays
S DIK="^DVB(396.3,",DIK(1)=17
D ENALL^DIK
K DIK
S VAR="Reindexing of 'AF' complete!"
W !,VAR
D BUMP^DVBAPOST(VAR)
D BUMPBLK^DVBAPOST
D BUMPBLK^DVBAPOST
K VAR
Q
;
REINDAE ;** Reindexing the 'AE' and 'E' cross references (396)
S VAR=" - Reindexing the 'AE' cross-reference."
W !!,VAR
D BUMP^DVBAPOST(VAR)
REAE ;** Around displays
S DIK="^DVB(396,",DIK(1)=23
D ENALL^DIK
K DIK
S VAR="Reindexing 'AE' for field 23 complete!"
W !,VAR
D BUMP^DVBAPOST(VAR)
D BUMPBLK^DVBAPOST
D BUMPBLK^DVBAPOST
K VAR
Q
;
VERSION() ;this function call returns the version of AMIE that is running.
;It uses the 396 file.
;
Q $G(^DD(396,0,"VR"))
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAPST1 1255 printed Nov 22, 2024@16:52:04 Page 2
DVBAPST1 ;ALB/JLU;UTILITY ROUTINE FOR POST INIT;9/6/94
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;
REINDAC ;this entry point will reindex the 'AC' ref. in 396
+1 SET VAR=" - Reindexing the 'AC' cross-reference."
+2 WRITE !!,VAR
+3 DO BUMP^DVBAPOST(VAR)
REAC1 ;around the displays
+1 SET DIK="^DVB(396,"
SET DIK(1)=6.82
+2 DO ENALL^DIK
+3 KILL DIK
+4 SET VAR="Reindexing of 'AC' complete!"
+5 WRITE !,VAR
+6 DO BUMPBLK^DVBAPOST
+7 DO BUMP^DVBAPOST(VAR)
+8 KILL VAR
+9 QUIT
+10 ;
REINDAF ;reindexing the 'AF' cross-reference
+1 SET VAR=" - Reindexing the 'AF' cross-reference."
+2 WRITE !!,VAR
+3 DO BUMP^DVBAPOST(VAR)
REAF ;around displays
+1 SET DIK="^DVB(396.3,"
SET DIK(1)=17
+2 DO ENALL^DIK
+3 KILL DIK
+4 SET VAR="Reindexing of 'AF' complete!"
+5 WRITE !,VAR
+6 DO BUMP^DVBAPOST(VAR)
+7 DO BUMPBLK^DVBAPOST
+8 DO BUMPBLK^DVBAPOST
+9 KILL VAR
+10 QUIT
+11 ;
REINDAE ;** Reindexing the 'AE' and 'E' cross references (396)
+1 SET VAR=" - Reindexing the 'AE' cross-reference."
+2 WRITE !!,VAR
+3 DO BUMP^DVBAPOST(VAR)
REAE ;** Around displays
+1 SET DIK="^DVB(396,"
SET DIK(1)=23
+2 DO ENALL^DIK
+3 KILL DIK
+4 SET VAR="Reindexing 'AE' for field 23 complete!"
+5 WRITE !,VAR
+6 DO BUMP^DVBAPOST(VAR)
+7 DO BUMPBLK^DVBAPOST
+8 DO BUMPBLK^DVBAPOST
+9 KILL VAR
+10 QUIT
+11 ;
VERSION() ;this function call returns the version of AMIE that is running.
+1 ;It uses the 396 file.
+2 ;
+3 QUIT $GET(^DD(396,0,"VR"))
