Global: ^PRC(443.6

FileMan FileNo	FileMan Filename	Package
443.6	AMENDMENTS	IFCAP

Package	Total	Routines
IFCAP	92	ADMINISTRATIVE CERTIFICATIONS AMENDMENT AMOUNT CHANGES ITEM PRCB2A PRCFACS3 PRCFFM2M PRCFFMOM PRCFFU PRCFFU10 PRCFFU15 PRCFFUA1 PRCFFUA4 PRCFRET PRCH DELIVERY ORDER AMEND PRCH DETAILED PURCHASE CARD PRCH PURCHASE CARD AMEND PRCH-DEP LOG 401 PRCH7B PRCH7C PRCH7D PRCHAM PRCHAM1 PRCHAM2 PRCHAM3 PRCHAM4 PRCHAM44 PRCHAM5 PRCHAM8 PRCHAMBL PRCHAMDF PRCHAMDISCOUNT PRCHAMEND PRCHAMENDAV PRCHAMENDPRO PRCHAMENDPRO EDIT PRCHAMU PRCHAMU1 PRCHAMXA PRCHAMXB PRCHAMXC PRCHAMXD PRCHAMXE PRCHAMXF PRCHAMXG PRCHAMXH PRCHAMYA PRCHAMYB PRCHCRD2 PRCHDAM PRCHDAM0 PRCHDAM1 PRCHDAM2 PRCHDAM3 PRCHDAM4 PRCHDAM5 PRCHDAM6 PRCHDEL PRCHDIS1 PRCHDIS2 PRCHDSP2 PRCHES10 PRCHES12 PRCHES14 PRCHESE PRCHINQ PRCHLINE PRCHMA0 PRCHMA2 PRCHNPT PRCHPAM2 PRCHPAM3 PRCHPAM4 PRCHPAM5 PRCHPAM8 PRCHREC ^PRC(441.7 ^PRC(443.6 PRCHMA PRCHMA1 PRCHMA3 PRCHNPO7 PRCHNPO8 PRCHPAM6 PRCHPAM7 PRCHRET PRCHRQITM PRCHSF2 PRCHSF3 PRCSETI PROMPT PAYMENT TERMS

Package	Total	Routines
IFCAP	14	PRCGARP1 PRCHAM PRCHAM1 PRCHAM2 PRCHAM3 PRCHAM5 PRCHAMU PRCHAMU1 PRCHESE PRCHMA PRCHMA0 PRCHMA1 PRCHMA2 PRCHMA3

Package	Total	FileMan Files
IFCAP	1	AMENDMENTS(#443.6)[27, 28]

Package	Total	FileMan Files
IFCAP	23	ADMIN. ACTIVITY SITE PARAMETER(#411)[31] VENDOR(#440)[5, 53] DIRECT DELIVERY PATIENTS(#440.2)[5.3] PURCHASE CARD INFORMATION(#440.5)[46] ITEM MASTER(#441)[#443.61(1.5)] FEDERAL SUPPLY CLASSIFICATION(#441.2)[#443.61(8)] ADMINISTRATIVE CERTIFICATIONS(#442.7)[#443.624(.01)] TYPE OF SPECIAL HANDLING(#443.4)[18.7] AMENDMENTS(#443.6)[27, 28] LOCAL PROCUREMENT REASON CODES(#443.8)[.25] BUDGET OBJECT CODE(#420.2)[3, 4, #443.61(17)] UNIT OF ISSUE(#420.5)[#443.61(3), #443.61(9.4)] CODE INDEX(#420.6)[#443.7(1), #443.7(1.1), #443.7(1.2)] SOURCE CODE(#420.8)[8] INTERMEDIATE PRODUCT(#420.9)[#443.61(3.6)] DLA/LOG CODES(#441.4)[#443.61(39.5)] TYPE OF AMENDMENT(#442.2)[#443.67(3)] PURCHASE ORDER STATUS(#442.3)[.5, #443.67(9)] PAT TYPE(#442.5)[.02] CALM/LOG CODE SHEET(#423)[#443.61(37), #443.64(5)] CONTROL POINT ACTIVITY(#410)[.07, 62, #443.61(10)] CLASSIFICATION OF REQUEST(#410.2)[52] SORT GROUP(#410.7)[51]
Kernel	2	SERVICE/SECTION(#49)[5.2] NEW PERSON(#200)[16, 19, 56, 57, 61, #443.67(6), #443.67(10), #443.6714(6)]

Fields, Total: 90

Field #	Name	Loc	Type	Details
.01	PURCHASE ORDER NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:'$D(^PRC(411,$P(X,"-",1)))!'($P(X,"-",2)?3UN3N) X` LAST EDITED: `JUL 05, 1996` HELP-PROMPT: `ENTER PURCHASE ORDER NUMBER (I.E. A12345)` DESCRIPTION: `This is the purchase order number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.6^B` `1)= S ^PRC(443.6,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(443.6,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `443.6^E^MUMPS` `1)= S ^PRC(443.6,"E",$P(X,"-",2),DA)=""` `2)= K ^PRC(443.6,"E",$P(X,"-",2),DA)` `This x-ref allows one to select an amendment using only the common numbering part of the p.o. number, the same as can be done in 442 using the "C" x-ref on the .01 field there.`
.02	METHOD OF PAYMENT	0;2	POINTER TO PAT TYPE FILE (#442.5)	**********************REQUIRED FIELD******************** PAT TYPE(#442.5) INPUT TRANSFORM: `S DIC("S")="I Y<20!(Y=25)!(Y=26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 11, 1998` DESCRIPTION: `This is the method of payment for this purchase order.` SCREEN: `S DIC("S")="I Y<20!(Y=25)!(Y=26)"` EXPLANATION: `ENTER A NUMBER OR TYPE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.6^AG^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN10^PRCHAMXB S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN10^PRCHAMXB` `This x-ref will update the CHANGES multiple whenever an 'Edit Method of Payment' amendment changes this field.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE.` `This cross-reference gets executed when user tries to edit or delete this field only through IFCAP. PRCHNORE gets set and removed within IFCAP.`
.04	INVOICE ADDRESS	12;6	FREE TEXT	INPUT TRANSFORM: `S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) K:'Z0 X Q:'Z0 S DIC="^PRC(411,Z0,4,",DIC(0)="QEMO" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC` OUTPUT TRANSFORM: `S Y(0)=Y Q:Y="" S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) Q:'Z0 S Y=$P($S($D(^PRC(411,Z0,4,Y,0)):^(0),1:""),U,1) K Z0` LAST EDITED: `OCT 13, 1995` HELP-PROMPT: `This is the invoice address.` DESCRIPTION: `The invoice address.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) Q:'Z0 S DIC="^PRC(411,Z0,4,",DIC(0)="QEMO" D ^DIC S DIC=DIE,D=ZD K ZD,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.6^AF^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN9^PRCHAMXB S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN9^PRCHAMXB` `This x-ref will update the CHANGES multiple whenever an 'Edit Mail Invoices to' amendment changes this field.` `****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
.06	PRIORITY OF 2237	1;9	SET	'EM' FOR EMERGENCY; 'SP' FOR SPECIAL; 'ST' FOR STANDARD; LAST EDITED: `APR 28, 1994` DESCRIPTION: `This field contains a code which indicates the priority of this order.`
.07	PRIMARY 2237	0;12	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	CONTROL POINT ACTIVITY(#410) LAST EDITED: `APR 28, 1994` DESCRIPTION: `This field contains a pointer to the primary 2237 record for this amendment.`
.08	ESTIMATED ORDER?	7;3	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 28, 1994` DESCRIPTION: `This field indicates whether or not this is an estimated order.`
.09	DEPOT VOUCHER NO.	1;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` LAST EDITED: `APR 28, 1994` HELP-PROMPT: `Answer must be 5 characters in length.` DESCRIPTION: `This is the depot voucher number.`
.1	P.O. DATE	1;15	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 28, 1994` DESCRIPTION: `This is the purchase order date.`
.2	EMERGENCY ORDER?	1;17	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 28, 1994` DESCRIPTION: `Enter YES if this is an emergency order.`
.25	LOCAL PROCUREMENT REASON CODE	1;19	POINTER TO LOCAL PROCUREMENT REASON CODES FILE (#443.8)	LOCAL PROCUREMENT REASON CODES(#443.8) LAST EDITED: `APR 28, 1994` DESCRIPTION: `This is a pointer to the Local Procurement Reason Code File (#443.8). This code describes why the items are being purchased "open market".`
.3	EXPENDABLE/NONEXPENDABLE	1;18	SET	**********************REQUIRED FIELD********************** 'E' FOR EXPENDABLE; 'N' FOR NON-EXPENDABLE; LAST EDITED: `APR 28, 1994` DESCRIPTION: `This is the indicator for procurement of expendable or nonexpendable items.`
.5	SUPPLY STATUS	7;1	POINTER TO PURCHASE ORDER STATUS FILE (#442.3)	PURCHASE ORDER STATUS(#442.3) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 12, 1996` HELP-PROMPT: `This is the Supply status.` DESCRIPTION: `This is the Supply status of the order.` SCREEN: `S DIC("S")="I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5"` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.7	SUPPLY STATUS ORDER	7;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 28, 1994` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This field is automatically updated when supply status changes.`
.8	FISCAL STATUS ORDER	7;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 28, 1994` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This field is automatically updated when supply status changes.`
1	FCP	0;3	FREE TEXT	**********************REQUIRED FIELD******************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:'$D(PRC("SITE"))!('$D(^PRC(443.6,DA,1))) X Q:'$D(X) S:$P(^(1),U,15)]"" PRC("FY")=$P(^(1),U,15) D EN1^PRCHNPO8 Q:'$D(X) S $P(^PRC(443.6,DA,0),U,4)=PRC("APP")` LAST EDITED: `MAR 21, 1995` HELP-PROMPT: `ENTER A VALID FUND CONTROL POINT` DESCRIPTION: `This is the Fund Control Point.` EXECUTABLE HELP: `Q:'$D(PRC("SITE")) S:$D(D) ZD=D S Z0=$E($P(^PRC(443.6,DA,0),"-",2),1,2),X="?",DIC="^PRC(420,"_PRC("SITE")_",1,",DIC(0)="QEM",DIC("S")="D EN5^PRCHNPO6" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K Z0,Z1,ZD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.6^AJ^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN5^PRCHAMXC S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN5^PRCHAMXC` `This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
1.4	APPROPRIATION	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `MAR 28, 1994` HELP-PROMPT: `Answer must be 4-20 characters in length.` DESCRIPTION: `This is the appropriation for this order.`
2	COST CENTER	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) S Z0=+$P(^PRC(443.6,DA,0),"^",3) K:'$D(PRC("SITE"))!'Z0 X,Z0 I $D(X),$D(^PRC(420,PRC("SITE"),1,Z0,2,0)) D EN2^PRCHNPO5` LAST EDITED: `MAR 21, 1995` HELP-PROMPT: `You must enter a valid Cost Center for this Fund Control Point.` DESCRIPTION: `This is the cost center for this order.` EXECUTABLE HELP: `Q:'$D(PRC("SITE")) S ZD=D,X="?",Z0=+$P(^PRC(443.6,DA,0),U,3),Z1=PRC("SITE") Q:'$D(^PRC(420,Z1,1,Z0,2)) S DIC="^PRC(420,Z1,1,Z0,2,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0,Z1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.6^AK^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN6^PRCHAMXC S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN6^PRCHAMXC` `This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.` `****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
3	SUBACCOUNT1	0;6	POINTER TO BUDGET OBJECT CODE FILE (#420.2)	BUDGET OBJECT CODE(#420.2) LAST EDITED: `APR 18, 1994` DESCRIPTION: `This is the subaccount 1.`
3.4	SUBAMOUNT1	0;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 999999.99` DESCRIPTION: `This is the subamount 1.`
4	SUBACCOUNT2	0;8	POINTER TO BUDGET OBJECT CODE FILE (#420.2)	BUDGET OBJECT CODE(#420.2) DESCRIPTION: `This is the subaccount 2.`
4.4	SUBAMOUNT2	0;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 999999.99` DESCRIPTION: `This is the subamount 2.`
5	VENDOR	1;1	POINTER TO VENDOR FILE (#440)	**********************REQUIRED FIELD******************** VENDOR(#440) LAST EDITED: `MAR 21, 1995` DESCRIPTION: `This is the name of the vendor for this purchase order.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.6^AO^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN8^PRCHAMXD S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN8^PRCHAMXD` `This x-ref will update the CHANGES multiple whenever a 'Change VENDOR' amendment changes this field.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
5.2	REQUESTING SERVICE	1;2	POINTER TO SERVICE/SECTION FILE (#49)	**********************REQUIRED FIELD******************** SERVICE/SECTION(#49) LAST EDITED: `MAR 21, 1995` DESCRIPTION: `This is the requesting service for this order.` CROSS-REFERENCE: `443.6^AL^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN7^PRCHAMXC S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN7^PRCHAMXC` `This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
5.3	DIRECT DELIVERY PATIENT	1;12	POINTER TO DIRECT DELIVERY PATIENTS FILE (#440.2)	DIRECT DELIVERY PATIENTS(#440.2) LAST EDITED: `MAR 21, 1995` DESCRIPTION: `This is the direct delivery patient, if applicable.` CROSS-REFERENCE: `443.6^AH^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN3^PRCHAMXC S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN3^PRCHAMXC` `This x-ref will update the CHANGES multiple whenever a 'Ship-To-Edit' amendment changes this field.` `****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
5.4	SHIP TO	1;3	NUMBER	INPUT TRANSFORM: `S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) K:'Z0 X Q:'Z0 S DIC="^PRC(411,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC` OUTPUT TRANSFORM: `Q:Y']"" S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) Q:'Z0 S Y=$P($S($D(^PRC(411,Z0,1,Y,0)):^(0),1:""),U,1) K Z0` LAST EDITED: `AUG 31, 1995` HELP-PROMPT: `ENTER A RECEIVING LOCATION` DESCRIPTION: `This is the receiving location.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) Q:'Z0 S DIC="^PRC(411,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.6^AC^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN6^PRCHAMXB S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN6^PRCHAMXB` `This x-ref will update the CHANGES multiple whenever a 'Ship-To-Edit' amendment changes this field.` `****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
5.6	DELIVERY LOCATION	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `This is the delivery location.`
6	VERBAL PURCHASE ORDER (Y/N)	1;4	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 28, 1994` DESCRIPTION: `YES indicates that this is a verbal purchase order.`
6.2	CONFIRMATION COPY (Y/N)	1;5	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 28, 1994` DESCRIPTION: `YES indicates that this is a confirmation copy.`
6.4	F.O.B. POINT	1;6	SET	'D' FOR DESTINATION; 'O' FOR ORIGIN; LAST EDITED: `MAR 21, 1995` DESCRIPTION: `This is the F.O.B. point.` CROSS-REFERENCE: `443.6^AM^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN8^PRCHAMXC S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN8^PRCHAMXC` `This x-ref will update the CHANGES multiple whenever a 'F.O.B. Edit' amendment changes this field.` `****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
6.9	ORIGINAL DELIVERY DATE	0;20	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 30, 1989` HELP-PROMPT: `This field is updated automatically if the Delivery Date field is changed by amendment.` DESCRIPTION: `This is the original delivery date.`
7	DELIVERY DATE	0;10	DATE	**********************REQUIRED FIELD******************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 21, 1995` DESCRIPTION: `This is the delivery date.` CROSS-REFERENCE: `443.6^AE^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN3^PRCHAMXB S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN3^PRCHAMXB` `This x-ref will update the CHANGES multiple whenever this field is changed. There is no FORMAL amendment change to perform this change.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
7.2	ESTIMATED COST	0;11	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 999999.99` DESCRIPTION: `This is the estimated cost for this purchase order.`
8	SOURCE CODE	1;7	POINTER TO SOURCE CODE FILE (#420.8)	**********************REQUIRED FIELD******************** SOURCE CODE(#420.8) INPUT TRANSFORM: `S DIC("S")="I "_$S($D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHREQ):"""134590""[$E(^(0))",1:"""2456789B""[$E(^(0))") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 21, 1997` DESCRIPTION: `This is the source code for this purchase order.` SCREEN: `S DIC("S")="I "_$S($D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHREQ):"""134590""[$E(^(0))",1:"""2456789B""[$E(^(0))")` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `443.6^AD^MUMPS` `1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN7^PRCHAMXB S X=PRCHX K PRCHX` `2)= I $G(PRCHNORE)=1 S FLAG=1 D EN7^PRCHAMXB` `This x-ref will update the CHANGES multiple whenever a 'Source Code Edit' amemdment changes this field.` `**NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.`
8.1	ASTR. FOR SOURCE CODE	1;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `APR 28, 1994` HELP-PROMPT: `Answer must be 1-3 characters in length.` DESCRIPTION: `This field contains internal program code that controls printed output.`
8.2	PROPOSAL	1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `APR 28, 1994` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: `This is the proposal information that prints on the purchase order, if applicable.`
9.2	PROMPT PAYMENT TERMS	5;0	Multiple #443.66	443.66 DESCRIPTION: `These are the prompt payment terms for this order.` IDENTIFIED BY: `"Z1": S PRCDAY=$P(^(0),U,2) W ?30,$S(PRCDAY=+PRCDAY:"DAYS: "_PRCDAY,1:"BY THE "_PRCDAY)`
13	EST. SHIPPING AND/OR HANDLING	0;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X` OUTPUT TRANSFORM: `S Y=" $"_$J(Y,0,2)` LAST EDITED: `OCT 28, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits` DESCRIPTION: `This is the estimated shipping and/or handling charge.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13.05	EST. SHIPPING BOC	23;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) S Z0=$P(^PRC(443.6,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X,Z0 I $D(X) D EN133^PRCHNPO7` LAST EDITED: `JUL 01, 1994` HELP-PROMPT: `Enter the BOC for the EST. SHIPPING AND/OR HANDLING field entry. Choose the appropriate BOC from this cost enter.` DESCRIPTION: `Please enter BOC for EST. SHIPPING AND/OR HANDLING charges.` EXECUTABLE HELP: `S ZD=D,Z0=$P(^PRC(443.6,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) S X="?",DIC="^PRCD(420.1,Z0,1,",DIC(0)="E" D ^DIC K DIC S D=ZD K ZD,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
13.1	EST. SHIPPING LINE ITEM NO.	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 22, 1988` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This is the line item number of the estimated shipping date.`
13.2	GOV'T B/L NO.	12;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>21!($L(X)<1) X` LAST EDITED: `JAN 21, 1993` HELP-PROMPT: `ANSWER MUST BE 1-21 CHARACTERS IN LENGTH. If FOB point=ORIGIN and Shipping charges > $150, excess shipping charges are put on Gov't Bill of Lading. Enter number here.` DESCRIPTION: `The Government Bill of Lading.`
13.3	SHIP VIA	12;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>23!($L(X)<1) X` LAST EDITED: `JAN 21, 1993` HELP-PROMPT: `Answer must be 1-23 characters in length.` DESCRIPTION: `The type of shipper (Air, Land, Sea).`
13.4	GBL P.O.NUMBER	12;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `JAN 21, 1993` HELP-PROMPT: `Enter the P.O.number assigned to the Government Bill of Lading. ANSWER MUST BE 1-6 CHARACTERS IN LENGTH` DESCRIPTION: `The P.O. number for the Gov. Bill of Lading.`
14	DISCOUNT	3;0	Multiple #443.63	443.63 DESCRIPTION: `This is the amount of the discount.` IDENTIFIED BY: `"Z1": W ?25,$P(^(0),U,2)` `"Z2": W ?35,"LINE ITEM NO.: ",$P(^(0),U,4)` `"Z3": W:$P(^(0),U,2)=0 ?60,"DELETED"`
15	LINE ITEM COUNT	0;14	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999` DESCRIPTION: `This is the line item count.`
16	PA/PPM/AUTHORIZED BUYER	1;10	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ) I $P(^(400),U,1)>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUN 11, 1996` DESCRIPTION: `This is the purchasing agent for this order.` SCREEN: `S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ) I $P(^(400),U,1)>2"` EXPLANATION: `Must be a PPM Official or Manager for Requisitions, a Purchasing Agent or Manager for P.O.s.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16.5	VALIDATION CODE	12;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JAN 21, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `The code for the validation.`
16.7	VALIDATION VERSION	12;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 1993` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `The version of the validation code.`
16.8	ESIG CODE	12;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<2) X` LAST EDITED: `APR 12, 1993` HELP-PROMPT: `Answer must be 2-10 characters in length.` DESCRIPTION: `The signature block name.`
17	VALIDATION DATE/TIME	12;3	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 21, 1993` DESCRIPTION: `The date of the validation.`
18	PO PRINTED TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 21, 1993` DESCRIPTION: `The time the P.O. was printed.`
18.5	EDI MESSAGE NO.	12;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 21, 1993` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: `The EDI message number received.`
18.6	NEED SPECIAL HANDLING?	12;13	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 29, 1994` DESCRIPTION: `This field is just a question to see if the special handling instructions are needed for the purchase order.`
18.7	TYPE OF SPECIAL HANDLING	12;14	POINTER TO TYPE OF SPECIAL HANDLING FILE (#443.4)	TYPE OF SPECIAL HANDLING(#443.4) LAST EDITED: `APR 29, 1994` DESCRIPTION: `This is a pointer field to file 443.4. The file contains special handling instructions which are displayed/printed on purchase orders. The special handling instructions are also sent in the CO segment of the PHA` `transaction.`
19	AGENT ASSIGNED P.O.	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 21, 1993` DESCRIPTION: `The Purchasing Agent assigned to the P.O.`
19.2	DATE P.O. ASSIGNED	12;5	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 21, 1993` DESCRIPTION: `The date the P.O. was assigned the Purchase Agent.`
24	ADMINISTRATIVE CERTIFICATIONS	15;0	POINTER Multiple #443.624	443.624 DESCRIPTION: `These are the administrative certifications for this purchase order.` SCREEN: `I $P(^(0),U,1)<9999` EXPLANATION: `NUMBER MUST BE LESS THAN 9999` IDENTIFIED BY: `"Z1": W " "`
26	BBFY	23;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 30, 1994` DESCRIPTION: `This field is the FMS 'BEGINNING BUGDET FISCAL YEAR'. This is set from 'PRC("BBFY")' variable. This variable is created through the 'FCP', 'FUND CONTROL POINT' field.`
27	OLD PO RECORD	23;3	POINTER TO AMENDMENTS FILE (#443.6)	AMENDMENTS(#443.6) LAST EDITED: `MAR 30, 1994` DESCRIPTION: `This is the internal record number for the original purchase order.`
28	NEW PO RECORD	23;4	POINTER TO AMENDMENTS FILE (#443.6)	AMENDMENTS(#443.6) LAST EDITED: `MAR 30, 1994` DESCRIPTION: `This is the internal record number for the new purchase order.`
29	END DATE FOR SERVICE ORDER	23;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 10, 1994` HELP-PROMPT: `Enter the ending date for this Service Order.` DESCRIPTION: `This field is the ending date for the Purchase order or 1358 for a service order used when the length of the service contract extends over a period greater than one month. It is used by Fiscal service at the time of` `obligation. When used in conjunction with the Auto Accrue flag, the ending date will determine the monthly accrual.`
30	AUTO ACCRUE	23;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `OCT 24, 1994` HELP-PROMPT: `Enter YES for Auto Accrual; enter NO for no Auto Accrual.` DESCRIPTION: `This field is used by Fiscal service to indicate whether a Purchase Order or 1358 for a service order should be accrued in FMS.`
31	SATELLITE STATION	23;7	POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411)	ADMIN. ACTIVITY SITE PARAMETER(#411) LAST EDITED: `JUL 28, 1995` HELP-PROMPT: `Please enter the satellite station to which this purchase order belongs to.` DESCRIPTION: `Please enter the satellite station to which this purchase order belongs to.`
35	AMOUNT	9;0	Multiple #443.7	443.7 DESCRIPTION: `This is the amount of the contract.`
40	ITEM	2;0	Multiple #443.61	443.61 LAST EDITED: `DEC 20, 1993` DESCRIPTION: `This is the item for which the amendment is being processed.` IDENTIFIED BY: `"Z1": W:$D(^(1,1,0)) $E(^(0),1,60)` `"Z3": I $P(^PRC(443.6,DA(1),2,+Y,0),U,2)=0!($P(^(0),U,9)=0) W ?50,"DELETED"`
44	DISPUTED	23;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This field is to indicate whether a purchase card charge is being disputed.`
46	PURCHASE CARD NUMBER	23;8	POINTER TO PURCHASE CARD INFORMATION FILE (#440.5)	**********************REQUIRED FIELD********************** PURCHASE CARD INFORMATION(#440.5) LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This is the purchase card number being used for the purchase card order.`
47	DELIVERY ORDER	23;10	SET	'Y' FOR YES; LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This field indicates whether this order is a delivery order.`
48	TYPE OF ORDER	23;11	SET	'D' FOR DELIVERY ORDER; 'P' FOR DETAILED PURCHASE CARD ORDER; 'S' FOR SIMPLIFED PURCHASE CARD ORDER; LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This field determines if a purchase order is a 'Detailed Purchase Card Order', 'Simplified Purchase Card Order' or a 'Delivery Order'.`
50	AMENDMENT	6;0	Multiple #443.67	443.67 LAST EDITED: `MAR 14, 1994` DESCRIPTION: `This multiple contains information about all amendments to a purchase order.`
51	SORT GROUP	23;13	POINTER TO SORT GROUP FILE (#410.7)	SORT GROUP(#410.7) LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This is the sort group for this order.`
52	CLASSIFICATION OF REQUEST	23;12	POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2)	CLASSIFICATION OF REQUEST(#410.2) LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This is the Classification of Request for this order.`
53	PCDO VENDOR	23;14	POINTER TO VENDOR FILE (#440)	VENDOR(#440) LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This vendor is for purchase card and delivery order.`
54	RECEIVING REQUIRED?	23;15	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This field indicates if a purchase card purchase requires receiving.`
55	PURCHASE CARD EXT. NO.	23;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<16) X` LAST EDITED: `AUG 30, 1996` HELP-PROMPT: `Answer must be 16 characters in length.` DESCRIPTION: `This is the purchase card number assigned to the purchase card order.`
56	PURCHASE CARD USER	23;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This is the user who entered the purchase card order.`
57	APPROVE RECONCILIATION USER	23;18	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This is the user who approves the reconciliation of a purchase card order.`
58	DATE RECONCILED	23;19	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This is the reconcilliation date for this purchase order.`
60	PURCHASE COST	23;21	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `AUG 30, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits` DESCRIPTION: `This is the total dollar amount for a Simplified Purchase Card Order.`
61	PURCHASE CARD HOLDER	23;22	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This is the Purchase Card Holder for the Purchase Card order.`
62	PCDO 2237	23;23	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	CONTROL POINT ACTIVITY(#410) LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This is the 2237 attached to the purchase card/delivery order.`
63	PROCESSING REQUIRED IN FISCAL	24;1	SET	'N' FOR NO; LAST EDITED: `AUG 30, 1996` DESCRIPTION: `This field indicates if fiscal needs to process receiving report.`
64	FREE TEXT VENDOR	24;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>36!($L(X)<1) X` LAST EDITED: `SEP 02, 1996` HELP-PROMPT: `Answer must be 1-36 characters in length.` DESCRIPTION: `This is free text vendor for the Simplified Purchase Card Orders.`
91	TOTAL AMOUNT	0;15	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<1) X` LAST EDITED: `MAY 17, 1991` HELP-PROMPT: `Type a Dollar Amount between 1 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the total amount of the order.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the AMOUNT field of the AMOUNT sub-field of the AMENDMENTS File`
92	NET AMOUNT	0;16	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999.99)!(X<0) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 9999999.99` DESCRIPTION: `This is the net amount.`
93	LIQUIDATED AMOUNT	0;17	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X` LAST EDITED: `APR 28, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits` DESCRIPTION: `This is the liquidated amount.`
97	PROMPT PAY TYPE	12;15	SET	**********************REQUIRED FIELD********************** 'A' FOR NORMAL; 'C' FOR CONTRACT; 'D' FOR DAIRY; 'E' FOR EXEMPT; 'F' FOR PROGRESS; 'M' FOR MEAT; 'P' FOR PRODUCE; 'V' FOR PRIME VENDOR; 'X' FOR MONEY MANAGEMENT EXEMPT - NORMAL; LAST EDITED: `OCT 21, 1996` DESCRIPTION: `This is the type of the PROMPT PAYMENT TERMS.`
101	PAYABLE CODE	18;2	SET	'A' FOR REGULAR POSTED; 'B' FOR IMPREST FUNDS; 'J' FOR DONATED; LAST EDITED: `APR 29, 1994` DESCRIPTION: `This is the payable code.`
102	DOCUMENT IDENTIFIER/COMMON NO.	18;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` LAST EDITED: `MAR 31, 1994` HELP-PROMPT: `Enter the Document Identifier for LOG (Usually either the PAT number, or Requisition No., without the Fiscal ear. ANSWER MUST BE 5 CHARACTERS IN LENGTH.` DESCRIPTION: `This is the document identifier/common number.`
107	RELEASING FACILITY NUMBER	18;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `APR 29, 1994` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: `This field is entered only if another facility is involved. Enter the 3 digit facility number.`
501	CERTIFIED P.O.	1;20	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 28, 1994` DESCRIPTION: `If the IFCAP Common Numbering System for this purchase order is a Certified entry answer YES.`

Name	Line Occurrences (* Changed, ! Killed)
^PRC(411 - [#411]	.01+1, .04OT+1, 5.4OT+1
^PRC(420 - [#420]	2+1, 2(HELP )
^PRC(443.6 - [#443.6]	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .04+1, .04OT+1, .04(HELP ), 1+1*, 1(HELP ), 2+1 , 2(HELP ), 5.4+1, 5.4OT+1, 5.4(HELP ), 13.05+1, 13.05(HELP )
^PRCD(420.1 - [#420.1]	13.05+1
^PRCD(442.3 - [#442.3]	IDZ.5+1
^PRCD(442.5 - [#442.5]	IDZ.02+1

Name	Field # of Occurrence
^("7"	IDZ.5+1
^(0	IDZ.02+1, IDZ.5+1, .04OT+1, 5.4OT+1
^(1	1+1
^(7	IDZ.5+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.1+1, 6.9+1, 7+1, 17+1, 18+1, 19.2+1, 26+1, 29+1, 58+1*
>> D	.04(HELP ), 1(HELP ), 2(HELP ), 5.4(HELP ), 13.05(HELP )
>> D0	.04+1, .04OT+1, .04(HELP ), 5.4+1, 5.4OT+1, 5.4(HELP ), 13.05+1, 13.05(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1, 1(HELP ), 2+1, 2(HELP )
DIC	IDZ.02+1, .02+1!, .04+1!, .04(HELP ), .5+1!, 1(HELP ), 2(HELP ), 5.4+1!, 5.4(HELP ), 8+1!* , 13.05(HELP ), 16+1!*
DIC("S"	.02+1, .02SCR+1, .5+1, 1(HELP ), 8+1, 16+1, 16SCR+1
DIC(0	.04+1, .04(HELP ), 1(HELP ), 2(HELP ), 5.4+1, 5.4(HELP ), 13.05(HELP )
>> DIE	.02+1, .04(HELP ), .5+1, 1(HELP ), 2(HELP ), 5.4(HELP ), 8+1, 16+1
>> FLAG	.02(XREF 1K), .04(XREF 1K), 1(XREF 1K), 2(XREF 1K), 5(XREF 1K), 5.2(XREF 1K), 5.3(XREF 1K), 5.4(XREF 1K), 6.4(XREF 1K), 7(XREF 1K) , 8(XREF 1K)
>> PRC("APP"	1+1
>> PRC("FY"	1+1*
>> PRC("SITE"	1+1, 1(HELP ), 2+1, 2(HELP )
>> PRCHNORE	.02(XREF 1S), .02(XREF 1K), .04(XREF 1S), .04(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 5(XREF 1S), 5(XREF 1K) , 5.2(XREF 1S), 5.2(XREF 1K), 5.3(XREF 1S), 5.3(XREF 1K), 5.4(XREF 1S), 5.4(XREF 1K), 6.4(XREF 1S), 6.4(XREF 1K), 7(XREF 1S), 7(XREF 1K) , 8(XREF 1S), 8(XREF 1K)
>> PRCHPUSH	8+1
>> PRCHREQ	8+1
PRCHX	.02(XREF 1S), .04(XREF 1S), 1(XREF 1S), 2(XREF 1S), 5(XREF 1S), 5.2(XREF 1S), 5.3(XREF 1S), 5.4(XREF 1S), 6.4(XREF 1S), 7(XREF 1S) , 8(XREF 1S)
U	IDZ.02+1, IDZ.5+1, .04+1, .04OT+1, .04(HELP ), 1+1, 2(HELP ), 5.4+1, 5.4OT+1, 5.4(HELP )
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02+1!, .02(XREF 1S), .04+1!, .04(HELP ), .04(XREF 1S) , .09+1!, .1+1!, .5+1!, .7+1!, .8+1!, 1+1!, 1(HELP ), 1(XREF 1S), 1.4+1!, 2+1! , 2(HELP ), 2(XREF 1S), 3.4+1!, 4.4+1!, 5(XREF 1S), 5.2(XREF 1S), 5.3(XREF 1S), 5.4+1!, 5.4(HELP ), 5.4(XREF 1S) , 5.6+1!, 6.4(XREF 1S), 6.9+1!, 7+1!, 7(XREF 1S), 7.2+1!, 8+1!, 8(XREF 1S), 8.1+1!, 8.2+1! , 13+1!, 13.05+1!, 13.05(HELP ), 13.1+1!, 13.2+1!, 13.3+1!, 13.4+1!, 15+1!, 16+1!, 16.5+1! , 16.7+1!, 16.8+1!, 17+1!, 18+1!, 18.5+1!, 19.2+1!, 26+1!, 29+1!, 55+1!, 58+1! , 60+1!, 64+1!, 91+1!, 92+1!, 93+1*!, 102+1!, 107+1!
>> Y	.02+1, .04+1, .04OT+1, .1+1, .5+1, 5.4+1, 5.4OT+1, 6.9+1, 7+1, 8+1 , 13OT+1*, 16+1, 17+1, 18+1, 19.2+1, 26+1, 29+1, 58+1
>> Y(0	.04OT+1, 5.4OT+1, 13OT+1*
Z0	.04+1!, .04OT+1!, .04(HELP ), 1(HELP ), 2+1!, 2(HELP ), 5.4+1!, 5.4OT+1!, 5.4(HELP ), 13.05+1! , 13.05(HELP )
Z1	1(HELP ), 2(HELP )
ZD	.04(HELP ), 1(HELP ), 2(HELP ), 5.4(HELP ), 13.05(HELP )

Customize PDF page

Package: IFCAP

Global: ^PRC(443.6

Information

Description

Directly Accessed By Routines, Total: 107

Accessed By FileMan Db Calls, Total: 14

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 25

Fields, Total: 90

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.1+1, 6.9+1, 7+1, 17+1, 18+1, 19.2+1, 26+1, 29+1, 58+1
^DIC	.02+1, .04+1, .04(HELP ), .5+1, 1(HELP ), 2(HELP ), 5.4+1, 5.4(HELP ), 8+1, 13.05(HELP ) , 16+1
EN10^PRCHAMXB	.02(XREF 1S), .02(XREF 1K)
EN3^PRCHAMXB	7(XREF 1S), 7(XREF 1K)
EN6^PRCHAMXB	5.4(XREF 1S), 5.4(XREF 1K)
EN7^PRCHAMXB	8(XREF 1S), 8(XREF 1K)
EN9^PRCHAMXB	.04(XREF 1S), .04(XREF 1K)
EN3^PRCHAMXC	5.3(XREF 1S), 5.3(XREF 1K)
EN5^PRCHAMXC	1(XREF 1S), 1(XREF 1K)
EN6^PRCHAMXC	2(XREF 1S), 2(XREF 1K)
EN7^PRCHAMXC	5.2(XREF 1S), 5.2(XREF 1K)
EN8^PRCHAMXC	6.4(XREF 1S), 6.4(XREF 1K)
EN8^PRCHAMXD	5(XREF 1S), 5(XREF 1K)
FLAG^PRCHMA	.02(XREF 1S), .04(XREF 1S), 1(XREF 1S), 2(XREF 1S), 5(XREF 1S), 5.2(XREF 1S), 5.3(XREF 1S), 5.4(XREF 1S), 6.4(XREF 1S), 7(XREF 1S) , 8(XREF 1S)
EN2^PRCHNPO5	2+1
EN133^PRCHNPO7	13.05+1
EN1^PRCHNPO8	1+1