Global: ^PRC(442

FileMan FileNo	FileMan Filename	Package
442	PROCUREMENT & ACCOUNTING TRANSACTIONS	IFCAP

Package	Total	Routines
IFCAP	118	PRC5CON1 PRCB1GE1 PRCEBL PRCEFIS4 PRCFA8 PRCFAC0 PRCFAC4 PRCFARR PRCFARRQ PRCFDSOD PRCFFU12 PRCFFU19 PRCFSDR PRCFUOA PRCFUOM PRCFUOMS PRCG237P PRCGA PRCGARP1 PRCH212P PRCH442A PRCH58 PRCH58LQ PRCH58OB PRCH7B PRCH7D PRCH7PA1 PRCH7PUC PRCHAM4 PRCHAM5 PRCHAMU PRCHAMYA PRCHAMYB PRCHCNV PRCHCON3 PRCHCS PRCHDEP2 PRCHDEP3 PRCHDEP4 PRCHDP1 PRCHDP2 PRCHE PRCHE2 PRCHEA PRCHEB PRCHEC PRCHEC1 PRCHEF PRCHEI PRCHFPD PRCHFPDE PRCHL4 PRCHL6 PRCHLO1 PRCHLO7 PRCHMOP PRCHNPO PRCHNPO1 PRCHNPO8 PRCHOV PRCHPAT PRCHPCAR PRCHPRCV PRCHQ15 PRCHRCS PRCHRCS7 PRCHREC1 PRCHREC2 PRCHRP1 PRCHRP3 PRCHRPT PRCHSTAT PRCHSWCH PRCHT1 PRCHT11 PRCHT110 PRCHT111 PRCHT112 PRCHT113 PRCHT114 PRCHT12 PRCHT14 PRCHT15 PRCHT16 PRCHT17 PRCHT18 PRCHT19 PRCHT2 PRCHT21 PRCHT22 PRCHT3 PRCHT31 PRCHT310 PRCHT311 PRCHT312 PRCHT313 PRCHT32 PRCHT33 PRCHT35 PRCHT36 PRCHT37 PRCHT38 PRCHT39 PRCHUTL PRCOESE PRCOPHA PRCPPOU1 PRCPSMSP PRCRIA PRCS58 PRCS58OB PRCSP1B PRCSP1D PRCUA PRCV442A PRCV442B PRCVRRA PRCX1P1
Controlled Substances	3	PSDREC PSDREC3 PSDREV
Accounts Receivable	2	PRCAOLD PRCAPAT1
Drug Accountability	2	PSAREC PSAREV
Engineering	2	ENLIB3 ENXSIPS

Package	Total	FileMan Files
IFCAP	12	IFCAP CONVERSION DISCREPANCY(#411.3)[12] 1358 DAILY RECORD(#424)[.02] ITEM MASTER(#441)[#441.04(.01)] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[27, 28] ELEC RECEIVING REPORT BATCH(#442.9)[1] EDI SENDER(#443.75)[7] IFCAP PENDING ARCHIVE(#443.9)[.01] INVOICE TRACKING(#421.5)[5] CALM/LOG CODE SHEET(#423)[5.1, #423.1(12)] PURCHASE CARD ORDER RECONCILE(#440.6)[41] CONTROL POINT ACTIVITY(#410)[52, #410.02(9)] IFCAP/FMS OBLIGATION RECONCILIATION REPORT(#420.96)[3]
Drug Accountability	2	DRUG ACCOUNTABILITY STATS(#58.8)[13] DRUG ACCOUNTABILITY TRANSACTION(#58.81)[8]
Prosthetics	2	HOME OXYGEN TRANSACTIONS FILE(#665.72)[#665.7232(2)] PROSTHETICS 1358(#664)[7.1]

Package	Total	FileMan Files
IFCAP	30	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)[#442.01(1.5)] FEDERAL SUPPLY CLASSIFICATION(#441.2)[#442.01(8)] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[27, 28] PURCHASE AUTHORITY(#442.4)[#442.12(.01)] ADMINISTRATIVE CERTIFICATIONS(#442.7)[#442.15(.01)] TYPE OF SPECIAL HANDLING(#443.4)[18.7] LOCAL PROCUREMENT REASON CODES(#443.8)[.25] BUDGET OBJECT CODE(#420.2)[3, 4, #442.01(17), #442.11(1), #442.11(3)] UNIT OF ISSUE(#420.5)[#442.01(3), #442.01(9.4)] REASON NOT COMPETED(#420.51)[117] SOLICITATION PROCEDURE(#420.52)[121] EXTENT COMPETED(#420.53)[128] EVALUATED PREFERENCE(#420.54)[122] EPA DESIGNATED PRODUCT(#420.55)[126] CODE INDEX(#420.6)[#442.1(1), #442.1(1.1), #442.1(1.2), #442.16(.01)] SOURCE CODE(#420.8)[8] INTERMEDIATE PRODUCT(#420.9)[#442.01(3.6)] DLA/LOG CODES(#441.4)[72, 73, 78, 79, 80, #442.01(39.5)] TYPE OF AMENDMENT(#442.2)[#442.07(3)] PURCHASE ORDER STATUS(#442.3)[.5, #442.07(9), #442.14(1.5)] PAT TYPE(#442.5)[.02] CALM/LOG CODE SHEET(#423)[#442.01(37), #442.08(5), #442.11(19.6)] GENERIC INVENTORY(#445)[#442.14(11), #442.147(.01)] CONTROL POINT ACTIVITY(#410)[.07, 62, #442.01(10), #442.09(8), #442.14(.01)] 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, 104, 113, #442.07(6), #442.07(10), #442.09(1), #442.11(6), #442.11(14), #442.11(17), #442.11(19.3), #442.14(2), #442.14(6), #442.714(6)]
Engineering	1	WORK ORDER #(#6920)[51]

Fields, Total: 168

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) S Z=$P(X,"-",2) K:'$D(^PRC(411,$P(X,"-",1)))!'($S($D(PRCAREF):Z?3UN2N1UN,$D(PRCFA(1358)):Z?3UN2N1UN,1:(Z?3UN3N))) X D:$D(X) EN8^PRCHNPO6` LAST EDITED: `SEP 12, 1996` HELP-PROMPT: `ENTER PURCHASE ORDER (PAT) NUMBER (ie A61234,6A1234, or X7G123)` DESCRIPTION: `This is the purchase order number.` EXECUTABLE HELP: `I $D(PRCAREF) W !,"Enter the PAT REF number (i.e. 8K1234,K8123A)"` GROUP: `AR` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^B` `1)= S ^PRC(442,"B",X,DA)=""` `2)= K ^PRC(442,"B",X,DA)` CROSS-REFERENCE: `442^C^MUMPS` `1)= S ^PRC(442,"C",$P(X,"-",2),DA)=""` `2)= K ^PRC(442,"C",$P(X,"-",2),DA)` `This X-REF contains the Common Numbering System part of the complete Purchase Order, the part of the PO after the SITE number.`
.02	METHOD OF PROCESSING	0;2	POINTER TO PAT TYPE FILE (#442.5)	**********************REQUIRED FIELD********************** PAT TYPE(#442.5) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=1,"_$S($D(PRCHNRQ):"Y=8!(Y=25)",1:"Y'=8") S:$D(PRCHDELV) DIC("S")="I Y=1!(Y=26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 22, 1996` DESCRIPTION: `This is the method of payment.` SCREEN: `S DIC("S")="I $P(^(0),U,5)=1,"_$S($D(PRCHNRQ):"Y=8!(Y=25)",1:"Y'=8") S:$D(PRCHDELV) DIC("S")="I Y=1!(Y=26)"` EXPLANATION: `Enter the number or abbreviation.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^F` `1)= S ^PRC(442,"F",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"F",$E(X,1,30),DA)` `This X-REF contains the pointer to the METHOD OF PROCESSING file for each PO.`
.03	SPECIAL FUND CONTROL POINT	0;19	SET	'1' FOR GENERAL POST FUNDS; '2' FOR SUPPLY FUND; '3' FOR CASCA; '4' FOR CANTEEN; LAST EDITED: `MAY 10, 1994` HELP-PROMPT: `Controls the way a procurement document is routed through IFCAP, as well as whether Cost Centers and BOC(s) are required.` DESCRIPTION: `This is the special fund control point. It controls the way in which a procurement document is routed through IFCAP, as well as whether Cost Centers and BOC(s) are required.`
.04	INVOICE ADDRESS	12;6	FREE TEXT	INPUT TRANSFORM: `S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,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: `Q:Y="" S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,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: `ENTER THE CORRECT INVOICE LOCATION` DESCRIPTION: `This is the invoice address.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,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`
.05	2237 REFERENCE NUMBER	13;0	POINTER Multiple #442.14	442.14 LAST EDITED: `APR 30, 1985` HELP-PROMPT: `Enter the station number` DESCRIPTION: `This is the reference number for this request for this station.`
.06	PRIORITY OF 2237	1;9	SET	'EM' FOR EMERGENCY; 'SP' FOR SPECIAL; 'ST' FOR STANDARD; LAST EDITED: `APR 26, 1986` DESCRIPTION: `This is the priority of this purchase order.`
.07	PRIMARY 2237	0;12	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	CONTROL POINT ACTIVITY(#410) INPUT TRANSFORM: `S DIC("S")="I $D(^PRC(442,DA,13,Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 16, 1986` DESCRIPTION: `This is the primary purchase order.` SCREEN: `S DIC("S")="I $D(^PRC(442,DA,13,Y,0))"` EXPLANATION: `MUST EXIST IN MULTIPLE` `UNEDITABLE`
.08	ESTIMATED ORDER?	7;3	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 21, 1987` DESCRIPTION: `Enter YES if 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: `MAY 22, 1989` HELP-PROMPT: `Enter DEPOT Voucher Number for Receiving (5 characters).` DESCRIPTION: `This is the depot voucher number.` CROSS-REFERENCE: `442^H` `1)= S ^PRC(442,"H",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"H",$E(X,1,30),DA)` `This X-REF lists the DEPOT VOUCHER NO. for each PO.`
.1	P.O. DATE	1;15	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) D EN1^PRCHNPO6` LAST EDITED: `DEC 07, 1988` HELP-PROMPT: `Changing P.O. date to a different FY will re-calculate the appropriation.` DESCRIPTION: `This is the purchase order date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^AB` `1)= S ^PRC(442,"AB",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"AB",$E(X,1,30),DA)` `This X-REF has the date the PO was created.`
.2	EMERGENCY ORDER?	1;17	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 13, 1989` HELP-PROMPT: `Enter 'Y' to indicate this is an emergency procurement.` DESCRIPTION: `Enter YES if this is an emergency order.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the LOCAL PROCUREMENT REASON CODE field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File`
.25	LOCAL PROCUREMENT REASON CODE	1;19	POINTER TO LOCAL PROCUREMENT REASON CODES FILE (#443.8)	**********************REQUIRED FIELD********************** LOCAL PROCUREMENT REASON CODES(#443.8) LAST EDITED: `APR 12, 1991` 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".` CROSS-REFERENCE: `^^TRIGGER^442^.2` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(442,.25,1,1,1.1) X ^DD(442,.25,1,1,1.4)` `1.1)= S X=DIV S X=$S('$D(^PRC(443.8,+DIV,0)):"",1:$P(^(0),U,1))=1,Y(1)=X S X="Y",Y(2)=X S X=1,Y(3)=X S X="N",X=$S(Y(1):Y(2),Y(3):X)` `1.4)= S DIH=$S($D(^PRC(442,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,17)=DIV,DIH=442,DIG=.2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0` `2)= Q` `CREATE VALUE)= $S(LOCAL PROCUREMENT REASON CODE=1:"Y",1:"N")` `DELETE VALUE)= NO EFFECT` `FIELD)= EMERGENCY`
.3	EXPENDABLE/NONEXPENDABLE	1;18	SET	**********************REQUIRED FIELD********************** 'E' FOR EXPENDABLE; 'N' FOR NON-EXPENDABLE; LAST EDITED: `MAY 11, 1989` HELP-PROMPT: `Indicate whether this is a procurement for Expendable, or for Non-expendable goods.` 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 13, 1997` DESCRIPTION: `This is the Supply status.` 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"` EXPLANATION: `STATUS OF PURCHASE ORDER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^AG^MUMPS` `1)= D ENXS^PRCHSTAT` `2)= D ENXK^PRCHSTAT` `During SET this X-REF gets the SUPPLY STATUS ORDER number and the FISCAL STATUS ORDER number from the PURCHASE ORDER STATUS file. The SUPPLY STATUS ORDER number in put into the SUPPLY STATUS ORDER field of this file and` `the "AH" X-REF is created for that field. The FISCAL STATUS ORDER number is entered into the FISCAL STATUS ORDER field, also in this file, and the "AI" X-REF entry is created for that field.` `During KILL both the SUPPLY STATUS ORDER and the FISCAL STATUS ORDER fields in this file are set to null.` CROSS-REFERENCE: `442^ST^MUMPS` `1)= N A S A=$P($G(^PRCD(442.3,+X,0)),U,2) S:A=50!(A=51)&($P($G(^PRC(442,DA,23)),U,22)]"") ^PRC(442,"MAPP",$P(^PRC(442,DA,23),U,22)_"~",DA)=""` `2)= K:$P($G(^PRC(442,DA,23)),U,22)]"" ^PRC(442,"MAPP",$P(^PRC(442,DA,23),U,22)_"~",DA)` `This is a conditional index by purchase card order user for status change.` CROSS-REFERENCE: `442^AM1^MUMPS` `1)= I $P($G(^PRC(442,DA,23)),U,8) N A S A=$P($G(^PRCD(442.3,+X,0)),U,2) I A-45,A-41,A-40 S ^PRC(442,"AM",$P(^PRC(442,DA,23),U,8),DA)=""` `2)= K:$P($G(^PRC(442,DA,23)),U,8) ^PRC(442,"AM",$P($G(^PRC(442,DA,23)),U,8),DA)` `This will set the index 'AM' for purchase card order if the status is not transaction complete (amendment) or cancelled.`
.6	PARTIAL	11;0	DATE Multiple #442.11	442.11 DESCRIPTION: `This is the information used for a partial order.` IDENTIFIED BY: `FINAL(#8)`
.7	SUPPLY STATUS ORDER	7;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 28, 1996` HELP-PROMPT: `NOT EDITABLE--Updated automatically when SUPPLY STATUS (.5) changes (number between 1 and 999)` DESCRIPTION: `This field is automatically updated when supply status changes.` CROSS-REFERENCE: `442^AH` `1)= S ^PRC(442,"AH",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"AH",$E(X,1,30),DA)` `This X-REF lists the SUPPLY STATUS ORDER number. This X-REF is actually created and killed when the SUPPLY STATUS field "AG" X-REF is SET or KILLed.` CROSS-REFERENCE: `442^MAPP^MUMPS` `1)= I X=50!(X=51),$P(^PRC(442,DA,23),U,22) S ^PRC(442,"MAPP",$P(^PRC(442,DA,23),U,22)_"~",DA)=""` `2)= I X=50!(X=51),$P(^PRC(442,DA,23),U,22) K ^PRC(442,"MAPP",$P(^PRC(442,DA,23),U,22)_"~",DA)` `This cross-reference is used to display total reconciled orders per user, and to approve reconciled orders.`
.8	FISCAL STATUS ORDER	7;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 01, 1989` HELP-PROMPT: `NOT EDITABLE--Updated automatically when SUPPLY STATUS (.5) changes. (number between 1 and 999)` DESCRIPTION: `This field is automatically updated when supply status changes.` CROSS-REFERENCE: `442^AI` `1)= S ^PRC(442,"AI",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"AI",$E(X,1,30),DA)` `This X-REF keeps track of the FISCAL STATUS ORDER number. This X-REF is SET and KILLed through the "AG" X-REF in the SUPPLY STATUS field in this file.`
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(442,DA,1))) X Q:'$D(X) S:$P(^(1),U,15)]"" PRC("FY")=$P(^(1),U,15) D EN1^PRCHNPO5 Q:'$D(X) S $P(^PRC(442,DA,0),U,4)=PRC("APP")` LAST EDITED: `JAN 20, 1989` HELP-PROMPT: `ENTER A VALID FUND CONTROL POINT` DESCRIPTION: `This is the valid Fund Control Point.` EXECUTABLE HELP: `Q:'$D(PRC("SITE")) S:$D(D) ZD=D S Z0=$E($P(^PRC(442,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: `442^E^MUMPS` `1)= S ^PRC(442,"E",$P(X," ",1),DA)=""` `2)= K ^PRC(442,"E",$P(X," ",1),DA)` `This X-REF contains just the CONTROL POINT number, not the name.` CROSS-REFERENCE: `442^AC^MUMPS` `1)= I $D(^PRC(420,+^PRC(442,DA,0),1,+X,0)) S Z=^(0) S:$P(Z,U,12) $P(^PRC(442,DA,0),U,19)=$P(Z,U,12) S:$P(Z,U,18) $P(^PRC(442,DA,17),U,1)=$E($P(Z,U,18),1,3) K Z` `2)= S $P(^PRC(442,DA,0),U,19)="",$P(^(17),U,1)=""` `The SET for this X-REF checks the FUND CONTROL POINT file to see if there is any data in the SPECIAL CONTROL POINT field. If there is data it is entered into the SPECIAL FUND CONTROL POINT in this file. Also, the LOG` `DEPARTMENT field in the FUND CONTROL POINT file is checked for data. If any data is found it is entered into the DEPARTMENT NUMBER field in this file.` `The KILL for this X-REF just sets the SPECIAL FUND CONTROL POINT and the DEPARTMENT NUMBER fields to null.`
1.4	APPROPRIATION	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<4) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 4-20 CHARACTERS IN LENGTH` DESCRIPTION: `P.O. Appropriation`
2	COST CENTER	0;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S Z0=+$P(^PRC(442,DA,0),"^",3) K:'$D(PRC("SITE"))!'Z0 X,Z0 I $D(X) K:'$D(^PRC(420,PRC("SITE"),1,Z0,2,0)) X I $D(X) D EN2^PRCHNPO5` LAST EDITED: `JUL 08, 1994` HELP-PROMPT: `Enter the Cost Center for this Purchase Order` DESCRIPTION: `This is the cost center for this purchase order.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=+$P(^PRC(442,DA,0),"^",3) 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 S DIC=DIE,D=ZD K ZD,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
2.4	OBLIGATION DATA	10;0	Multiple #442.09	442.09 DESCRIPTION: `This is the funds obligation data.`
3	SUBACCOUNT1	0;6	POINTER TO BUDGET OBJECT CODE FILE (#420.2)	BUDGET OBJECT CODE(#420.2) LAST EDITED: `MAY 02, 1985` DESCRIPTION: `This is the first subaccount of the transaction, if applicable.`
3.4	SUBAMOUNT1	0;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999999.99)!(X<0) X` LAST EDITED: `APR 29, 2013` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits` DESCRIPTION: `This is the amount charged to the first subaccount.`
4	SUBACCOUNT2	0;8	POINTER TO BUDGET OBJECT CODE FILE (#420.2)	BUDGET OBJECT CODE(#420.2) LAST EDITED: `MAY 02, 1985` DESCRIPTION: `This is the second subaccount on this transaction, if applicable.`
4.4	SUBAMOUNT2	0;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN 0 AND 9999999` DESCRIPTION: `This is the amount charged to the second subaccount.`
5	VENDOR	1;1	POINTER TO VENDOR FILE (#440)	**********************REQUIRED FIELD********************** VENDOR(#440) INPUT TRANSFORM: `D EN3^PRCHNPO5` LAST EDITED: `DEC 03, 2019` HELP-PROMPT: `Please note that only Vendors with a Federal Source Code are selectable. You may also add a new Vendor.` DESCRIPTION: `This is the name of the vendor.` EXECUTABLE HELP: `I $D(DA),$D(^PRC(442,DA,2,"AE")) W !?5,"Vendor cannot be edited if Purchase Order contains line items with PR card numbers."` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^D` `1)= S ^PRC(442,"D",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"D",$E(X,1,30),DA)` `The X-REF just lists the vendor for this file entry.`
5.1	DEBTOR	1;16	POINTER *** TO AN UNDEFINED FILE (#412), STORED IN ^PRC(412) *****	LAST EDITED: `SEP 07, 1987` DESCRIPTION: `This is the name of the debtor.`
5.2	REQUESTING SERVICE	1;2	POINTER TO SERVICE/SECTION FILE (#49)	**********************REQUIRED FIELD********************** SERVICE/SECTION(#49) LAST EDITED: `MAR 19, 1985` DESCRIPTION: `This is the requesting Service.`
5.3	DIRECT DELIVERY PATIENT	1;12	POINTER TO DIRECT DELIVERY PATIENTS FILE (#440.2)	DIRECT DELIVERY PATIENTS(#440.2) LAST EDITED: `OCT 12, 1985` DESCRIPTION: `This indicates if this is a direct delivery to a patient.`
5.4	SHIP TO	1;3	NUMBER	INPUT TRANSFORM: `S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,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(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,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 15, 1995` HELP-PROMPT: `ENTER A RECEIVING LOCATION` DESCRIPTION: `This is the address for the delivery.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,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`
5.6	DELIVERY LOCATION	1;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `OCT 10, 1985` HELP-PROMPT: `ANSWER MUST BE 3-20 CHARACTERS IN LENGTH` DESCRIPTION: `This is the delivery location.`
5.7	DELIVERY LOCATIONS/DATES	19;0	WORD-PROCESSING #442.02	DESCRIPTION: `These are the dates for delivery for delivery locations.` LAST EDITED: `JUN 01, 1989` HELP-PROMPT: `If there are multiple delivery locations and/or dates on the original request, the information is brought over into this field during P.O.entry/edit, from the request.` DESCRIPTION: `Delivery locations and dates for P.O./Req.`
6	VERBAL PURCHASE ORDER (Y/N)	1;4	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 16, 1985` DESCRIPTION: `YES indicates that this is a verbal purchase order.`
6.2	CONFIRMATION COPY (Y/N)	1;5	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; 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: `NOV 21, 1994` DESCRIPTION: `This is the F.O.B. point.`
6.9	ORIGINAL DELIVERY DATE	0;20	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 03, 1989` HELP-PROMPT: `This field is updated automatically if the Delivery Date is changed AFTER obligation.` 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 I $D(X) S Z1=$S($D(^PRC(442,DA,1)):$P(^(1),U,15),1:""),Z2=$S('Z1:"Missing P.O. DATE",X` `LAST EDITED: FEB 25, 1988` `DESCRIPTION:` `This is the delivery date for this purchase order.` `NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7.2	ESTIMATED COST	0;11	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X` LAST EDITED: `MAY 10, 1994` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits.` DESCRIPTION: `This is the estimated cost.`
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($G(PRCHPC)=2:"""0236B""[$E(^(0))",$D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHNRQ):"""1390""[$E(^(0))",1:"""2456789B""[$E(^(0))") D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `OCT 25, 2005` DESCRIPTION: `This is the source code for this order.` SCREEN: `S DIC("S")="I "_$S($G(PRCHPC)=2:"""0236B""[$E(^(0))",$D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHNRQ):"""1390""[$E(^(0))",1:"""2456789B""[$E(^(0))")` EXPLANATION: `SOURCE CODE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8.1	ASTR. FOR SOURCE CODE	1;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1)!'("X?.""*""") X` LAST EDITED: `MAR 29, 1985` 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` HELP-PROMPT: `ANSWER MUST BE 3-45 CHARACTERS IN LENGTH` DESCRIPTION: `This is the proposal information that prints on the purchase order, if applicable.`
8.3	PURCHASE METHOD	14;0	POINTER Multiple #442.12	442.12 DESCRIPTION: `This is the purchase method.`
9.2	PROMPT PAYMENT TERMS	5;0	Multiple #442.06	442.06 DESCRIPTION: `Theses are the prompt payment terms.` 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?.N1"."3N.N)!(X>9999.99)!(X<0) X I $D(X),$D(^PRC(442,DA,1)),$P(^(1),U,6)="D" D EN4^PRCHNPO5 I $D(X) W " $",$J(X,0,2)` OUTPUT TRANSFORM: `S Y=" $"_$J(Y,0,2)` LAST EDITED: `AUG 29, 1994` HELP-PROMPT: `ENTER A DOLLAR AMOUNT BETWEEN 0 AND 9999.99` DESCRIPTION: `This is the estimate of shipping and handling costs.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^442^15` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442,13,1,1,1.1) X ^DD(442,13,1,1,1.4)` `1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14)+1` `1.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)) S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,` `1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442,13,1,1,2.1) X ^DD(442,13,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,14)-1` `2.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,13,99)) S DIH=DIH_U" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,` `1,0))>0` `CREATE VALUE)= LineItem+1` `DELETE VALUE)= LineItem-1` `FIELD)= LineItem Count`
13.05	EST. SHIPPING BOC	23;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S Z0=$P(^PRC(442,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X,Z0 I $D(X) D EN88^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 center.` DESCRIPTION: `The shipping charges are accounted in this field.` EXECUTABLE HELP: `S ZD=D,Z0=$P(^PRC(442,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 06, 1988` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This is the line item number for shipping and handling costs.`
13.2	GOV'T B/L NO.	12;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>21!($L(X)<1) X` LAST EDITED: `OCT 07, 1986` HELP-PROMPT: `ANSWER MUST BE 1-21 CHARACTERS IN LENGTH. If FOB point=ORIGIN and Shipping Charges > $250, shipping charges are put on Gov't Bill of Lading. Enter number here.` DESCRIPTION: `This is the Government Bill of Lading number.`
13.3	SHIP VIA	12;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>23!($L(X)<1) X` LAST EDITED: `OCT 07, 1986` HELP-PROMPT: `ANSWER MUST BE 1-23 CHARACTERS IN LENGTH. If Gov't Bill of Lading was required, enter the shipping method information in this field.` DESCRIPTION: `This is the shipping method if this is a Government Bill of Lading.`
13.4	GBL P.O.NUMBER	12;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `JAN 20, 1989` HELP-PROMPT: `Enter the P.O.number assigned to the Government Bill of Lading. ANSWER MUST BE 1-6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the Government Bill of Lading purchase order number.`
14	DISCOUNT	3;0	Multiple #442.03	442.03 DESCRIPTION: `This is the discount for this order.`
15	LINE ITEM COUNT	0;14	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 21, 1989` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `This is the line item count.` NOTES: `TRIGGERED by the LINE ITEM NUMBER field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File` `TRIGGERED by the DISCOUNT ITEM field of the DISCOUNT sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File` `TRIGGERED by the EST. SHIPPING AND/OR HANDLING field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File`
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: `MAY 23, 1996` DESCRIPTION: `This is the purchasing agent responsible for this request.` 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 Clerk, Authorized Buyer or Manager for Requisitions, a Purchasing Agent, Authorized Buyer or Manager for P.O.'s.`
16.5	VALIDATION CODE	12;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` OUTPUT TRANSFORM: `S Y="/ES/"_$$DECODE^PRCHES5(D0)` LAST EDITED: `DEC 21, 1992` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the electronic signature for this purchasing agent.` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^442^17` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,12)):^(12),1:"") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(442,16.5,1,1,1.1) X ^DD(442,16.5,1,1,1.4)` `1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=% S X=X` `1.4)= S DIH=$S($D(^PRC(442,DIV(0),12)):^(12),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(12)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=17 D ^DICR:$N(^DD(DIH,DIG,1` `,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,12)):^(12),1:"") S X=$P(Y(1),U,3) S DIU=X K Y S X=DIV S X="" X ^DD(442,16.5,1,1,2.4)` `2.4)= S DIH=$S($D(^PRC(442,DIV(0),12)):^(12),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(12)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=17 D ^DICR:$N(^DD(DIH,DIG,1` `,0))>0` `CREATE VALUE)= NOW` `DELETE VALUE)= @` `FIELD)= ES CODE DATE/TIME`
16.7	VALIDATION VERSION	12;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 09, 1992` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `This is the version of the validation.`
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="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 09, 1992` DESCRIPTION: `This is the electronic signature code for the date/time.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the VALIDATION CODE field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File`
18	PO PRINTED TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 02, 1985` DESCRIPTION: `This is the printed time for this purchase order.`
18.5	EDI MESSAGE NO.	12;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 23, 1991` HELP-PROMPT: `Type a Number between 0 and 999999999, 0 Decimal Digits` DESCRIPTION: `The EDI message number that is returned from Austin.`
18.6	NEED SPECIAL HANDLING?	12;13	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 30, 1993` 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: `SEP 30, 1993` 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: `DEC 21, 1992` DESCRIPTION: `This is the agent assigned to this purchase order.` `UNEDITABLE`
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: `OCT 26, 1985` DESCRIPTION: `This is the date this purchase order was assigned to this purchasing agent.`
20	COMMENTS	4;0	WORD-PROCESSING #442.04	DESCRIPTION: `These are comments about this purchase order.` DESCRIPTION: `General comments about P.O./Req.`
21	MONTH		COMPUTED	MUMPS CODE: `S Y(442,21,1)=$S($D(^PRC(442,D0,1)):^(1),1:"") S X=$P(Y(442,21,1),U,15),Y(442,21,2)=X S X=4,Y(442,21,3)=X S X=5,X=$E(Y(442,21,2),Y(442,21,3),X)` ALGORITHM: `$E(P.O. Date,4,5)` DESCRIPTION: `This is the month for this purchase order.`
22	QUARTER		COMPUTED	MUMPS CODE: `S Y(442,22,1)=$S($D(^PRC(442,D0,1)):^(1),1:"") S X=$P(Y(442,22,1),U,15),X=$P("2^2^2^3^3^3^4^4^4^1^1^1","^",$E(X,4,5))` ALGORITHM: `QUARTER(P.O. DATE)` LAST EDITED: `OCT 18, 1985` DESCRIPTION: `This is the quarter for this purchase order.`
23	LAST DIGIT OF FISCAL YEAR		COMPUTED	MUMPS CODE: `S X="" F I=1:1 Q:+X=X S X=$E($P(^PRC(442,D0,0),"-",2),I) I +X=X` ALGORITHM: `S X="" F I=1:1 Q:+X=X S X=$E($P(^PRC(442,D0,0),"-",2),I) I +X=X` LAST EDITED: `DEC 04, 1987` DESCRIPTION: `This is the last digit of the current fiscal year.`
24	ADMINISTRATIVE CERTIFICATIONS	15;0	POINTER Multiple #442.15	442.15 DESCRIPTION: `Theses are the administrative certifications for this purchase order.` IDENTIFIED BY: `"Z1": W " "`
25	REMARKS	16;0	WORD-PROCESSING #442.025	DESCRIPTION: `This is the remarks field.` LAST EDITED: `SEP 21, 1987` DESCRIPTION: `Remarks about P.O./Req.`
26	BBFY	23;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 29, 1994` DESCRIPTION: `This field is the FMS 'BEGINING BUGDET FISCAL YEAR'. This is set from 'PRC("BBFY")' variable. This variable is created through the 'FCP', 'FUND CONTROL POINT' field.` TECHNICAL DESCR: `To retrieve 'PRC("BBFY")' use the extrinsic function '$$BBFY^PRCSUT'.`
27	OLD PO RECORD	23;3	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) LAST EDITED: `MAR 30, 1994` DESCRIPTION: `It is a pointer to an old purchase order record number.`
28	NEW PO RECORD	23;4	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) LAST EDITED: `MAR 30, 1994` DESCRIPTION: `It is a pointer to a new purchase order record number.`
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 09, 1994` HELP-PROMPT: `Enter the ending date for this P.O. or 1358 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 28, 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	SUBSTATION	23;7	POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411)	ADMIN. ACTIVITY SITE PARAMETER(#411) INPUT TRANSFORM: `S DIC("S")="I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""SITE"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 30, 1995` SCREEN: `S DIC("S")="I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""SITE"")"` EXPLANATION: `Select Substations only. This field identifies the facility that will be charged for this order.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
35	AMOUNT	9;0	Multiple #442.1	442.1 DESCRIPTION: `This is the amount of the purchase order/partial.`
40	ITEM	2;0	Multiple #442.01	442.01 LAST EDITED: `NOV 14, 1996` DESCRIPTION: `This is the name of the item on this purchase request.` IDENTIFIED BY: `"Z1": W:$D(^(1,1,0)) $E(^(0),1,60) W:$D(^PRC(442,D0,2,+Y,0)) !,?9,"STK#: ",$P(^(0),"^",6),?35,"NSN: ",$P(^(0),"^",13)` `"Z2": I $P($G(^(4)),U)]"" W !,?9,"SERIAL NO.(GSA/DLA): "_$P(^(4),U)` `"Z3": I $P(^(0),U,2)=0!($P(^(0),U,9)=0) W ?50,"DELETED"` INDEXED BY: `LINE ITEM NUMBER & DM DOC ID & ITEM MASTER FILE NO. & QUANTITY & UNIT OF PURCHASE & PACKAGING MULTIPLE & ACTUAL UNIT COST & 2237 REFERENCE # (AK)`
41	BOC	22;0	Multiple #442.041	442.041 LAST EDITED: `JUN 27, 1994` DESCRIPTION: `This multiple will hold the dollar amount for each BOC within this file 442 record.` `Longer explanation. The BOC field in this multiple allows the selection of one of the ITEM multiple BOC. Only the BOC listed in the "D" x-ref found within the ITEM multiple in this record, are allowable choices for the` `BOC multiple.` TECHNICAL DESCR: `This multiple, along with the BOC field in the ITEM multiple, handles the task of keeping track of which items belong to each FMS LINE entry.` `The "D" x-ref on the BOC field, field 3.5, in the ITEM multiple is used with the BOC field, field .01, in this multiple to limit the selection only to entries in this record.` `The "AH" x-ref on the same field in the ITEM multiple allows for the lookup of all items using the same BOC.` `The SUBAMOUNT field in this multiple just keeps the total dollar amount for each BOC, as reported to FMS.` `The FMS LINE field just keeps track of the number sent to FMS when the subamount was sent down to FMS.` `To find all the ITEM entries used to gather the SUBAMOUNT value for any BOC in this multiple just look through the "AH" x-ref in the ITEM multiple.`
42	RFQ NBR	21;8	FREE TEXT	INPUT TRANSFORM: `K:X'?3N1"-"2N1"-RFQ-"5N X` LAST EDITED: `MAY 07, 1996` HELP-PROMPT: `Entered when RFQ is awarded and PURCHASE ORDER is created.` DESCRIPTION: `This is a unique reference number for the Request for Quotation. It is derived from the following:` `3 digit station number, i.e. 688` `hyphen` `2 digit FISCAL year, i.e. 96` `hyphen` `string constant 'RFQ'` `hyphen` `5 digit sequence counter padded on the left with zeros` `For example 688-96-RFQ-00001.`
44	DISPUTED	23;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 02, 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) INPUT TRANSFORM: `S DIC("S")="I $D(^PRC(440.5,""C"",DUZ,Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `I Y S:$G(PRCPRTTF)=1 Y="XXXXXXXXXXXX"_$E($P($G(^PRC(440.5,Y,0)),U),13,16) S:$G(PRCPRTTF)'=1 Y=$P($G(^PRC(440.5,Y,0)),U)` LAST EDITED: `DEC 10, 2013` HELP-PROMPT: `Enter the purchase card.` DESCRIPTION: `This is the purchase card number assigned to the purchase card order.` TECHNICAL DESCR: `The Output Transform was created to insure regular IFCAP users are not able to see Purchase Card (credit card) number via options PRCF INQ 410 or PRCF INQ 442, but, IT users and high level Fileman users are able to see the` `full associated card number.` SCREEN: `S DIC("S")="I $D(^PRC(440.5,""C"",DUZ,Y))"` EXPLANATION: `Enter "?" to see your own purchase card number(s).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^AM` `1)= S ^PRC(442,"AM",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"AM",$E(X,1,30),DA)` `Cross reference for purchase card numbers.`
47	DELIVERY ORDER	23;10	SET	'Y' FOR YES; LAST EDITED: `MAY 14, 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: `JUL 03, 1996` DESCRIPTION: `This field determines if a purchase order is a 'Detailed Purchase Card Order','Simplified Purchase Card Order' or a 'Delivery Order'.` CROSS-REFERENCE: `442^APC^MUMPS` `1)= S ^PRC(442,"APC"_$P($G(^PRC(442,DA,23)),U,11),$P(^(0),U),DA)=""` `2)= K ^PRC(442,"APC"_$P($G(^PRC(442,DA,23)),U,11),$P(^(0),U),DA)` `This cross reference creates generates 3 lists - one for each codes that this field can have.`
50	AMENDMENT	6;0	Multiple #442.07	442.07 DESCRIPTION: `This is an amendment to the purchase order.` IDENTIFIED BY: `EFFECTIVE DATE(#1)`
51	SORT GROUP	23;13	VARIABLE POINTER	SORT GROUP(#410.7) WORK ORDER #(#6920) LAST EDITED: `JAN 15, 1997` DESCRIPTION: `This is the sort group for the IFCAP 410.7 SORT GROUP file or the Engineering 6920 WORK ORDER file.`
52	CLASSIFICATION OF REQUEST	23;12	POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2)	CLASSIFICATION OF REQUEST(#410.2) LAST EDITED: `MAY 21, 1996` DESCRIPTION: `This is the Classification of Request for this order.`
53	PCDO VENDOR	23;14	POINTER TO VENDOR FILE (#440)	VENDOR(#440) INPUT TRANSFORM: `D EN3^PRCHNPO5` LAST EDITED: `JUN 12, 1996` DESCRIPTION: `This vendor is for purchase card and delivery order.` EXECUTABLE HELP: `I '$D(PRCKAREN),$D(DA),$D(^PRC(442,DA,2,"AE")) W !?5,"Vendor cannot be edited if Purchase Order contains line items with PR card numbers."` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
54	RECEIVING REQUIRED?	23;15	SET	**********************REQUIRED FIELD********************** 'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 22, 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` OUTPUT TRANSFORM: `S:$G(PRCPRTTF)=1 Y="XXXXXXXXXXXX"_$E(Y,13,16)` LAST EDITED: `DEC 10, 2013` HELP-PROMPT: `Answer must be 16 characters in length.` DESCRIPTION: `This is the purchase card number assigned to the purchase card order.` TECHNICAL DESCR: `The Output Transform was created to insure regular IFCAP users are not able to see Purchase Card (credit card) number via options PRCF INQ 410 or PRCF INQ 442, but, IT users and high level Fileman users are able to see the` `full associated card number.`
56	PURCHASE CARD USER	23;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 10, 1996` HELP-PROMPT: `This is the user who entered the purchase card order` 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: `JUN 11, 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="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 14, 1996` HELP-PROMPT: `This is the reconcilliation date for this purchase order.` 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: `JUN 24, 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: `JUL 30, 1996` DESCRIPTION: `This is the Purchase Card Holder for the Purchase Card Order.` CROSS-REFERENCE: `442^MCH^MUMPS` `1)= S ^PRC(442,"MCH",X_"~",DA)=""` `2)= K ^PRC(442,"MCH",X_"~",DA)` `This cross-reference is used by the reconciliation of purchase card orders.`
62	PCDO 2237	23;23	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	CONTROL POINT ACTIVITY(#410) LAST EDITED: `JUL 02, 1996` DESCRIPTION: `This is the 2237 attached to the purchase card/delivery order.`
63	PROCESSING REQUIRED IN FISCAL	24;1	SET	'1' FOR NO; LAST EDITED: `JUL 18, 1996` HELP-PROMPT: `This field indicates if fiscal needs to process receiving report.` 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.`
65	INTERFACE PACKAGE PREFIX	24;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `JUN 16, 1997` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `The is the interface package prefix indicator. It is set up by the package interface routine. The prefix free text should match the prefix of package file.`
70	DEPARTMENT NUMBER	17;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?2N1E) X` LAST EDITED: `MAR 27, 1989` HELP-PROMPT: `Enter the LOG Department Number. ANSWER MUST BE 3 CHARACTERS IN LENGTH, the first 2 characters must be numeric.` DESCRIPTION: `This is the three character LOG Department number.`
71	DOCUMENT IDENTIFIER CODE	17;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?.UN) X` LAST EDITED: `MAR 27, 1989` HELP-PROMPT: `Enter the 3 digit code for GSA/DLA code sheets` DESCRIPTION: `This is the three digit code for GSA/DLA code sheets.`
72	ROUTING INDENTIFIER CODE	17;3	POINTER TO DLA/LOG CODES FILE (#441.4)	**********************REQUIRED FIELD********************** DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 03, 1989` DESCRIPTION: `This is the routing identifier code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""R"""` EXPLANATION: `Select appropriate DLA Routing Indicator Code.`
72.4	ACTIVITY ADDRESS CODE	17;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X I $D(X),'$O(^PRC(411,+^PRC(442,DA,0),5,"B",X,0)) K X` LAST EDITED: `APR 25, 1989` HELP-PROMPT: `Select the Activity Address Code from the Site Parameter File. ANSWER MUST BE 6 CHARACTERS IN LENGTH.` DESCRIPTION: `This is the six character Activity Address Code from the Site Parameters File.` EXECUTABLE HELP: `W !,"Select From: ",! F Z=0:0 S Z=$O(^PRC(411,+^PRC(442,DA,0),5,Z)) Q:'Z W:$D(^(Z,0)) $P(^(0),U,1),!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
73	DEPT.DESIGNATION (DEMAND CODE)	17;4	POINTER TO DLA/LOG CODES FILE (#441.4)	DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 1989` DESCRIPTION: `This is the Demand Code for Troop Issue or Dietetic Sale.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""D"""` EXPLANATION: `Enter Demand Code for Troop Issue or Dietetic Sale, or leave blank.`
73.4	SPECIAL CODE	17;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1"Y") X` LAST EDITED: `APR 25, 1989` HELP-PROMPT: `Must be set to 'Y'.` DESCRIPTION: `This is the Special Code.`
74	SIGNAL CODE	17;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'("ABCDJKLM"[X) X` LAST EDITED: `APR 24, 1989` HELP-PROMPT: `Enter A, B, C, D, J, K, L, or M (Enter ?? to see further explanation). ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `A = Ship to Requisitioner, Bill to Requisitioner B = Ship to Requisitioner, Bill to Supplementary Address (cc 30-35) C = Ship to Requisitioner, Bill to Address designated by Fund Code (cc 52-53) D = Ship to Requisitioner,` `NO Billing Required J = Ship to Supplementary Address, Bill to Requisitioner (cc 30-35) K = Ship to Supplementary Address, Bill to Supplementary Address (cc 45-50) L = Ship to Supplementary Address, Bill to address` `designated by Fund Code (cc 52-53) M = Ship to Supplementary Address, NO Billing Required.`
75	FUND CODE	17;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 28, 1989` HELP-PROMPT: `Facility Defined for DLA Codesheets (prints on DLA reports) ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: `This is the facility defined for DLA code sheets.`
76	DISTRIBUTION CODE (OPTIONAL)	17;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `DEC 10, 1987` HELP-PROMPT: `Optional field, user defined, can contain any 3 characters, may make DLA report more readable.` DESCRIPTION: `This is an optional, user defined, three character code which is used to make the DLA report more readable.`
77	PROJECT CODE	17;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` HELP-PROMPT: `Must enter 110 for Dietetic Service or 060 for Canteen Service. Otherwise, enter 3 digit Department no., or can be left blank.` DESCRIPTION: `This is the three digit department number, the 060 code for canteen service, or the 110 code for dietetic service. This field may be left blank.`
78	PRIORITY CODE	17;9	POINTER TO DLA/LOG CODES FILE (#441.4)	**********************REQUIRED FIELD********************** DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 1989` DESCRIPTION: `This is the priority code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""P"""` EXPLANATION: `Enter Required Priority Code`
79	ADVICE CODE	17;10	POINTER TO DLA/LOG CODES FILE (#441.4)	**********************REQUIRED FIELD********************** DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 1989` DESCRIPTION: `This is the advice code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""A"""` EXPLANATION: `Enter applicable advice code.`
80	MEDIA & STATUS CODE	17;11	POINTER TO DLA/LOG CODES FILE (#441.4)	**********************REQUIRED FIELD********************** DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""M""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 25, 1989` DESCRIPTION: `This is the media & status code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""M"""` EXPLANATION: `Select Media & Status Code`
81	*SUPPLEMENTARY ADDRESS	17;12	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6UN) X` LAST EDITED: `JAN 12, 1988` HELP-PROMPT: `Enter the 6 character supplementary address or the requisition number for GSA/DLA code sheets.` DESCRIPTION: `This is the six character supplementary address or the requisition number for GSA/DLA code sheets.`
82	*SOURCE DEVIATION CODE	17;13	SET	'1' FOR NOT AVAILABLE FROM MANDATORY SOURCE; '2' FOR OUT OF STOCK-GSA/DEPOT; '3' FOR EMERGENCY ORDER; '4' FOR CANNOT MEET MINIMUM QTY; '5' FOR QIR PENDING; '6' FOR SHARED PROCUREMENT; '7' FOR NONCONTRACT SOURCE,LOWER PRICE; LAST EDITED: `JAN 13, 1988` HELP-PROMPT: `Enter the appropriate code for LOG code sheets.` DESCRIPTION: `This is the source deviation code, used when another vendor other than the designated item vendor is used to procure an item.`
83	REASON CODE	17;14	SET	**********************REQUIRED FIELD********************** '1' FOR REGULAR; '2' FOR RESUBMISSION OF REJECTS; '3' FOR CALM BYPASS; LAST EDITED: `JAN 13, 1988` HELP-PROMPT: `Enter the appropriate code for LOG code sheets.` DESCRIPTION: `This is the reason code.`
84	*PAYABLE CODE	17;15	SET	**********************REQUIRED FIELD********************** 'A' FOR REGULAR POSTED; 'B' FOR IMPREST FUND; 'J' FOR DONATED; LAST EDITED: `JAN 13, 1988` HELP-PROMPT: `Enter the appropriate code for LOG code sheets.` DESCRIPTION: `This is the payable code.`
91	TOTAL AMOUNT	0;15	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X` LAST EDITED: `FEB 15, 2005` HELP-PROMPT: `(On P.O.=Total Amt.-Discounts+Ship/Handling On 1358=Amt.not liquidated). Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits.` DESCRIPTION: `This is the total amount of the purchase order.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the AMOUNT field of the AMOUNT sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS File`
92	NET AMOUNT	0;16	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X` LAST EDITED: `APR 29, 2013` HELP-PROMPT: `(on P.O.=Total Amount-discounts-prompt payment+ship/handling. 1358's=Total Obligated Amount) Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits.` DESCRIPTION: `This is the net amount of the purchase order.`
93	LIQUIDATED AMOUNT	0;17	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X` LAST EDITED: `APR 29, 2013` HELP-PROMPT: `(On P.O.=Amount Received. On 1358=Amount of Liquidation made against the 1358). Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits.` DESCRIPTION: `This is the liquidated amount.`
94	ACTUAL 1358 BALANCE	8;1	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X` LAST EDITED: `OCT 23, 1991` HELP-PROMPT: `Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits.` DESCRIPTION: `This is the actual 1358 balance.`
95	FISCAL 1358 BALANCE	8;2	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X` LAST EDITED: `OCT 23, 1991` HELP-PROMPT: `Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `This is the fiscal 1358 balance.`
96	ESTIMATED 1358 BALANCE	8;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999.99)!(X<-999999999.99) X` LAST EDITED: `OCT 23, 1991` HELP-PROMPT: `Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `This is the estimated 1358 balance.`
96.5	CONVERTED 1358	8;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 04, 1992` DESCRIPTION: `This field flags all entries in file 442 which corresponds to a new format entry in file 424.`
96.6	AUTH. AMOUNT REMAINING	8;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999.99)!(X<0) X` LAST EDITED: `OCT 23, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits` DESCRIPTION: `This field contains the total amount of monies left on this obligation for authorizations.`
96.7	BULLETIN SENT	8;6	SET	'1' FOR SENT; '0' FOR CLEAR SENT; LAST EDITED: `MAY 19, 1994` DESCRIPTION: `It is a bulletin sent to an Inventory user.`
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 17, 1996` DESCRIPTION: `It is a type for Prompt Payment Term.`
101	PAYABLE CODE	18;2	SET	'A' FOR REGULAR POSTED; 'B' FOR IMPREST FUNDS; 'J' FOR DONATED; LAST EDITED: `MAR 28, 1989` HELP-PROMPT: `Enter the appropriate code for generating LOG code sheets` 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: `MAY 09, 1989` HELP-PROMPT: `Enter the Document Identifier for LOG (Usually either the PAT number, or Requisition No., without the Fiscal Year. ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the document identifier/common number.`
102.4	REQUISITION NO.(SUPPLY)	18;10	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'((X?3N1"-"3N1"-"2N)!(X?3N1"-"5UN)) X I $D(X) K:+X'=+^PRC(442,DA,0) X` LAST EDITED: `NOV 12, 1991` HELP-PROMPT: `Enter Station Number, dash, sequential Requisition Number, dash, then Fiscal Year. (EX. 662-123-89) or Modified PAT # i.e.(688-A123B)` DESCRIPTION: `This is the station number, dash, sequential Requisition Number, dash, Fiscal Year, as in 661-123-90.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^K` `1)= S ^PRC(442,"K",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"K",$E(X,1,30),DA)` `This X-REF is a lookup of all REQUISITION NO.(SUPPLY) entries within the PROCUREMENT & ACCOUNTING TRANSACTION file (this file).`
102.5	ISSUE VOUCHER NO.(SUPPLY)	18;8	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1UN1"-"4N) X I $D(X),"0123456789JK"'[$P(X,"-",1) K X` LAST EDITED: `APR 14, 1989` HELP-PROMPT: `Enter Issues Voucher Number in Supply Format (i.e., Month (1-9, 0=Oct.,J=Nov.,K=Dec.), dash, sequential number. ex. 3-0001). ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the issue voucher number for supply.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^AD^MUMPS` `1)= S Z=$F("0123456789JK",+X) S:Z Z="P"_$E("ABCDEFGHJKLM",(Z-1),(Z-1))_$P(X,"-",2),$P(^PRC(442,DA,18),"^",9)=Z,^PRC(442,"J",Z,DA)="" K Z` `2)= Q` `This X-REF converts the ISSUE VOUCHER NO.(SUPPLY) value into the ISSUE VOUCHER NO.(FISCAL), enters the converted value into the ISSUE VOUCHER NO.(FISCAL) field and sets the "J" X-REF for that field.` CROSS-REFERENCE: `442^I` `1)= S ^PRC(442,"I",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"I",$E(X,1,30),DA)` `This X-REF is just a lookup for the ISSUE VOUCHER NO.(SUPPLY) field.`
102.6	ISSUE VOUCHER NO.(FISCAL)	18;9	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1"P"1U4N) X I $D(X),"ABCDEFGHJKLM"'[$E(X,2,2) K X` LAST EDITED: `APR 14, 1989` HELP-PROMPT: `Enter Issues Voucher No.in Fiscal Format. (Letter 'P', followed by letter for month A through M = Oct. through Sep. (note: skips 'I'), followed by 4 digit sequential number.` DESCRIPTION: `This is the Fiscal Issue Voucher Number (#).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442^J` `1)= S ^PRC(442,"J",$E(X,1,30),DA)=""` `2)= K ^PRC(442,"J",$E(X,1,30),DA)` `This X-REF is just a lookup for the ISSUE VOUCHER NO.(FISCAL) field.`
103	LOG BATCH NO.(ACQUISITIONS)	18;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<9) X` LAST EDITED: `APR 04, 1989` HELP-PROMPT: `Station No., dash (-), P.O.No. Same as .01 field. Created automatically when LOG acquisitions code sheets are created. ANSWER MUST BE 9-11 CHARACTERS IN LENGTH` DESCRIPTION: `This is the Station Number, dash (-), and Purchase Order Number (e.g., 688-A61234) which is generated automatically when LOG acquisitions code sheets are created.`
103.5	LOG ACQ.CODE SHEETS DONE?	18;11	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `MAY 30, 1989` HELP-PROMPT: `Created automatically when Orders for Posted Stock, or from Government Sources are signed by Purchasing/PPM Agent.` DESCRIPTION: `This code indicates whether the LOG Aquisition Code Sheets are completed. It is automatically generated when Orders for Posted Stock or from Government Sources are signed by the Purchasing/PPM Agent.` CROSS-REFERENCE: `442^AE^MUMPS` `1)= K:X'="N" ^PRC(442,"AE","N",DA) I X="N" S ^PRC(442,"AE","N",DA)=""` `2)= K ^PRC(442,"AE","N",DA)` `This X-REF will be set when an order is signed off. This X-REF will indicate that the LOG code sheets need to be created for this signed off order.`
104	LOG CODE SHEETS SENT BY	18;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 18, 1992` HELP-PROMPT: `Name of PPM clerk who created and signed the LOG Acquisitions code sheets.` DESCRIPTION: `This is the PPM Clerk who created and signed the LOG Acquisitions code sheets.` SCREEN: `S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))"` EXPLANATION: `Only PPM Clerks or Manager can create LOG code sheets.`
105	LOG CODE SH. VALIDATION CODE	18;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` OUTPUT TRANSFORM: `S Y="/ES/"_$$DECODE^PRCHES8(D0)` LAST EDITED: `JAN 25, 1993` HELP-PROMPT: `Electronic Signature of PPM Clerk who created and signed the LOG Acquisitions Code sheets. ANSWER MUST BE 2-30 CHARACTERS IN LENGTH.` DESCRIPTION: `This is the Electronic Signature of the PPM Clerk who created and signed` `the LOG Acquisitions code sheets.` `UNEDITABLE`
105.5	LOG CS VALIDATION VERSION	18;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 1992` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `The version of the validation.`
105.7	LOG CS ESIG CODE	18;16	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 LOG code sheet Signature Block name.`
106	DATE SIGNED	18;7	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 16, 1992` HELP-PROMPT: `Date/time LOG Acquisitions Code sheets were signed by PPM Clerk (thus marking them for transmission).` DESCRIPTION: `This is the date/time LOG Acquisitions Code sheets were signed by PPM clerk.`
106.4	SUPPLY FUND ORDER OBLIGATED?	18;12	SET	'1' FOR YES; LAST EDITED: `JUL 19, 1989` HELP-PROMPT: `Set automatically when PPM processes Supply Fund Orders to update the Control Point Balance (and optionally create Due-In code sheets for LOG).` DESCRIPTION: `This field is automatically set when PPM processes Supply Fund Orders to update the Control Point Balance.`
107	RELEASING FACILITY NUMBER	18;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `MAY 05, 1989` HELP-PROMPT: `Enter only if another facility is involved. Must be filled in for source code 1 (DEPOT). ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This field is entered only if another facility is involved. Enter the 3 digit facility number.` EXECUTABLE HELP: `W !,"DEPOT NUMBERS: "`
108	CASCA PROJECT NO.	18;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<3) X` LAST EDITED: `AUG 05, 1991` HELP-PROMPT: `Answer must be 3-12 characters in length.` DESCRIPTION: `The number of the CASCA Project.`
109	CASCA TRANS TYPE	18;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1) X` LAST EDITED: `AUG 05, 1991` HELP-PROMPT: `Answer must be 1-6 characters in length.` DESCRIPTION: `The type of CASCA Transaction.`
110	ISMS ORDER NO.	20;0	Multiple #442.17	442.17 DESCRIPTION: `The number of the ISMS order.`
111	ISMS BATCH NO.	21;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<9) X` LAST EDITED: `JAN 09, 1992` HELP-PROMPT: `Answer must be 9-11 characters in length.` DESCRIPTION: `The batch number for the ISMS order.`
112	ISMS CODE SHEETS DONE?	21;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 09, 1992` DESCRIPTION: `Is the ISMS code sheet done question.`
113	ISMS CODE SHEETS SENT BY	21;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 09, 1992` DESCRIPTION: `The user number of the person who sent the ISMS code sheet.`
114	ISMS CODE SH. VALIDATION CODE	21;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` OUTPUT TRANSFORM: `S Y="/ES/"_$$DECODE^PRCHES9(D0)` LAST EDITED: `JAN 25, 1993` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `The code that validates the ISMS code sheet.` `UNEDITABLE`
114.5	ISMS VALIDATION VERSION	21;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 18, 1992` HELP-PROMPT: `Type a Number between 1 and 99, 0 Decimal Digits` DESCRIPTION: `The version of the validation code.`
114.7	ISMS ESIG CODE	21;7	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 of the ISMS code sheet.`
115	ISMS DATE SIGNED	21;5	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 16, 1992` DESCRIPTION: `The date the ISMS code sheet was signed.`
116	DO YOU WANT TO SEND THIS EDI?	12;16	SET	'y' FOR YES; 'n' FOR NO; LAST EDITED: `AUG 11, 1997` HELP-PROMPT: `If you don't want this order transmitted, enter 'NO'` DESCRIPTION: `This field enables the user to prevent an EDI Order being generated, as would be appropriate if the order has already been verbally placed with an EDI vendor.`
117	REASON NOT COMPETED	25;1	POINTER TO REASON NOT COMPETED FILE (#420.51)	REASON NOT COMPETED(#420.51) LAST EDITED: `AUG 09, 2005` DESCRIPTION: `This is the reason why the order was not competed.`
118	NUMBER OF OFFERS	25;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 06, 2005` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `This is the number of vendors submitting a bid.`
119	PRE AWARD SYNOPSIS	25;3	SET	'Y' FOR ORDER SUBMITTED TO FED. BUS. OPS.; 'N' FOR ORDER NOT SUBMITTED TO FED. BUS. OPS.; LAST EDITED: `JAN 06, 2005` DESCRIPTION: `This relates to the Federal Business Opportunities program.`
120	ALTERNATIVE ADVERTISING	25;4	SET	'Y' FOR ALTERNATIVE ADVERTISING USED; 'N' FOR NO ATERNATIVE ADVERTISING USED; LAST EDITED: `JAN 06, 2005` HELP-PROMPT: `Answer whether or not advertising methods were used.` DESCRIPTION: `Enter YES if the contracting officer used methods in addition to or in place of those required by FAR 5.201 (FED BIZ OPS) to advertise the requirement. Otherwise, enter NO.`
121	SOLICITATION PROCEDURE	25;5	POINTER TO SOLICITATION PROCEDURE FILE (#420.52)	SOLICITATION PROCEDURE(#420.52) LAST EDITED: `JAN 10, 2005` DESCRIPTION: `Solicitation procedures to be used for under and over $25K orders.`
122	EVALUATED PREFERENCE	25;6	POINTER TO EVALUATED PREFERENCE FILE (#420.54)	EVALUATED PREFERENCE(#420.54) LAST EDITED: `JAN 06, 2005` DESCRIPTION: `This is the short name for the evaluated preference.`
123	FUNDING AGENCY CODE	25;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4) X` LAST EDITED: `JAN 06, 2005` HELP-PROMPT: `Enter a 4-character code from FIPS Publication 95, if applicable.` DESCRIPTION: `A 4-character code from FIPS Pub. 95 to indicate the funding agency. Leave blank if funding was not provided by another agency.`
124	FUNDING AGENCY OFFICE CODE	25;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` LAST EDITED: `MAY 18, 2005` HELP-PROMPT: `Enter a 6-character code from FIPS Publication 95, if applicable.` DESCRIPTION: `Agency that provided funding for the transaction, if different from VHA; otherwise leave blank.`
125	MULTIYEAR	25;9	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 10, 2005` HELP-PROMPT: `Enter Y or N only.` DESCRIPTION: `Enter Y for a multiyear contract, otherwise enter N.`
126	EPA DESIGNATED PRODUCT	25;10	POINTER TO EPA DESIGNATED PRODUCT FILE (#420.55)	EPA DESIGNATED PRODUCT(#420.55) LAST EDITED: `JAN 06, 2005` DESCRIPTION: `This is the short name used to indicate EPA Designated Products.`
127	CONTRACT BUNDLING	25;11	SET	'A' FOR BUNDLING WAS MISSION CRITICAL; 'B' FOR BUNDLING BASED ON A-76; 'C' FOR REQS. BUNDLED BY OTHER REASONS; 'D' FOR NOT BUNDLED; LAST EDITED: `JAN 27, 2005` HELP-PROMPT: `Select a type of bundling.` DESCRIPTION: `This indicates the type bundling used for the procurement action.`
128	EXTENT COMPETED	25;12	POINTER TO EXTENT COMPETED FILE (#420.53)	EXTENT COMPETED(#420.53) LAST EDITED: `JAN 06, 2005` DESCRIPTION: `This is the description of the acquisition method, if any.`
129	PERF. BASED SERVICE CONTRACT	25;13	SET	'NA' FOR THIS IS NOT A SERVICE CONTRACT; 'Y' FOR FOR THIS CONTRACT 50% OR MORE IS PERF. BASED; 'N' FOR FOR THIS CONTRACT 50% OR LESS IS PERF. BASED; LAST EDITED: `JAN 06, 2005` HELP-PROMPT: `Select an applicable code.`
130	CLINGER COHEN	25;14	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 06, 2005` HELP-PROMPT: `Enter Y or N only.` DESCRIPTION: `Available only when the funding agency is the Dept. of Defense.`
131	PLACE OF PERF. THIS STATION?	25;15	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JAN 31, 2005` HELP-PROMPT: `Answer Yes or No if this station is the place of performance for this acquisition.` DESCRIPTION: `This field allows he user to indicate whether or not the station is the place where an acquisition has been performed.`
132	PLACE OF PERFORMANCE	25;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<2) X` LAST EDITED: `JAN 31, 2005` HELP-PROMPT: `Answer must be 2-7 characters in length.` DESCRIPTION: `This field will not be filled in by the user. It will be populated based on the answer to field #131 (Place of perf. this station?): if 'Yes', use the station's state and zip code. If 'No', use the vendor's ordering state` `and the zip code, for example: MD20910.`
133	SEND TO FPDS?	25;17	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `FEB 08, 2005` HELP-PROMPT: `This field is not edited directly by the user.` DESCRIPTION: `This field will be triggered by the population of one of the following fields: TOTAL AMOUNT or CONTRACT/BOA #. If the total amount of the is over $2500.00, or if the PO is against a contract, then the field will be` `populated without direct user intervention.` `The value stored in this field will be used to determine if an order is to be sent to the Austin Automation Center after it has been created or amended.` `WRITE AUTHORITY: ^`
500.01	BILL #	AR;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 13, 1987` HELP-PROMPT: `ANSWER MUST BE 3-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the bill number.` GROUP: `AR`
501	CERTIFIED P.O.	1;20	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `SEP 09, 1992` HELP-PROMPT: `Enter YES if this is a Certified IFCAP Purchase Order` DESCRIPTION: `If the IFCAP Common Numbering System for this purchase order is a Certified entry answer YES.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #43	Fee Basis		Gets - IFCAP station number with a call to ^PRCFSITEwith PRCF("X") ="S"Uses - the IFCAP Station Number to determine whether an obligation numberentered by the user exists in IFCAP. Done by doing$D(^PRC(442,"B",STATION NUMBER-OBLIGATION)).
ICR #285	Accounts Receivable
ICR #390	Prosthetics	PRIMARY 2237 (.07). Access: Read w/Fileman SUPPLY STATUS (.5). Access: Read w/Fileman
ICR #682	Controlled Substances
ICR #704	Prosthetics
ICR #803	Prosthetics
ICR #806	Accounts Receivable
ICR #1499	Engineering	PURCHASE ORDER NUMBER (.01). Access: Read w/Fileman FCP (1). Access: Read w/Fileman COST CENTER (2). Access: Read w/Fileman P.O. DATE (.1). Access: Read w/Fileman VENDOR (5). Access: Read w/Fileman REQUESTING SERVICE (5.2). Access: Read w/Fileman SOURCE CODE (8). Access: Read w/Fileman BBFY (26). Access: Read w/Fileman LINE ITEM NUMBER (.01). Access: Read w/Fileman BOC (3.5). Access: Read w/Fileman FEDERAL SUPPLY CLASSIFICATION (8). Access: Read w/Fileman SUBACCOUNT (.01). Access: Read w/Fileman SUBAMOUNT (1). Access: Read w/Fileman	Part of Item (#40) multiple.Part of Item (#40) multiple.part of BOC (#41) multiple.
ICR #3697	M DATA EXTRACTOR
ICR #5274	Fee Basis
ICR #6628	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	PURCHASE ORDER NUMBER (.01). Access: Direct Global Read & R/W w/Fileman METHOD OF PROCESSING (.02). Access: Direct Global Read & R/W w/Fileman FCP (1). Access: Direct Global Read & R/W w/Fileman APPROPRIATION (1.4). Access: Direct Global Read & R/W w/Fileman COST CENTER (2). Access: Both R/W w/Fileman SUBACCOUNT1 (3). Access: Read w/Fileman SUBAMOUNT1 (3.4). Access: Read w/Fileman SUBACCOUNT2 (4). Access: Read w/Fileman SUBAMOUNT2 (4.4). Access: Read w/Fileman DELIVERY DATE (7). Access: Direct Global Read & R/W w/Fileman ESTIMATED COST (7.2). Access: Read w/Fileman PRIMARY 2237 (.07). Access: Direct Global Read & R/W w/Fileman EST. SHIPPING AND/OR HANDLING (13). Access: Direct Global Read & R/W w/Fileman LINE ITEM COUNT (15). Access: Read w/Fileman TOTAL AMOUNT (91). Access: Direct Global Read & R/W w/Fileman NET AMOUNT (92). Access: Read w/Fileman LIQUIDATED AMOUNT (93). Access: Read w/Fileman EST. SHIPPING LINE ITEM NO. (13.1). Access: Both R/W w/Fileman SPECIAL FUND CONTROL POINT (.03). Access: Direct Global Read & w/Fileman ORIGINAL DELIVERY DATE (6.9). Access: Read w/Fileman VENDOR (5). Access: Direct Global Read & R/W w/Fileman REQUESTING SERVICE (5.2). Access: Direct Global Read & R/W w/Fileman SHIP TO (5.4). Access: Direct Global Read & R/W w/Fileman VERBAL PURCHASE ORDER (Y/N) (6). Access: Read w/Fileman CONFIRMATION COPY (Y/N) (6.2). Access: Read w/Fileman F.O.B. POINT (6.4). Access: Both R/W w/Fileman SOURCE CODE (8). Access: Direct Global Read & R/W w/Fileman PROPOSAL (8.2). Access: Both R/W w/Fileman PRIORITY OF 2237 (.06). Access: Read w/Fileman PA/PPM/AUTHORIZED USER (16). Access: Direct Global Read & R/W w/Fileman DELIVERY LOCATION (5.6). Access: Both R/W w/Fileman DIRECT DELIVERY PATIENT (5.3). Access: Direct Global Read & w/Fileman DEPOT VOUCHER NO. (.09). Access: Read w/Fileman ASTR. FOR SOURCE CODE (8.1). Access: Both R/W w/Fileman P.O. DATE (.1). Access: Direct Global Read & R/W w/Fileman DEBTOR (5.1). Access: Read w/Fileman EMERGENCY ORDER? (.2). Access: Read w/Fileman EXPENDABLE/NONEXPENDABLE (.3). Access: Read w/Fileman LOCAL PROCUREMENT REASON CODE (.25). Access: Read w/Fileman CERTIFIED P.O. (501). Access: Read w/Fileman LINE ITEM NUMBER (.01). Access: Both R/W w/Fileman QUANTITY (2). Access: Direct Global Read & R/W w/Fileman UNIT OF PURCHASE (3). Access: Direct Global Read & R/W w/Fileman BOC (3.5). Access: Direct Global Read & R/W w/Fileman ITEM MASTER FILE NO. (1.5). Access: Direct Global Read & R/W w/Fileman VENDOR STOCK NUMBER (9). Access: Direct Global Read & R/W w/Fileman EST. UNIT COST (5.5). Access: Read w/Fileman ITEM DELIVERY POINTS (3.2). Access: Read w/Fileman ACTUAL UNIT COST (5). Access: Direct Global Read & R/W w/Fileman 2237 REFERENCE # (10). Access: Read w/Fileman INTERMEDIATE PRODUCT CODE (3.6). Access: Read w/Fileman PACKAGING MULTIPLE (3.1). Access: Direct Global Read & R/W w/Fileman NSN (9.5). Access: Direct Global Read & R/W w/Fileman MAXIMUM ORDER QTY (9.6). Access: Both R/W w/Fileman NATIONAL DRUG CODE (9.3). Access: Both R/W w/Fileman SKU (9.4). Access: Both R/W w/Fileman UNIT CONVERSION FACTOR (9.7). Access: Both R/W w/Fileman DESCRIPTION (.01). Access: Read w/Fileman TOTAL COST (15). Access: Direct Global Read & R/W w/Fileman CONTRACT/BOA # (4). Access: Direct Global Read & R/W w/Fileman FEDERAL SUPPLY CLASSIFICATION (8). Access: Both R/W w/Fileman DESCRIPTION LINE COUNT (6). Access: Both R/W w/Fileman DESCRIPT. ASTR. (7). Access: Both R/W w/Fileman DISCOUNTED AMOUNT (16). Access: Both R/W w/Fileman OBLIGATED SUBACCOUNT (17). Access: Both R/W w/Fileman QUANTITY PREVIOUSLY RECEIVED (11). Access: Direct Global Read & w/Fileman EDI STATUS CODE 1 (12). Access: Read w/Fileman EDI STATUS QTY 1 (12.5). Access: Read w/Fileman EDI STATUS CODE 2 (13). Access: Read w/Fileman EDIT STATUS QTY 2 (13.5). Access: Read w/Fileman 410 ITEM NUMBER (43). Access: Read w/Fileman HAZARDOUS MATERIAL (44). Access: Both R/W w/Fileman DM DOC ID (48). Access: Read w/Fileman DATE RECEIVED (.01). Access: Direct Global Read & R/W w/Fileman QTY BEING RECEIVED (1). Access: Direct Global Read & R/W w/Fileman AMOUNT (2). Access: Read w/Fileman DISCOUNTED AMOUNT (4). Access: Read w/Fileman RECEIVING CODE SHEET NO. (5). Access: Read w/Fileman ADJUSTED QUANTITY RECEIVED (6). Access: Read w/Fileman ADJUSTED AMOUNT (7). Access: Read w/Fileman PARTIAL NUMBER (3). Access: Direct Global Read & R/W w/Fileman SERIAL NO.(GSA/DLA) (30). Access: Read w/Fileman CONSUMER LEVEL (31). Access: Read w/Fileman CONSUMER LEVEL OVERRIDE (32). Access: Read w/Fileman DO NOT SUB (33). Access: Read w/Fileman DO NOT B/O (34). Access: Read w/Fileman BACKORDER CONTROL (35). Access: Read w/Fileman SUBSTITUTE CONTROL (36). Access: Read w/Fileman ACQUISITIONS CODE SHEET NO. (37). Access: Read w/Fileman GROUP SPLIT CIV (38). Access: Read w/Fileman SOURCE CODE (39). Access: Read w/Fileman DRUG TYPE CODE (40). Access: Both R/W w/Fileman FOOD GROUP (41). Access: Both R/W w/Fileman DIETETIC CONVERSION FACTOR (42). Access: Read w/Fileman SOURCE DEVIATION (39.5). Access: Read w/Fileman BACKORDER (EDI) (36.3). Access: Read w/Fileman SUBSTITUTE (EDI) (36.6). Access: Read w/Fileman LOT NUMBER (45). Access: Read w/Fileman SERIAL NUMBER (46). Access: Read w/Fileman LINE INVENTORY POINT (.01). Access: Direct Global Read & w/Fileman LINE QUANTITY (1). Access: Read w/Fileman LINE DELIVERY (2). Access: Read w/Fileman QUANTITY RECEIVED TO DATE (3). Access: Read w/Fileman DISCOUNT ITEM (.01). Access: Direct Global Read & R/W w/Fileman PERCENT/DOLLAR AMOUNT (1). Access: Direct Global Read & R/W w/Fileman DISCOUNT AMOUNT (2). Access: Direct Global Read & R/W w/Fileman ITEM COUNT (3). Access: Both R/W w/Fileman CONTRACT # (4). Access: Both R/W w/Fileman LINE ITEM (5). Access: Both R/W w/Fileman COMMENTS (.01). Access: Direct Global Read & R/W w/Fileman PROMPT PAYMENT PERCENT (.01). Access: Direct Global Read & R/W w/Fileman DAYS (TERM) (1). Access: Direct Global Read & R/W w/Fileman CONTRACT # (2). Access: Read w/Fileman ASTR. (3). Access: Both R/W w/Fileman AMENDMENT (.01). Access: Read w/Fileman EFFECTIVE DATE (1). Access: Direct Global Read & w/Fileman AMOUNT CHANGED (2). Access: Read w/Fileman AUTHORITY (3). Access: Read w/Fileman CONTRACTOR REQUIRED TO SIGN? (5). Access: Read w/Fileman NUMBER OF COPIES (5.2). Access: Read w/Fileman TYPE OF COMMENTS (4). Access: Read w/Fileman ADJUSTMENT VOUCHER (13). Access: Read w/Fileman VALIDATION VERSION (7.5). Access: Read w/Fileman ESIG CODE (7.7). Access: Read w/Fileman FISCAL VALIDATION VERSION (11.5). Access: Read w/Fileman PA/PPM/AUTHORIZED BUYER (6). Access: Read w/Fileman VALIDATION CODE (7). Access: Read w/Fileman DATE SIGNED (8). Access: Read w/Fileman AMENDMENT/ADJUSTMENT STATUS (9). Access: Read w/Fileman FISCAL APPROVED BY (10). Access: Read w/Fileman FISCAL VALIDATION CODE (11). Access: Read w/Fileman FISCAL ESIG CODE (11.7). Access: Read w/Fileman FISCAL VALIDATION DATE (11.8). Access: Read w/Fileman DESCRIPTION (.01). Access: Read w/Fileman CHANGES (.01). Access: Read w/Fileman AMENDMENT TYPE (1). Access: Read w/Fileman FIELD & FILE (2). Access: Read w/Fileman SUBRECORD ENTRY (4). Access: Read w/Fileman DATE & TIME ENTERED (5). Access: Read w/Fileman USER (6). Access: Read w/Fileman OTHER FILE NUMBER (7). Access: Read w/Fileman OLD DATA VALUE (.01). Access: Read w/Fileman JUSTIFICATION (16). Access: Read w/Fileman SUPPLY STATUS (.5). Access: Both R/W w/Fileman SUPPLY STATUS ORDER (.7). Access: Direct Global Read & w/Fileman ESTIMATED ORDER? (.08). Access: Direct Global Read & R/W w/Fileman FISCAL STATUS ORDER (.8). Access: Both R/W w/Fileman ACTUAL 1358 BALANCE (94). Access: Read w/Fileman FISCAL 1358 BALANCE (95). Access: Read w/Fileman ESTIMATED 1358 BALANCE (96). Access: Read w/Fileman AUTH. AMOUNT REMAINING (96.6). Access: Read w/Fileman BULLETIN SENT (96.7). Access: Read w/Fileman CONVERTED 1358 (96.5). Access: Read w/Fileman AMOUNT (.01). Access: Both R/W w/Fileman TYPE CODE (1). Access: Both R/W w/Fileman CONTRACT # (2). Access: Both R/W w/Fileman COMP. STATUS/BUSINESS (1.1). Access: Both R/W w/Fileman PREF. PROGRAM (1.2). Access: Both R/W w/Fileman BREAKOUT CODE (.01). Access: Both R/W w/Fileman TT/DATE/REF (.01). Access: Read w/Fileman OBLIGATED BY (1). Access: Read w/Fileman TRANSACTION AMOUNT (2). Access: Read w/Fileman CODE SHEET NUMBER (3). Access: Read w/Fileman VALIDATION CODE (4). Access: Read w/Fileman DATE SIGNED (5). Access: Read w/Fileman VALIDATION VERSION (4.5). Access: Read w/Fileman ESIG CODE (4.7). Access: Read w/Fileman GECS IEN (6). Access: Read w/Fileman AMENDMENT NUMBER (7). Access: Read w/Fileman 1358 ADJUSTMENT (8). Access: Read w/Fileman OBLIGATION PROCESSING DATE (9). Access: Read w/Fileman ACCOUNTING PERIOD (10). Access: Read w/Fileman DATE (.01). Access: Direct Global Read & w/Fileman SUBACCOUNT1 (1). Access: Read w/Fileman SUBAMOUNT1 (2). Access: Read w/Fileman SUBACCOUNT2 (3). Access: Read w/Fileman SUBAMOUNT2 (4). Access: Read w/Fileman PROCESSED BY FISCAL? (5). Access: Read w/Fileman WAREHOUSE APPROVED BY (6). Access: Read w/Fileman VALIDATION CODE (7). Access: Read w/Fileman FINAL (8). Access: Both R/W w/Fileman OVERAGE (9). Access: Read w/Fileman WAREHOUSE DATE/TIME SIGNED (10). Access: Read w/Fileman TOTAL AMOUNT (11). Access: Read w/Fileman DISCOUNT PERCENT/DAYS (12). Access: Read w/Fileman LINECOUNT (13). Access: Read w/Fileman RECEIVED BY (PPM OR DELV.PT.) (14). Access: Read w/Fileman RECEIVED BY VALIDATION CODE (15). Access: Direct Global Read & w/Fileman DATE RECEIVED (AT DELV.PT.) (16). Access: Direct Global Read & R/W w/Fileman RECEIVED BY (AT DELIVERY PT.) (17). Access: Both R/W w/Fileman RECV.REPORT TRANS.TO AUSTIN (18). Access: Read w/Fileman FMS BATCH SEQUENCE NUMBER (22). Access: Read w/Fileman ADJUSTMENT/AMENDMENT NUMBER (24). Access: Read w/Fileman LOG BATCH NO.(RECEIVING) (19). Access: Read w/Fileman DIETETIC COST PERIOD (20). Access: Read w/Fileman LOG CODE SHEETS SENT BY (19.3). Access: Read w/Fileman LOG CODE SH. VALIDATION CODE (19.4). Access: Read w/Fileman DATE SIGNED (19.5). Access: Read w/Fileman LOG RR CODE SHEETS DONE? (19.2). Access: Read w/Fileman RECV.CODE SHEET NO.(DEPOT) (19.6). Access: Read w/Fileman SCHEDULED DELIVERY DATE (.05). Access: Read w/Fileman VALIDATION VERSION (7.5). Access: Read w/Fileman ESIG CODE (7.7). Access: Read w/Fileman RCVD BY VALIDATION VERSION (15.5). Access: Read w/Fileman RCVD BY ESIG CODE (15.7). Access: Read w/Fileman LCS VALIDATION VERSION (19.7). Access: Read w/Fileman LCS ESIG CODE (19.8). Access: Read w/Fileman RCVD BY VALIDATION DATE/TIME (15.8). Access: Read w/Fileman ORIGINAL PARTIAL (21). Access: Read w/Fileman ACCOUNTING PERIOD MONTH/YEAR (23). Access: Read w/Fileman PO PRINTED TIME (18). Access: Read w/Fileman VALIDATION CODE (16.5). Access: Read w/Fileman VALIDATION DATE/TIME (17). Access: Read w/Fileman AGENT ASSIGNED P.O. (19). Access: Both R/W w/Fileman DATE P.O. ASSIGNED (19.2). Access: Both R/W w/Fileman INVOICE ADDRESS (.04). Access: Read w/Fileman GOV.T B/L NO. (13.2). Access: Read w/Fileman SHIP VIA (13.3). Access: Read w/Fileman GBL P.O.NUMBER (13.4). Access: Read w/Fileman EDI MESSAGE NO. (18.5). Access: Read w/Fileman VALIDATION VERSION (16.7). Access: Read w/Fileman ESIG CODE (16.8). Access: Read w/Fileman NEED SPECIAL HANDLING? (18.6). Access: Read w/Fileman TYPE OF SPECIAL HANDLING (18.7). Access: Direct Global Read & w/Fileman PROMPT PAY TYPE (97). Access: Read w/Fileman DO YOU WANT TO SEND THIS EDI? (116). Access: Direct Global Read & R/W w/Fileman 2237 REFERENCE NUMBER (.01). Access: Direct Global Read & w/Fileman ACCOUNTABLE OFFICER (2). Access: Read w/Fileman VALIDATION CODE (3). Access: Read w/Fileman DATE SIGNED (4). Access: Read w/Fileman PURCHASING AGENT (6). Access: Read w/Fileman DATE ASSIGNED TO PA (7). Access: Read w/Fileman CURRENT STATUS (1.5). Access: Read w/Fileman CP FUND STATUS (8). Access: Read w/Fileman TYPE OF REQUEST (9). Access: Read w/Fileman SOURCE OF REQUEST (10). Access: Read w/Fileman INVENTORY/DISTRIBUTION POINT (11). Access: Direct Global Read & w/Fileman ESIG CODE (3.7). Access: Read w/Fileman VALIDATION VERSION (3.5). Access: Read w/Fileman PURCHASE METHOD (.01). Access: Read w/Fileman ADMINISTRATIVE CERTIFICATIONS (.01). Access: Read w/Fileman DESCRIPTION LINE COUNT (1). Access: Read w/Fileman REMARKS (.01). Access: Read w/Fileman DEPARTMENT NUMBER (70). Access: Both R/W w/Fileman DOCUMENT IDENTIFIER CODE (71). Access: Read w/Fileman ROUTING INDENTIFIER CODE (72). Access: Read w/Fileman DEPT.DESIGNATION (DEMAND CODE) (73). Access: Read w/Fileman SIGNAL CODE (74). Access: Read w/Fileman FUND CODE (75). Access: Read w/Fileman DISTRIBUTION CODE (OPTIONAL) (76). Access: Read w/Fileman PROJECT CODE (77). Access: Read w/Fileman PRIORITY CODE (78). Access: Read w/Fileman ADVICE CODE (79). Access: Read w/Fileman MEDIA & STATUS CODE (80). Access: Read w/Fileman REASON CODE (83). Access: Read w/Fileman ACTIVITY ADDRESS CODE (72.4). Access: Read w/Fileman SPECIAL CODE (73.4). Access: Read w/Fileman RELEASING FACILITY NUMBER (107). Access: Read w/Fileman PAYABLE CODE (101). Access: Read w/Fileman DOCUMENT IDENTIFIER/COMMON NO. (102). Access: Both R/W w/Fileman LOG BATCH NO.(ACQUISITIONS) (103). Access: Read w/Fileman LOG CODE SHEETS SENT BY (104). Access: Read w/Fileman LOG CODE SH. VALIDATION CODE (105). Access: Read w/Fileman DATE SIGNED (106). Access: Read w/Fileman ISSUE VOUCHER NO.(SUPPLY) (102.5). Access: Read w/Fileman ISSUE VOUCHER NO.(FISCAL) (102.6). Access: Read w/Fileman REQUISITION NO.(SUPPLY) (102.4). Access: Read w/Fileman LOG ACQ.CODE SHEETS DONE? (103.5). Access: Both R/W w/Fileman SUPPLY FUND ORDER OBLIGATED? (106.4). Access: Both R/W w/Fileman CASCA PROJECT NO. (108). Access: Read w/Fileman CASCA TRANS TYPE (109). Access: Read w/Fileman LOG CS VALIDATION VERSION (105.5). Access: Read w/Fileman LOG CS ESIG CODE (105.7). Access: Read w/Fileman DELIVERY LOCATIONS/DATES (.01). Access: Read w/Fileman ISMS ORDER NO. (.01). Access: Read w/Fileman ORDER HEADER (1). Access: Read w/Fileman ISMS BATCH NO. (111). Access: Read w/Fileman ISMS CODE SHEETS DONE? (112). Access: Read w/Fileman ISMS CODE SHEETS SENT BY (113). Access: Read w/Fileman ISMS CODE SH. VALIDATION CODE (114). Access: Read w/Fileman ISMS DATE SIGNED (115). Access: Read w/Fileman ISMS VALIDATION VERSION (114.5). Access: Read w/Fileman ISMS ESIG CODE (114.7). Access: Read w/Fileman RFQ NBR (42). Access: Read w/Fileman SUBACCOUNT (.01). Access: Read w/Fileman SUBAMOUNT (1). Access: Read w/Fileman FMS LINE (2). Access: Direct Global Read & w/Fileman EST. SHIPPING BOC (13.05). Access: Both R/W w/Fileman BBFY (26). Access: Both R/W w/Fileman OLD PO RECORD (27). Access: Read w/Fileman NEW PO RECORD (28). Access: Read w/Fileman END DATE FOR SERVICE ORDER (29). Access: Read w/Fileman AUTO ACCRUE (30). Access: Read w/Fileman SUBSTATION (31). Access: Direct Global Read & R/W w/Fileman PURCHASE CARD NUMBER (46). Access: Direct Global Read & R/W w/Fileman DISPUTED (44). Access: Both R/W w/Fileman DELIVERY ORDER (47). Access: Read w/Fileman TYPE OF ORDER (48). Access: Direct Global Read & R/W w/Fileman CLASSIFICATION OF REQUEST (52). Access: Direct Global Read & R/W w/Fileman SORT GROUP (51). Access: Both R/W w/Fileman PCDO VENDOR (53). Access: Both R/W w/Fileman RECEIVING REQUIRED? (54). Access: Direct Global Read & R/W w/Fileman PURCHASE CARD EXT. NO. (55). Access: Both R/W w/Fileman PURCHASE CARD USER (56). Access: Both R/W w/Fileman APPROVE RECONCILIATION USER (57). Access: Read w/Fileman DATE RECONCILED (58). Access: Both R/W w/Fileman PURCHASE COST (60). Access: Both R/W w/Fileman PURCHASE CARD HOLDER (61). Access: Both R/W w/Fileman PCDO 2237 (62). Access: Direct Global Read & R/W w/Fileman PROCESSING REQUIRED IN FISCAL (63). Access: Both R/W w/Fileman FREE TEXT VENDOR (64). Access: Direct Global Read & w/Fileman INTERFACE PACKAGE PREFIX (65). Access: Both R/W w/Fileman REASON NOT COMPETED (117). Access: Both R/W w/Fileman NUMBER OF OFFERS (118). Access: Both R/W w/Fileman PRE AWARD SYNOPSIS (119). Access: Read w/Fileman ALTERNATE ADVERTISING (120). Access: Read w/Fileman SOLICITATION PROCEDURE (121). Access: Both R/W w/Fileman EVALUATED PREFERENCE (122). Access: Both R/W w/Fileman FUNDING AGENCY CODE (123). Access: Both R/W w/Fileman FUNDING AGENCY OFFICE CODE (124). Access: Both R/W w/Fileman MULTIYEAR (125). Access: Both R/W w/Fileman EPA DESIGNATED PRODUCT (126). Access: Read w/Fileman CONTRACT BUNDLING (127). Access: Read w/Fileman EXTENT COMPETED (128). Access: Both R/W w/Fileman PERF. BASED SERVICE (129). Access: Both R/W w/Fileman CLINGER COHEN (130). Access: Both R/W w/Fileman PLACE OF PERF. THIS STATION? (131). Access: Read w/Fileman PLACE OF PERFORMANCE (132). Access: Read w/Fileman SEND TO FPDS? (133). Access: Both R/W w/Fileman BILL # (500.01). Access: Read w/Fileman	File 442.041 "B" cross-reference Knowing the PurchaseOrderentry IEN and the BOC, theBOC entry in the BOC multiplecan be found or a check canbe made to see if the BOC isassociated with the PurchaseOrder.File 442.01 "AC" cross-reference Knowing the IEN ofthePurchase Order and theContract/BOA #, one canfind the LINE ITEMs thatreference this Contract/BOA # on this PurchaseOrder.File 442 'C' cross reference Used to look up by theCommon Numbering Seriesportion of the completePurchase Order Number -the part of the PO numberfollowing the Site NumberFile 442 'E' cross-reference Used to look up byControlPoint Number - not the nameFile 442 'F' cross-reference Used to look up byMETHODOF PROCESSINGFile 442.08 "AC" cross-reference Provides anon-lookuplist of all PARTIALNUMBERS for receiptswithin each ITEM of aPurchase OrderFile 442 "B" cross-reference Look up by PURCHASEORDER NUMBERFile 442.01 "AE" cross-reference A non-lookup listofITEM MASTER file entrieswithin all ITEMs in aPurchase Order

Customize PDF page

Package: IFCAP

Global: ^PRC(442

Information

Description

Accessed By FileMan Db Calls, Total: 127

Pointed To By FileMan Files, Total: 16

Pointer To FileMan Files, Total: 33

Fields, Total: 168

ICR, Total: 11