References to Package File (9.4)    ICR (1124)

^XTSUMBLD, %INDEX, and the XINDEX routines need to look
at the Package file to find out what files are part of the package. For
example,


>>>>>XTSUMBLD+14 (FIELD: PREFIX)
S X=$P(^DIC(9.4,+$P(Y(0),U,2),0),U,2) D NAME(X) G EXIT:'$D(XTRNAME)

>>>>>XINDX10+11 (FIELD: FILE) F J=0:0 S J=$O(^DIC(9.4,DA,4,J)) Q:J'>0  I
$D(^(J,0)) SINDFN=+^(0),INDRN="|dd" _INDFN,(INDF,INDL)=0 D INSERT

>>>>>XINDX11+22 (FIELD: PREFIX) NAMSP S
INDXN=$P(^DIC(9.4,DA,0),"^",2),C9=0,INDXN(C9)="," F A=0:0 S A=$O(^DIC(9.
4,DA,"EX",A)) Q:A'>0  I $D(^(A,0))#2 S C9=C9+1,INDXN(C9)=$P(^(0),"^")


>>>>>ZINDX10+4 (FIELD: FILE)
F J=0:0 S J=$O(^DIC(9.4,DA,4,J)) Q:J'>0  I $D(^(J,0)) S INDFN=+^(0),INDRN="
|dd" _INDFN,(INDF,INDL)=0 D INSERT

>>>>>ZINDX11+5 (FIELD: PREFIX) NAMSP S
INDXN=$P(^DIC(9.4,DA,0),"^",2),C9=0,INDXN(C9)="," F A=0:0 S A=$O(^DIC(9.
4,DA,"EX",A)) Q:A'>0  I $D(^(A,0))#2 S C9=C9+1,INDXN(C9)=$P(^(0),"^")