- 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 Feb 18, 2025@23:08:15 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"))
