XBTM12.m

XBTM12 ; IHS/ADC/GTH - TECH MANUAL : SYSTEM REQUIREMENTS ; [ 02/07/97   3:02 PM ]

 ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 ;

 NEW A,B,C,I

 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,"S",%)) Q:'%   D PR(^(%,0)) Q:$D(DUOUT)

 Q:$D(DUOUT)

 D ^DIWW

 Q

 ;

PR(X) NEW %,A,B,C,I D PR^XBTM(X) Q

 ;

XBTM12    ; IHS/ADC/GTH - TECH MANUAL : SYSTEM REQUIREMENTS ; [ 02/07/97   3:02 PM ]

 +1       ;;3.0;IHS/VA UTILITIES;;FEB 07, 1997

 +2       ;

 +3        NEW A,B,C,I

 +4        SET A=$ORDER(^DIC(9.4,"C","XB",0))

           SET B=$ORDER(^DIC(9.4,A,22,"B",^DIC(9.4,A,"VERSION"),0))

 +5        SET %=0

 +6        FOR 

               SET %=$ORDER(^DIC(9.4,A,22,B,"S",%))

               IF '%

                   QUIT 

               DO PR(^(%,0))

               IF $DATA(DUOUT)

                   QUIT 

 +7        IF $DATA(DUOUT)

               QUIT 

 +8        DO ^DIWW

 +9        QUIT 

 +10      ;

PR(X)      NEW %,A,B,C,I

           DO PR^XBTM(X)

           QUIT 

 +1       ;