Global: ^PRC(440.5

FileMan FileNo	FileMan Filename	Package
440.5	PURCHASE CARD INFORMATION	IFCAP

Package	Total	Routines
IFCAP	54	ITEM SPECIFIC INFORMATION PRC5129 PRCH AO AUDIT REPORT PRCH CARD PRCH CARD INFOSORT PRCH CO AO AUDIT PRCH IMPAC SORT PRCH PROCESS PC PRCH PURCHASE CARD PRCH PURCHASE CARD AMEND PRCH WORKLOAD1 PRCH0A PRCH1A PRCH1A1 PRCH1A2 PRCH1B PRCH1D PRCH1E PRCH3A PRCH442A PRCH4RPT PRCH7A PRCH7B PRCH7D PRCH7PA1 PRCH7PA4 PRCH7PUC PRCHAMU PRCHCD0 PRCHCON1 PRCHE PRCHFCY PRCHFPT1 PRCHINQ PRCHMA PRCHNPO4 PRCHNRQ PRCHPNT2 PRCHRP10 PRCHRP2 PRCHRP4 PRCHRP5 PRCHRP7 PRCHRP8 PRCHRP9 PRCHT18 PRCHT37 PRCHURP ^PRC(440.5 ^PRC(442 PRCHUSER PRCOE1 PRCSPC SURROGATE USER
Prosthetics	3	RMPOBILU RMPR421 RMPR9PCD
Kernel	1	^DIC(19

Package	Total	Routines
IFCAP	4	PRCH2A PRCH7PA4 PRCHINQ PRCHUSER

Package	Total	FileMan Files
IFCAP	3	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[46] AMENDMENTS(#443.6)[46] CONTROL POINT ACTIVITY(#410)[451]

Package	Total	FileMan Files
IFCAP	1	ADMIN. ACTIVITY SITE PARAMETER(#411)[15]
Kernel	1	NEW PERSON(#200)[7, 8, 9, #440.512(.01)]

Fields, Total: 31

Field #	Name	Loc	Type	Details
.01	PURCHASE CARD NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X'?16N!($$LUHN^PRCH0A(X)<1)&($G(PRCSYS)-1) X I $D(X) K:$O(^PRC(440.5,"B",X,0))>0 X` LAST EDITED: `MAR 08, 1999` HELP-PROMPT: `Enter a valid purchase card number (16-digit).` DESCRIPTION: `Please enter the purchase card number that you want to assign to a user. The number can not be an existing number assigned to and used by another user.` DELETE TEST: `1,0)= I 1 D EN^DDIOL(" CARD CAN'T BE DELETED!! ","","?0")` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `440.5^B` `1)= S ^PRC(440.5,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `440.5^D^MUMPS` `1)= S ^PRC(440.5,"D",X_" ",DA)=""` `2)= K ^PRC(440.5,"D",X_" ",DA)` CROSS-REFERENCE: `440.5^M1^MUMPS` `1)= S ^PRC(440.5,"M1",$E(X,9,999)_" ",DA)=""` `2)= K ^PRC(440.5,"M1",$E(X,9,999)_" ",DA)`
1	FUND CONTROL POINT	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:'$D(PRC("SITE")) X Q:'$D(X) D INPUT1^PRCHUSER` LAST EDITED: `SEP 12, 2000` HELP-PROMPT: `Please input a valid control point.` DESCRIPTION: `Please input a Fund Control Point that you want all the purchases for this purchase card to be expensed to.` EXECUTABLE HELP: `Q:'$D(PRC("SITE")) S X="?",DIC="^PRC(420,"_PRC("SITE")_",1,",DIC(0)="QEM" S DIC("S")="I $D(^PRC(420,""C"",PRCHHLDR,PRC(""SITE""),+Y))" D ^DIC` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2	COST CENTER	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S Z0=+$P(^PRC(440.5,DA,0),U,2) K:'$D(PRC("SITE"))!'Z0 X I $D(X) K:'$D(^PRC(420,PRC("SITE"),1,Z0,2,0)) X I $D(X) D EN2^PRCHNPO5` LAST EDITED: `MAY 08, 1996` HELP-PROMPT: `Please enter a valid cost center for the FCP.` DESCRIPTION: `Please input a valid Cost Center for the Fund Control POint.` EXECUTABLE HELP: `S X="?",ZD=D,Z0=+$P(^PRC(440.5,DA,0),U,2) Q:'$D(PRC("SITE"))!'Z0 Q:'$D(^PRC(420,PRC("SITE"),1,Z0,2,0)) S DIC="^PRC(420,PRC(""SITE""),1,Z0,2,",DIC(0)="QEM" D ^DIC K Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	BUDGET OBJECT CODE	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S Z0=+$P(^PRC(440.5,DA,0),U,3) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X,Z0 I $D(X) S DIC="^PRCD(420.1,Z0,1,",DIC(0)="QEMZ" D ^DIC K:Y<0 X K DIC,Z0 I $D(X) S X=$P(Y(0,0),"^")` LAST EDITED: `MAY 08, 1996` HELP-PROMPT: `Please enter a valid BOC for the Cost Center.` DESCRIPTION: `Please input a valid Budget Object Code for the Cost Center.` EXECUTABLE HELP: `S Z0=+$P(^PRC(440.5,DA,0),U,3) K:'Z0 X,Z0 I $D(X) S X="?",DIC="^PRCD(420.1,Z0,1,",DIC(0)="E" D ^DIC K DIC,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4	PC USER SINGLE PURCHASE LIMIT	0;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X` LAST EDITED: `JUL 15, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits` DESCRIPTION: `This is the maximum amount that can be charged to this Purchase Card by the purchase card user for any one purchase.`
5	MONTHLY PURCHASE LIMIT	0;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `This is the maximum amount that can be charged to this Purchase Card within any one month.`
6	DELIVERY LOCATION	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `MAY 08, 1996` HELP-PROMPT: `Answer must be 3-20 characters in length.` DESCRIPTION: `This is the location that you want the ordered items to be delivered to most of the time.`
7	CARD HOLDER	0;8	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JUL 01, 1996` HELP-PROMPT: `Please input a purchase card user to whom this card is issued to.` DESCRIPTION: `This is the purchase card user this card is issued to.` CROSS-REFERENCE: `440.5^H` `1)= S ^PRC(440.5,"H",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,"H",$E(X,1,30),DA)` `This is an index for card holder.` CROSS-REFERENCE: `440.5^MAAH^MUMPS` `1)= N A,B S A=^PRC(440.5,DA,0) F B=9,10 S:$P(A,U,B) ^PRC(440.5,"MAAH",$P(A,U,B),X,DA)=""` `2)= N A,B S A=^PRC(440.5,DA,0) F B=9,10 K:$P(A,U,B) ^PRC(440.5,"MAAH",$P(A,U,B),X,DA)` `This is an index used to approve reconciled orders.`
8	APPROVING OFFICIAL	0;9	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `DEC 14, 2000` HELP-PROMPT: `Please input a user who can approve purchase card charges for this purchase card.` DESCRIPTION: `Please input a user who can approve purchase card charges for this purchase card.` CROSS-REFERENCE: `440.5^E` `1)= S ^PRC(440.5,"E",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,"E",$E(X,1,30),DA)` `This is the cross-reference for the Approving Official.` CROSS-REFERENCE: `440.5^MAA^MUMPS` `1)= S ^PRC(440.5,"MAA",X,DA)=""` `2)= K ^PRC(440.5,"MAA",X,DA)` `This is an index for approval officials and alternate approval officials.` CROSS-REFERENCE: `440.5^MAAH1^MUMPS` `1)= N A S A=^PRC(440.5,DA,0) S:$P(A,U,8) ^PRC(440.5,"MAAH",X,$P(A,U,8),DA)=""` `2)= N A S A=^PRC(440.5,DA,0) K:$P(A,U,8) ^PRC(440.5,"MAAH",X,$P(A,U,8),DA)` `This is an index used to approve reconciled orders.` RECORD INDEXES: `I (#55)`
9	ALTERNATE APPROVING OFFICIAL	0;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 14, 2000` HELP-PROMPT: `Please input a user who can also approve purchase card charges for this card in case the Approving Official is not available.` DESCRIPTION: `This is the user who can also approve purchase card charges for this card in case the Approving Official is not available.` CROSS-REFERENCE: `440.5^MAA1^MUMPS` `1)= S ^PRC(440.5,"MAA",X,DA)=""` `2)= K ^PRC(440.5,"MAA",X,DA)` `This is an index for approval officials and alternate approval officials.` CROSS-REFERENCE: `440.5^MAAH2^MUMPS` `1)= N A S A=^PRC(440.5,DA,0) S:$P(A,U,8) ^PRC(440.5,"MAAH",X,$P(A,U,8),DA)=""` `2)= N A S A=^PRC(440.5,DA,0) K:$P(A,U,8) ^PRC(440.5,"MAAH",X,$P(A,U,8),DA)` `This is an index used to approve reconciled orders.` CROSS-REFERENCE: `440.5^F` `1)= S ^PRC(440.5,"F",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,"F",$E(X,1,30),DA)` `This is a cross-reference for ALTERNATE APPROVING OFFICIAL .` RECORD INDEXES: `J (#56)`
10	PURCHASE CARD NAME	0;11	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUN 25, 1996` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This is the name by which the user will be able to recognize this purchase card.` CROSS-REFERENCE: `440.5^G` `1)= S ^PRC(440.5,"G",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,"G",$E(X,1,30),DA)` `This is an index for card name.`
12	SURROGATE USER	1;0	POINTER Multiple #440.512	440.512 DESCRIPTION: `This is the user who can also use this purchase card to order items.`
13	MONTHLY PURCHASES	2;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X` LAST EDITED: `JUL 13, 1998` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `This is a monthly purchase dollar amount.`
14	INACTIVATE CARD?	2;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 04, 1998` DESCRIPTION: `This indicates if this purchase card is an inactive card.` CROSS-REFERENCE: `440.5^AI` `1)= S ^PRC(440.5,"AI",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,"AI",$E(X,1,30),DA)` `This index is used by the inactivate expired charge cards option.`
15	STATION NUMBER	2;3	POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411)	**********************REQUIRED FIELD********************** ADMIN. ACTIVITY SITE PARAMETER(#411) LAST EDITED: `DEC 14, 2000` DESCRIPTION: `This is the station number of the purchase card.` RECORD INDEXES: `I (#55), J (#56)`
16	EXPIRATION DATE	2;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:3501231X) X I $D(X) K:$E(X,4,5)'>0 X` LAST EDITED: `APR 21, 1997` HELP-PROMPT: `Enter a date between 12/31/1995 and 12/31/2050 as it shows on the credit card.` DESCRIPTION: `This date expressed either as a month-year or month-date-year value is the last date that this card is active. The month-year syntax assumes the last day of the specified month.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
51	E REPLACED CARD NUMBER	50;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<1)!'(X?16N) X` LAST EDITED: `OCT 02, 1998` HELP-PROMPT: `Answer must be 1-18 characters in length.` DESCRIPTION: `This is the existing purchase card number which will be replaced by a` `new purchase card number.` CROSS-REFERENCE: `440.5^ARPC` `1)= S ^PRC(440.5,"ARPC",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,"ARPC",$E(X,1,30),DA)` `This is an index by replaced card number.`
52	E CARD HOLDER NAME	50;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<1) X` LAST EDITED: `JUN 19, 1998` HELP-PROMPT: `Answer must be 1-35 characters in length.` DESCRIPTION: `This is the purchase card holder name that is passed from the charge` `card vendor.`
53	E STATION NUMBER	50;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the station number passed from the charge card vendor.`
54	E VALID DATE	50;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `SEP 21, 1998` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: `This is the date card was embossed.`
55	E FUND CODE	50;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the FMS Fund code passed from the charge card vendor.`
56	E ACC CODE	50;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: `This is the FMS ACC code passed from the charge card vendor.`
57	E COST CENTER	50;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the cost center passed from the charge card vendor.`
58	E BOC	50;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `JUL 10, 1998` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the FMS BOC passed from the charge card vendor.`
59	E EXPIRATION DATE	50;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `SEP 21, 1998` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: `This is the charge card expiration date passed from the charge card vendor.`
60	E CHARGE CARD NUMBER	50;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 21, 1998` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the new charge card number passed from the charge card vendor.`
61	E SINGLE PURCHASE LIMIT	50;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `SEP 21, 1998` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This is the charge card single purchase limit passed from the charge card vendor.`
62	E MONTHLY PURCHASE LIMIT	50;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `SEP 21, 1998` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This is the charge card monthly purchase limit passed from the charge card vendor.`
63	R FUND CONTROL POINT	50;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `SEP 21, 1998` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is a replaced fund control point.`
70	STATUS	70;1	SET	'E' FOR EXCEPTION; 'P' FOR POSTED; LAST EDITED: `JUL 30, 1998` DESCRIPTION: `This field is the status of the entry. If the entry appears on the Charge Card Exception Report this field will contain a value of E.` CROSS-REFERENCE: `440.5^ST` `1)= S ^PRC(440.5,"ST",$E(X,1,30),DA)=""` `2)= K ^PRC(440.5,"ST",$E(X,1,30),DA)` `This is an index to drive reports.`
71	STATUS DATE	70;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 19, 1998` DESCRIPTION: `This is the date the status field is set or updated.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #3690	M DATA EXTRACTOR
ICR #6627	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	PURCHASE CARD NUMBER (.01). Access: Read w/Fileman FUND CONTROL POINT (1). Access: Read w/Fileman COST CENTER (2). Access: Read w/Fileman BUDGET OBJECT CODE (3). Access: Read w/Fileman PC USER SINGLE PURCHASE LIMIT (4). Access: Read w/Fileman MONTHLY PURCHASE LIMIT (5). Access: Read w/Fileman DELIVERY LOCATION (6). Access: Read w/Fileman CARD HOLDER (7). Access: Read w/Fileman APPROVING OFFICIAL (8). Access: Read w/Fileman ALTERNATE APPROVING OFFICIAL (9). Access: Read w/Fileman PURCHASE CARD NAME (10). Access: Read w/Fileman SURROGATE USER (.01). Access: Read w/Fileman MONTHLY PURCHASES (13). Access: Both R/W w/Fileman INACTIVATE CARD? (14). Access: Read w/Fileman STATION NUMBER (15). Access: Read w/Fileman EXPIRATION DATE (16). Access: Read w/Fileman E REPLACED CARD NUMBER (51). Access: Read w/Fileman	File 440.5 'ARPC' index Used to look up by E REPLACEDCARD NUMBERFile 440.5 'B' cross reference Used to look up byPURCHASE CARD NUMBERFile 440.5 'C' cross reference Used to look up bySURROGATE USERFile 440.5 'D' cross reference Used to look up byPURCHASE CARD NUMBERFile 440.5 'E' cross reference Used to look up byAPPROVING OFFICIALFile 440.5 'F' cross reference Used to look up byALTERNATE APPROVING OFFICIALFile 440.5 'H' cross reference Used to look up byCARD HOLDER

