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
|
---|