source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTRUTL1.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 858 bytes
Line 
1XTRUTL1 ;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.
5BUILD() ;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
9RTN(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 ;
15VER(X) ;returns version number from Build file, X=build name
16 Q:X["*" $P(X,"*",2)
17 Q $P(X," ",$L(X," "))
18 ;
19PATCH(X) ;returns the patch number from the Build file, X=build name
20 Q $S(X["*":$P(X,"*",3),1:"")
21 ;
22PLCP(PL,N) ;Patch list contains patch number
23 N PAT S PAT="PL?.E1P1"""_N_"""1P.E"
24 Q @PAT
Note: See TracBrowser for help on using the repository browser.