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 Dec 13, 2024@01:41:35 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