source: IHS-VA_UTILITIES-XB/XBTM14.m@ 641

Last change on this file since 641 was 641, checked in by Sam Habiel, 15 years ago

Initial commit of XB, move away from sf.net.
Includes kids file and documentation.

File size: 332 bytes
Line 
1XBTM14 ; IHS/ADC/GTH - TECH MANUAL : ENHANCEMENTS ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 NEW A,B
5 S A=$O(^DIC(9.4,"C","XB",0)),B=$O(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))
6 S %=0
7 F S %=$O(^DIC(9.4,A,22,B,1,%)) Q:'% D PR(^(%,0)) Q:$D(DUOUT)
8 Q:$D(DUOUT)
9 D ^DIWW
10 Q
11 ;
12PR(X) NEW %,A,B D PR^XBTM(X) Q
13 ;
Note: See TracBrowser for help on using the repository browser.