XTRUTL2.m

XTRUTL2 ;ISCSF/RWF - SEED THE ROUTINE FILE ;1/15/97  09:33

 ;;1;;**20**

 Q

SEED ;

 ;N BUILD K ^UTILITY($J)

 S BUILD=$$BUILD^XTRUTL1 Q:BUILD'>0  W !,BUILD S BUILD=+BUILD

 D RTN^XTRUTL1(BUILD) ;Build List

 W !,"Working on list",!

 S RN=""

 F  S RN=$O(^UTILITY($J,RN)) Q:RN=""  D SE2

 W !,"Done",!

 Q

SE2 ;

 S IEN=$$RFLK(RN) Q:IEN'>0

 S X=^DIC(9.8,IEN,0) Q:$P(X,U,6)>MAX

 W $J(RN,10) W:$X>70 !

 D UD1^XTRUTL(RN)

 Q

RFLK(X) ;

 Q $O(^DIC(9.8,"B",X,0))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XTRUTL2   467     printed  Apr 09, 2024@21:42:16                                                                                                                                                                                                      Page 2

XTRUTL2   ;ISCSF/RWF - SEED THE ROUTINE FILE ;1/15/97  09:33

 +1       ;;1;;**20**

 +2        QUIT 

SEED      ;

 +1       ;N BUILD K ^UTILITY($J)

 +2        SET BUILD=$$BUILD^XTRUTL1

           if BUILD'>0

               QUIT 

           WRITE !,BUILD

           SET BUILD=+BUILD

 +3       ;Build List

           DO RTN^XTRUTL1(BUILD)

 +4        WRITE !,"Working on list",!

 +5        SET RN=""

 +6        FOR 

               SET RN=$ORDER(^UTILITY($JOB,RN))

               if RN=""

                   QUIT 

               DO SE2

 +7        WRITE !,"Done",!

 +8        QUIT 

SE2       ;

 +1        SET IEN=$$RFLK(RN)

           if IEN'>0

               QUIT 

 +2        SET X=^DIC(9.8,IEN,0)

           if $PIECE(X,U,6)>MAX

               QUIT 

 +3        WRITE $JUSTIFY(RN,10)

           if $X>70

               WRITE !

 +4        DO UD1^XTRUTL(RN)

 +5        QUIT 

RFLK(X)   ;

 +1        QUIT $ORDER(^DIC(9.8,"B",X,0))