VistA-WorldVistAEHR/r/AUTOMATED_MED_INFO_EXCHANGE.../DVBAPCXR.m

8 lines
155 B
Mathematica

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