VistA-IHS-VA_UTILITIES-XB/XBTM14.m

14 lines
332 B
Mathematica

XBTM14 ; IHS/ADC/GTH - TECH MANUAL : ENHANCEMENTS ; [ 02/07/97 3:02 PM ]
;;4.0;XB;;Jul 20, 2009;Build 2
;
NEW A,B
S A=$O(^DIC(9.4,"C","XB",0)),B=$O(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))
S %=0
F S %=$O(^DIC(9.4,A,22,B,1,%)) Q:'% D PR(^(%,0)) Q:$D(DUOUT)
Q:$D(DUOUT)
D ^DIWW
Q
;
PR(X) NEW %,A,B D PR^XBTM(X) Q
;