source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDB1.m@ 623

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

initial load of WorldVistAEHR

File size: 858 bytes
Line 
1XPDB1 ;SFISC/RSD - Build utilities ;05/28/99 10:15
2 ;;8.0;KERNEL;**108**;Jul 10, 1995
3 Q
4LOOK() ;Lookup BUILD, build XPDT from build file
5 ;XPDT(seq #)=ien^name
6 ;XPDT("DA",ien)=seq #
7 N XPD,XPDA,XPDI,XPDNM,X,Y,Z K XPDT
8 S XPDT=0
9 S XPDA=$$DIC^XPDE("AEMQZ",,1) Q:'XPDA -1
10 S XPDI=$P(Y(0),U)
11 ;if type is Global Package, set DIRUT if there is other packages
12 I $P(Y(0),U,3)=2 W " GLOBAL PACKAGE"
13 D PCK(XPDA,XPDI)
14 G:$P(Y(0),U,3)'=1 LKX
15 ;multi-package
16 W " (Multi-Package)" S X=0
17 F S X=$O(^XPD(9.6,XPDA,10,X)) Q:'X S Z=$P($G(^(X,0)),U) D:Z]""
18 .N XPDA,X
19 .W !?3,Z S XPDA=$O(^XPD(9.6,"B",Z,0))
20 .I 'XPDA W " **Can't find definition in Build file**" Q
21 .I $D(XPDT("DA",XPDA)) W " already listed" Q
22 .D PCK(XPDA,Z)
23LKX Q XPDA
24 ;
25PCK(XPDA,XPDNM) ;XPDA=Build ien, XPDNM=Build name
26 N Y
27 S XPDT=XPDT+1,XPDT(XPDT)=XPDA_U_XPDNM,XPDT("DA",XPDA)=XPDT
28 Q
29 ;
Note: See TracBrowser for help on using the repository browser.