source: IHS-VA_UTILITIES-XB/trunk/XBTM12.m@ 1745

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

Modified directory structure; moved routines.

File size: 349 bytes
RevLine 
[641]1XBTM12 ; IHS/ADC/GTH - TECH MANUAL : SYSTEM REQUIREMENTS ; [ 02/07/97 3:02 PM ]
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;
4 NEW A,B,C,I
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,"S",%)) Q:'% D PR(^(%,0)) Q:$D(DUOUT)
8 Q:$D(DUOUT)
9 D ^DIWW
10 Q
11 ;
12PR(X) NEW %,A,B,C,I D PR^XBTM(X) Q
13 ;
Note: See TracBrowser for help on using the repository browser.