source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTRUTL2.m@ 1211

Last change on this file since 1211 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 447 bytes
Line 
1XTRUTL2 ;ISCSF/RWF - SEED THE ROUTINE FILE ;1/15/97 09:33
2 ;;1;;**20**
3 Q
4SEED ;
5 ;N BUILD K ^UTILITY($J)
6 S BUILD=$$BUILD^XTRUTL1 Q:BUILD'>0 W !,BUILD S BUILD=+BUILD
7 D RTN^XTRUTL1(BUILD) ;Build List
8 W !,"Working on list",!
9 S RN=""
10 F S RN=$O(^UTILITY($J,RN)) Q:RN="" D SE2
11 W !,"Done",!
12 Q
13SE2 ;
14 S IEN=$$RFLK(RN) Q:IEN'>0
15 S X=^DIC(9.8,IEN,0) Q:$P(X,U,6)>MAX
16 W $J(RN,10) W:$X>70 !
17 D UD1^XTRUTL(RN)
18 Q
19RFLK(X) ;
20 Q $O(^DIC(9.8,"B",X,0))
Note: See TracBrowser for help on using the repository browser.