STANDARD DATA DICTIONARY #443.6 -- AMENDMENTS FILE 9/29/25 PAGE 1
STORED IN ^PRC(443.6, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is a temporary holding file used to store a purchase order while an Amendment is being created. Changes to a P.O. are
actually made to this file, and not to the original P.O. If the user completes and approves the Amendment, the changes are copied
to the P.O. Whether approved or not, the "copy" is deleted from this file when the user is finished. The file is also used for
amendments to Requisitions.
*********DO NOT RE-INDEX THIS FILE**********
IDENTIFIED BY:
"Z.02": W " ",$S($D(^PRCD(442.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""),@("$E("_DIC_"Y,0),0)")
"Z.5": I $D(^("7")),$D(^PRCD(442.3,+^(7),0)) W $P(^(0),U,1)
POINTED TO BY: OLD PO RECORD field (#27) of the AMENDMENTS File (#443.6)
NEW PO RECORD field (#28) of the AMENDMENTS File (#443.6)
CROSS
REFERENCED BY: SHIP TO(AC), SOURCE CODE(AD), DELIVERY DATE(AE), INVOICE ADDRESS(AF), METHOD OF PAYMENT(AG),
DIRECT DELIVERY PATIENT(AH), FCP(AJ), COST CENTER(AK), REQUESTING SERVICE(AL), F.O.B. POINT(AM), VENDOR(AO),
LINE ITEM NUMBER(AZAPSCH), PURCHASE ORDER NUMBER(B), OTHER FILE NUMBER(C), AMENDMENT/ADJUSTMENT STATUS(D),
PURCHASE ORDER NUMBER(E)
443.6,.01 PURCHASE ORDER NUMBER 0;1 FREE TEXT (Required)
PO
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:'$D(^PRC(411,$P(X,"-",1)))!'($P(X,"-",2)?3UN3N) X
LAST EDITED: JUL 05, 1996
HELP-PROMPT: ENTER PURCHASE ORDER NUMBER (I.E. A12345)
DESCRIPTION:
This is the purchase order number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.6^B
1)= S ^PRC(443.6,"B",$E(X,1,30),DA)=""
2)= K ^PRC(443.6,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 443.6^E^MUMPS
1)= S ^PRC(443.6,"E",$P(X,"-",2),DA)=""
2)= K ^PRC(443.6,"E",$P(X,"-",2),DA)
This x-ref allows one to select an amendment using only the common numbering part of the p.o.
number, the same as can be done in 442 using the "C" x-ref on the .01 field there.
443.6,.02 METHOD OF PAYMENT 0;2 POINTER TO PAT TYPE FILE (#442.5) (Required)
INPUT TRANSFORM: S DIC("S")="I Y<20!(Y=25)!(Y=26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAR 11, 1998
DESCRIPTION:
This is the method of payment for this purchase order.
SCREEN: S DIC("S")="I Y<20!(Y=25)!(Y=26)"
EXPLANATION: ENTER A NUMBER OR TYPE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.6^AG^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN10^PRCHAMXB S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN10^PRCHAMXB
This x-ref will update the CHANGES multiple whenever an 'Edit Method of Payment' amendment changes
this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE.
This cross-reference gets executed when user tries to edit or delete this field only through IFCAP.
PRCHNORE gets set and removed within IFCAP.
443.6,.04 INVOICE ADDRESS 12;6 FREE TEXT
INPUT TRANSFORM: S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) K:'Z0 X
Q:'Z0 S DIC="^PRC(411,Z0,4,",DIC(0)="QEMO" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
OUTPUT TRANSFORM: S Y(0)=Y Q:Y="" S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443
.6,D0,0)) Q:'Z0 S Y=$P($S($D(^PRC(411,Z0,4,Y,0)):^(0),1:""),U,1) K Z0
LAST EDITED: OCT 13, 1995
HELP-PROMPT: This is the invoice address.
DESCRIPTION:
The invoice address.
EXECUTABLE HELP: S ZD=D,X="?",Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,
0)) Q:'Z0 S DIC="^PRC(411,Z0,4,",DIC(0)="QEMO" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.6^AF^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN9^PRCHAMXB S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN9^PRCHAMXB
This x-ref will update the CHANGES multiple whenever an 'Edit Mail Invoices to' amendment changes
this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,.06 PRIORITY OF 2237 1;9 SET
'EM' FOR EMERGENCY;
'SP' FOR SPECIAL;
'ST' FOR STANDARD;
LAST EDITED: APR 28, 1994
DESCRIPTION:
This field contains a code which indicates the priority of this order.
443.6,.07 PRIMARY 2237 0;12 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
LAST EDITED: APR 28, 1994
DESCRIPTION:
This field contains a pointer to the primary 2237 record for this amendment.
443.6,.08 ESTIMATED ORDER? 7;3 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 28, 1994
DESCRIPTION:
This field indicates whether or not this is an estimated order.
443.6,.09 DEPOT VOUCHER NO. 1;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: APR 28, 1994
HELP-PROMPT: Answer must be 5 characters in length.
DESCRIPTION:
This is the depot voucher number.
443.6,.1 P.O. DATE 1;15 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 28, 1994
DESCRIPTION:
This is the purchase order date.
443.6,.2 EMERGENCY ORDER? 1;17 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 28, 1994
DESCRIPTION:
Enter YES if this is an emergency order.
443.6,.25 LOCAL PROCUREMENT REASON CODE 1;19 POINTER TO LOCAL PROCUREMENT REASON CODES FILE (#443.8)
LAST EDITED: APR 28, 1994
DESCRIPTION: This is a pointer to the Local Procurement Reason Code File (#443.8). This code describes why the
items are being purchased "open market".
443.6,.3 EXPENDABLE/NONEXPENDABLE 1;18 SET (Required)
'E' FOR EXPENDABLE;
'N' FOR NON-EXPENDABLE;
LAST EDITED: APR 28, 1994
DESCRIPTION:
This is the indicator for procurement of expendable or nonexpendable items.
443.6,.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 12, 1996
HELP-PROMPT: This is the Supply status.
DESCRIPTION:
This is the Supply status of the order.
SCREEN: S DIC("S")="I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5"
UNEDITABLE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
443.6,.7 SUPPLY STATUS ORDER 7;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 28, 1994
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This field is automatically updated when supply status changes.
443.6,.8 FISCAL STATUS ORDER 7;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 28, 1994
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This field is automatically updated when supply status changes.
443.6,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(443.6,DA,1))) X Q:'$D(X) S:$P(^(1),U,15
)]"" PRC("FY")=$P(^(1),U,15) D EN1^PRCHNPO8 Q:'$D(X) S $P(^PRC(443.6,DA,0),U,4)=PRC("APP")
LAST EDITED: MAR 21, 1995
HELP-PROMPT: ENTER A VALID FUND CONTROL POINT
DESCRIPTION:
This is the Fund Control Point.
EXECUTABLE HELP: Q:'$D(PRC("SITE")) S:$D(D) ZD=D S Z0=$E($P(^PRC(443.6,DA,0),"-",2),1,2),X="?",DIC="^PRC(420,"_PRC(
"SITE")_",1,",DIC(0)="QEM",DIC("S")="D EN5^PRCHNPO6" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K Z0,Z1,ZD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.6^AJ^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN5^PRCHAMXC S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN5^PRCHAMXC
This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,1.4 APPROPRIATION 0;4 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>20!($L(X)<4) X
LAST EDITED: MAR 28, 1994
HELP-PROMPT: Answer must be 4-20 characters in length.
DESCRIPTION:
This is the appropriation for this order.
443.6,2 COST CENTER 0;5 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) S Z0=+$P(^PRC(443.6,DA,0),"^",3) K:'$D(PRC("SITE"))!'Z0 X,Z0 I $D(X),
$D(^PRC(420,PRC("SITE"),1,Z0,2,0)) D EN2^PRCHNPO5
LAST EDITED: MAR 21, 1995
HELP-PROMPT: You must enter a valid Cost Center for this Fund Control Point.
DESCRIPTION:
This is the cost center for this order.
EXECUTABLE HELP: Q:'$D(PRC("SITE")) S ZD=D,X="?",Z0=+$P(^PRC(443.6,DA,0),U,3),Z1=PRC("SITE") Q:'$D(^PRC(420,Z1,1,Z0
,2)) S DIC="^PRC(420,Z1,1,Z0,2,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0,Z1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.6^AK^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN6^PRCHAMXC S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN6^PRCHAMXC
This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,3 SUBACCOUNT1 0;6 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: APR 18, 1994
DESCRIPTION:
This is the subaccount 1.
443.6,3.4 SUBAMOUNT1 0;7 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999.99
DESCRIPTION:
This is the subamount 1.
443.6,4 SUBACCOUNT2 0;8 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
DESCRIPTION:
This is the subaccount 2.
443.6,4.4 SUBAMOUNT2 0;9 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999.99
DESCRIPTION:
This is the subamount 2.
443.6,5 VENDOR 1;1 POINTER TO VENDOR FILE (#440) (Required)
LAST EDITED: MAR 21, 1995
DESCRIPTION:
This is the name of the vendor for this purchase order.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.6^AO^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN8^PRCHAMXD S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN8^PRCHAMXD
This x-ref will update the CHANGES multiple whenever a 'Change VENDOR' amendment changes this
field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,5.2 REQUESTING SERVICE 1;2 POINTER TO SERVICE/SECTION FILE (#49) (Required)
LAST EDITED: MAR 21, 1995
DESCRIPTION:
This is the requesting service for this order.
CROSS-REFERENCE: 443.6^AL^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN7^PRCHAMXC S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN7^PRCHAMXC
This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,5.3 DIRECT DELIVERY PATIENT 1;12 POINTER TO DIRECT DELIVERY PATIENTS FILE (#440.2)
LAST EDITED: MAR 21, 1995
DESCRIPTION:
This is the direct delivery patient, if applicable.
CROSS-REFERENCE: 443.6^AH^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN3^PRCHAMXC S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN3^PRCHAMXC
This x-ref will update the CHANGES multiple whenever a 'Ship-To-Edit' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,5.4 SHIP TO 1;3 NUMBER
INPUT TRANSFORM: S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,
3)) K:'Z0 X Q:'Z0 S DIC="^PRC(411,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
OUTPUT TRANSFORM: Q:Y']"" S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,
D0,0)),1,3)) Q:'Z0 S Y=$P($S($D(^PRC(411,Z0,1,Y,0)):^(0),1:""),U,1) K Z0
LAST EDITED: AUG 31, 1995
HELP-PROMPT: ENTER A RECEIVING LOCATION
DESCRIPTION:
This is the receiving location.
EXECUTABLE HELP: S ZD=D,X="?",Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.
6,D0,0)),1,3)) Q:'Z0 S DIC="^PRC(411,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.6^AC^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN6^PRCHAMXB S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN6^PRCHAMXB
This x-ref will update the CHANGES multiple whenever a 'Ship-To-Edit' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,5.6 DELIVERY LOCATION 1;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
DESCRIPTION:
This is the delivery location.
443.6,6 VERBAL PURCHASE ORDER (Y/N) 1;4 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 28, 1994
DESCRIPTION:
YES indicates that this is a verbal purchase order.
443.6,6.2 CONFIRMATION COPY (Y/N) 1;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 28, 1994
DESCRIPTION:
YES indicates that this is a confirmation copy.
443.6,6.4 F.O.B. POINT 1;6 SET
Freight on Board
'D' FOR DESTINATION;
'O' FOR ORIGIN;
LAST EDITED: MAR 21, 1995
DESCRIPTION:
This is the F.O.B. point.
CROSS-REFERENCE: 443.6^AM^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN8^PRCHAMXC S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN8^PRCHAMXC
This x-ref will update the CHANGES multiple whenever a 'F.O.B. Edit' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,6.9 ORIGINAL DELIVERY DATE 0;20 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 30, 1989
HELP-PROMPT: This field is updated automatically if the Delivery Date field is changed by amendment.
DESCRIPTION:
This is the original delivery date.
443.6,7 DELIVERY DATE 0;10 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 21, 1995
DESCRIPTION:
This is the delivery date.
CROSS-REFERENCE: 443.6^AE^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN3^PRCHAMXB S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN3^PRCHAMXB
This x-ref will update the CHANGES multiple whenever this field is changed. There is no FORMAL
amendment change to perform this change.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,7.2 ESTIMATED COST 0;11 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999.99
DESCRIPTION:
This is the estimated cost for this purchase order.
443.6,8 SOURCE CODE 1;7 POINTER TO SOURCE CODE FILE (#420.8) (Required)
INPUT TRANSFORM: S DIC("S")="I "_$S($D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHREQ):"""134590""[$E(^(0))",1:"""2456789B""
[$E(^(0))") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 21, 1997
DESCRIPTION:
This is the source code for this purchase order.
SCREEN: S DIC("S")="I "_$S($D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHREQ):"""134590""[$E(^(0))",1:"""2456789B""
[$E(^(0))")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.6^AD^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN7^PRCHAMXB S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN7^PRCHAMXB
This x-ref will update the CHANGES multiple whenever a 'Source Code Edit' amemdment changes this
field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.6,8.1 ASTR. FOR SOURCE CODE 1;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1) X
LAST EDITED: APR 28, 1994
HELP-PROMPT: Answer must be 1-3 characters in length.
DESCRIPTION:
This field contains internal program code that controls printed output.
443.6,8.2 PROPOSAL 1;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>45!($L(X)<3) X
LAST EDITED: APR 28, 1994
HELP-PROMPT: Answer must be 3-45 characters in length.
DESCRIPTION:
This is the proposal information that prints on the purchase order, if applicable.
443.6,9.2 PROMPT PAYMENT TERMS 5;0 Multiple #443.66 (Add New Entry without Asking)
DESCRIPTION:
These are the prompt payment terms for this order.
IDENTIFIED BY:
"Z1": S PRCDAY=$P(^(0),U,2) W ?30,$S(PRCDAY=+PRCDAY:"DAYS: "_PRCDAY,1:"BY THE "_PRCDAY)
443.66,.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: APR 28, 1994
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
443.66,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
LAST EDITED: APR 28, 1994
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 number of days for prompt payment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
443.66,2 CONTRACT # 0;3 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) Q:X="ALL" K:$L(X)>15!($L(X)<3)!('$D(^PRC(443.6,DA(1),2,"AC",X))) X I
$D(X) D TERM^PRCHDIS
LAST EDITED: MAR 29, 1994
HELP-PROMPT: ENTER AN EXISTING CONTRACT
DESCRIPTION:
This is the contract number for this prompt payment terms agreement.
EXECUTABLE HELP:W "CHOOSE FROM: " S Z0=0 F I=0:0 S Z0=$O(^PRC(443.6,D0,2,"AC",Z0)) Q:Z0<0!(Z0="") W !," ",Z
0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
443.66,3 ASTR. 0;4 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X
LAST EDITED: MAR 29, 1994
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains internal program code that controls printed output.
443.6,13 EST. SHIPPING AND/OR HANDLING 0;13 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
OUTPUT TRANSFORM: S Y=" $"_$J(Y,0,2)
LAST EDITED: OCT 28, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
DESCRIPTION:
This is the estimated shipping and/or handling charge.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
443.6,13.05 EST. SHIPPING BOC 23;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) S Z0=$P(^PRC(443.6,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,
Z0,0)) X,Z0 I $D(X) D EN133^PRCHNPO7
LAST EDITED: JUL 01, 1994
HELP-PROMPT: Enter the BOC for the EST. SHIPPING AND/OR HANDLING field entry. Choose the appropriate BOC from
this cost enter.
DESCRIPTION:
Please enter BOC for EST. SHIPPING AND/OR HANDLING charges.
EXECUTABLE HELP: S ZD=D,Z0=$P(^PRC(443.6,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) S X="?",DIC="^PRCD(420.1,Z0,1,",DIC(0)="E"
D ^DIC K DIC S D=ZD K ZD,Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
443.6,13.1 EST. SHIPPING LINE ITEM NO. 0;18 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 22, 1988
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the line item number of the estimated shipping date.
443.6,13.2 GOV'T B/L NO. 12;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>21!($L(X)<1) X
LAST EDITED: JAN 21, 1993
HELP-PROMPT: ANSWER MUST BE 1-21 CHARACTERS IN LENGTH. If FOB point=ORIGIN and Shipping charges > $150, excess
shipping charges are put on Gov't Bill of Lading. Enter number here.
DESCRIPTION:
The Government Bill of Lading.
443.6,13.3 SHIP VIA 12;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>23!($L(X)<1) X
LAST EDITED: JAN 21, 1993
HELP-PROMPT: Answer must be 1-23 characters in length.
DESCRIPTION:
The type of shipper (Air, Land, Sea).
443.6,13.4 GBL P.O.NUMBER 12;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: JAN 21, 1993
HELP-PROMPT: Enter the P.O.number assigned to the Government Bill of Lading. ANSWER MUST BE 1-6 CHARACTERS IN
LENGTH
DESCRIPTION:
The P.O. number for the Gov. Bill of Lading.
443.6,14 DISCOUNT 3;0 Multiple #443.63 (Add New Entry without Asking)
DESCRIPTION:
This is the amount of the discount.
IDENTIFIED BY:
"Z1": W ?25,$P(^(0),U,2)
"Z2": W ?35,"LINE ITEM NO.: ",$P(^(0),U,4)
"Z3": W:$P(^(0),U,2)=0 ?60,"**DELETED**"
443.63,.01 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 ^PRCHDIS1
LAST EDITED: SEP 05, 1997
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 item discount is applied to.
DELETE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.63^AC^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN9^PRCHAMXC S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN9^PRCHAMXC
This x-ref will update the changes multiple when ITEM DISCOUNT Add/Edit amendment changes this
field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
errors.
443.63,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: SEP 05, 1997
HELP-PROMPT: For percentage, enter a number between .01 and 99.99. For dollar amount, enter a number between
$.01 and $999999.99.
DESCRIPTION:
This is the percent/dollar amount for this discount.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:443.63^AD^MUMPS
1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN10^PRCHAMXC S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1 S FLAG=1 D EN10^PRCHAMXC
This x-ref will update the changes multiple when ITEM DISCOUNT Add/Edit amendment changes this
field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
errors.
443.63,2 DISCOUNT AMOUNT 0;3 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999.99)!(X<1) X
LAST EDITED: DEC 17, 1993
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 9999.99
DESCRIPTION:
This is the discount amount.
443.63,3 ITEM COUNT 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 17, 1993
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the item count for this discount.
443.63,4 CONTRACT # 0;5 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7) X
LAST EDITED: DEC 17, 1993
HELP-PROMPT: ANSWER MUST BE 7-15 CHARACTERS IN LENGTH
DESCRIPTION:
This is the contract number for this discount amount.
443.63,5 LINE ITEM 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 17, 1993
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the line item for this discount amount.
443.6,15 LINE ITEM COUNT 0;14 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the line item count.
443.6,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: JUN 11, 1996
DESCRIPTION:
This is the purchasing agent for this order.
SCREEN: S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ) I $P(^(400),U,1)>2"
EXPLANATION: Must be a PPM Official or Manager for Requisitions, a Purchasing Agent or Manager for P.O.s.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
443.6,16.5 VALIDATION CODE 12;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: JAN 21, 1993
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
The code for the validation.
443.6,16.7 VALIDATION VERSION 12;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 21, 1993
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
The version of the validation code.
443.6,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.
443.6,17 VALIDATION DATE/TIME 12;3 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 21, 1993
DESCRIPTION:
The date of the validation.
443.6,18 PO PRINTED TIME 12;1 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 21, 1993
DESCRIPTION:
The time the P.O. was printed.
443.6,18.5 EDI MESSAGE NO. 12;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 21, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
The EDI message number received.
443.6,18.6 NEED SPECIAL HANDLING? 12;13 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 29, 1994
DESCRIPTION: This field is just a question to see if the special handling instructions are needed for the
purchase order.
443.6,18.7 TYPE OF SPECIAL HANDLING 12;14 POINTER TO TYPE OF SPECIAL HANDLING FILE (#443.4)
LAST EDITED: APR 29, 1994
DESCRIPTION: This is a pointer field to file 443.4. The file contains special handling instructions which are
displayed/printed on purchase orders. The special handling instructions are also sent in the CO
segment of the PHA transaction.
443.6,19 AGENT ASSIGNED P.O. 12;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 21, 1993
DESCRIPTION:
The Purchasing Agent assigned to the P.O.
443.6,19.2 DATE P.O. ASSIGNED 12;5 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 21, 1993
DESCRIPTION:
The date the P.O. was assigned the Purchase Agent.
443.6,24 ADMINISTRATIVE CERTIFICATIONS 15;0 POINTER Multiple #443.624 (Add New Entry without Asking)
DESCRIPTION:
These are the administrative certifications for this purchase order.
SCREEN: I $P(^(0),U,1)<9999
EXPLANATION: NUMBER MUST BE LESS THAN 9999
IDENTIFIED BY:
"Z1": W " "
443.624,.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: MAR 21, 1995
DESCRIPTION:
These are the administrative certifications for this purchase order.
SCREEN: S DIC("S")="I $P(^(0),U,1)<9999"
EXPLANATION: ANSWER MUST BE LESS THAN 9999.
CROSS-REFERENCE: 443.624^B
1)= S ^PRC(443.6,DA(1),15,"B",$E(X,1,30),DA)=""
2)= K ^PRC(443.6,DA(1),15,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 443.624^AC^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=27 EN11^PRCHAMXG Q:PRCHAMDA=27 D FLAG^PRCHMA Q:$T I PRCHAMDA=28 S
PRCHX=X,X=0 D EN1^PRCHAMXC S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=28 S FLAG=1 D EN1^PRCHAMXC
This x-ref will update the CHANGES multiple whenever an 'ADMINISTRATIVE CERTIFICATION Add' or an
'ADMINISTRATIVE CERTIFICATION Delete' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.624,1 DESCRIPTION LINE COUNT 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 17, 1994
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the number of lines in the description.
443.6,26 BBFY 23;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 30, 1994
DESCRIPTION: This field is the FMS 'BEGINNING BUGDET FISCAL YEAR'. This is set from 'PRC("BBFY")' variable.
This variable is created through the 'FCP', 'FUND CONTROL POINT' field.
443.6,27 OLD PO RECORD 23;3 POINTER TO AMENDMENTS FILE (#443.6)
LAST EDITED: MAR 30, 1994
DESCRIPTION:
This is the internal record number for the original purchase order.
443.6,28 NEW PO RECORD 23;4 POINTER TO AMENDMENTS FILE (#443.6)
LAST EDITED: MAR 30, 1994
DESCRIPTION:
This is the internal record number for the new purchase order.
443.6,29 END DATE FOR SERVICE ORDER 23;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 10, 1994
HELP-PROMPT: Enter the ending date for this Service Order.
DESCRIPTION: This field is the ending date for the Purchase order or 1358 for a service order used when the
length of the service contract extends over a period greater than one month. It is used by Fiscal
service at the time of obligation. When used in conjunction with the Auto Accrue flag, the ending
date will determine the monthly accrual.
443.6,30 AUTO ACCRUE 23;6 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 24, 1994
HELP-PROMPT: Enter YES for Auto Accrual; enter NO for no Auto Accrual.
DESCRIPTION: This field is used by Fiscal service to indicate whether a Purchase Order or 1358 for a service
order should be accrued in FMS.
443.6,31 SATELLITE STATION 23;7 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411)
LAST EDITED: JUL 28, 1995
HELP-PROMPT: Please enter the satellite station to which this purchase order belongs to.
DESCRIPTION:
Please enter the satellite station to which this purchase order belongs to.
443.6,35 AMOUNT 9;0 Multiple #443.7 (Add New Entry without Asking)
DESCRIPTION:
This is the amount of the contract.
443.7,.01 AMOUNT 0;1 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999.99)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999.99
DESCRIPTION:
This is the amount of the contract.
CROSS-REFERENCE: ^^TRIGGER^443.6^91
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(443.6,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(443.7,.01,1,1,1.4)
1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,14,99)) S DIH=DI
H_U" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"":U_%,1:""),DIH=443.6,DI
G=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(443.6,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(443.7,.01,1,1,2.4)
2.4)= S DIH=$S($D(^PRC(443.6,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,14,99)) S DIH=DI
H_U" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"":U_%,1:""),DIH=443.6,DI
G=91 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= TOTAL AMOUNT+AMOUNT
DELETE VALUE)= TOTAL AMOUNT-AMOUNT
FIELD)= TOTAL AMOUNT
443.7,1 TYPE CODE 0;2 POINTER TO CODE INDEX FILE (#420.6) (Required)
INPUT TRANSFORM:S DIC("S")="I Y<50" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
DESCRIPTION:
This is the type of amendment being processed for FPDP reporting.
SCREEN: S DIC("S")="I Y<50"
EXPLANATION: MUST BE A TYPE CODE
443.7,1.1 COMP. STATUS/BUSINESS 0;4 POINTER TO CODE INDEX FILE (#420.6)
LAST EDITED: APR 29, 1994
DESCRIPTION:
This is the competitive status.
443.7,1.2 PREF. PROGRAM 0;5 POINTER TO CODE INDEX FILE (#420.6)
LAST EDITED: APR 29, 1994
DESCRIPTION:
This is the preference program of the vendor
443.7,2 CONTRACT # 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>17!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-17 CHARACTERS IN LENGTH
DESCRIPTION:
This is the contract number for the amendment, if applicable.
443.6,40 ITEM 2;0 Multiple #443.61 (Add New Entry without Asking)
LAST EDITED: DEC 20, 1993
DESCRIPTION:
This is the item for which the amendment is being processed.
IDENTIFIED BY:
"Z1": W:$D(^(1,1,0)) $E(^(0),1,60)
"Z3": I $P(^PRC(443.6,DA(1),2,+Y,0),U,2)=0!($P(^(0),U,9)=0) W ?50,"**DELETED**"
443.61,.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: FEB 07, 1997
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the line item number.
DELETE TEST: .01,0)= I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.61^AT^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN0^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN0^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN0^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
errors.
CROSS-REFERENCE:443.61^B
1)= S ^PRC(443.6,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^PRC(443.6,DA(1),2,"B",$E(X,1,30),DA)
CROSS-REFERENCE:443.61^C
1)= S ^PRC(443.6,DA(1),2,"C",$E(X,1,30),DA)=""
2)= K ^PRC(443.6,DA(1),2,"C",$E(X,1,30),DA)
This X-REF lists all the LINE ITEM NUMBER entries within one P.O.
CROSS-REFERENCE:443.6^AZAPSCH^MUMPS
1)= Q
2)= N DAA,DS,DIK,PR S DAA=DA N DA S PR=$G(PRCHPO,$P(^PRC(443.6,D0,0),U)),DS="",DIK="^PRC(441.7," F
S DS=$O(^PRC(441.7,"AG",PR,DAA,DS)) Q:DS="" S DA=DS D ^DIK
To delete entries in file 441.7 that correspond to an item in field #40 in file #443.6 that is
being deleted.
443.61,1 DESCRIPTION 1;0 WORD-PROCESSING #443.65
DESCRIPTION:
This is a description of the item.
DESCRIPTION:
Description of ITEM in AMENDMENT
443.61,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 D EN5^PRCHCRD2
LAST EDITED: MAR 21, 1995
DESCRIPTION:
This is the Item Master number.
TECHNICAL DESCR:The file 442 internal record number needs to be copied into file 441 as another purchase order
using this ITEM when the amendment is moved back into file 442.
SCREEN: S DIC("S")="I 1",DIC(0)=DIC(0)_"O"
EXECUTABLE HELP:I X="?" S XQH="PRCHITEM HELP" D EN^XQH
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:443.61^AD^MUMPS
1)= Q:'$D(PRC("SITE"))!'($P(^PRC(443.6,DA(1),1),U,1)]"") S PRCHCI=X,PRCHCPO=DA(1),PRCHCIT=DA,PRCHC
V=$P(^PRC(443.6,DA(1),1),U,1) D LST^PRCHCRD2
2)= Q
This X-REF will copy information from the ITEM MASTER file into the AMENDMENTS file. Here is a
list of the fields in the ITEM MASTER file and the fields in the AMENDMENTS file that the data is
copied into.
File 441 File 443.6
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
SUBACCOUNT SUBACCOUNT
CONTRACT NUMBER CONTRACT #
QUANTITY(442)*UNIT COST TOTAL COST
DESCRIPTION MULTIPLE DESCRIPTION MULTIPLE
CROSS-REFERENCE:443.61^AE
1)= S ^PRC(443.6,DA(1),2,"AE",$E(X,1,30),DA)=""
2)= K ^PRC(443.6,DA(1),2,"AE",$E(X,1,30),DA)
This X-REF lists the REPETITIVE (PR CARD) NO. for all LINE ITEM NUMBER entries within one P.O.
CROSS-REFERENCE:443.61^AL^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN4^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN4^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN4^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,2 QUANTITY 0;2 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
LAST EDITED: MAR 21, 1995
HELP-PROMPT: TYPE A NUMBER BETWEEN .01 AND 999999
DESCRIPTION:
This is the quantity of the item on the order.
CROSS-REFERENCE:^^TRIGGER^443.61^15
1)= X ^DD(443.61,2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),
U,1) S DIU=X K Y X ^DD(443.61,2,1,1,1.1) X ^DD(443.61,2,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PRC(443.6,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(443.6,D0,2,D1,0))
:^(0),1:"") S X=$P(Y(1),U,9)]""
1.4)= S DIH=$S($D(^PRC(443.6,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=443.61,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(443.6,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(443.61,2,1,1,2.4)
2.4)= S DIH=$S($D(^PRC(443.6,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=443.61,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
CROSS-REFERENCE:443.61^AF^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN1^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAM
DA S PRCHX=X,X=0 D EN1^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN1^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Delete' or a
'Line Item Edit' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,3 UNIT OF PURCHASE 0;3 POINTER TO UNIT OF ISSUE FILE (#420.5) (Required)
LAST EDITED: MAR 21, 1995
DESCRIPTION:
This is the unit of purchase of the item.
TECHNICAL DESCR:
This field needs to be coppied into file 441 (see EN6^PRCHNPO5) when the amendment is moved back
into file 442.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:443.61^AG^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN2^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN2^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN2^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,3.1 PACKAGING MULTIPLE 0;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 21, 1995
HELP-PROMPT: Enter a number between 1 and 999999. Used to indicate quantity contained in one unit of purchase.
(Ex. Item comes 10 per box, packaging multiple=10).
DESCRIPTION:
This is the packaging multiple of the item.
TECHNICAL DESCR:
This field needs to be cpooied into file 441 (see EN7^PRCHNPO6) when the amendment is moved back
into file 442.
CROSS-REFERENCE:443.61^AN^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN9^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN9^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN9^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,3.2 COST CENTER 0;8 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X
LAST EDITED: MAR 21, 1995
HELP-PROMPT: ANSWER MUST BE 3-40 CHARACTERS IN LENGTH
DESCRIPTION:
This is the cost center for this purchase order.
CROSS-REFERENCE:443.61^AK^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN7^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN7^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Edit' amendment changes this
field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,3.5 BOC 0;4 FREE TEXT (Required)
INPUT TRANSFORM:N Z0 S Z0=$P(^PRC(443.6,DA(1),0),"^",5) K:'Z0 X I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X I $D(X) S X=$$
SUPBOC^PRCHMA0 D EN13^PRCHNPO7
LAST EDITED: FEB 10, 1997
HELP-PROMPT: Please enter the appropriate BOC for this item.
DESCRIPTION:
This is one of the BOC on this purchase order.
EXECUTABLE HELP:N D,Z0,Z1,DIC S Z0=$P(^PRC(443.6,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^PRCHMA0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:443.61^AH^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN3^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN3^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN3^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHMAXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,3.6 INTERMEDIATE PRODUCT CODE 0;11 POINTER TO INTERMEDIATE PRODUCT FILE (#420.9)
LAST EDITED: APR 28, 1994
DESCRIPTION:
This is the intermediate product.
443.61,4 CONTRACT/BOA # 2;2 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) S Y=$$CONTRACT^PRCHNPT(DA(1),X) S X=$P(Y,U,2) K:Y'>0 X
LAST EDITED: FEB 21, 1997
HELP-PROMPT: Enter a Contract/BOA # (min. 7 chars.) with valid expiration date.
DESCRIPTION:
This is the contract number with valid expiration date.
EXECUTABLE HELP:D HLPCON^PRCHNPT(DA(1),X)
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:443.61^AC^MUMPS
1)= S ^PRC(443.6,DA(1),2,"AC",$E(X,1,30),DA)=""
2)= K ^PRC(443.6,DA(1),2,"AC",$E(X,1,30),DA)
This X-REF is a list of all CONTRACT #s within one P.O.
CROSS-REFERENCE:443.61^AY^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN5^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN5^PRCHAMXD S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN5^PRCHAMXD
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,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
OUTPUT TRANSFORM:S Y=" $"_$J(Y,0,4)
LAST EDITED: MAR 21, 1995
HELP-PROMPT: Enter a dollar amount between 0 and 9999999.9999 or N/C for no charge
DESCRIPTION:
This is the actual unit cost for this item.
TECHNICAL DESCR:
This field needs to be coppied into file 441 (see EN9^PRCHNPO5) when the amendment is moved back
into file 442.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:^^TRIGGER^443.61^15
1)= X ^DD(443.61,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"") S X=$P(Y(1),
U,1) S DIU=X K Y X ^DD(443.61,5,1,1,1.1) X ^DD(443.61,5,1,1,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^PRC(443.6,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(443.6,D0,2,D1,0))
:^(0),1:"") S X=$P(Y(1),U,2)>0
1.4)= S DIH=$S($D(^PRC(443.6,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=443.61,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(443.6,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(443.61,5,1,1,2.4)
2.4)= S DIH=$S($D(^PRC(443.6,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=443.61,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
CROSS-REFERENCE:443.61^AM^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN8^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAM
DA S PRCHX=X,X=0 D EN8^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN8^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit' or a
'Line Item Delete' amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,5.5 EST. UNIT COST 0;7 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
LAST EDITED: MAR 21, 1995
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999.99
DESCRIPTION:
This is the estimated unit cost for this item.
CROSS-REFERENCE:443.61^AJ^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN6^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN6^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Edit' amendment changes this
field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,6 DESCRIPTION LINE COUNT 2;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>15)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 15
DESCRIPTION:
This is the number of lines in the item description (internal program use).
443.61,7 DESCRIPT. ASTR. 2;5 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.
443.61,8 FEDERAL SUPPLY CLASSIFICATION 2;3 POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2) (Required)
FSC/PSC
INPUT TRANSFORM:D EN100^PRCHNPO7
LAST EDITED: SEP 09, 2005
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
CROSS-REFERENCE:443.61^AU^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN1^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN1^PRCHAMXD S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN1^PRCHAMXD
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,9 VENDOR STOCK NUMBER 0;6 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>24!($L(X)<1) X
LAST EDITED: MAR 21, 1995
HELP-PROMPT: Enter the Vendor Stock No. or Catalog no., or other number used by the Vendor to identify this item
(1-24 characters)
DESCRIPTION:
This is the stock number for this item.
TECHNICAL DESCR:
This field needs to be coppied into file 441 (see EN12^PRCHNPO5) when the amendment is moved back
into file 442.
CROSS-REFERENCE:443.61^AI^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN5^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN5^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN5^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,9.3 NATIONAL DRUG CODE 0;15 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<11)!'(X?1.6N1"-"1.4N1"-"1.2N) X
LAST EDITED: MAR 21, 1995
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.
CROSS-REFERENCE:443.61^AQ^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN12^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN12^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN12^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,9.4 SKU 0;16 POINTER TO UNIT OF ISSUE FILE (#420.5)
LAST EDITED: MAR 21, 1995
HELP-PROMPT: Enter the Stock Keeping Unit for this item.
DESCRIPTION:
SKU pointer of ITEM.
TECHNICAL DESCR:
This field needs to be cpooied into file 441 (see EN6^PRCHNPO7) when the amendment is moved back
into file 442.
CROSS-REFERENCE:443.61^AR^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN13^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN13^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN13^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,9.5 NSN 0;13 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<16)!'(X?4N1"-"2UN1"-"3UN1"-"4N.UN) X
LAST EDITED: DEC 12, 1996
HELP-PROMPT: Enter the NSN (National Stock Number) in the following format: 1234-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 this item.
TECHNICAL DESCR:
This field needs to be copied into file 441 (see EN1^PRCHNPO7) when the amendment is moved back
into file 442.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:443.61^AO^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN10^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN10^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN10^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHMAXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,9.6 MAXIMUM ORDER QTY 0;14 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
LAST EDITED: OCT 15, 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.
TECHNICAL DESCR:
This field needs to be cpooied into file 441 (see EN9^PRCHNPO6) when the amendment is moved back
into file 442.
CROSS-REFERENCE:443.61^AP^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN11^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN11^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN11^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Edit' amendment changes this
field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,9.7 UNIT CONVERSION FACTOR 0;17 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 21, 1995
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 needs to be cpooied into file 441 (see EN7^PRCHNPO7) when the amendment is moved back
into file 442.
CROSS-REFERENCE:443.61^AS^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN14^PRCHAMXF Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN14^PRCHAMXA S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN14^PRCHAMXA
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,10 2237 REFERENCE # 0;10 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
DESCRIPTION:
This is the purchase request reference number.
443.61,11 QUANTITY PREVIOUSLY RECEIVED 2;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 999999
DESCRIPTION:
This is the quantity previously received.
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
443.61,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: APR 29, 1994
DESCRIPTION:
First EDI status code for ITEM
443.61,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: APR 29, 1994
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
First EDI status quantity of ITEM
443.61,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: APR 29, 1994
DESCRIPTION:
Second EDI status code of ITEM
443.61,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: APR 29, 1994
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
DESCRIPTION:
Second EDI status quantity of ITEM
443.61,15 TOTAL COST 2;1 NUMBER (Required)
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999.99
DESCRIPTION:
This is the total cost of the item requested.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the QUANTITY field of the ITEM sub-field of the PROCUREMENT & ACCOUNTING TRANSACTIONS
File
TRIGGERED by the QUANTITY field of the ITEM sub-field of the AMENDMENTS File
TRIGGERED by the ACTUAL UNIT COST field of the ITEM sub-field of the AMENDMENTS File
443.61,16 DISCOUNTED AMOUNT 2;6 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
LAST EDITED: MAY 17, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
DESCRIPTION:
This is the discounted amount for this order.
443.61,17 OBLIGATED SUBACCOUNT 2;7 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
DESCRIPTION:
This is the obligated sub-amount.
443.61,20 DATE RECEIVED 3;0 DATE Multiple #443.64 (Add New Entry without Asking)
DESCRIPTION:
This is the date the item was received.
443.64,.01 DATE RECEIVED 0;1 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 04, 1986
DESCRIPTION:
This is the date the item(s) was received.
443.64,1 QTY BEING RECEIVED 0;2 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: OCT 07, 1994
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.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
443.64,2 AMOUNT 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999.99)!(X<0)!(X?.E1"."3N.N) X
LAST EDITED: DEC 04, 1986
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999.99
DESCRIPTION:
This is the dollar amount for the item being received.
443.64,3 PARTIAL NUMBER 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 04, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the number of the partial.
443.64,4 DISCOUNTED AMOUNT 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."4N.N) X
LAST EDITED: DEC 04, 1986
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999
DESCRIPTION:
This is the discounted amount.
443.64,5 RECEIVING CODE SHEET NO. 0;6 POINTER TO CALM/LOG CODE SHEET FILE (#423)
LAST EDITED: APR 26, 1994
DESCRIPTION:
This is the receiving code sheet number.
443.64,6 ADJUSTED QUANTITY RECIEVED 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 26, 1994
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION:
This is the QUANTITY RECIEVED after adjustment.
443.61,30 SERIAL NO.(GSA/DLA) 4;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X
LAST EDITED: FEB 28, 1994
HELP-PROMPT: Type a Number between 1000 and 9999, 0 Decimal Digits
DESCRIPTION:
This is the serial number (GSA/DLA).
443.61,31 CONSUMER LEVEL 4;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 28, 1994
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
DESCRIPTION: This is the normal stock level of this item that the service placing the order normally maintains
in their inventory.
443.61,32 CONSUMER LEVEL OVERRIDE 4;3 SET
'1' FOR OVERRIDE LEVEL;
'A' FOR OVERRIDE LEVEL AND ISSUE MULT.;
LAST EDITED: FEB 28, 1994
DESCRIPTION: Enter '1' to override the normal stock level for the item. Enter 'A" to override both the level
and the FIS issue multiple.
443.61,33 DO NOT SUB 4;4 SET
'1' FOR DO NOT SUB;
LAST EDITED: FEB 28, 1994
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.
443.61,34 DO NOT B/O 4;5 SET
'1' FOR DO NOT B/O;
LAST EDITED: FEB 28, 1994
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.
443.61,35 BACKORDER CONTROL 4;6 SET
'-' FOR FOR ESTABLISH BACKORDER;
LAST EDITED: FEB 28, 1994
DESCRIPTION:
Enter '-' to set a backorder source for LOG code sheets.
443.61,36 SUBSTITUTE CONTROL 4;7 SET
'-' FOR NO SUBSTITUTE;
LAST EDITED: FEB 28, 1994
DESCRIPTION:
Enter '-' if substitution is not authorized for LOG code sheets.
443.61,36.3 BACKORDER (EDI) 4;15 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 21, 1995
DESCRIPTION:
Backorder flag set by EDI for ITEM
CROSS-REFERENCE:443.61^AZ^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN6^PRCHAMXD S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN6^PRCHAMXD
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,36.6 SUBSTITUTE (EDI) 4;16 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: MAR 21, 1995
DESCRIPTION:
User-entered flag to control whether or not vendor is allowed to substitute ITEM.
CROSS-REFERENCE:443.61^AAA^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN7^PRCHAMXD S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN7^PRCHAMXD
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,37 ACQUISITIONS CODE SHEET NO. 4;8 POINTER TO CALM/LOG CODE SHEET FILE (#423)
LAST EDITED: FEB 28, 1994
DESCRIPTION:
This is the LOG Acquisition code sheet created for this line/item.
443.61,38 GROUP SPLIT CIV 4;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>3!($L(X)<1) X
LAST EDITED: FEB 28, 1994
HELP-PROMPT:Answer must be 1-3 characters in length.
DESCRIPTION:This is a three character code. All items which share the same code will print together on a
separate CIV.
443.61,39 SOURCE CODE 4;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>1!($L(X)<1) X
LAST EDITED: FEB 28, 1994
HELP-PROMPT:Answer must be 1 character in length.
DESCRIPTION:
This is the one character source code.
443.61,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: FEB 28, 1994
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.
443.61,40 DRUG TYPE CODE 4;11 SET
'A' FOR NARCOTIC;
'L' FOR CONTROLLED SUBSTANCE;
'D' FOR OTHER DRUGS;
LAST EDITED: MAR 21, 1995
DESCRIPTION:This is the set of drug type codes (narcotic, controlled substance, or other) which will appear on
the LOG code sheet.
CROSS-REFERENCE:443.61^AV^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN2^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN2^PRCHAMXD S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN2^PRCHAMXD
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,41 FOOD GROUP 4;12 SET (Required)
'1' FOR Meat, Fish, Poultry, Eggs & Convenience;
'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: DEC 07, 1995
DESCRIPTION:
This is the food group which will appear on the LOG code sheet.
CROSS-REFERENCE:443.61^AW^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN3^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN3^PRCHAMXD S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN3^PRCHAMXD
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,42 DIETETIC CONVERSION FACTOR 4;13 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
LAST EDITED: APR 17, 1995
HELP-PROMPT: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.
CROSS-REFERENCE:443.61^AX^MUMPS
1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN4^PRCHAMXG Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I PRCHAMDA=23 S
PRCHX=X,X=0 D EN4^PRCHAMXD S X=PRCHX K PRCHX
2)= I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN4^PRCHAMXD
This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a 'Line Item Edit'
amendment changes this field.
****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK
variable errors.
443.61,43 410 ITEM NUMBER 2;13 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 29, 1994
HELP-PROMPT:Type a Number between 1 and 999, 0 Decimal Digits
DESCRIPTION:
This is the line item number on the attached 2237.
443.6,44 DISPUTED 23;9 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This field is to indicate whether a purchase card charge is being disputed.
443.6,46 PURCHASE CARD NUMBER 23;8 POINTER TO PURCHASE CARD INFORMATION FILE (#440.5) (Required)
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This is the purchase card number being used for the purchase card order.
443.6,47 DELIVERY ORDER 23;10 SET
'Y' FOR YES;
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This field indicates whether this order is a delivery order.
443.6,48 TYPE OF ORDER 23;11 SET
'D' FOR DELIVERY ORDER;
'P' FOR DETAILED PURCHASE CARD ORDER;
'S' FOR SIMPLIFED PURCHASE CARD ORDER;
LAST EDITED: AUG 30, 1996
DESCRIPTION: This field determines if a purchase order is a 'Detailed Purchase Card Order', 'Simplified Purchase
Card Order' or a 'Delivery Order'.
443.6,50 AMENDMENT 6;0 Multiple #443.67
LAST EDITED: MAR 14, 1994
DESCRIPTION:
This multiple contains information about all amendments to a purchase order.
443.67,.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: MAR 29, 1994
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION:
This is the amendment number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 443.67^B
1)= S ^PRC(443.6,DA(1),6,"B",$E(X,1,30),DA)=""
2)= K ^PRC(443.6,DA(1),6,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^443.67^15
1)= X ^DD(443.67,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,6,D1,0)):^(0),1:"") S X=$P(Y(1
),U,12),X=X S DIU=X K Y X ^DD(443.67,.01,1,2,1.1) X ^DD(443.67,.01,1,2,1.4)
1.1)= S X=DIV S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X1=X,X2=+7,X="" D
C^%DTC:X1
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(443.6,D0,6,D1,0))
:^(0),1:"") S X=$P(Y(1),U,12)=""
1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,12)=DIV,DIH=443.67,DI
G=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= DELETION DATE=""
CREATE VALUE)= NOW+7
DELETE VALUE)= NO EFFECT
FIELD)= DELETION DATE
This TRIGGERED x-ref will enter the date and time that this amendment should disappear. The person
entering this amendment has 7 days to finish and sign off this amendment. If this amendment is not
signed off within 7 days this 'potential' amendment will be removed as though it was never entered.
443.67,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.
443.67,2 AMOUNT CHANGED 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999.99)!(X<-9999999.99)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999.99 AND 9999999.99
DESCRIPTION:
This is the amount changed.
443.67,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: JUL 06, 1994
HELP-PROMPT: This is the AUTHORITY type.
DESCRIPTION:
This is the AUTHORITY type.
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
443.67,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 about the type amendment.
443.67,5 CONTRACTOR REQUIRED TO SIGN? 0;5 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JAN 02, 1986
DESCRIPTION:
YES indicates if the contractor is required to sign.
443.67,5.2 NUMBER OF COPIES 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9)!(X<1)!(X?.E1"."1N.N) X
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9
DESCRIPTION:
This indicates the number of copies required.
443.67,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(PRCHREQ) I $P(^(400),U,1)>2" D ^DIC K DIC S DIC=DIE
,X=+Y K:Y<0 X
LAST EDITED: JUN 11, 1996
DESCRIPTION:
This is the purchasing agent for this amendment.
SCREEN: S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHREQ) I $P(^(400),U,1)>2"
EXPLANATION: Must be a PPM Official or Manager for Requisitions, a Purchasing Agent or Manager for P.O.s.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
443.67,7 VALIDATION CODE 1;2 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM:S Y="/ES/"_$$DECODE^PRCHES10(D0,D1)
LAST EDITED: JAN 19, 1993
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION:
This is the electronic signature of the purchasing agent.
UNEDITABLE
443.67,7.5 VALIDATION VERSION 0;9 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:
Version of validation of ESIG
443.67,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:
Encoded value used by IFCAP security utilities when confirming the integrity of this record.
443.67,8 DATE SIGNED 1;3 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 09, 1986
DESCRIPTION:
This is the date the amendment was signed.
443.67,9 AMENDMENT/ADJUSTMENT STATUS 1;4 POINTER TO PURCHASE ORDER STATUS FILE (#442.3)
INPUT TRANSFORM:D STAT^PRCHINQ
LAST EDITED: JUN 02, 1996
DESCRIPTION: This is a pointer to the Purchase Order Status File (442.3). It indicates the status of the
amendment/adjustment.
SCREEN: S DIC("S")="D STAT1^PRCHINQ"
EXPLANATION: Enter the status the purchase will have after it is amended.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:443.6^D^MUMPS
1)= S ^PRC(443.6,"D",DA(1),X,DA)=""
2)= K ^PRC(443.6,"D",DA(1),X,DA)
Thjis x-ref allows looking up on the AMENDMENT/ADJUSTMENT STATUS.
443.67,10 FISCAL APPROVED BY 1;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 21, 1993
DESCRIPTION:
This is the official giving fiscal approval.
443.67,11 FISCAL VALIDATION CODE 1;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: JAN 12, 1993
HELP-PROMPT: Answer must be 3-30 characters in length.
DESCRIPTION:
The code for validating the ESIG
443.67,11.5 FISCAL VALIDATION VERSION 0;11 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 12, 1993
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
Version of validation of ESIG
443.67,11.7 FISCAL ESIG CODE 1;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<3) X
LAST EDITED: APR 12, 1993
HELP-PROMPT: Answer must be 3-10 characters in length.
DESCRIPTION:
Encoded value used by IFCAP security utilities when confirming the integrity of this record.
443.67,11.8 FISCAL VALIDATION DATE 1;8 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 12, 1993
DESCRIPTION:
Date/time of validation of ESIG
443.67,12 DESCRIPTION 2;0 WORD-PROCESSING #443.701
DESCRIPTION:
This is the description of the amendment.
LAST EDITED: DEC 19, 1985
DESCRIPTION:
DESCRIPTION OF AMENDMENT
443.67,13 ADJUSTMENT VOUCHER 0;8 SET
'Y' FOR YES;
LAST EDITED: DEC 05, 1986
DESCRIPTION:
This is the adjustment voucher.
443.67,14 CHANGES 3;0 Multiple #443.6714 (Add New Entry without Asking)
LAST EDITED: DEC 16, 1993
DESCRIPTION: Each entry in this multiple will contain all the information about one field that the user is
amending.
TECHNICAL DESCR:Each change entered from an amendment edit will create an entry in this multiple.
The way an entry is captured may be by using the 'KILL' part of a cross-reference or by having
the routine that does the amendment also enter the proper value into the changes multiple.
This changes multiple will store the value of the field being changed only if this is the first
entry for this field within this amendment. If this field hasn't been used before, its value is
'null', the value stored in the changes record will be '0'.
443.6714,.01 CHANGE NUMBER 0;1 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: DEC 16, 1993
HELP-PROMPT: Enter the next sequential number.
DESCRIPTION:
This number represents the order that each field within this amendment was changed.
TECHNICAL DESCR:This number is just the next value from the third '^' piece of the zero node of this subfile
(443.6714). Once a new record is added the user won't be able to change it or delete it. If
this field has been entered already for this amendment it will not be added again. Only the
original value of the field, the value just before this amendment was entered, is needed. All
additional changes to the field's value are immaterial.
CROSS-REFERENCE:443.6714^B
1)= S ^PRC(443.6,DA(2),6,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PRC(443.6,DA(2),6,DA(1),3,"B",$E(X,1,30),DA)
CROSS-REFERENCE:^^TRIGGER^443.6714^5
1)= X ^DD(443.6714,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,6,D1,3,D2,0)):^(0),1:"") S X
=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(443.6714,.01,1,2,1.1) X ^DD(443.6714,.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(443.6,D0,6,D1,3,D2,0)):^(0),1:"") S X=$P(Y(1),U,5)=""
1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=4
43.6714,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 ENTERED
This TRIGGER x-ref will enter when this CHANGE was added to this amendment.
CROSS-REFERENCE:^^TRIGGER^443.6714^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(443.6,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(443.6714,.01,1,3,1.
4)
1.4)= S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=4
43.6714,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= DUZ
DELETE VALUE)= NO EFFECT
FIELD)= USER
The person editing the field listed in this CHANGES record will be recorded in the USER field.
443.6714,1 AMENDMENT TYPE 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>19)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 02, 1994
HELP-PROMPT:Enter the number for the amendment edit choosen.
DESCRIPTION:
This is the numeric value for the kind of amendment the user requested.
TECHNICAL DESCR:
This number is a pointer to file 442.2 or file 441.6. This number is found in the variable PRCHAMDA
and is the internal entry number for the amendment action the user is performing.
CROSS-REFERENCE:443.6714^AC^MUMPS
1)= S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" S ^PRC(443.6,DA(2),6,DA(1),3
,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA)="" K PRCHAA
2)= S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" K ^PRC(443.6,DA(2),6,DA(1),3
,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA),PRCHAA
This x-ref will prevent multiple copies of an AMENDMENT TYPE from being entered into the 'CHANGES'
multiple for the same amendment. The FIELD & FILE field is included to allow conditions like
different ITEM entries from being excluded or from different fields within the same AMENDMENT TYPE,
allowing various fields to be entered/edited, from being left out.
443.6714,2 FIELD & FILE 0;3 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1)!'(X?.E1";".N) X
LAST EDITED: MAY 02, 1994
HELP-PROMPT:Enter the FIELD;FILE:UPPER FIELD values for the field being edited.
DESCRIPTION:In this field will be the field number follwed by a ';' then by the file number of the changed
entry then separated with a : is the field number of the next level up that created this multiple.
If the field is located in a subfile then the file number will become the subfile number. For
example, if the BOC field in the ITEM multiple in the AMENDMENTS file - this file - is changed the
data entered in this field will be '3.5;443.61:40'.
TECHNICAL DESCR:
The information found here will allow DIQ1 to get the new value of the changed field.
CROSS-REFERENCE:443.6714^AE^MUMPS
1)= S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" S ^PRC(443.6,DA(2),6,DA(1),3
,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA)="" K PRCHAA
2)= S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)="" K ^PRC(443.6,DA(2),6,DA(1),3
,"AC",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),";"),DA),PRCHAA
This x-ref will prevent multiple copies of an AMENDMENT TYPE from being entered into the 'CHANGES'
multiple for the same amendment. The FIELD & FILE field is included to allow conditions like
different ITEM entries from being excluded or from different fields within the same AMENDMENT TYPE,
allowing various fields to be entered/edited, from being left out.
443.6714,3 OLD DATA VALUE 1;0 WORD-PROCESSING #443.67143 (NOWRAP)
DESCRIPTION:This is the orginal value of the field found in the FIELD & FILE entry within this CHANGES
subrecord.
LAST EDITED: MAR 14, 1994
DESCRIPTION:This is the old data value (see field 50, sub-field 14, sub-field 3 for a complete description of
this field).
TECHNICAL DESCR:
See DESCRIPTION for this field.
443.6714,4 SUBRECORD ENTRY 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>100!($L(X)<1) X
LAST EDITED: DEC 16, 1993
HELP-PROMPT:Enter each 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 any subfile internal entry numbers needs to be entered in this field. Since all CHANGES
refer to this record there is no need to enter D0. For the example listed in the FIELD & FILE
field only the internal number of the LINE ITEM NUMBER that the SUBACCOUNT belongs to needs to be
entered here. The SUBACCOUNT field is only one level deep so there will be only one internal
subrecord number needed.
443.6714,5 DATE & TIME ENTERED 0;5 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 16, 1993
DESCRIPTION:This will be the date and time the user changed the entry listed in the FIELD & FILE and
SUBRECORD ENTRY fields.
TECHNICAL DESCR:
This field is triggered when the CHANGE NUMBER field is entered. This field will have the
current date and time entered.
NOTES: TRIGGERED by the CHANGE NUMBER field of the CHANGES sub-field of the AMENDMENT sub-field of the
AMENDMENTS File
443.6714,6 USER 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 16, 1993
HELP-PROMPT:Enter the person who is editing the field being added to this CHANGES record.
DESCRIPTION:
This field will point to VA(200, showing the user who made this change.
TECHNICAL DESCR:
This field is triggered when the CHANGE NUMBER field is entered. The value entered for this
field comes from DUZ.
NOTES: TRIGGERED by the CHANGE NUMBER field of the CHANGES sub-field of the AMENDMENT sub-field of the
AMENDMENTS File
443.6714,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
DESCRIPTION:This field contains the internal record number for file 441.7, the copy of the DELIVERY SCHEDULE
(ORDER) file.
CROSS-REFERENCE:443.6^C^MUMPS
1)= S CHNO=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)),^PRC(443.6,"C",DA(2),DA(1),$P(CHNO,U,3),$P(CHNO,U,4
),$P(CHNO,U,7),DA)="" K CHNO
2)= S CHNO=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) K ^PRC(443.6,"C",DA(2),DA(1),$P(CHNO,U,3),$P(CHNO,U
,4),$P(CHNO,U,7),DA),CHNO
This x-ref allows rapid look-up of the OTHER FILE NUMBER (file 441.7) that belongs to a specific
FILE & FIELD multiple for a SUBRECORD ENTRY. For example, in the ITEM multiple entry 3 has some
DELIVERY SCHEDULEs associated with it. This x-ref will point to each entry in file 441.7 that
holds that DELIVERY SCHEDULE information.
CROSS-REFERENCE:443.6714^AD^MUMPS
1)= I X>0 S ^PRC(443.6,DA(2),6,DA(1),3,"AD",X,DA)=""
2)= I X>0 K ^PRC(443.6,DA(2),6,DA(1),3,"AD",X,DA)
443.67,15 DELETION DATE 0;12 DATE
INPUT TRANSFORM:S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 10, 1996
DESCRIPTION:
This is the time when the amendment will be deleted if there is no action for 4 days. The PA
assigned to this amendment has 4 days from this time to complete and sign off this amendment. If
this amendment isn't signed off within the 4 day window, this record of the user's amendment will
be deleted from file 443.6 and no changes will be made into file 442.
WRITE AUTHORITY:^
NOTES: TRIGGERED by the AMENDMENT field of the AMENDMENT sub-field of the AMENDMENTS File
443.67,16 JUSTIFICATION 4;1 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>240!($L(X)<1) X
LAST EDITED: MAR 08, 1994
HELP-PROMPT:Answer must be 1-240 characters in length.
DESCRIPTION:
The reason for amending the purchase order. Answer must be 1-240 characters in length.
443.6,51 SORT GROUP 23;13 POINTER TO SORT GROUP FILE (#410.7)
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This is the sort group for this order.
443.6,52 CLASSIFICATION OF REQUEST 23;12 POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2)
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This is the Classification of Request for this order.
443.6,53 PCDO VENDOR 23;14 POINTER TO VENDOR FILE (#440)
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This vendor is for purchase card and delivery order.
443.6,54 RECEIVING REQUIRED? 23;15 SET (Required)
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This field indicates if a purchase card purchase requires receiving.
443.6,55 PURCHASE CARD EXT. NO. 23;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<16) X
LAST EDITED: AUG 30, 1996
HELP-PROMPT: Answer must be 16 characters in length.
DESCRIPTION:
This is the purchase card number assigned to the purchase card order.
443.6,56 PURCHASE CARD USER 23;17 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This is the user who entered the purchase card order.
443.6,57 APPROVE RECONCILIATION USER 23;18 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This is the user who approves the reconciliation of a purchase card order.
443.6,58 DATE RECONCILED 23;19 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This is the reconcilliation date for this purchase order.
443.6,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: AUG 30, 1996
HELP-PROMPT: Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the total dollar amount for a Simplified Purchase Card Order.
443.6,61 PURCHASE CARD HOLDER 23;22 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This is the Purchase Card Holder for the Purchase Card order.
443.6,62 PCDO 2237 23;23 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This is the 2237 attached to the purchase card/delivery order.
443.6,63 PROCESSING REQUIRED IN FISCAL 24;1 SET
'N' FOR NO;
LAST EDITED: AUG 30, 1996
DESCRIPTION:
This field indicates if fiscal needs to process receiving report.
443.6,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.
443.6,91 TOTAL AMOUNT 0;15 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<1) X
LAST EDITED: MAY 17, 1991
HELP-PROMPT: Type a Dollar Amount between 1 and 9999999.99, 2 Decimal Digits
DESCRIPTION:
This is the total amount of the order.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the AMOUNT field of the AMOUNT sub-field of the AMENDMENTS File
443.6,92 NET AMOUNT 0;16 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999.99)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 9999999.99
DESCRIPTION:
This is the net amount.
443.6,93 LIQUIDATED AMOUNT 0;17 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: APR 28, 1994
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION:
This is the liquidated amount.
443.6,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 21, 1996
DESCRIPTION:
This is the type of the PROMPT PAYMENT TERMS.
443.6,101 PAYABLE CODE 18;2 SET
'A' FOR REGULAR POSTED;
'B' FOR IMPREST FUNDS;
'J' FOR DONATED;
LAST EDITED: APR 29, 1994
DESCRIPTION:
This is the payable code.
443.6,102 DOCUMENT IDENTIFIER/COMMON NO. 18;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>5!($L(X)<5) X
LAST EDITED: MAR 31, 1994
HELP-PROMPT: Enter the Document Identifier for LOG (Usually either the PAT number, or Requisition No., without
the Fiscal ear. ANSWER MUST BE 5 CHARACTERS IN LENGTH.
DESCRIPTION:
This is the document identifier/common number.
443.6,107 RELEASING FACILITY NUMBER 18;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: APR 29, 1994
HELP-PROMPT: Answer must be 3 characters in length.
DESCRIPTION:
This field is entered only if another facility is involved. Enter the 3 digit facility number.
443.6,501 CERTIFIED P.O. 1;20 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: APR 28, 1994
DESCRIPTION:
If the IFCAP Common Numbering System for this purchase order is a Certified entry answer YES.
FILES POINTED TO FIELDS
ADMIN. ACTIVITY SITE PARAMETER
(#411) SATELLITE STATION (#31)
ADMINISTRATIVE CERTIFICATIONS
(#442.7) ADMINISTRATIVE CERTIFICATIONS:ADMINISTRATIVE CERTIFICATIONS (#.01)
AMENDMENTS (#443.6) OLD PO RECORD (#27)
NEW PO RECORD (#28)
AMOUNT:AMOUNT (#.01)
BUDGET OBJECT CODE (#420.2) SUBACCOUNT1 (#3)
SUBACCOUNT2 (#4)
ITEM:OBLIGATED SUBACCOUNT (#17)
CALM/LOG CODE SHEET (#423) ITEM:ACQUISITIONS CODE SHEET NO. (#37)
DATE RECEIVED:RECEIVING CODE SHEET NO. (#5)
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)
CONTROL POINT ACTIVITY (#410) PRIMARY 2237 (#.07)
PCDO 2237 (#62)
ITEM:2237 REFERENCE # (#10)
DIRECT DELIVERY PATIENTS
(#440.2) DIRECT DELIVERY PATIENT (#5.3)
DLA/LOG CODES (#441.4) ITEM:SOURCE DEVIATION (#39.5)
FEDERAL SUPPLY CLASSIFICATION
(#441.2) ITEM:FEDERAL SUPPLY CLASSIFICATION (#8)
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)
AMENDMENT:PA/PPM/AUTHORIZED BUYER (#6)
FISCAL APPROVED BY (#10)
CHANGES:USER (#6)
PAT TYPE (#442.5) METHOD OF PAYMENT (#.02)
PURCHASE CARD INFORMATION
(#440.5) PURCHASE CARD NUMBER (#46)
PURCHASE ORDER STATUS (#442.3) SUPPLY STATUS (#.5)
AMENDMENT:AMENDMENT/ADJUSTMENT STATUS (#9)
SERVICE/SECTION (#49) REQUESTING SERVICE (#5.2)
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)
INPUT TEMPLATE(S):
PRCH DELIVERY ORDER AMEND MAY 12, 2006@11:12 USER #0
PRCH PURCHASE CARD AMEND MAY 05, 2006@10:09 USER #0
PRCHAMDESC FEB 01, 1986 USER #0
PRCHAMDISCNT NOV 22, 1986 USER #0
PRCHAMDISCOUNT JAN 27, 1998@08:59 USER #0
PRCHAMEND JUL 05, 1996@15:23 USER #0
PRCHAMENDAV JUN 02, 1996@16:10 USER #0
PRCHAMENDPRO DEC 11, 2012@20:12 USER #0
PRCHAMENDPRO EDIT JUN 03, 1997@12:03 USER #0
PRCHAMIT JUL 01, 1993@09:09 USER #0
PRCHAMPPP JUL 08, 1994@17:38 USER #0
PRCHLINE DEC 03, 2009@12:37 USER #0
PRCHMAPP JUL 08, 1994@17:39 USER #0
PRCHRQITM SEP 09, 2009@11:35 USER #0
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):