DVBAPCXR ;ALB/JLU;Utility routine for the post inits;9/15/94
 ;;2.7;AMIE;;Apr 10, 1995
 ;
ORPHAN ;
 S DIK="^DVB(396.93,",DIK(1)=".01^ADVB"
 D ENALL^DIK
 Q
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBAPCXR   162     printed  Sep 23, 2025@19:17:34                                                                                                                                                                                                     Page 2
DVBAPCXR  ;ALB/JLU;Utility routine for the post inits;9/15/94
 +1       ;;2.7;AMIE;;Apr 10, 1995
 +2       ;
ORPHAN    ;
 +1        SET DIK="^DVB(396.93,"
           SET DIK(1)=".01^ADVB"
 +2        DO ENALL^DIK
 +3        QUIT