Print Page as PDF
References to Package File (9.4) ICR (1124)

References to Package File (9.4)    ICR (1124)

Name Value
NUMBER 1124
IA # 1124
FILE NUMBER 9.4
GLOBAL ROOT DIC(9.4
DATE CREATED 1995/02/01
CUSTODIAL PACKAGE KERNEL
CUSTODIAL ISC San Francisco
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME References to Package File (9.4)
GENERAL DESCRIPTION
^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),"^")
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER
DIC(9.4,DA,0)
FIELD NUMBER ACCESS FIELD NAME LOCATION
1 Direct Global Read & w/Fileman PREFIX 0;2
DIC(9.4,DA,4)
FIELD NUMBER ACCESS FIELD NAME LOCATION
6 Direct Global Read & w/Fileman *FILE 4;0
STATUS Active
DURATION Till Otherwise Agreed
ID DIC(9.4
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
TOOLKIT Oakland
MAIL MESSAGE 13612183
Generated from AUG 12, 2020@ IA Listing Descriptions