STANDARD DATA DICTIONARY #442 -- PROCUREMENT & ACCOUNTING TRANSACTIONS FILE 3/24/25 PAGE 1
STORED IN ^PRC(442, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the main file for IFCAP Supply. It contains all of the Purchase Order and Requisition data both while the record is being
processed, and as an online history record after the record has been completed. It also contains information pertaining to
Accounts Receivable transactions.
*********DO NOT RE-INDEX THIS FILE**********
IDENTIFIED BY:
"Z.01": W:$D(^(1)) $E($P(^(1),U,15),4,5)_"-"_$E($P(^(1),U,15),6,7)_"-"_$E($P(^(1),U,15),2,3)
"Z.02": W $S($D(^PRCD(442.5,+$P(^(0),U,2),0))#2:$P(^(0),U,2),1:"") I @("$D("_DIC_"Y,7))"),$D(^PRCD(442.3,+^(7),0)) W " ",$
E($P(^(0),U,1),1,34)
"Z.03": W:$D(^(0)) !,?13,"FCP: ",$P($P(^(0),U,3)," ",1)," $ ",$J($P(^(0),U,15),0,2)
POINTED TO BY: CURRENT PRIME VENDOR PO# field (#13) of the DRUG ACCOUNTABILITY STATS File (#58.8)
PURCHASE ORDER NUMBER field (#8) of the DRUG ACCOUNTABILITY TRANSACTION File (#58.81)
STATION NO - P.O. NO field (#52) of the CONTROL POINT ACTIVITY File (#410)
PURCHASE ORDER/OBLIGATION NO field (#9) of the ITEM sub-field (#410.02) of the CONTROL POINT ACTIVITY File (#410)
RECORD NUMBER (442) field (#12) of the IFCAP CONVERSION DISCREPANCY File (#411.3)
IFCAP DOCUMENT NUMBER field (#3) of the IFCAP/FMS OBLIGATION RECONCILIATION REPORT File (#420.96)
PURCHASE ORDER POINTER field (#5) of the INVOICE TRACKING File (#421.5)
PAT NUMBER field (#5.1) of the CALM/LOG CODE SHEET File (#423)
POST TO PAT FILE # field (#12) of the TT974 LINE NUMBER sub-field (#423.1) of the CALM/LOG CODE SHEET File (#423)
OBLIGATION # field (#.02) of the 1358 DAILY RECORD File (#424)
PURCHASE ORDER field (#41) of the PURCHASE CARD ORDER RECONCILE File (#440.6)
PURCHASE ORDER field (#.01) of the PURCHASE ORDER sub-field (#441.04) of the FCP sub-field (#441.03) of the ITEM
MASTER File (#441)
OLD PO RECORD field (#27) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442)
NEW PO RECORD field (#28) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442)
PURCHASE ORDER NUMBER field (#1) of the ELEC RECEIVING REPORT BATCH File (#442.9)
PO POINTER field (#7) of the EDI SENDER File (#443.75)
PO NUMBER field (#.01) of the IFCAP PENDING ARCHIVE File (#443.9)
IFCAP ORDER field (#7.1) of the PROSTHETICS 1358 File (#664)
442 IEN field (#2) of the FUND CONTROL POINT sub-field (#665.7232) of the BILLING MONTH sub-field (#665.723) of the
HOME OXYGEN TRANSACTIONS FILE File (#665.72)
CROSS
REFERENCED BY: P.O. DATE(AB), FCP(AC), ISSUE VOUCHER NO.(SUPPLY)(AD), LOG ACQ.CODE SHEETS DONE?(AE),
LOG RR CODE SHEETS DONE?(AF), SUPPLY STATUS(AG), SUPPLY STATUS ORDER(AH), FISCAL STATUS ORDER(AI),
CODE SHEET NUMBER(AJ), PURCHASE CARD NUMBER(AM), SUPPLY STATUS(AM1), TYPE OF ORDER(APC),
PURCHASE ORDER NUMBER(B), PURCHASE ORDER NUMBER(C), VENDOR(D), FCP(E), METHOD OF PROCESSING(F),
INVENTORY/DISTRIBUTION POINT(G), DEPOT VOUCHER NO.(H), ISSUE VOUCHER NO.(SUPPLY)(I),
ISSUE VOUCHER NO.(FISCAL)(J), REQUISITION NO.(SUPPLY)(K), ISMS ORDER NO.(L), SUPPLY STATUS ORDER(MAPP),
PURCHASE CARD HOLDER(MCH), SUPPLY STATUS(ST)
LAST MODIFIED: MAR 11,2020@11:05:16
442,.01 PURCHASE ORDER NUMBER 0;1 FREE TEXT (Required)
PO
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?3UN2N
1UN,$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.
442,.02 METHOD OF PROCESSING 0;2 POINTER TO PAT TYPE FILE (#442.5) (Required)
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.
442,.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.
442,.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
442,.05 2237 REFERENCE NUMBER 13;0 POINTER Multiple #442.14 (Add New Entry without Asking)
LAST EDITED: APR 30, 1985
HELP-PROMPT: Enter the station number
DESCRIPTION:
This is the reference number for this request for this station.
442.14,.01 2237 REFERENCE NUMBER 0;1 POINTER TO CONTROL POINT ACTIVITY FILE (#410) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: AUG 10, 1987
DESCRIPTION:
This is the purchase order reference number.
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.14,1.5 CURRENT STATUS 0;7 POINTER TO PURCHASE ORDER STATUS FILE (#442.3) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)>59" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 03, 1986
DESCRIPTION:
This is the current status of the purchase order.
SCREEN: S DIC("S")="I $P(^(0),U,2)>59"
EXPLANATION: REQUIRED
442.14,2 ACCOUNTABLE OFFICER 0;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 18, 1992
DESCRIPTION:
This is the name of the accountable officer.
SCREEN: S DIC("S")="I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)"
EXPLANATION: Must be Accountable Officer or Manager
442.14,3 VALIDATION CODE 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM: S Y="/ES/"_$$DECODE^PRCHES0(D0,D1)
LAST EDITED: DEC 09, 1992
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
This is the electronic signature of the accountable officer.
DELETE AUTHORITY: ^
WRITE AUTHORITY: ^
UNEDITABLE
442.14,3.5 VALIDATION VERSION 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<1) X
LAST EDITED: DEC 09, 1992
HELP-PROMPT: Answer must be 1-35 characters in length.
DESCRIPTION:
Version of validation code for ESIG
442.14,3.7 ESIG CODE 0;13 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:
Encoded value used by IFCAP security utilities when confirming the integrity of this record.
442.14,4 DATE SIGNED 0;4 DATE
VALIDATION DATE/TIME
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 09, 1992
DESCRIPTION:
This is the date the purchase order was signed.
442.14,6 PURCHASING AGENT 0;5 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^(400)),$P(^(400),U,1)>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 18, 1992
DESCRIPTION:
This is the purchasing agent for this purchase order.
SCREEN: S DIC("S")="I $D(^(400)),$P(^(400),U,1)>2"
EXPLANATION: Must be a Purchase Agent or Manager
442.14,7 DATE ASSIGNED TO PA 0;6 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 18, 1986
DESCRIPTION:
This is the date this purchase order was assigned to the purchasing agent.
442.14,8 CP FUND STATUS 0;8 SET
'1' FOR INSUFFICIENT FUNDS;
LAST EDITED: OCT 18, 1986
DESCRIPTION:
This is the Control Point Fund status.
442.14,9 TYPE OF REQUEST 0;9 SET
'1' FOR UNPOSTED;
'2' FOR POSTED;
'3' FOR SERVICE;
'4' FOR BULK SALE;
'5' FOR NX POSTED;
LAST EDITED: MAR 24, 1987
DESCRIPTION:
This is the type of request.
442.14,10 SOURCE OF REQUEST 0;10 SET
'1' FOR VA STOCK;
'2' FOR GSA STOCK;
'3' FOR EXCESS;
'4' FOR NOT AVAILABLE FROM ANY OF THESE SOURCES;
LAST EDITED: MAR 24, 1987
DESCRIPTION:
This is the source of this purchase order.
442.14,11 INVENTORY/DISTRIBUTION POINT 0;11 POINTER TO GENERIC INVENTORY FILE (#445)
LAST EDITED: AUG 11, 1987
HELP-PROMPT: If the request was made for a service using the Generic Inventory/Distribution package, the name
of the Inventory point that made the request should be entered here.
DESCRIPTION:
This is the inventory/distribution point for this purchase order.
CROSS-REFERENCE: 442^G
1)= S ^PRC(442,"G",$E(X,1,30),DA(1),DA)=""
2)= K ^PRC(442,"G",$E(X,1,30),DA(1),DA)
442,.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.
442,.07 PRIMARY 2237 0;12 POINTER TO CONTROL POINT ACTIVITY FILE (#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
442,.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.
442,.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.
442,.1 P.O. DATE 1;15 DATE (Required)
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.
442,.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
442,.25 LOCAL PROCUREMENT REASON CODE 1;19 POINTER TO LOCAL PROCUREMENT REASON CODES FILE (#443.8) (Required)
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 D
IU=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
442,.3 EXPENDABLE/NONEXPENDABLE 1;18 SET (Required)
'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.
442,.5 SUPPLY STATUS 7;1 POINTER TO PURCHASE ORDER STATUS FILE (#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.
442,.6 PARTIAL 11;0 DATE Multiple #442.11
DESCRIPTION:
This is the information used for a partial order.
IDENTIFIED BY: FINAL(#8)
442.11,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 04, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the number of this partial.
442.11,.01 DATE 0;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 20, 1986
DESCRIPTION:
This is the date of this partial.
442.11,.05 SCHEDULED DELIVERY DATE 1;8 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^PRC(442,DA(1),0),U,1)]"" K:'$O(^PRC(442.8,"AF",$P(^(0),
U,1),X,0)) X
LAST EDITED: JAN 25, 1990
HELP-PROMPT: If this order has been set up with a multiple delivery date/location schedule, enter the SCHEDULED
(not the actual) delivery date for this partial.
DESCRIPTION:
This is the date scheduled for delivery of the partial order.
EXECUTABLE HELP:D DSPD^PRCHREC4
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.11,1 SUBACCOUNT1 0;2 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: MAY 02, 1985
DESCRIPTION:
This is the first sub-account on this partial, if applicable.
442.11,2 SUBAMOUNT1 0;3 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999
DESCRIPTION:
This is the amount charged to the first sub-account.
442.11,3 SUBACCOUNT2 0;4 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: MAY 02, 1985
DESCRIPTION:
This is the second sub-account on this partial, if applicable.
442.11,4 SUBAMOUNT2 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999
DESCRIPTION:
This is the amount charged to the second sub-account.
442.11,5 PROCESSED BY FISCAL? 0;6 SET
'Y' FOR YES;
LAST EDITED: NOV 26, 1985
DESCRIPTION:
This indicates whether or not the transaction has been processed by Fiscal.
442.11,6 WAREHOUSE APPROVED BY 0;7 POINTER TO NEW PERSON FILE (#200) (Required)
INPUT TRANSFORM:S DIC("S")="I $D(^(400)),$P(^(400),U,1)=1!($P(^(400),U,1)=4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 18, 1992
DESCRIPTION:
This is the warehouse employee who approved the transaction.
SCREEN: S DIC("S")="I $D(^(400)),$P(^(400),U,1)=1!($P(^(400),U,1)=4)"
EXPLANATION: Must be a Warehouse Person or Manager
442.11,7 VALIDATION CODE 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM:S Y="/ES/"_$$DECODE^PRCHES1(D0,D1)
LAST EDITED: DEC 09, 1992
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
This is the electronic signature of the approving official.
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
442.11,7.5 VALIDATION VERSION 1;9 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:
Version of validation of ESIG
442.11,7.7 ESIG CODE 1;10 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:
Encoded value used by IFCAP security utilities when confirming the integrity of this record.
442.11,8 FINAL 0;9 SET
'F' FOR FINAL;
LAST EDITED: SEP 06, 1986
DESCRIPTION:
This indicates that the final delivery has been made.
442.11,9 OVERAGE 0;10 SET
'Y' FOR YES;
LAST EDITED: NOV 24, 1986
DESCRIPTION:
This indicates that there was a delivery overage.
442.11,10 WAREHOUSE DATE/TIME SIGNED 0;11 DATE
VALIDATION DATE/TIME
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 09, 1992
DESCRIPTION:
This is the date/time the warehouse signed off on the order.
442.11,11 TOTAL AMOUNT 0;12 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999999)!(X<0) X
LAST EDITED: FEB 11, 1987
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 99999999
DESCRIPTION:
This is the total amount of the partial delivery.
442.11,12 DISCOUNT PERCENT/DAYS 0;13 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<3)!'(X?.N.".".N1"%".N.L) X
LAST EDITED: FEB 14, 1987
HELP-PROMPT: Enter the Prompt Payment in the following format: 2.24%30
DESCRIPTION:
This is the discount percent/days.
442.11,13 LINECOUNT 0;14 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 26, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
DESCRIPTION:
This is the line item count of the partial.
442.11,14 RECEIVED BY (PPM OR DELV.PT.) 0;15 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 13, 1992
HELP-PROMPT: Name of the person who signed for the delivery either at the delivery point if it is automated, or
the P.A. who verifies the signed delivery document.
DESCRIPTION: This is the name of the person who signed for the delivery or the purchasing agent who verifies the
signed delivery document.
442.11,15 RECEIVED BY VALIDATION CODE 0;16 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM:S Y="/ES/"_$$DECODE^PRCHES2(D0,D1)
LAST EDITED: DEC 09, 1992
HELP-PROMPT: Electronic signature of the person who received the supplies, at the delivery point.
DESCRIPTION:
This is the electronic signature of the person who receives the supplies at the delivery point.
DELETE AUTHORITY: ^
WRITE AUTHORITY:^
UNEDITABLE
442.11,15.5 RCVD BY VALIDATION VERSION 1;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:
Version of validation of ESIG
442.11,15.7 RCVD BY ESIG CODE 1;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:
Encoded value used by IFCAP security utilities when confirming the integrity of this record.
442.11,15.8 RCVD BY VALIDATION DATE/TIME 1;15 DATE (Required)
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 09, 1992
DESCRIPTION:
Date/time record was validated
442.11,16 DATE RECEIVED (AT DELV.PT.) 0;17 DATE
INPUT TRANSFORM:S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUL 02, 1987
HELP-PROMPT: Date/Time that supplies were received at the delivery point.
DESCRIPTION:
This is the date/time that supplies were received at the delivery point.
442.11,17 RECEIVED BY (AT DELIVERY PT.) 0;18 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 13, 1992
HELP-PROMPT: For delivery points with automated receiving, the name of the person who signed for a delivery.
DESCRIPTION:
This is the name of the person who signed for the delivery at the delivery point.
442.11,18 RECV.REPORT TRANS.TO AUSTIN 0;19 FREE TEXT
INPUT TRANSFORM:S DIC="^PRCF(421.2,",DIC(0)="QEM",DIC("S")="I $P(^(0),""-"",2)=""RR""" D ^DIC K DIC S X=$P(Y,"^",2)
K:Y=-1 X
LAST EDITED: JUN 21, 1988
HELP-PROMPT: Enter Station Mailman Message Number Format: Station no.-"RR"-P.O.No.-Partial No. ex:
662-RR-C85003-2
DESCRIPTION:
This is the Station MailMan Message Number format.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.11,19 LOG BATCH NO.(RECEIVING) 1;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>20!($L(X)<9) X
LAST EDITED: MAR 14, 1989
HELP-PROMPT: Created automatically when new LOG code sheets for receiving are generated. Made up of PURCHASE
ORDER NUMBER concatenated with partial as follows: Station No._"-"_P.O.No._"."_Partial No.
DESCRIPTION: This is the LOG batch number for receiving. The field is set automatically when receiving is
entered, and turned off after Personal Property Management generates code sheets.
442.11,19.2 LOG RR CODE SHEETS DONE? 1;6 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAY 17, 1991
HELP-PROMPT: Set automatically when receiving is entered, turned off after PPM generates receiving code sheets
(LOG/GSA/DLA).
DESCRIPTION: Set automatically when receiving is entered, and turned off after Personal Property Management
generates receiving code sheets (LOG/GSA/DLA).
CROSS-REFERENCE:442^AF^MUMPS
1)= K:X'="N" ^PRC(442,"AF","N",DA(1),DA) I X="N" S ^PRC(442,"AF","N",DA(1),DA)=""
2)= K ^PRC(442,"AF","N",DA(1),DA)
This X-REF keeps track of all PARTIAL receipts that have not had any LOG code sheet created for
them.
SET will remove this X-REF when this field's data value is not "N". SET will only create the X-REF
when this field's data value is "N".
KILL will just remove the "N" valued X-REF for the entry.
442.11,19.3 LOG CODE SHEETS SENT BY 1;3 POINTER TO NEW PERSON FILE (#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 marked the LOG Receiving code sheets for transmission (signed them).
DESCRIPTION:
This is the person who sent the code sheet.
SCREEN: S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))"
EXPLANATION: Only a PPM Clerk or Manager may sign LOG code sheets
442.11,19.4 LOG CODE SH. VALIDATION CODE 1;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM:S Y="/ES/"_$$DECODE^PRCHES3(D0,D1)
LAST EDITED: DEC 09, 1992
HELP-PROMPT: Electronic Signature of PPM Clerk who created and signed LOG code sheets for Receiving. ANSWER
MUST 2-30 CHARACTERS IN LENGTH.
DESCRIPTION:
This is the electronic signature of the person who sent the code sheet.
442.11,19.5 DATE SIGNED 1;5 DATE
VALIDATION DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 09, 1992
HELP-PROMPT: Date/Time LOG Receiving code sheets were signed by PPM clerk (marked for transmission).
DESCRIPTION:
This is the date the code sheet was signed.
442.11,19.6 RECV.CODE SHEET NO.(DEPOT) 1;7 POINTER TO CALM/LOG CODE SHEET FILE (#423)
LAST EDITED: MAY 22, 1989
HELP-PROMPT: Pointer to CALM/LOG code sheet file, to indicate that LOG code sheet has been sent for release of
DEPOT receiving (which requires only 1 code sheet for entire receipt)
DESCRIPTION: This is the pointer to the CALM/LOG code sheet file, to indicate that a LOG code sheet has been
sent for release of DEPOT receiving.
442.11,19.7 LCS VALIDATION VERSION 1;13 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:
Version of validation of ESIG
442.11,19.8 LCS ESIG CODE 1;14 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:
Encoded value used by IFCAP security utilities when confirming the integrity of this record.
442.11,20 DIETETIC COST PERIOD 1;2 SET
'1' FOR First Report;
'2' FOR Second Report;
'N' FOR No Report;
LAST EDITED: APR 03, 1989
HELP-PROMPT: Enter Dietetics Cost Period for Reporting. Should be 1 for items received between the 1st and 15th
of the month, 2 for items received after the 15th.
DESCRIPTION: This is the Dietetic Cost Period for reporting, which is 1 for items received between the 1st and
15th of the month, and 2 for items received after the 15th.
442.11,21 ORIGINAL PARTIAL 1;16 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 17, 1994
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
This is the original partial value entered before doing the adjustment voucher.
442.11,22 FMS BATCH SEQUENCE NUMBER 0;20 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 16, 1994
HELP-PROMPT: For modification partials, enter a number between 1 and 999
DESCRIPTION: This field contains the sequential number portion of the batch number which appears in Segment #1
of Receiving Report records if the Partial is an Modification document. The batch number consists
of the following: 3-digit station # plus 3-digit (padded if necessary) sequential number. This
sequential number rolls around from 999 back to 1, if necessary. This batch number is used by FMS
during processing to screen out duplicate submissions.
442.11,23 ACCOUNTING PERIOD MONTH/YEAR 1;17 DATE
INPUT TRANSFORM:S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) K:$E(X,4,5)<1 X S:$D(X) X=$E(X,1,5)_"00"
LAST EDITED: JAN 30, 1995
HELP-PROMPT: Enter Calendar Month and Year of the Accounting Period (i.e. 10/94 for Oct 1994)
DESCRIPTION: For ease of data entry, this field stores the Calendar Month and Year in which this receiver should
be processed. During transmission to IFRR/INRR and FMS, this value is converted to the Fiscal Year
and Sequence Number of that month within that Fiscal Year before being placed in the transmission
record. (i.e. Oct 1994 is converted to 011995) Note: To be properly processed, when this receiver
is sent, the value of this field must be an open accounting period.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.11,24 ADJUSTMENT/AMENDMENT NUMBER 0;21 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 03, 2001
HELP-PROMPT: This field is populated when an adjustment/amendment is done via a VISTA option. Please do not
manually enter.
DESCRIPTION:
Adjustment or Amendment number of PO.
442,.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.
442,.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.
442,1 FCP 0;3 FREE TEXT (Required)
Fund Control Point
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("S
ITE")_",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.
442,1.4 APPROPRIATION 0;4 FREE TEXT (Required)
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
442,2 COST CENTER 0;5 FREE TEXT (Required)
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
442,2.4 OBLIGATION DATA 10;0 Multiple #442.09 (Add New Entry without Asking)
DESCRIPTION:
This is the funds obligation data.
442.09,.01 TT/DATE/REF 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>45!($L(X)<1) X
LAST EDITED: OCT 16, 1989
HELP-PROMPT: Contains CALM trx.status code_"."_CALM date_"."_6 char.ref.no._"."_external date/time (EX.:
921.00.063089.A90065.JUN 30,1989@10:08:05) Answer must be 1-45 characters in length.
DESCRIPTION:
This is the transaction status code, date and time, and reference number for this transaction.
442.09,1 OBLIGATED BY 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 16, 1992
DESCRIPTION:
This is the name of the person obligating the funds.
442.09,2 TRANSACTION AMOUNT 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<-99999999999)!(X?.E1"."3N.N) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN -99999999999 AND 9999999999
DESCRIPTION:
This is the transaction amount.
442.09,3 CODE SHEET NUMBER 0;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X
LAST EDITED: JUN 02, 1994
HELP-PROMPT: ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
DESCRIPTION:
This is the code sheet number.
CROSS-REFERENCE: 442^AJ
1)= S ^PRC(442,"AJ",$E(X,1,30),DA(1),DA)=""
2)= K ^PRC(442,"AJ",$E(X,1,30),DA(1),DA)
442.09,4 VALIDATION CODE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
OUTPUT TRANSFORM: S Y="/ES/"_$$DECODE^PRCHES4(D0,D1)
LAST EDITED: DEC 09, 1992
HELP-PROMPT: ANSWER MUST BE 3-50 CHARACTERS IN LENGTH
DESCRIPTION:
This is the electronic signature of the person approving the obligation.
UNEDITABLE
442.09,4.5 VALIDATION VERSION 0;7 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:
Version of validation of ESIG
442.09,4.7 ESIG CODE 0;8 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:
Encoded value used by IFCAP security utilities when confirming the integrity of this record.
442.09,5 DATE SIGNED 0;6 DATE
VALIDATION DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 09, 1992
DESCRIPTION:
This is the date this obligation was signed.
442.09,6 GECS IEN 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUL 21, 1994
HELP-PROMPT: Type a Number between 1 and 999999999, 0 Decimal Digits
DESCRIPTION:
This is the Generic Code Sheet's internal entry number.
442.09,7 AMENDMENT NUMBER 0;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 07, 1994
HELP-PROMPT: Enter the AMENDMENT NUMBER that created this OBLIGATION multiple.
DESCRIPTION:
This field preserves the relationship between the AMENDMENT and the OBLIGATION DATA entry.
TECHNICAL DESCR: This field is the internal number of the AMENDMENT that caused this OBLIGATION DATA multiple to
be created.
442.09,8 1358 ADJUSTMENT 0;11 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
LAST EDITED: SEP 09, 1994
DESCRIPTION:
This field points to the entry in file 410 that caused this obligation data record to be created.
TECHNICAL DESCR:
This field contains the link back to the 1358 adjustment record in file 410.
442.09,9 OBLIGATION PROCESSING DATE 0;12 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 07, 1995
DESCRIPTION: The Obligation Processing Date is the transaction date that is sent to FMS on obligated
documents. It is the date that is entered by the user at obligation and will be used by FMS to
determine which accounting period will be affected.
442.09,10 ACCOUNTING PERIOD 0;13 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3201200X) X I $D(X) K:$E(X,4,5)<1 X S:$D(X) X=$E(X,1,5)_"00"
LAST EDITED: AUG 16, 1995
HELP-PROMPT: Enter calendar month and year of Accounting Period (i.e. 10/94 for Oct 1994)
DESCRIPTION: Enter the calendar month and year of the accounting period you would like this obligation
document transaction to affect in FMS. Note: For the obligation document to be accepted by FMS,
the value must be an Accounting Period which is open at the time of receipt.
TECHNICAL DESCR: For ease of data entry, this field stores calendar month and calendar year . During transmission
to FMS, this value is converted to Fiscal Year and the Sequence number of that month within that
Fiscal Year before being placed in the transmission record. (i.e. Oct 1994 is converted to
fiscal year 95 and month 01.)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442,3 SUBACCOUNT1 0;6 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: MAY 02, 1985
DESCRIPTION:
This is the first subaccount of the transaction, if applicable.
442,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.
442,4 SUBACCOUNT2 0;8 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: MAY 02, 1985
DESCRIPTION:
This is the second subaccount on this transaction, if applicable.
442,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.
442,5 VENDOR 1;1 POINTER TO VENDOR FILE (#440) (Required)
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 ite
ms 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.
442,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.
442,5.2 REQUESTING SERVICE 1;2 POINTER TO SERVICE/SECTION FILE (#49) (Required)
LAST EDITED: MAR 19, 1985
DESCRIPTION:
This is the requesting Service.
442,5.3 DIRECT DELIVERY PATIENT 1;12 POINTER TO DIRECT DELIVERY PATIENTS FILE (#440.2)
LAST EDITED: OCT 12, 1985
DESCRIPTION:
This indicates if this is a direct delivery to a patient.
442,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
442,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.
442,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.
442,6 VERBAL PURCHASE ORDER (Y/N) 1;4 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 16, 1985
DESCRIPTION:
YES indicates that this is a verbal purchase order.
442,6.2 CONFIRMATION COPY (Y/N) 1;5 SET (Required)
'Y' FOR YES;
'N' FOR NO;
DESCRIPTION:
YES indicates that this is a confirmation copy.
442,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.
442,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.
442,7 DELIVERY DATE 0;10 DATE (Required)
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:"M
issing P.O. DATE",X9999999.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.
442,8 SOURCE CODE 1;7 POINTER TO SOURCE CODE FILE (#420.8) (Required)
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
442,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.
442,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.
442,8.3 PURCHASE METHOD 14;0 POINTER Multiple #442.12 (Add New Entry without Asking)
DESCRIPTION:
This is the purchase method.
442.12,.01 PURCHASE METHOD 0;1 POINTER TO PURCHASE AUTHORITY FILE (#442.4) (Required) (Multiply asked)
LAST EDITED: JUL 11, 1986
DESCRIPTION:
This is the purchase method.
CROSS-REFERENCE: 442.12^B
1)= S ^PRC(442,DA(1),14,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(1),14,"B",$E(X,1,30),DA)
442,9.2 PROMPT PAYMENT TERMS 5;0 Multiple #442.06 (Add New Entry without Asking)
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)
442.06,.01 PROMPT PAYMENT PERCENT 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:+X'=X&(X'="NET") X I $D(X),+X=X K:X?.E1"."3N.N!(X<.01)!(X>99) X
LAST EDITED: MAY 13, 1992
HELP-PROMPT: Enter 'NET' or a number from .01 to 99 with up to two decimal places (ie 2 for two percent).
DESCRIPTION:
This is the prompt payment percent.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.06,1 DAYS (TERM) 0;2 NUMBER
INPUT TRANSFORM:K:X>60!(X<1)!(X?.E1"."1N.N) X I $D(X),+X'=X K:X'?.N2A X Q:'$D(X) S Z0=$E(X,$L(X)-1,$L(X)),X=$E(X,1
,$L(X)-2)_$S("STst"[Z0:"st","NDnd"[Z0:"nd","RDrd"[Z0:"rd","THth"[Z0:"th",1:"ZZZZZ") K:$L(X)>4 X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 60, YOU MAY FOLLOW THE NUMBER BY "st","nd","rd", OR "th" TO
INDICATE A DATE
DESCRIPTION:
This is the term in days for prompt payment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.06,2 CONTRACT # 0;3 FREE TEXT
INPUT TRANSFORM:Q:X="ALL" K:$L(X)>19!($L(X)<3)!('$D(^PRC(442,DA(1),2,"AC",X))) X I $D(X) D TERM^PRCHDIS
LAST EDITED: APR 30, 1985
HELP-PROMPT: ENTER AN EXISTING CONTRACT
DESCRIPTION:
This is the contract for the prompt payment terms.
EXECUTABLE HELP:W "CHOOSE FROM: " S Z0=0 F I=0:0 S Z0=$O(^PRC(442,D0,2,"AC",Z0)) Q:Z0<0!(Z0="") W !," ",Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.06,3 ASTR. 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>3!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains internal program code that controls printed output.
442,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
442,13.05 EST. SHIPPING BOC 23;1 FREE TEXT (Required)
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^PRCHN
PO7
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
442,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.
442,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.
442,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.
442,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.
442,14 DISCOUNT 3;0 Multiple #442.03 (Add New Entry without Asking)
DESCRIPTION:
This is the discount for this order.
442.03,.01 DISCOUNT ITEM 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<1) X I $D(X) D ^PRCHDIS
LAST EDITED: JUL 07, 1994
HELP-PROMPT: Enter the line item numbers as: 1,2,3,4 or 1:4 or enter a 'Q' for a quantity discount
DESCRIPTION:
This is the number of the discount item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^442^15
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA 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.03,.01,1,1,1.1) X ^DD(442.03,.01,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(1),DIV(0)=D0,D1=DA 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.03,.01,1,1,2.1) X ^DD(442.03,.01,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
442.03,1 PERCENT/DOLLAR AMOUNT 0;2 NUMBER (Required)
INPUT TRANSFORM:S X=$TR(X,",","") K:$E(X,1)="$"&(X?.E1"."3N.N)!($E(X,1)="$"&(($P(X,"$",2)<.01)!($P(X,"$",2)>999999.
99))) X Q:'$D(X) Q:$E(X,1)="$" S X=+X K:X>99.99!(X<.10)!(X?.E1"."3N.N) X
LAST EDITED: JUL 18, 1988
HELP-PROMPT: Enter a number between .1 and 99.99 for a percent discount or enter '$' and a number from .01 to
999999.99 for a dollar discount.
DESCRIPTION:
This is the percent/dollar amount of the discount item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.03,2 DISCOUNT AMOUNT 0;3 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
LAST EDITED: SEP 26, 1989
HELP-PROMPT: Calculated by routine for entering/editing a P.O. Type a Dollar Amount between 0 and 9999.99, 2
Decimal Digits
DESCRIPTION:
Amount of discount for ITEM
442.03,3 ITEM COUNT 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 13, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the item count for this discount.
442.03,4 CONTRACT # 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>19!($L(X)<7) X
HELP-PROMPT: ANSWER MUST BE 7-15 CHARACTERS IN LENGTH
DESCRIPTION:
This is the contract number for this discount.
442.03,5 LINE ITEM 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 05, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the line item number for this discount.
442,15 LINE ITEM COUNT 0;14 NUMBER (Required)
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
442,16 PA/PPM/AUTHORIZED BUYER 1;10 POINTER TO NEW PERSON FILE (#200) (Required)
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 B
uyer or Manager for P.O.'s.
442,16.5 VALIDATION CODE 12;2 FREE TEXT (Required)
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
442,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.
442,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.
442,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
442,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.
442,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.
442,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.
442,18.7 TYPE OF SPECIAL HANDLING 12;14 POINTER TO TYPE OF SPECIAL HANDLING FILE (#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.
442,19 AGENT ASSIGNED P.O. 12;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 21, 1992
DESCRIPTION:
This is the agent assigned to this purchase order.
UNEDITABLE
442,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.
442,20 COMMENTS 4;0 WORD-PROCESSING #442.04
DESCRIPTION:
These are comments about this purchase order.
DESCRIPTION:
General comments about P.O./Req.
442,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,2
1,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.
442,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.
442,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.
442,24 ADMINISTRATIVE CERTIFICATIONS 15;0 POINTER Multiple #442.15
DESCRIPTION:
Theses are the administrative certifications for this purchase order.
IDENTIFIED BY:
"Z1": W " "
442.15,.01 ADMINISTRATIVE CERTIFICATIONS 0;1 POINTER TO ADMINISTRATIVE CERTIFICATIONS FILE (#442.7) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,1)<9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 31, 1987
DESCRIPTION:
These are the administrative certifications for this purchase order.
SCREEN: S DIC("S")="I $P(^(0),U,1)<9999"
EXPLANATION: NUMBER MUST BE LESS THAN 9999
CROSS-REFERENCE: 442.15^B
1)= S ^PRC(442,DA(1),15,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(1),15,"B",$E(X,1,30),DA)
442.15,1 DESCRIPTION LINE COUNT 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 21, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the number of lines in the description.
442,25 REMARKS 16;0 WORD-PROCESSING #442.025 (NOWRAP)
DESCRIPTION:
This is the remarks field.
LAST EDITED: SEP 21, 1987
DESCRIPTION:
Remarks about P.O./Req.
442,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'.
442,27 OLD PO RECORD 23;3 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
LAST EDITED: MAR 30, 1994
DESCRIPTION:
It is a pointer to an old purchase order record number.
442,28 NEW PO RECORD 23;4 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
LAST EDITED: MAR 30, 1994
DESCRIPTION:
It is a pointer to a new purchase order record number.
442,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.
442,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.
442,31 SUBSTATION 23;7 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#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
442,35 AMOUNT 9;0 Multiple #442.1 (Add New Entry without Asking)
DESCRIPTION:
This is the amount of the purchase order/partial.
442.1,.01 AMOUNT 0;1 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999999)!(X<0) X
LAST EDITED: NOV 30, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999.99
DESCRIPTION:
This is the amount of the purchase order/partial.
CROSS-REFERENCE: ^^TRIGGER^442^91
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,15
) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(442.1,.01,1,1,1.4)
1.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,14,99)) S DIH=DIH_
U" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=91
D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"") S X=$P(Y(1),U,15
) S DIU=X K Y S X=DIV S X=DIU-DIV X ^DD(442.1,.01,1,1,2.4)
2.4)= S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,14,99)) S DIH=DIH_
U" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"":U_%,1:""),DIH=442,DIG=91
D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= TOTAL AMOUNT+AMOUNT
DELETE VALUE)= TOTAL AMOUNT-AMOUNT
FIELD)= TOTAL AMOUNT
442.1,1 TYPE CODE 0;2 POINTER TO CODE INDEX FILE (#420.6) (Required)
INPUT TRANSFORM:S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCH) D EN7^PRCHNPO2:'PRCHDT,PROC^PRCHFPDS:PRCHDT" D
^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 07, 1993
DESCRIPTION:
This is the procurement method/type of business for FY89.
SCREEN: S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCH) D EN7^PRCHNPO2:'PRCHDT,PROC^PRCHFPDS:PRCHDT"
EXPLANATION: MUST BE A TYPE CODE
UNEDITABLE
442.1,1.1 COMP. STATUS/BUSINESS 0;4 POINTER TO CODE INDEX FILE (#420.6) (Required)
INPUT TRANSFORM:S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")) D COMP2^PRCHFPDS" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 15, 1988
DESCRIPTION:
This is the competitive status.
SCREEN: S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")) D COMP2^PRCHFPDS"
EXPLANATION: Enter Competitive Status only
442.1,1.2 PREF. PROGRAM 0;5 POINTER TO CODE INDEX FILE (#420.6) (Required)
INPUT TRANSFORM:S DIC("S")="I $D(PRCHN(""MB"")),$D(PRCHDT) D PREF2^PRCHFPDS" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 11, 1988
DESCRIPTION:
This is the preference program of the vendor for FPDS reporting.
SCREEN: S DIC("S")="I $D(PRCHN(""MB"")),$D(PRCHDT) D PREF2^PRCHFPDS"
EXPLANATION: Only the listed codes are allowed
442.1,2 CONTRACT # 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>19!($L(X)<3) X
LAST EDITED: OCT 11, 1985
HELP-PROMPT: ANSWER MUST BE 3-17 CHARACTERS IN LENGTH
DESCRIPTION:
This is the contract number for this purchase order.
442.1,3 BREAKOUT CODE 1;0 POINTER Multiple #442.16 (Add New Entry without Asking)
DESCRIPTION:
This is the breakout code for FPDS reporting.
442.16,.01 BREAKOUT CODE 0;1 POINTER TO CODE INDEX FILE (#420.6) (Required) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCHN(""LSA"")),$D(PRCHN(""TC"")),""GHJKMNOWVY""[$P
(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: SEP 15, 1988
DESCRIPTION:
This is the breakout code from FY88 and the socioeconomic group code for FY89.
SCREEN: S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCHN(""LSA"")),$D(PRCHN(""TC"")),""GHJKMNOWVY""[$P(^
PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2"
EXPLANATION: MUST BE A BREAKOUT CODE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:442.16^B
1)= S ^PRC(442,DA(2),9,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(2),9,DA(1),1,"B",$E(X,1,30),DA)
442,40 ITEM 2;0 Multiple #442.01 (Add New Entry without Asking)
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)
442.01,.01 LINE ITEM NUMBER 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 04, 2005
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the number of the line item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^442^15
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA 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.01,.01,1,1,1.1) X ^DD(442.01,.01,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(1),DIV(0)=D0,D1=DA 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.01,.01,1,1,2.1) X ^DD(442.01,.01,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
CROSS-REFERENCE:442.01^B
1)= S ^PRC(442,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE:442.01^C^MUMPS
1)= I ('$D(^PRC(442,DA(1),2,DA,2)))!($P(^(0),"^",2)>$S($D(^(2)):$P(^(2),"^",8),1:0)) S ^PRC(442,DA(
1),2,"C",X,DA)=""
2)= K ^PRC(442,DA(1),2,"C",X,DA)
This X-REF is used to control receipt of items by setting this "C" X-REF when the QUANTITY field
value is more than the QUANTITY PREVIOUSLY RECEIVED field value. When this X-REF is used, only
those LINE ITEM NUMBERs that have outstanding due-ins will be able to be selected.
The KILL section will just remove this X-REF.
CROSS-REFERENCE:442.01^AZAPSCH^MUMPS
1)= Q
2)= N DAA,DS,DIK,PR S DAA=DA N DA S PR=$G(PRCHPONO,$P(^PRC(442,D0,0),U)),DS="",DIK="^PRC(442.8," F
S DS=$O(^PRC(442.8,"AC",PR,DAA,DS)) Q:DS="" S DA=DS D ^DIK
To delete entries in file 442.8 that correspond to an item in field #40 in file #442 that is being
deleted.
RECORD INDEXES: AK (#602)
442.01,1 DESCRIPTION 1;0 WORD-PROCESSING #442.05
DESCRIPTION:
This is a description of the item.
LAST EDITED: FEB 25, 1992
DESCRIPTION:
Description of ITEM
442.01,1.5 ITEM MASTER FILE NO. 0;5 POINTER TO ITEM MASTER FILE (#441)
INPUT TRANSFORM:S DIC("S")="I 1",DIC(0)=DIC(0)_"O" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D EN5^PRCHNPO5
LAST EDITED: JUN 15, 1994
DESCRIPTION:
This is the Item Master number for the items on the purchase order/requisition.
SCREEN: S DIC("S")="I 1",DIC(0)=DIC(0)_"O"
EXPLANATION: Enter Item Number
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:442.01^AD^MUMPS
1)= Q:'$D(PRC("SITE"))!($P(^PRC(442,DA(1),0),U,3)="")!($P(^(1),U,1)="") S PRCHCCP=$P($P(^(0),U,3),
" ",1),PRCHCV=$P(^(1),U,1),PRCHCPD=+$P(^(1),U,15),PRCHCI=X,PRCHCPO=DA(1) D EN3^PRCHCRD
2)= Q:'$D(PRC("SITE"))!($P(^PRC(442,DA(1),0),U,3)="")!($P(^(1),U,1)="") S PRCHCCP=$P($P(^(0),U,3),
" ",1),PRCHCPD=+$P(^(1),U,15),PRCHCI=X,PRCHCPO=DA(1) D EN4^PRCHCRD
This X-REF does a lot. It copies the item information from the ITEM MASTER file to the PROCUREMENT
& ACCOUNTING TRANSACTION file into the item multiple. Also the internal PO record number is stored
into the ITEM MASTER file under the SITE joined to the FCP number.
Here is a list of the fields in the ITEM MASTER file and the fields in the PROCUREMENT & ACCOUNTING
TRANSACTION file that the data is copied into.
File 441 File 442
VENDOR STOCK # VENDOR STOCK NUMBER
NDC NATIONAL DRUG CODE
UNIT COST ACTUAL UNIT COST
UNIT OF PURCHASE UNIT OF PURCHASE
PACKAGING MULTIPLE PACKAGING MULTIPLE
MAXIMUM ORDER MAXIMUM ORDER
UNIT CONVERSION FACTOR UNIT CONVERSION FACTOR
SKU SKU
NSN NSN
FSC FEDERAL SUPPLY CLASSIFICATION
BOC BOC
CONTRACT NUMBER CONTRACT #
QUANTITY(442)*UNIT COST TOTAL COST
DESCRIPTION MULTIPLE DESCRIPTION MULTIPLE If NDC has a value the last line is: NDC:_NDC
If the CONTRACT # field in file 442 was set the "AC" X-REF in the ITEM multiple is created for the
CONTRACT #. Also the file 441 "AC" X-REF for this PO is set.
KILL will remove from the SITE_+FCP multiple the PO internal entry number from file 442. Also the
file 441 "AC" X-REF for this PO is killed.
CROSS-REFERENCE:442.01^AE
1)= S ^PRC(442,DA(1),2,"AE",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(1),2,"AE",$E(X,1,30),DA)
This X-REF is just a non-lookup list of each ITEM MASTER file entry within all ITEM multiples.
This X-REF only extends over one PO file entry.
RECORD INDEXES: AK (#602)
442.01,2 QUANTITY 0;2 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
LAST EDITED: FEB 05, 1986
HELP-PROMPT: Enter the quantity (a number from .01 to 999,999 with up to two decimal places)
DESCRIPTION:
This is the quantity of the item ordered.
CROSS-REFERENCE:^^TRIGGER^442.01^15
1)= X ^DD(442.01,2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,
1) S DIU=X K Y X ^DD(442.01,2,1,1,1.1) X ^DD(442.01,2,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,9)*DIV
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^
(0),1:"") S X=$P(Y(1),U,9)]""
1.4)= S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1)
,^(2)=DIV_$S(%]"":U_%,1:""),DIH=442.01,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S
X=$P(Y(1),U,1) S DIU=X K Y S X=DIV S X="" X ^DD(442.01,2,1,1,2.4)
2.4)= S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1)
,^(2)=DIV_$S(%]"":U_%,1:""),DIH=442.01,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= ACTUAL UNIT COST]""
CREATE VALUE)= ACTUAL UNIT COST*QUANTITY
DELETE VALUE)= @
FIELD)= AMOUNT
RECORD INDEXES: AK (#602)
442.01,3 UNIT OF PURCHASE 0;3 POINTER TO UNIT OF ISSUE FILE (#420.5) (Required)
INPUT TRANSFORM:D EN6^PRCHNPO5
LAST EDITED: MAR 01, 1986
DESCRIPTION:
This is the unit of purchase for this item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AK (#602)
442.01,3.1 PACKAGING MULTIPLE 0;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X D:$D(X) EN7^PRCHNPO6
LAST EDITED: MAY 05, 1993
HELP-PROMPT: Enter a number between 1 and 999999. Used to indicate the quantity contained in one unit of
purchase. (Ex. Item comes 10 per box, packaging multiple=10).
DESCRIPTION:
This is the packaging multiple for this item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AK (#602)
442.01,3.2 ITEM DELIVERY POINTS 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAR 06, 1986
HELP-PROMPT: If this item is to be delivered to multiple rooms/persons/sections upon receipt, enter delivery
point and the quantity each should receive.
DESCRIPTION:
This is the cost center for this purchase request.
442.01,3.5 BOC 0;4 FREE TEXT (Required)
INPUT TRANSFORM:N Z0 S Z0=$P(^PRC(442,DA(1),0),"^",5) K:'Z0 X I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X I $D(X) S X=$$SU
PBOC^PRCHNPO7 D EN8^PRCHNPO7
LAST EDITED: JUL 01, 1996
HELP-PROMPT: Please enter the appropriate BOC for this item.
DESCRIPTION:
This is the BOC for this cost center.
EXECUTABLE HELP:N D,Z0,Z1,DIC S Z0=$P(^PRC(442,DA(1),0),"^",5),Z1=$P(^(0),"^",19) K:'Z0 X I $D(X) S X="??",DIC="^
PRCD(420.1,Z0,1,",DIC(0)="E" D:Z1'=2 ^DIC S:Z1=2 X=$$SUPBOC^PRCHNPO7 D:0 EN8^PRCHNPO7
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:442.01^D^MUMPS
1)= S ^PRC(442,DA(1),2,"D",+$P(X," ",1),DA)=""
2)= K ^PRC(442,DA(1),2,"D",+$P(X," ",1),DA)
CROSS-REFERENCE:442.01^AH^MUMPS
1)= S ALN=$P(^PRC(442,DA(1),2,DA,0),"^") S:ALN>0 ^PRC(442,DA(1),2,"AH",+X,ALN,DA)="" K ALN
2)= S ALN=$P(^PRC(442,DA(1),2,DA,0),"^") K:ALN>0 ^PRC(442,DA(1),2,"AH",+X,ALN,DA) K ALN
This x-ref will list all ITEMs with the same BOC together. This will allow for locating all ITEMs
with the same BOC easly.
442.01,3.6 INTERMEDIATE PRODUCT CODE 0;11 POINTER TO INTERMEDIATE PRODUCT FILE (#420.9)
LAST EDITED: MAR 07, 1986
DESCRIPTION:
This is the intermediate product.
442.01,4 CONTRACT/BOA # 2;2 FREE TEXT
INPUT TRANSFORM:D EN8^PRCHNPO5
LAST EDITED: FEB 21, 1997
HELP-PROMPT: Enter a Contract/BOA # (min. 7 chars.) with valid expiration date.
DESCRIPTION:
This is the contract number for this item.
EXECUTABLE HELP:S ZD=D,X="?",Z0=$S($D(^PRC(442,D0,1)):+^(1),1:"") Q:'Z0 D EN10^PRCHNPO5,EN13^PRCHNPO5 S DIC="^PR
C(440,Z0,4,",DIC(0)="QEM" D ^DIC K DIC S DIC=DIE,D=ZD K ZD,Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:442.01^AC
1)= S ^PRC(442,DA(1),2,"AC",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(1),2,"AC",$E(X,1,30),DA)
This X-REF lists all CONTRACT #s within this PO. The X-REF is used only for non-lookup.
442.01,5 ACTUAL UNIT COST 0;9 NUMBER (Required)
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) S X=$TR(X,"nc","NC") K:(X'?1.N)&(X'?.N1".".4N)&(X'?1"N/C")!(X?.E1"."5N.N)!(
X>9999999.9999)!(X<0) X D EN9^PRCHNPO5 I $D(X) W $S(X="N/C":" N/C",1:" $"_$J(X,0,4))
OUTPUT TRANSFORM:S Y=$S(Y="N/C":"N/C",1:"$"_$J(Y,0,4))
LAST EDITED: JUL 05, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999.9999, 4 Decimal Digits or N/C for no charge.
DESCRIPTION:
This is the actual unit cost of this item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^442.01^15
1)= X ^DD(442.01,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,
1) S DIU=X K Y X ^DD(442.01,5,1,1,1.1) X ^DD(442.01,5,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^(0),1:"") S X=DIV*$P(Y(1),U,2)
1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^
(0),1:"") S X=$P(Y(1),U,2)>0
1.4)= S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1)
,^(2)=DIV_$S(%]"":U_%,1:""),DIH=442.01,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S
X=$P(Y(1),U,1) S DIU=X K Y S X=DIV S X="" X ^DD(442.01,5,1,1,2.4)
2.4)= S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1)
,^(2)=DIV_$S(%]"":U_%,1:""),DIH=442.01,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= QUANTITY>0
CREATE VALUE)= ACTUAL UNIT COST*QUANTITY
DELETE VALUE)= @
FIELD)= AMOUNT
RECORD INDEXES: AK (#602)
442.01,5.5 EST. UNIT COST 0;7 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(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 unit cost for the item.
442.01,6 DESCRIPTION LINE COUNT 2;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 21, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the description line count.
442.01,7 DESCRIPT. ASTR. 2;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>3!($L(X)<1) X
LAST EDITED: APR 19, 1985
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains internal program code that controls printed output.
442.01,8 FEDERAL SUPPLY CLASSIFICATION 2;3 POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2) (Required)
FSC/PSC
INPUT TRANSFORM:D EN10^PRCHNPO7
LAST EDITED: AUG 09, 2005
HELP-PROMPT: ANSWER MUST BE 1-24 CHARACTERS IN LENGTH
DESCRIPTION:
This is the Federal Supply Classification for an item, or the Product Service Code for a service.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.01,9 VENDOR STOCK NUMBER 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X I $D(X) D EN12^PRCHNPO5
LAST EDITED: MAR 13, 1989
HELP-PROMPT: Enter the Vendor Stock No. or Catalog no., or other number used by the Vendor to identify this item
(1-30 characters).
DESCRIPTION:
This is the stock number for this item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.01,9.3 NATIONAL DRUG CODE 0;15 FREE TEXT
INPUT TRANSFORM:K:$L(X)>14!($L(X)<11)!'(X?1.6N1"-"1.4N1"-"1.2N) X I $D(X) D EN12^PRCHNPO7
LAST EDITED: OCT 21, 1996
HELP-PROMPT: Enter in following format: 1-6 numeric, 1 dash, 1-4 numeric 1 dash, 1-2 numeric (ex.
123456-1234-12). ANSWER MUST BE 11-14 CHARACTERS IN LENGTH
DESCRIPTION:
This is the National Drug Code for the item, if applicable.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.01,9.4 SKU 0;16 POINTER TO UNIT OF ISSUE FILE (#420.5)
INPUT TRANSFORM:D EN6^PRCHNPO7
LAST EDITED: DEC 08, 1993
HELP-PROMPT: Enter the Stock Keeping Unit for this item.
DESCRIPTION:
SKU number of ITEM
TECHNICAL DESCR:
This field, when entered, is coppied into file 441 at the SKU field. EN6^PRCHNPO7 coppies the
field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.01,9.5 NSN 0;13 FREE TEXT
INPUT TRANSFORM:K:$L(X)>17!($L(X)<16)!'(X?4N1"-"2UN1"-"3UN1"-"4N.UN) X I $D(X) D EN1^PRCHNPO7
LAST EDITED: OCT 18, 1996
HELP-PROMPT: Enter the NSN (National Stock Number) in the following format: 6505-56-A89-1234A (last character is
optional). The 2nd & 3rd segment of NSN can accept alpha or numeric characters. ex 6505-CD-9M1-1234
DESCRIPTION:
This is the National Stock Number for the item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.01,9.6 MAXIMUM ORDER QTY 0;14 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X I $D(X) D EN9^PRCHNPO6
LAST EDITED: OCT 14, 1999
HELP-PROMPT: Type a Number between .01 and 999999, 2 Decimal Digits or leave blank
DESCRIPTION:
This is the maximum order quantity for the item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.01,9.7 UNIT CONVERSION FACTOR 0;17 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X D:$D(X) EN7^PRCHNPO7
LAST EDITED: DEC 08, 1993
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999999. This number is used to convert quantities purchased from
Unit of Purchase to Unit of Issue.
DESCRIPTION:
This is the unit of conversion factor, used to convert a unit of purchase into a unit of issue.
TECHNICAL DESCR:
This field is used in the PHA transaction as the SKU FACTOR field in the IT segment. If both the
SKU field and the UNIT CONVERSION FACTOR field are missing, the SKU field in the IT segment will
use the UNIT OF PURCHASE field, the SKU FACTOR field will get set to one (1) and the UNOT
CONVERSION FACTOR field will not be asked. If the SKU field is entered through the PRCH2138 or
PRCHNREQ input templates and the SKU field has a value in it, the UNIT CONVERSION FACTOR will be
required.
This field is copied into file 441 by EN7^PRCHNPO7.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.01,10 2237 REFERENCE # 0;10 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
LAST EDITED: MAY 14, 1985
DESCRIPTION:
This is the purchase request reference number.
RECORD INDEXES: AK (#602)
442.01,11 QUANTITY PREVIOUSLY RECEIVED 2;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAR 03, 1986
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
DESCRIPTION:
This is the quantity of the item previously received.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the QTY BEING RECEIVED field of the DATE RECEIVED sub-field of the ITEM sub-field of
the PROCUREMENT & ACCOUNTING TRANSACTIONS File
CROSS-REFERENCE:442.01^AF^MUMPS
1)= I $P(^PRC(442,DA(1),2,DA,0),"^",2)'>X K ^PRC(442,DA(1),2,"C",+^(0),DA)
2)= S ^PRC(442,DA(1),2,"C",+^PRC(442,DA(1),2,DA,0),DA)=""
The SET X-REF checks to see if the QUANTITY ordered is not greater than the this field (QUANTITY
PREVIOUSLY RECEIVED). If this is true the "C" X-REF is removed.
The KILL X-REF sets the "C" X-REF with the ^PRC(442,DA(2),2,"C",LINE ITEM NUMBER,DA)
Actually this X-REF is SET and KILLed by the "C" X-REF in the LINE ITEM NUMBER field, field .01 in
the ITEM multiple. The SET and KILL of the "C" X-REF perform the complementary operations that the
SET and KILL parts of this X-REF do.
442.01,12 EDI STATUS CODE 1 2;9 SET
'AC' FOR ITEM ACCEPTED AND SHIPPED;
'AR' FOR ITEM ACCEPTED AND RELEASED FOR SHIPMENT;
'BP' FOR ITEM ACCEPTED, PARTIAL SHIPMENT, BALANCE BACKORDERED;
'IB' FOR ITEM BACKORDERED;
'IH' FOR ITEM ON HOLD;
'IR' FOR ITEM REJECTED;
LAST EDITED: AUG 13, 1991
DESCRIPTION:
First EDI status code for ITEM
442.01,12.5 EDI STATUS QTY 1 2;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 26, 1992
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
First EDI status quantity of ITEM
442.01,13 EDI STATUS CODE 2 2;11 SET
'AC' FOR ITEM ACCEPTED AND SHIPPED;
'AR' FOR ITEM ACCEPTED AND RELEASED FOR SHIPMENT;
'BP' FOR ITEM ACCEPTED, PARTIAL SHIPMENT, BALANCE BACKORDERED;
'IB' FOR ITEM BACKORDERED;
'IH' FOR ITEM ON HOLD;
'IR' FOR ITEM REJECTED;
LAST EDITED: AUG 13, 1991
DESCRIPTION:
Second EDI status code of ITEM
442.01,13.5 EDI STATUS QTY 2 2;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 26, 1992
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
Second EDI status quantity of ITEM
442.01,15 TOTAL COST 2;1 NUMBER (Required)
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X
LAST EDITED: APR 19, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999
DESCRIPTION:
This is the total cost of this item.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the QUANTITY field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS
File
TRIGGERED by the ACTUAL UNIT COST field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING
TRANSACTIONS File
442.01,16 DISCOUNTED AMOUNT 2;6 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
LAST EDITED: APR 19, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
DESCRIPTION:
This is the discounted amount of this item.
442.01,17 OBLIGATED SUBACCOUNT 2;7 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: MAY 02, 1985
DESCRIPTION:
This is the obligated sub-account.
442.01,20 DATE RECEIVED 3;0 DATE Multiple #442.08 (Add New Entry without Asking)
DESCRIPTION:
This is the date the item was received.
442.08,.01 DATE RECEIVED 0;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 30, 1986
DESCRIPTION:
This is the date the item was received.
CROSS-REFERENCE:442.01^AB
1)= S ^PRC(442,DA(2),2,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^PRC(442,DA(2),2,"AB",$E(X,1,30),DA(1),DA)
This X-REF keeps a non-lookup list of all the DATE RECEIVED for each partial receipt of an item
within a PO.
442.08,1 QTY BEING RECEIVED 0;2 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: FEB 05, 1986
HELP-PROMPT: Enter the quantity (a number between .01 and 999,999 with up to two decimal places)
DESCRIPTION:
This is the quantity of the item being received.
CROSS-REFERENCE:^^TRIGGER^442.01^11
1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2
),1:"") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(442.08,1,1,1,1.1) X ^DD(442.08,1,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,8)+DIV
1.4)= S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S
DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(2)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=442.0
1,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2
),1:"") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(442.08,1,1,1,2.1) X ^DD(442.08,1,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),U,8)-DIV
2.4)= S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,7,99)) S
DIH=DIH_U" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(2)=$P(DIH,U,1,7)_U_DIV_$S(%]"":U_%,1:""),DIH=442.0
1,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= QUANTITY PREVIOUSLY+QUANTITY
DELETE VALUE)= QUANTITY PREVIOUSLY-QUANTITY
FIELD)= QUANTITY PREVIOUSLY RECEIVED
442.08,2 AMOUNT 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 99999999
DESCRIPTION:
This is the amount for the quantity being received.
442.08,3 PARTIAL NUMBER 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 01, 1986
HELP-PROMPT:TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the partial shipment number.
CROSS-REFERENCE:442.08^AC
1)= S ^PRC(442,DA(2),2,DA(1),3,"AC",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(2),2,DA(1),3,"AC",$E(X,1,30),DA)
This X-REF is a non-lookup list of all PARTIAL NUMBERs for all receipts within each ITEM for this
PO.
442.08,4 DISCOUNTED AMOUNT 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: MAR 01, 1986
HELP-PROMPT:TYPE A NUMBER BETWEEN 0 AND 99999999
DESCRIPTION:
This is the discounted amount.
442.08,5 RECEIVING CODE SHEET NO. 0;6 POINTER TO CALM/LOG CODE SHEET FILE (#423)
LAST EDITED: MAR 29, 1989
HELP-PROMPT:Pointer to CALM/LOG Code Sheet file (423) for the LOG Receipts code sheet created for the receipt
of this line/item.
DESCRIPTION:
This is the receiving code sheet number.
442.08,6 ADJUSTED QUANTITY RECEIVED 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: NOV 25, 1994
HELP-PROMPT:Type a Number between 0 and 999999, 2 Decimal Digits
DESCRIPTION:
This is the QUANTITY RECEIVED after an adjustment voucher is done on the purchase order.
442.08,7 ADJUSTED AMOUNT 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: AUG 18, 1994
HELP-PROMPT:Type a Number between 0 and 99999999, 0 Decimal Digits
DESCRIPTION:
The dollar amount adjusted after doing an adjustment voucher on the purchase order.
442.01,30 SERIAL NO.(GSA/DLA) 4;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X
LAST EDITED: APR 24, 1989
HELP-PROMPT:Type a Number between 1000 and 9999, 0 Decimal Digits
DESCRIPTION:
This is the serial number (GSA/DLA).
442.01,31 CONSUMER LEVEL 4;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: DEC 10, 1987
HELP-PROMPT:Type a Number between 0 and 9999, 0 Decimal Digits. Used in LOG system. The normal stock level of
this item that the service placing the order normally maintains in their inventory.
DESCRIPTION:This is the normal stock level of this item that the service placing the order normally maintains
in their inventory.
442.01,32 CONSUMER LEVEL OVERRIDE 4;3 SET
'1' FOR OVERRIDE LEVEL;
'A' FOR OVERRIDE LEVEL AND ISSUE MULT.;
LAST EDITED: DEC 10, 1987
HELP-PROMPT:Used in LOG system. Enter '1' if the consumer level (cc 55-58) is to be ignored, 'A' if both the
level and the FIS issue multiple are to be ignored.
DESCRIPTION:Enter '1' to override the normal stock level for the item. Enter 'A' to override both the level
and the FIS issue multiple.
442.01,33 DO NOT SUB 4;4 SET
'1' FOR DO NOT SUB;
LAST EDITED: DEC 10, 1987
HELP-PROMPT:Used by LOG system. Enter '1' if substitution for this item is NOT authorized. If this is
punched, or if the item is marked 'kill when zero', this item will NOT back-order.
DESCRIPTION:This is the field to set the do not substitute indicator. If set, no similar item will be
substituted if the item is not in stock.
442.01,34 DO NOT B/O 4;5 SET
'1' FOR DO NOT B/O;
LAST EDITED: DEC 10, 1987
HELP-PROMPT:Used by LOG system. Enter '1' if backorder is NOT authorized.
DESCRIPTION:This is the field to set the do not backorder indicator. If set, an item will not be backordered
if it is currently not in stock.
442.01,35 BACKORDER CONTROL 4;6 SET
'-' FOR ESTABLISH BACKORDER;
LAST EDITED: DEC 14, 1987
HELP-PROMPT:Enter '-' to establish a backorder (source 1) for LOG code sheets.
DESCRIPTION:
Enter '-' to set a backorder source for LOG code sheets.
442.01,36 SUBSTITUTE CONTROL 4;7 SET
'-' FOR NO SUBSTITUTE;
LAST EDITED: DEC 14, 1987
HELP-PROMPT:Enter '-' if substitution is not authorized for LOG code sheets.
DESCRIPTION:
Enter '-' if substitution is not authorized for LOG code sheets.
442.01,36.3 BACKORDER (EDI) 4;15 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 23, 1991
HELP-PROMPT:If the vendor can backorder then answer YES
DESCRIPTION:
Backorder flag set by EDI for ITEM
442.01,36.6 SUBSTITUTE (EDI) 4;16 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 23, 1991
HELP-PROMPT:If the vendor is allowed to substitute then answer YES.
DESCRIPTION:
User-entered flag to control whether or not vendor is allowed to substitute ITEM
442.01,37 ACQUISITIONS CODE SHEET NO. 4;8 POINTER TO CALM/LOG CODE SHEET FILE (#423)
LAST EDITED: DEC 14, 1987
HELP-PROMPT:Pointer to the CALM/LOG code sheet file (#423) for the LOG Acquisition code sheet created for this
line/item.
DESCRIPTION:
This is the LOG Acquisition code sheet created for this line/item.
442.01,38 GROUP SPLIT CIV 4;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>3!($L(X)<1) X
LAST EDITED: DEC 15, 1987
HELP-PROMPT:ANSWER MUST BE 1-3 CHARACTERS IN LENGTH. (For delivery to more than one location) All items with
the same data in this field will print together on a separate CIV, even though sent in the same
batch.
DESCRIPTION:This is a three character code. All items which share the same code will print together on a
separate CIV.
442.01,39 SOURCE CODE 4;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>1!($L(X)<1) X
LAST EDITED: JAN 14, 1988
HELP-PROMPT:ANSWER MUST BE 1 CHARACTER IN LENGTH
DESCRIPTION:
This is the one character source code.
442.01,39.5 SOURCE DEVIATION 4;14 POINTER TO DLA/LOG CODES FILE (#441.4)
INPUT TRANSFORM:S DIC("S")="I $P(^(0),U,2)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 11, 1989
DESCRIPTION:
This is the source deviation code.
SCREEN: S DIC("S")="I $P(^(0),U,2)=""S"""
EXPLANATION:Select appropriate source deviation code or leave blank.
442.01,40 DRUG TYPE CODE 4;11 SET (Required)
'A' FOR NARCOTIC;
'L' FOR CONTROLLED SUBSTANCE;
'D' FOR OTHER DRUGS;
LAST EDITED: MAR 28, 1989
HELP-PROMPT:Enter Drug Type code to be used on LOG code sheet
DESCRIPTION:This is the set of drug type codes (narcotic, controlled substance, or other) which will appear on
the LOG code sheet.
442.01,41 FOOD GROUP 4;12 SET (Required)
'1' FOR Meat, Fish, Poultry, Eggs & Convenience Entrees;
'2' FOR Milk, Milk Products;
'3' FOR Fruits, Vegetables;
'4' FOR Bread, Flour, Cereal, etc.;
'5' FOR Commercial Nutritional Products, Tube feedings & supplements;
'6' FOR Miscellaneous, Foods;
LAST EDITED: OCT 24, 1989
HELP-PROMPT:Enter Dietetics Food group used on LOG code sheets for Subsistance Items ONLY
DESCRIPTION:This is the food group which will appear on the LOG code sheet. This FCP has been set up for
subsistence items. If this is not correct, use an '^' to exit option and contact your Accountable
Officer.
442.01,42 DIETETIC CONVERSION FACTOR 4;13 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<1) X
LAST EDITED: APR 07, 1989
HELP-PROMPT:Used for Subsistence Items only--needed for LOG code sheets. ANSWER MUST BE 1-5 CHARACTERS IN
LENGTH
DESCRIPTION:
This is the dietetic conversion factor for subsistence items to be used on the LOG code sheet.
442.01,43 410 ITEM NUMBER 2;13 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 15, 1994
DESCRIPTION:
It is a corresponding Line Item's number in File 410.
442.01,44 HAZARDOUS MATERIAL 2;14 SET
'HM' FOR HAZARDOUS MATERIAL;
LAST EDITED: APR 30, 1996
HELP-PROMPT:Select HM if this material is hazardous.
DESCRIPTION:
This is a flag to state if this ITEM is hazardous.
TECHNICAL DESCR:
This field will be filled in if there is a pointer to file 441 entered for this ITEM and if there
is an entry is the same field in file 441. If the user edits this field the entry in file 441 will
also be changed to agree with this field.
CROSS-REFERENCE:442.01^AG^MUMPS
1)= S ZZ=$P($G(^PRC(442,DA(1),2,DA,0)),U,5) Q:ZZ="" S $P(^PRC(441,ZZ,0),U,14)=X K ZZ
2)= S ZZ=$P($G(^PRC(442,DA(1),2,DA,0)),U,5) Q:ZZ="" S $P(^PRC(441,ZZ,0),U,14)="" K ZZ
442.01,45 LOT NUMBER 4;17 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1)!'(X?1.30AN) X
LAST EDITED: APR 26, 1996
HELP-PROMPT:Enter the lot number for this item. Normaly entered if there will be multiple deliveries scheduled
for this item.
DESCRIPTION:
The manufacturers lot number used to request multiple deliveries of an ITEM from the same batch.
442.01,46 SERIAL NUMBER 4;18 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: APR 26, 1996
HELP-PROMPT:Enter the SERIAL NUMBER on the piece of equipment listed in this ITEM.
DESCRIPTION:
This is the SERIAL NUMBER for the piece of equipment listed in this ITEM.
442.01,47 LINE INVENTORY POINT 5;0 POINTER Multiple #442.147
SCREEN: I $P(^(0),U,3)'="S"
EXPLANATION:It is not permissible for secondary inventory points to incur fiscal obligations.
442.147,.01 LINE INVENTORY POINT 0;1 POINTER TO GENERIC INVENTORY FILE (#445) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(^(0)),$P(^(0),U,3)'=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 03, 1999
DESCRIPTION:This order request is on behalf of an entity that wants to maintain a perpetual inventory,
automate their item distribution function, and automatically generate stock replenishment orders
based on inventory needs.
The LINE INVENTORY POINT is the entry (if there is one) in the Generic Inventory (file #445) for
which the items on this line are being ordered.
If certain quantities of this line item are needed for different inventory points, then multiple
entries of LINE INVENTORY POINT should be present and the LINE QUANTITY and LINE DELIVERY fields
of each entry should be populated.
If there is no entry in the LINE INVENTORY POINT field but there is an entry in the PRINCIPAL
INVENTORY POINT field (#4 of file #410) then all line items on this request will be associated
with the PRINCIPAL INVENTORY POINT.
That is, LINE INVENTORY POINT (where it exists) will take precedence over PRINCIPAL INVENTORY
POINT.
Secondary inventory points may not be selected as either PRINCIPAL or LINE INVENTORY POINTS.
SCREEN: S DIC("S")="I $D(^(0)),$P(^(0),U,3)'=""S"""
EXPLANATION:Secondaries not allowed to incur fiscal obligation.
CROSS-REFERENCE:442.147^B
1)= S ^PRC(442,DA(2),2,DA(1),5,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(2),2,DA(1),5,"B",$E(X,1,30),DA)
442.147,1 LINE QUANTITY 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 28, 1999
HELP-PROMPT:Type a Number between 0 and 999999999999, 0 Decimal Digits
DESCRIPTION:The quantity of subject line item that is required in order to replenish subject inventory point.
The sum of the LINE ITEM QUANTITIES must equal the QUANTITY of the ITEM or the transaction will
not be accepted.
442.147,2 LINE DELIVERY 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: MAY 28, 1999
HELP-PROMPT:Answer must be 3-30 characters in length.
DESCRIPTION:Physical location where these items will be stocked in inventory. Receiving personnel will rely
on this field to get material where it needs to be.
442.147,3 QUANTITY RECEIVED TO DATE 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUN 06, 1999
HELP-PROMPT:Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:The quantity thus far received. Should not exceed LINE QUANTITY. Automatically maintained by
DATE RECEIVED sub-file (#442.08).
UNEDITABLE
442.01,48 DM DOC ID 2;15 FREE TEXT
INPUT TRANSFORM:K:$L(X)>16!($L(X)<9) X
LAST EDITED: MAR 04, 2005
HELP-PROMPT:Answer must be 9-16 characters in length.
DESCRIPTION:This is a unique number associated with each item ordered by DynaMed. It is formatted as
YDDD-NNNN-CCCCCC where:
Y is the single digit for year,
DDD is the 3 digit Julian date, a dash,
NNNN is the 4 digit sequential number and a dash
CCCCCC represents up to 6 characters for the stockroom.
TECHNICAL DESCR:
The DM DOC ID is associated with an order request from DynaMed for replenishing a stockroom with
of an item defined in the ITEM MASTER FILE (#440). The DM DOC ID must be included in all
messages updating DynaMed on the progress of their order request.
SOURCE OF DATA:DynaMed - Information Control
UNEDITABLE
RECORD INDEXES: AK (#602)
442,41 BOC 22;0 Multiple #442.041 (Add New Entry without Asking)
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.
442.041,.01 SUBACCOUNT 0;1 FREE TEXT (Add New Entry without Asking)
INPUT TRANSFORM: D EN1^PRCHCRD2
LAST EDITED: DEC 29, 1993
HELP-PROMPT: Please select one of the BOCs listed.
DESCRIPTION:
This is the BOC for one or more LINE ITEM NUMBERs within this record.
TECHNICAL DESCR: The user will be restricted to selecting one of the BOCs within this record. If the user's
selection isn't found within the 'D' x-ref, found under the ITEM multiple, the entry will be
killed.
EXECUTABLE HELP: D EN2^PRCHCRD2
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 442.041^B
1)= S ^PRC(442,DA(1),22,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(1),22,"B",$E(X,1,30),DA)
442.041,1 SUBAMOUNT 0;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01) X
LAST EDITED: DEC 28, 1993
HELP-PROMPT: Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits
DESCRIPTION:
This will be the dollar amount reported to FMS for this BOC within this record (purchase order).
TECHNICAL DESCR:
This amount may come from the amounts of several ITEMs within this record.
442.041,2 FMS LINE 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 28, 1993
HELP-PROMPT: Enter the FMS LINE number for this BOC, 1 to 999.
DESCRIPTION:
It is the FMS Line Number for this BOC on this purchase order entry.
442,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.
442,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.
442,46 PURCHASE CARD NUMBER 23;8 POINTER TO PURCHASE CARD INFORMATION FILE (#440.5) (Required)
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.
442,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.
442,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.
442,50 AMENDMENT 6;0 Multiple #442.07 (Add New Entry without Asking)
DESCRIPTION:
This is an amendment to the purchase order.
IDENTIFIED BY: EFFECTIVE DATE(#1)
442.07,.01 AMENDMENT 0;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: FEB 14, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the amendment to the purchase order.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 442.07^B
1)= S ^PRC(442,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(1),6,"B",$E(X,1,30),DA)
442.07,1 EFFECTIVE DATE 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This is the effective date of the amendment.
442.07,2 AMOUNT CHANGED 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."3N.N) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN -99999999 AND 99999999
DESCRIPTION:
This is the amount changed in the amendment.
442.07,3 AUTHORITY 0;4 POINTER TO TYPE OF AMENDMENT FILE (#442.2) (Required)
INPUT TRANSFORM: S DIC("S")=$S('$D(PRCHREQ):"I Y<10",1:"I Y>10,Y<20") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: APR 29, 1994
DESCRIPTION:
This is the type of amendment.
SCREEN: S DIC("S")=$S('$D(PRCHREQ):"I Y<10",1:"I Y>10,Y<20")
EXPLANATION: CHOOSE A,B,C,D OR E
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442.07,4 TYPE COMMENTS 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>150!($L(X)<3) X
LAST EDITED: JAN 09, 1986
HELP-PROMPT: ANSWER MUST BE 3-150 CHARACTERS IN LENGTH
DESCRIPTION:
These are comments regarding the type of amendment.
442.07,5 CONTRACTOR REQUIRED TO SIGN? 0;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JAN 02, 1986
DESCRIPTION:
User-entered flag for whether or not Contractor needs to sign P.O./Req.
442.07,5.2 NUMBER OF COPIES 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9
DESCRIPTION:
This is the number of copies of the amendment needed.
442.07,6 PA/PPM/AUTHORIZED BUYER 1;1 POINTER TO NEW PERSON FILE (#200) (Required)
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 making the amendment.
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.
442.07,7 VALIDATION CODE 1;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM:S Y="/ES/"_$$DECODE^PRCHES6(D0,D1)
LAST EDITED: DEC 09, 1992
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
This is the electronic signature of the purchasing agent making the agreement.
UNEDITABLE
442.07,7.5 VALIDATION VERSION 0;9 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:
Version of validation code
442.07,7.7 ESIG CODE 0;10 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:
Esig code
442.07,8 DATE SIGNED 1;3 DATE
VALIDATION DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 09, 1992
DESCRIPTION:
This is the date the purchasing agent signed the amendment.
442.07,9 AMENDMENT/ADJUSTMENT STATUS 1;4 POINTER TO PURCHASE ORDER STATUS FILE (#442.3)
LAST EDITED: JUL 12, 1994
DESCRIPTION:
This is the status of the amendment/adjustment.
442.07,10 FISCAL APPROVED BY 1;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 16, 1992
DESCRIPTION:
This is the Fiscal Service person approving the amendment.
442.07,11 FISCAL VALIDATION CODE 1;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM:S Y="/ES/"_$$DECODE^PRCHES7(D0,D1)
LAST EDITED: DEC 09, 1992
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
This is the electronic signature code of the person approving the amendment.
UNEDITABLE
442.07,11.5 FISCAL VALIDATION VERSION 0;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:
Version of validation code
442.07,11.7 FISCAL ESIG CODE 1;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
LAST EDITED: APR 14, 1993
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
Encoded value used by IFCAP security utilities when confirming the integrity of this record.
442.07,11.8 FISCAL VALIDATION DATE 1;8 DATE
INPUT TRANSFORM:S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 09, 1992
DESCRIPTION:
Date/time of validation of ESIG
442.07,12 DESCRIPTION 2;0 WORD-PROCESSING #442.13
DESCRIPTION:
This is a description of the amendment.
LAST EDITED: DEC 18, 1985
DESCRIPTION:
Description of AMENDMENT
442.07,13 ADJUSTMENT VOUCHER 0;8 SET
'Y' FOR YES;
LAST EDITED: DEC 05, 1986
DESCRIPTION:
This is the adjustment voucher.
442.07,14 CHANGES 3;0 Multiple #442.714 (Add New Entry without Asking)
DESCRIPTION:
This multiple stores all the changes belonging to this amendment.
TECHNICAL DESCR:
The information within this multiple comes from file 443.6 after the amendment is obligated.
442.714,.01 CHANGES 0;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 05, 1994
HELP-PROMPT: Enter the next sequential number.
DESCRIPTION:
This number represents the order that each field within this amendment was changed.
CROSS-REFERENCE:442.714^B
1)= S ^PRC(442,DA(2),6,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(2),6,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE:^^TRIGGER^442.714^5
1)= X ^DD(442.714,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,6,D1,3,D2,0)):^(0),1:"") S X=$P
(Y(1),U,5),X=X S DIU=X K Y X ^DD(442.714,.01,1,2,1.1) X ^DD(442.714,.01,1,2,1.4)
1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
1.3)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S Y(1)=$S($D(^PR
C(442,D0,6,D1,3,D2,0)):^(0),1:"") S X=$P(Y(1),U,5)=""
1.4)= S DIH=$S($D(^PRC(442,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=442
.714,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= DATE & TIME ENTERED=""
CREATE VALUE)= NOW
DELETE VALUE)= NO EFFECT
FIELD)= DATE & TIME
CROSS-REFERENCE:^^TRIGGER^442.714^6
1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^PRC(442,D0,6,
D1,3,D2,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(442.714,.01,1,3,1.4)
1.4)= S DIH=$S($D(^PRC(442,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=442
.714,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= USER
442.714,1 AMENDMENT TYPE 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>19)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 09, 1994
HELP-PROMPT:Enter the number for the amendment edit choosen.
DESCRIPTION:
This is the numeric value for the amendment edit choosen.
CROSS-REFERENCE:442.714^AC^MUMPS
1)= S PRCHAA=$G(^PRC(442,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" S ^PRC(442,DA(2),6,DA(1),3,"AC
",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA)="" K PRCHAA
2)= S PRCHAA=$G(^PRC(442,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" K ^PRC(442,DA(2),6,DA(1),3,"AC
",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA),PRCHAA
442.714,2 FIELD & FILE 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 13, 1994
HELP-PROMPT:Enter the FIELD;FILE values for the field that was edited.
DESCRIPTION:In this field will be the field number followed by a ';' then by the file number of the changed
entry. If the field is located in a subfile then the file number will become the subfile number.
442.714,3 OLD DATA VALUE 1;0 WORD-PROCESSING #442.7143 (NOWRAP)
DESCRIPTION:
It is an old data value.
LAST EDITED: APR 06, 1994
DESCRIPTION:
It is a value(s) before the amendment.
442.714,4 SUBRECORD ENTRY 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: JAN 13, 1994
HELP-PROMPT:Enter the subrecord entry value seperated by ';'. The subrecord value will be D1 or D2 etc.
DESCRIPTION:Even though an entry is made into the FIELD & FILE field, to find the correct entry in any
subfiles the subdile internal entry numbers need to be recorded in this field.
442.714,5 DATE & TIME ENTERED 0;5 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 13, 1994
DESCRIPTION:This is the date and time the user changed the entry listed in the FIELD & FILE and SUBRECORD
ENTRY fields.
NOTES: TRIGGERED by the CHANGES field of the CHANGES sub-field of the AMENDMENT sub-field of the
PROCUREMENT & ACCOUNTING TRANSACTIONS File
442.714,6 USER 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 13, 1994
HELP-PROMPT:Enter the person who edited the field added in this CHANGES record.
DESCRIPTION:
This field will point to VA(200, showing the user who made this change.
NOTES: TRIGGERED by the CHANGES field of the CHANGES sub-field of the AMENDMENT sub-field of the
PROCUREMENT & ACCOUNTING TRANSACTIONS File
442.714,7 OTHER FILE NUMBER 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 23, 1994
HELP-PROMPT:Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:This field contains the Internal Record Number for file 442.8, the DELIVERY SCHEDULE (ORDER)
file.
CROSS-REFERENCE:442.714^AD^MUMPS
1)= I X>0 S ^PRC(442,DA(2),6,DA(1),3,"AD",X,DA)=""
2)= I X>0 K ^PRC(442,DA(2),6,DA(1),3,"AD",X,DA)
442.07,16 JUSTIFICATION 4;1 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>240!($L(X)<1) X
LAST EDITED: APR 28, 1994
HELP-PROMPT:Answer must be 1-240 characters in length.
DESCRIPTION:
The reason for amendment of the purchase order. Answer must be 1-240 characters in length.
442,51 SORT GROUP 23;13 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
410.7 1 PRCS y SORT GROUP
6920 2 ENG y WORK ORDER#
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.
442,52 CLASSIFICATION OF REQUEST 23;12 POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2)
LAST EDITED: MAY 21, 1996
DESCRIPTION:
This is the Classification of Request for this order.
442,53 PCDO VENDOR 23;14 POINTER TO VENDOR FILE (#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 con
tains line items with PR card numbers."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
442,54 RECEIVING REQUIRED? 23;15 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAY 22, 1996
DESCRIPTION:
This field indicates if a purchase card purchase requires receiving.
442,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.
442,56 PURCHASE CARD USER 23;17 POINTER TO NEW PERSON FILE (#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.
442,57 APPROVE RECONCILIATION USER 23;18 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 11, 1996
DESCRIPTION:
This is the user who approves the reconciliation of a purchase card order.
442,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.
442,60 PURCHASE COST 23;21 NUMBER (Required)
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.
442,61 PURCHASE CARD HOLDER 23;22 POINTER TO NEW PERSON FILE (#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.
442,62 PCDO 2237 23;23 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
LAST EDITED: JUL 02, 1996
DESCRIPTION:
This is the 2237 attached to the purchase card/delivery order.
442,63 PROCESSING REQUIRED IN FISCAL 24;1 SET
Record Processing in Fiscal
'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.
442,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.
442,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.
442,70 DEPARTMENT NUMBER 17;1 FREE TEXT (Required)
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.
442,71 DOCUMENT IDENTIFIER CODE 17;2 FREE TEXT (Required)
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.
442,72 ROUTING INDENTIFIER CODE 17;3 POINTER TO DLA/LOG CODES FILE (#441.4) (Required)
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.
442,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
442,73 DEPT.DESIGNATION (DEMAND CODE) 17;4 POINTER TO DLA/LOG CODES FILE (#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.
442,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.
442,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.
442,75 FUND CODE 17;6 FREE TEXT (Required)
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.
442,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.
442,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.
442,78 PRIORITY CODE 17;9 POINTER TO DLA/LOG CODES FILE (#441.4) (Required)
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
442,79 ADVICE CODE 17;10 POINTER TO DLA/LOG CODES FILE (#441.4) (Required)
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.
442,80 MEDIA & STATUS CODE 17;11 POINTER TO DLA/LOG CODES FILE (#441.4) (Required)
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
442,81 *SUPPLEMENTARY ADDRESS 17;12 FREE TEXT (Required)
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.
442,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.
442,83 REASON CODE 17;14 SET (Required)
'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.
442,84 *PAYABLE CODE 17;15 SET (Required)
'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.
442,91 TOTAL AMOUNT 0;15 NUMBER (Required)
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
442,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.
442,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.
442,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.
442,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.
442,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.
442,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.
442,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.
442,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.
442,97 PROMPT PAY TYPE 12;15 SET (Required)
'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.
442,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.
442,102 DOCUMENT IDENTIFIER/COMMON NO. 18;3 FREE TEXT (Required)
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.
442,102.4 REQUISITION NO.(SUPPLY) 18;10 FREE TEXT (Required)
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).
442,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,1
8),"^",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.
442,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.
442,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.
442,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.
442,104 LOG CODE SHEETS SENT BY 18;5 POINTER TO NEW PERSON FILE (#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.
442,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
442,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.
442,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.
442,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.
442,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.
442,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: "
442,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.
442,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.
442,110 ISMS ORDER NO. 20;0 Multiple #442.17
DESCRIPTION:
The number of the ISMS order.
442.17,.01 ISMS ORDER NO. 0;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<3) X
LAST EDITED: APR 03, 1992
HELP-PROMPT: Answer must be 3-11 characters in length.
DESCRIPTION:
The number of the ISMS order.
CROSS-REFERENCE: 442^L
1)= S ^PRC(442,"L",$E(X,1,30),DA(1),DA)=""
2)= K ^PRC(442,"L",$E(X,1,30),DA(1),DA)
This X-REF is just a lookup for the ISMS ORDER NO. field.
442.17,1 ORDER HEADER 0;2 SET
'S' FOR STATUS;
'C' FOR CANCELLED;
'G' FOR CHANGED;
LAST EDITED: NOV 26, 1991
DESCRIPTION:
The type of ISMS order.
442,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.
442,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.
442,113 ISMS CODE SHEETS SENT BY 21;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 09, 1992
DESCRIPTION:
The user number of the person who sent the ISMS code sheet.
442,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
442,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.
442,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.
442,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.
442,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.
442,117 REASON NOT COMPETED 25;1 POINTER TO REASON NOT COMPETED FILE (#420.51)
LAST EDITED: AUG 09, 2005
DESCRIPTION:
This is the reason why the order was not competed.
442,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.
442,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.
442,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.
442,121 SOLICITATION PROCEDURE 25;5 POINTER TO SOLICITATION PROCEDURE FILE (#420.52)
LAST EDITED: JAN 10, 2005
DESCRIPTION:
Solicitation procedures to be used for under and over $25K orders.
442,122 EVALUATED PREFERENCE 25;6 POINTER TO EVALUATED PREFERENCE FILE (#420.54)
LAST EDITED: JAN 06, 2005
DESCRIPTION:
This is the short name for the evaluated preference.
442,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.
442,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.
442,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.
442,126 EPA DESIGNATED PRODUCT 25;10 POINTER TO EPA DESIGNATED PRODUCT FILE (#420.55)
LAST EDITED: JAN 06, 2005
DESCRIPTION:
This is the short name used to indicate EPA Designated Products.
442,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.
442,128 EXTENT COMPETED 25;12 POINTER TO EXTENT COMPETED FILE (#420.53)
LAST EDITED: JAN 06, 2005
DESCRIPTION:
This is the description of the acquisition method, if any.
442,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.
442,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.
442,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.
442,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.
442,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: ^
442,500.01 BILL # AR;1 FREE TEXT (Required)
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
442,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.
FILES POINTED TO FIELDS
ADMIN. ACTIVITY SITE PARAMETER
(#411) SUBSTATION (#31)
ADMINISTRATIVE CERTIFICATIONS
(#442.7) ADMINISTRATIVE CERTIFICATIONS:ADMINISTRATIVE CERTIFICATIONS (#.01)
BUDGET OBJECT CODE (#420.2) SUBACCOUNT1 (#3)
SUBACCOUNT2 (#4)
ITEM:OBLIGATED SUBACCOUNT (#17)
PARTIAL:SUBACCOUNT1 (#1)
SUBACCOUNT2 (#3)
CALM/LOG CODE SHEET (#423) ITEM:ACQUISITIONS CODE SHEET NO. (#37)
DATE RECEIVED:RECEIVING CODE SHEET NO. (#5)
PARTIAL:RECV.CODE SHEET NO.(DEPOT) (#19.6)
CLASSIFICATION OF REQUEST
(#410.2) CLASSIFICATION OF REQUEST (#52)
CODE INDEX (#420.6) AMOUNT:TYPE CODE (#1)
COMP. STATUS/BUSINESS (#1.1)
PREF. PROGRAM (#1.2)
BREAKOUT CODE:BREAKOUT CODE (#.01)
CONTROL POINT ACTIVITY (#410) PRIMARY 2237 (#.07)
PCDO 2237 (#62)
ITEM:2237 REFERENCE # (#10)
OBLIGATION DATA:1358 ADJUSTMENT (#8)
2237 REFERENCE NUMBER:2237 REFERENCE NUMBER (#.01)
DIRECT DELIVERY PATIENTS
(#440.2) DIRECT DELIVERY PATIENT (#5.3)
DLA/LOG CODES (#441.4) ROUTING INDENTIFIER CODE (#72)
DEPT.DESIGNATION (DEMAND CODE) (#73)
PRIORITY CODE (#78)
ADVICE CODE (#79)
MEDIA & STATUS CODE (#80)
ITEM:SOURCE DEVIATION (#39.5)
EPA DESIGNATED PRODUCT (#420.55) EPA DESIGNATED PRODUCT (#126)
EVALUATED PREFERENCE (#420.54) EVALUATED PREFERENCE (#122)
EXTENT COMPETED (#420.53) EXTENT COMPETED (#128)
FEDERAL SUPPLY CLASSIFICATION
(#441.2) ITEM:FEDERAL SUPPLY CLASSIFICATION (#8)
GENERIC INVENTORY (#445) 2237 REFERENCE NUMBER:INVENTORY/DISTRIBUTION POINT (#11)
LINE INVENTORY POINT:LINE INVENTORY POINT (#.01)
INTERMEDIATE PRODUCT (#420.9) ITEM:INTERMEDIATE PRODUCT CODE (#3.6)
ITEM MASTER (#441) ITEM:ITEM MASTER FILE NO. (#1.5)
LOCAL PROCUREMENT REASON CODES
(#443.8) LOCAL PROCUREMENT REASON CODE (#.25)
NEW PERSON (#200) PA/PPM/AUTHORIZED BUYER (#16)
AGENT ASSIGNED P.O. (#19)
PURCHASE CARD USER (#56)
APPROVE RECONCILIATION USER (#57)
PURCHASE CARD HOLDER (#61)
LOG CODE SHEETS SENT BY (#104)
ISMS CODE SHEETS SENT BY (#113)
AMENDMENT:PA/PPM/AUTHORIZED BUYER (#6)
FISCAL APPROVED BY (#10)
OBLIGATION DATA:OBLIGATED BY (#1)
PARTIAL:WAREHOUSE APPROVED BY (#6)
RECEIVED BY (PPM OR DELV.PT.) (#14)
RECEIVED BY (AT DELIVERY PT.) (#17)
LOG CODE SHEETS SENT BY (#19.3)
2237 REFERENCE NUMBER:ACCOUNTABLE OFFICER (#2)
PURCHASING AGENT (#6)
CHANGES:USER (#6)
PAT TYPE (#442.5) METHOD OF PROCESSING (#.02)
PROCUREMENT & ACCOUNTING TRANS
(#442) OLD PO RECORD (#27)
NEW PO RECORD (#28)
ITEM:LINE ITEM NUMBER (#.01)
DISCOUNT:DISCOUNT ITEM (#.01)
AMOUNT:AMOUNT (#.01)
PURCHASE AUTHORITY (#442.4) PURCHASE METHOD:PURCHASE METHOD (#.01)
PURCHASE CARD INFORMATION
(#440.5) PURCHASE CARD NUMBER (#46)
PURCHASE ORDER STATUS (#442.3) SUPPLY STATUS (#.5)
AMENDMENT:AMENDMENT/ADJUSTMENT STATUS (#9)
2237 REFERENCE NUMBER:CURRENT STATUS (#1.5)
REASON NOT COMPETED (#420.51) REASON NOT COMPETED (#117)
SERVICE/SECTION (#49) REQUESTING SERVICE (#5.2)
SOLICITATION PROCEDURE (#420.52) SOLICITATION PROCEDURE (#121)
SORT GROUP (#410.7) SORT GROUP (#51)
SOURCE CODE (#420.8) SOURCE CODE (#8)
TYPE OF AMENDMENT (#442.2) AMENDMENT:AUTHORITY (#3)
TYPE OF SPECIAL HANDLING
(#443.4) TYPE OF SPECIAL HANDLING (#18.7)
UNIT OF ISSUE (#420.5) ITEM:UNIT OF PURCHASE (#3)
SKU (#9.4)
VENDOR (#440) VENDOR (#5)
PCDO VENDOR (#53)
WORK ORDER # (#6920) SORT GROUP (#51)
}UNDEFINED FILE (#412) DEBTOR (#5.1)
Subfile #442.01
Record Indexes:
AK (#602) RECORD MUMPS IR ACTION
Short Descr: SET UP TRANSACTION FILE TO DYNAMED IF FIELD IS KILLED
Set Logic: Q
Kill Logic: D DELITEM^PRCV442B(D0)
Kill Cond: S X=(X2(1)=""&($P($G(^PRC(442,D0,2,D1,2)),"^",15)]""))
X(1): LINE ITEM NUMBER (442.01,.01) (forwards)
X(2): DM DOC ID (442.01,48) (forwards)
X(3): ITEM MASTER FILE NO. (442.01,1.5) (forwards)
X(4): QUANTITY (442.01,2) (forwards)
X(5): UNIT OF PURCHASE (442.01,3) (forwards)
X(6): PACKAGING MULTIPLE (442.01,3.1) (forwards)
X(7): ACTUAL UNIT COST (442.01,5) (forwards)
X(8): 2237 REFERENCE # (442.01,10) (forwards)
INPUT TEMPLATE(S):
PRCH DELIVERY ORDER SEP 18, 2013@16:09 USER #0
PRCH DETAILED PURCHASE CARD SEP 18, 2013@14:32 USER #0
PRCH DIRECT DELIVERY ORDER JAN 02, 2009@10:19 USER #0
PRCH NEW DEL FPDS DEC 12, 2005@08:56 USER #0
This template is used by the new FPDS report for the Austin Automation
Center (AAC). It is set up so that users of the delivery orders menu can
use suggested defaults. By design, these delivery orders use source code =
6. The PRCB and PRCCB are used to keep track of the competitive status for
the PO and decide to present the field 'Reason not competed' to the user.
PRCH NEW PC FPDS NOV 16, 2005@07:19 USER #0
This template is used by the new FPDS report for the Austin Automation
Center (AAC). It presents fields based on the value of the Source Code:
2, 6, and B (ien=9) and the competitive status/business for the vendor.
The variables PRCB and PRCCB keep track of the comp. status/business in
the PO.
PRCH NEW PO FPDS DEC 12, 2005@09:27 USER #0
This template part of the Purchasing Agent menu and is used by the new
FPDS report for the Austin Automation Center (AAC). It presents fields
based on the value of the Source Code 2 and 5 and the competitive
status/business for the vendor. The variables PRCB and PRCCB keep track of
the comp. status/business in the PO. Also, this template implements a new
definition for delivery orders based on source codes 4, 6, 7, and B. No
defaults are offered for any of the new FPDS prompts.
PRCH PC DIRECT DELIVERY SEP 18, 2013@16:20 USER #0
PRCH PROSTHETIC JAN 02, 2009@10:22 USER #0
PRCH2138 JAN 17, 2014@14:19 USER #0
PRCHAMT AUG 18, 1988 USER #0
PRCHAMT89 MAR 07, 1997@11:53 USER #0
PRCHAMT89 NEW JUN 20, 2005@13:34 USER #0
This is a clone of PRCHAMT89 to be used by users of purchase card and
delivery orders to support data collection for the new FPDS report
requested by the Austin Automation Center (AAC).
PRCHDEL SEP 20, 1986 USER #0
PRCHDISCNT AUG 13, 2014@13:05 USER #0
PRCHEDIT DEC 18, 1985 USER #0
PRCHNREQ SEP 09, 2009@11:29 USER #0
PRCHPROMPT JUN 11, 1996@09:02 USER #0
PRCHPUSH JUN 08, 1989 USER #0 ^PRCHT2
PRCHSIMP JUL 18, 2018@14:16 USER #0
PRINT TEMPLATE(S):
PRCB FCP PO STATUS JUN 28, 1989 USER #0 FCP PO STATUS
PRCE 1358 EOM LISTING FEB 10, 1992@11:38 USER #0 END OF MONTH 1358 LISTING
PRCFA 1358 EOM REPORT MAR 16, 1988 USER #0 END OF MONTH 1358 LISTING
PRCFA STATUS OF PAT SEP 19, 1989@07:46 USER #0 PROCUREMENT & ACCOUNTING STATUS LIST
PRCFA UNDEL ORD DEC 15, 1987 USER #0 UNDELIVERED ORDERS LISTING
PRCFUO OCT 27, 1995@14:19 USER #0
850 UNDELIVERED ORDERS RECONCILIATION
PRCFUOMS OCT 27, 1995@14:58 USER #0 850 UNDELIVERED ORDERS FOR MANDATED SOURCES
PRCH CARD PRINT OCT 20, 1995@11:23 USER #0 RECONCILIATION REPORT
PRCH DEL HEADER MAY 27, 1997@08:26 USER #0 PROCUREMENT & ACCOUNTING TRANSACTIONS LIST
PRCH FISCAL PRINT OCT 04, 1986 USER #0 PURCHASE ORDERS PRINTED IN FISCAL
PRCH FPDS <25K HEADER JAN 31, 2001@09:20 USER #0
PRCH FPDS <25K PRINT JUN 14, 1989 USER #0 @
PRCH FPDS CONTRACT # HEADER APR 03, 1989 USER #0 @
PRCH FPDS CONTRACT # PRINT NOV 17, 1988 USER #0 [PRCU FPDS CONTRACT # HEADER]
PRCH FPDS LI PRINT APR 03, 1989 USER #0 Line Item Count
PRCH FPDS PO REG FEB 24, 1993@15:22 USER #0 FPDS Purchase Order Register
PRCH FPDS PO REG PRINT FEB 25, 1993@11:55 USER #0 FPDS Purchase Order Register
PRCH IMP POREG APR 12, 1996@15:25 USER #0 IMPREST FUND REGISTER
PRCH ITEM TXHIST JUN 26, 1998@10:56 USER #0 ^PRCHI1 [PRCH ITEM TXHIST-HDR]
PRCH ITEM TXHIST-HDR MAR 31, 1998@17:05 USER #0 ^PRCHIH1 @
PRCH OBLIGATED 1358 LIST SEP 17, 2010@13:37 USER #0 PROCUREMENT & ACCOUNTING TRANSACTIONS LIST (OBLIGATED 1358s)
This new option is used to support a new FPDS report for the Austin
Automation Center (AAC).
PRCH OVERAGE FEB 21, 1996@16:04 USER #0 OVERAGE REPORT
PRCH PO REGISTER SEP 20, 2010@11:13 USER #0 SUPPLY PURCHASE ORDER REGISTER
PRCH PO STATUS JAN 09, 1987 USER #0 INCOMPLETE PURCHASE ORDERS
PRCH TOT AMT MAY 21, 1997@09:29 USER #0 PURCHASING AGENT STATISTICS
PRCH TOT AMT DAILY SEP 08, 1997@09:20 USER #0 PURCHASING AGENT STATS BY DATE
PRCH UNPOSTED DIETETIC PRINT MAY 22, 1992@14:03 USER #0 UNPOSTED DIETETIC COST REPORT
PRCH W/O FPDS NOV 30, 1988 USER #0 FPDS LESS THAN 25K
PRCH WHSE STATS DEC 09, 1987 USER #0 WAREHOUSE RECEIVING REPORT STATISTICS
PRCH WORKLOAD NOV 29, 2000@13:51 USER #0 PURCHASE CARD TIMELY COMMITMENT REPORT
PRCHLO442_2237_VALIDATE APR 27, 2009@15:58 USER #0 PO 2237 DATA
PRCHLO442_AMENDMENT_VALIDATE APR 27, 2009@17:14 USER #0 PO AMENDMENT DATA
PRCHLO442_AMEND_CHG_VALIDATE APR 27, 2009@17:57 USER #0 PO AMENDMENT CHANGES DATA
PRCHLO442_AMEND_DESCR1ST_VALIDAPR 24, 2009@14:32 USER #0 PO AMENDMENT DESCRIPTION DATA
PRCHLO442_BOC_VALIDATE MAY 27, 2009@10:07 USER #0 PO BOC DATA
PRCHLO442_BREAKOUT_C_VALIDATE APR 27, 2009@18:15 USER #0 PO AMOUNT BREAKOUT CODE DATA
PRCHLO442_COMMENTS1ST_VALIDATEAPR 24, 2009@14:18 USER #0 PO COMMENTS DATA
PRCHLO442_DISCOUNT_VALIDATE MAY 06, 2009@17:24 USER #0 PO DISCOUNT DATA
PRCHLO442_HDR_VALIDATE APR 28, 2009@17:09 USER #0 PO MASTER DATA
PRCHLO442_ITEM_DESC1ST_VALID APR 24, 2009@15:57 USER #0 PO ITEM DESC DATA
PRCHLO442_ITEM_INVPT_VALIDATE APR 27, 2009@13:19 USER #0 PO ITEM INVENTORY POINT DATA
PRCHLO442_ITEM_RECV_VALIDATE APR 27, 2009@13:39 USER #0 PO ITEM DATE RECEIVED DATA
PRCHLO442_LINEITEM_VALIDATE APR 27, 2009@12:05 USER #0 PO ITEM DATA
PRCHLO442_OBLIG_VALIDATE APR 27, 2009@10:48 USER #0 PO OBLIGATION DATA
PRCHLO442_PARTIAL_VALIDATE APR 27, 2009@15:06 USER #0 PO PARTIAL DATA
PRCHLO442_PO_AMT_VALIDATE APR 27, 2009@17:02 USER #0 PO AMOUNT DATA
PRCHLO442_PROMPT_PAY_VALIDATE APR 27, 2009@16:43 USER #0 PO PROMPT PAYMENT TERMS DATA
PRCHLO442_PURCH_METH_VALIDATE APR 27, 2009@10:30 USER #0 PO METHOD OF PURCHASE DATA
PRCHLO442_REMARKS_1ST_VALIDATEAPR 24, 2009@16:21 USER #0 PO REMARKS DATA
PRCHOUT RR NOT PROC.BY FISCAL AUG 23, 1989@14:26 USER #0 RECEIVING REPORTS NOT PROCESSED BY FISCAL
SORT TEMPLATE(S):
PRCB FCP PO STATUS JUN 29, 1989 USER #0
SORT BY: +FCP;S1// (User is asked range)
WITHIN FCP, SORT BY: 'DATE SIGNED// (User is asked range)
WITHIN DATE SIGNED, SORT BY: @"";S1// From '@' To '@'
PRCFA 1358 EOM REPORT JUN 21, 2011@15:52 USER #0
SORT BY: 'METHOD OF PROCESSING["1358 OBLIGATION";L1// (METHOD OF PROCESSING[""1358 OBLIGATION"")
WITHIN METHOD OF PROCESSING["1358 OBLIGATION", SORT BY: @#$E(PURCHASE ORDER NUMBER,1,3)// ($E(PURCHASE ORDER NUMBER,1,3) not null)
WITHIN $E(PURCHASE ORDER NUMBER,1,3), SORT BY: APPROPRIATION;S3// (APPROPRIATION not null)
WITHIN APPROPRIATION, SORT BY: @$E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6)// ($E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6) not null)
WITHIN $E(1ST(OBLIGATION DATA:TT/DATE/REF),1,6), SORT BY: PURCHASE ORDER NUMBER// (PURCHASE ORDER NUMBER not null)
WITHIN PURCHASE ORDER NUMBER, SORT BY: FISCAL 1358 BALANCE'=0;L1// (FISCAL 1358 BALANCE'=0)
PRCFA STATUS OF PAT SEP 19, 1989@08:22 USER #0
SORT BY: @PURCHASE ORDER NUMBER//
WITHIN PURCHASE ORDER NUMBER, SORT BY: @DATE SIGNED// (User is asked range)
WITHIN DATE SIGNED, SORT BY: @SUPPLY STATUS ORDER// (User is asked range)
PRCFA UNDEL ORD DEC 15, 1987 USER #0
SORT BY: '@SUPPLY STATUS:SUPPLY STATUS ORDER// From '20' To '29'
WITHIN SUPPLY STATUS:SUPPLY STATUS ORDER, SORT BY: #APPROPRIATION//
WITHIN APPROPRIATION, SORT BY: PURCHASE ORDER NUMBER//
PRCFUO MAR 08, 1989 USER #0
SORT BY: @APPROPRIATION// (APPROPRIATION not null)
WITHIN APPROPRIATION, SORT BY: @PURCHASE ORDER NUMBER// (PURCHASE ORDER NUMBER not null)
WITHIN PURCHASE ORDER NUMBER, SORT BY: '@OBLIGATION DATA//
OBLIGATION DATA SUB-FIELD: DATE SIGNED// (DATE SIGNED not null)
PRCFUO MAN MAR 08, 1993@15:05 USER #0
SORT BY: @APPROPRIATION// (APPROPRIATION not null)
WITHIN APPROPRIATION, SORT BY: @PURCHASE ORDER NUMBER// (PURCHASE ORDER NUMBER not null)
WITHIN PURCHASE ORDER NUMBER, SORT BY: '@OBLIGATION DATA//
OBLIGATION DATA SUB-FIELD: DATE SIGNED// (User is asked range)
PRCFUOMS MAR 01, 1989 USER #0
SORT BY: '$S(#8:#2'=3&(#8:#2'=7):#8:#2,1:"")// ($S(#8:#2'=3&(#8:#2'=7):#8:#2,1:"""") not null)
WITHIN $S(#8:#2'=3&(#8:#2'=7):#8:#2,1:""), SORT BY: @PURCHASE ORDER NUMBER// (PURCHASE ORDER NUMBER not null)
WITHIN PURCHASE ORDER NUMBER, SORT BY: '@OBLIGATION DATA//
OBLIGATION DATA SUB-FIELD: DATE SIGNED// (DATE SIGNED not null)
PRCH CREDIT SORT OCT 20, 1995@12:31 USER #0
SORT BY: FCP;S1;C20// (User is asked range)
WITHIN FCP, SORT BY: PURCHASING/PPM AGENT;"PURCHASING AGENT: ";C20// (User is asked range)
WITHIN PURCHASING/PPM AGENT, SORT BY: P.O. DATE;S1// (User is asked range)
SORT TEMPLATE CREATED FOR CREDIT CARD PURCHASES, WHICH SORTS BY
FUND CONTROL POINT, WITHIN FCP IT SORTS BY PURCHASING/PPM AGENT(PA)
AND WITHIN PA IT SORTS BY PURCHASE ORDER DATE.
PRCH FISCAL PRNT TIME OCT 04, 1986 USER #0 'PRCH FISCAL PRINT' Print Template always used
SORT BY: ES CODE DATE/TIME// (User is asked range)
PRCH FPDS <25K DEC 08, 1988 USER #0
SORT BY: '@P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: '@PURCHASE ORDER NUMBER// (User is asked range)
WITHIN PURCHASE ORDER NUMBER, SORT BY: '@#.5:#.02// (User is asked range)
WITHIN .5:#.02, SORT BY: '@TOTAL AMOUNT// (User is asked range)
PRCH FPDS CONTRACT # DEC 08, 1988 USER #0
SORT BY: '@P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: '@#.5:#.02// (User is asked range)
WITHIN .5:#.02, SORT BY: +AMOUNT;S1//
AMOUNT SUB-FIELD: CONTRACT #//
WITHIN CONTRACT #, SORT BY: @PURCHASE ORDER NUMBER// (User is asked range)
PRCH FPDS LI DEC 08, 1988 USER #0
SORT BY: '@P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: 'PURCHASE ORDER NUMBER// (User is asked range)
WITHIN PURCHASE ORDER NUMBER, SORT BY: '@.5:#.02// (User is asked range)
WITHIN .5:#.02, SORT BY: 'LINE ITEM COUNT//
PRCH FPDS PO REG AUG 16, 1989@11:02 USER #0
SORT BY: '@P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: '@#SUPPLY STATUS ORDER// (User is asked range)
WITHIN SUPPLY STATUS ORDER, SORT BY: 'METHOD OF PROCESSING// (User is asked range)
WITHIN METHOD OF PROCESSING, SORT BY: PURCHASE ORDER NUMBER// (User is asked range)
PRCH IMP POREG AUG 16, 1989@12:03 USER #0
SORT BY: 'P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: '@INTERNAL(#.02)// (INTERNAL(#.02))
WITHIN INTERNAL(#.02), SORT BY: PURCHASE ORDER NUMBER// (User is asked range)
PRCH INCOMPLETE PO BY PA FEB 24, 1993@16:19 USER #0
SORT BY: 'SUPPLY STATUS:SUPPLY STATUS ORDER// From '1' To '9^9'
WITHIN SUPPLY STATUS:SUPPLY STATUS ORDER, SORT BY: +#AGENT ASSIGNED P.O.// (User is asked range)
WITHIN AGENT ASSIGNED P.O., SORT BY: PURCHASE ORDER NUMBER//
PRCH ITEM TXHIST APR 01, 1998@09:54 USER #0
SORT BY: @#FCP// (User is asked range)
WITHIN FCP, SORT BY: @$P(PURCHASE ORDER NUMBER,"-",1);"STN"// (User is asked range)
WITHIN $P(PURCHASE ORDER NUMBER,"-",1), SORT BY: @ITEM//
ITEM SUB-FIELD: ITEM MASTER FILE NO.// (User is asked range)
WITHIN ITEM MASTER FILE NO., SORT BY: -P.O. DATE// (User is asked range)
PRCH OBLIGATED 1358 LIST JUN 14, 2011@15:36 USER #0
SORT BY: @P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: @PURCHASE ORDER NUMBER// (PURCHASE ORDER NUMBER not null)
WITHIN PURCHASE ORDER NUMBER, SORT BY: @METHOD OF PROCESSING// (METHOD OF PROCESSING equals 1358 OBLIGATION)
This is a new option to support a new FPDS report for the Austin
Automation Center (AAC).
This sort template is used to find purchase orders generated from 1358
obligations with a dollar value of $0 and higher. The resulting list
can include vendors and contract information if they were entered when
the 1358's were created. Users are required to enter a date range for
this option. It is recommended that the printout be done in landscape
mode with a right margin of 132 characters.
PRCH OVERAGE NOV 30, 1995@14:25 USER #0
SORT BY: 'P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: 'PARTIAL//
PARTIAL SUB-FIELD: OVERAGE// (OVERAGE not null)
WITHIN OVERAGE, SORT BY: PURCHASE ORDER NUMBER// (PURCHASE ORDER NUMBER not null)
Sort template for Overage Report
PRCH PO REGISTER APR 11, 1996@17:27 USER #0
SORT BY: '@P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: '@INTERNAL(#.02)<5!(INTERNAL(#.02)=25);L1// (INTERNAL(#.02)<5!(INTERNAL(#.02)=25))
WITHIN INTERNAL(#.02)<5!(INTERNAL(#.02)=25), SORT BY: METHOD OF PROCESSING;S2// (METHOD OF PROCESSING not null)
WITHIN METHOD OF PROCESSING, SORT BY: PURCHASE ORDER NUMBER// (User is asked range)
PRCH POREG AUG 17, 1989@10:22 USER #0
SORT BY: 'P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: #'METHOD OF PROCESSING//
WITHIN METHOD OF PROCESSING, SORT BY: ]PURCHASE ORDER NUMBER//
PRCH REQ POREG AUG 16, 1989@13:43 USER #0
SORT BY: 'P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: '@INTERNAL(#.02)// From '8' To '8'
WITHIN INTERNAL(#.02), SORT BY: PURCHASE ORDER NUMBER// (User is asked range)
PRCH UNPOSTED DIETETIC SORT JAN 17, 1995@14:39 USER #0
SORT BY: +ITEM//
ITEM SUB-FIELD: FOOD GROUP// (FOOD GROUP to 6 (includes nulls))
WITHIN FOOD GROUP, SORT BY: FCP// (User is asked range)
WITHIN FCP, SORT BY: ITEM//
ITEM SUB-FIELD: DATE RECEIVED//
DATE RECEIVED SUB-FIELD: DATE RECEIVED// (User is asked range)
PRCH W/O FPDS DEC 08, 1988 USER #0
SORT BY: '@P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: PURCHASE ORDER NUMBER// (User is asked range)
WITHIN PURCHASE ORDER NUMBER, SORT BY: '@.5:#.02// (User is asked range)
WITHIN .5:#.02, SORT BY: '@TOTAL AMOUNT// (User is asked range)
WITHIN TOTAL AMOUNT, SORT BY: '@AMOUNT//
AMOUNT SUB-FIELD: $S(#1=""!(#1.1="")!(#1.2=""):1,1:0)// (User is asked range)
PRCH WORKLOAD1 NOV 29, 2000@13:50 USER #0
SORT BY: @METHOD OF PROCESSING// (METHOD OF PROCESSING from PURCHASE CARD to PURCHASE CARZ)
WITHIN METHOD OF PROCESSING, SORT BY: PURCHASE CARD HOLDER// (User is asked range)
WITHIN PURCHASE CARD HOLDER, SORT BY: @VALIDATION DATE/TIME// (User is asked range)
WITHIN VALIDATION DATE/TIME, SORT BY: PURCHASE CARD NUMBER://
PURCHASE CARD INFORMATION FIELD: STATION NUMBER// (User is asked range)
This sort template is used to track how quickly users
complete purchase card orders.
PRCHOUT PA STATS MAY 21, 1997@09:33 USER #0
SORT BY: +PA/PPM/AUTHORIZED BUYER;S2// (PA/PPM/AUTHORIZED BUYER not null)
WITHIN PA/PPM/AUTHORIZED BUYER, SORT BY: @P.O. DATE// (User is asked range)
PRCHOUT PA STATS DAILY MAY 21, 1997@08:03 USER #0
SORT BY: +PA/PPM/AUTHORIZED BUYER;S2// (User is asked range)
WITHIN PA/PPM/AUTHORIZED BUYER, SORT BY: @P.O. DATE// (User is asked range)
PRCHOUT RR NOT PROC.BY FISCAL DEC 12, 1991@10:05 USER #0
SORT BY: @P.O. DATE// (User is asked range)
WITHIN P.O. DATE, SORT BY: @'SUPPLY STATUS ORDER// (SUPPLY STATUS ORDER from 25 to 33)
WITHIN SUPPLY STATUS ORDER, SORT BY: @'SUPPLY STATUS ORDER'=27;L1;L1// (SUPPLY STATUS ORDER'=27)
WITHIN SUPPLY STATUS ORDER'=27, SORT BY: '@'@PARTIAL//
PARTIAL SUB-FIELD: PROCESSED BY FISCAL?// (PROCESSED BY FISCAL? is null)
WITHIN PROCESSED BY FISCAL?, SORT BY: PURCHASE ORDER NUMBER// (PURCHASE ORDER NUMBER not null)
PRCHOUT WHSE STATS FEB 25, 1993@17:44 USER #0
SORT BY: +PARTIAL//
PARTIAL SUB-FIELD: WAREHOUSE APPROVED BY// (User is asked range)
WITHIN WAREHOUSE APPROVED BY, SORT BY: @PARTIAL//
PARTIAL SUB-FIELD: DATE// (User is asked range)
FORM(S)/BLOCK(S):