Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XBTM14

XBTM14.m

Go to the documentation of this file.
XBTM14 ; IHS/ADC/GTH - TECH MANUAL : ENHANCEMENTS ; [ 02/07/97   3:02 PM ]
 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997
 ;
 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
 ;