DVBAPST1.m

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 ---DVBAPST1   1255     printed  Apr 09, 2024@20:52:50                                                                                                                                                                                                    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"))