| 1 | XTRUTL1 ;ISCSF/RWF - Developer Routine Utilities Build File ;10/09/2002 09:17
|
|---|
| 2 | ;;7.3;TOOLKIT;**20,66**;Apr 25, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | Q ;No entry from the top.
|
|---|
| 5 | BUILD() ;This will select an entry in the BUILD file.
|
|---|
| 6 | N BLDA,DIC,X,Y
|
|---|
| 7 | S DIC="^XPD(9.6,",DIC(0)="AEMQZ" D ^DIC
|
|---|
| 8 | Q Y
|
|---|
| 9 | RTN(IEN) ;This will build a list of routines from the BUILD file.
|
|---|
| 10 | N X,IX S U="^"
|
|---|
| 11 | F IX=0:0 S IX=$O(^XPD(9.6,IEN,"KRN",9.8,"NM",IX)) Q:IX'>0 S X=^(IX,0) S:'$P(X,U,3) ^UTILITY($J,$P(X,U))=""
|
|---|
| 12 | F IX="INI","INIT","PRE" S X=$G(^XPD(9.6,IEN,IX)) I X]"" S ^UTILITY($J,$S(X[U:$P(X,U,2),1:X))=""
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | VER(X) ;returns version number from Build file, X=build name
|
|---|
| 16 | Q:X["*" $P(X,"*",2)
|
|---|
| 17 | Q $P(X," ",$L(X," "))
|
|---|
| 18 | ;
|
|---|
| 19 | PATCH(X) ;returns the patch number from the Build file, X=build name
|
|---|
| 20 | Q $S(X["*":$P(X,"*",3),1:"")
|
|---|
| 21 | ;
|
|---|
| 22 | PLCP(PL,N) ;Patch list contains patch number
|
|---|
| 23 | N PAT S PAT="PL?.E1P1"""_N_"""1P.E"
|
|---|
| 24 | Q @PAT
|
|---|