Name	Field # of Occurrence
^%DT	16+1, 71+1
EN^DDIOL	.01DEL1+1
^DIC	1(HELP ), 2(HELP ), 3+1, 3(HELP )
Y^DIQ	ID7+1
$$LUHN^PRCH0A	.01+1
EN2^PRCHNPO5	2+1
INPUT1^PRCHUSER	1+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(200	ID7+1
^PRC(420 - [#420]	2+1, 2(HELP )
^PRC(440.5 - [#440.5]	IXISL+1, IXIKL+1!, IXIKEIC+1!, IXJSL+1, IXJKL+1!, IXJKEIC+1!, .01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S) , .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 2+1, 2(HELP ), 3+1, 3(HELP ), 7(XREF 1S), 7(XREF 1K), 7(XREF 60S) , 7(XREF 60K), 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 60S), 8(XREF 60K), 9(XREF 1S), 9(XREF 1K), 9(XREF 60S) , 9(XREF 60K), 9(XREF 99S), 9(XREF 99K), 10(XREF 1S), 10(XREF 1K), 14(XREF 1S), 14(XREF 1K), 51(XREF 1S), 51(XREF 1K), 70(XREF 1S) , 70(XREF 1K)
^PRCD(420.1 - [#420.1]	3+1
^VA(200 - [#200]	ID7+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	16+1, 71+1
%I	ID7+1*!
A	7(XREF 60S), 7(XREF 60K), 8(XREF 60S), 8(XREF 60K), 9(XREF 60S), 9(XREF 60K)
B	7(XREF 60S), 7(XREF 60K)
>> C	ID7+1*
>> D	2(HELP )
>> DA	IXISL+1, IXIKL+1, IXJSL+1, IXJKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K) , 2+1, 2(HELP ), 3+1, 3(HELP ), 7(XREF 1S), 7(XREF 1K), 7(XREF 60S), 7(XREF 60K), 8(XREF 1S), 8(XREF 1K) , 8(XREF 2S), 8(XREF 2K), 8(XREF 60S), 8(XREF 60K), 9(XREF 1S), 9(XREF 1K), 9(XREF 60S), 9(XREF 60K), 9(XREF 99S), 9(XREF 99K) , 10(XREF 1S), 10(XREF 1K), 14(XREF 1S), 14(XREF 1K), 51(XREF 1S), 51(XREF 1K), 70(XREF 1S), 70(XREF 1K)
DIC	ID7+1, 1(HELP ), 2(HELP ), 3+1*!, 3(HELP )
DIC("S"	1(HELP )
DIC(0	1(HELP ), 2(HELP ), 3+1*, 3(HELP )
>> PRC("SITE"	1+1, 1(HELP ), 2+1, 2(HELP )
>> PRCSYS	.01+1
U	ID7+1, ID10+1, 2+1, 2(HELP ), 3+1, 3(HELP ), 7(XREF 60S), 7(XREF 60K), 8(XREF 60S), 8(XREF 60K) , 9(XREF 60S), 9(XREF 60K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1!, 1(HELP ), 2+1! , 2(HELP ), 3+1!, 3(HELP ), 4+1!, 5+1!, 6+1!, 7(XREF 1S), 7(XREF 1K), 7(XREF 60S), 7(XREF 60K) , 8(XREF 1S), 8(XREF 1K), 8(XREF 2S), 8(XREF 2K), 8(XREF 60S), 8(XREF 60K), 9(XREF 1S), 9(XREF 1K), 9(XREF 60S), 9(XREF 60K) , 9(XREF 99S), 9(XREF 99K), 10+1!, 10(XREF 1S), 10(XREF 1K), 13+1!, 14(XREF 1S), 14(XREF 1K), 16+1!, 51+1! , 51(XREF 1S), 51(XREF 1K), 52+1!, 53+1!, 54+1!, 55+1!, 56+1!, 57+1!, 58+1!, 59+1! , 60+1!, 61+1!, 62+1!, 63+1!, 70(XREF 1S), 70(XREF 1K), 71+1!
X(1	IXISL+1, IXIKL+1, IXJSL+1, IXJKL+1
X(2	IXISL+1, IXIKL+1, IXJSL+1, IXJKL+1
>> Y	ID7+1*, 3+1, 16+1, 71+1
>> Y(0	3+1
Z0	2+1, 2(HELP ), 3+1!, 3(HELP )
>> ZD	2(HELP )

Customize PDF page

Package: IFCAP

Global: ^PRC(440.5

Information

Description

Directly Accessed By Routines, Total: 72

Accessed By FileMan Db Calls, Total: 4

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 2

Fields, Total: 31

ICR, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: