Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PRC(443.6

Package: IFCAP

Global: ^PRC(443.6


Information

FileMan FileNo FileMan Filename Package
443.6 AMENDMENTS IFCAP

Description

Accessed By FileMan Db Calls, Total: 14

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

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 25

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

Fields, Total: 90

Field # Name Loc Type Details
.01 PURCHASE ORDER NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:'$D(^PRC(411,$P(X,"-",1)))!'($P(X,"-",2)?3UN3N) X
  • LAST EDITED:  JUL 05, 1996
  • HELP-PROMPT:  ENTER PURCHASE ORDER NUMBER (I.E. A12345)
  • DESCRIPTION:  
    This is the purchase order number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^B
    1)= S ^PRC(443.6,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(443.6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  443.6^E^MUMPS
    1)= S ^PRC(443.6,"E",$P(X,"-",2),DA)=""
    2)= K ^PRC(443.6,"E",$P(X,"-",2),DA)
    This x-ref allows one to select an amendment using only the common numbering part of the p.o. number, the same as can be done in 442 using the "C" x-ref on the .01 field there.
.02 METHOD OF PAYMENT 0;2 POINTER TO PAT TYPE FILE (#442.5)
************************REQUIRED FIELD************************
PAT TYPE(#442.5)

  • INPUT TRANSFORM:  S DIC("S")="I Y<20!(Y=25)!(Y=26)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 11, 1998
  • DESCRIPTION:  
    This is the method of payment for this purchase order.
  • SCREEN:  S DIC("S")="I Y<20!(Y=25)!(Y=26)"
  • EXPLANATION:  ENTER A NUMBER OR TYPE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^AG^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN10^PRCHAMXB S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN10^PRCHAMXB
    This x-ref will update the CHANGES multiple whenever an 'Edit Method of Payment' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE.
    This cross-reference gets executed when user tries to edit or delete this field only through IFCAP. PRCHNORE gets set and removed within IFCAP.
.04 INVOICE ADDRESS 12;6 FREE TEXT

  • INPUT TRANSFORM:  S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) K:'Z0 X Q:'Z0 S DIC="^PRC(411,Z0,4,",DIC(0)="QEMO" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  S Y(0)=Y Q:Y="" S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) Q:'Z0 S Y=$P($S($D(^PRC(411,Z0,4,Y,0)):^(0),1:""),U,1) K Z0
  • LAST EDITED:  OCT 13, 1995
  • HELP-PROMPT:  This is the invoice address.
  • DESCRIPTION:  
    The invoice address.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) Q:'Z0 S DIC="^PRC(411,Z0,4,",DIC(0)="QEMO" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^AF^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN9^PRCHAMXB S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN9^PRCHAMXB
    This x-ref will update the CHANGES multiple whenever an 'Edit Mail Invoices to' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
.06 PRIORITY OF 2237 1;9 SET
  • 'EM' FOR EMERGENCY;
  • 'SP' FOR SPECIAL;
  • 'ST' FOR STANDARD;

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    This field contains a code which indicates the priority of this order.
.07 PRIMARY 2237 0;12 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    This field contains a pointer to the primary 2237 record for this amendment.
.08 ESTIMATED ORDER? 7;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    This field indicates whether or not this is an estimated order.
.09 DEPOT VOUCHER NO. 1;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 5 characters in length.
  • DESCRIPTION:  
    This is the depot voucher number.
.1 P.O. DATE 1;15 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    This is the purchase order date.
.2 EMERGENCY ORDER? 1;17 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    Enter YES if this is an emergency order.
.25 LOCAL PROCUREMENT REASON CODE 1;19 POINTER TO LOCAL PROCUREMENT REASON CODES FILE (#443.8) LOCAL PROCUREMENT REASON CODES(#443.8)

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    This is a pointer to the Local Procurement Reason Code File (#443.8). This code describes why the items are being purchased "open market".
.3 EXPENDABLE/NONEXPENDABLE 1;18 SET
************************REQUIRED FIELD************************
  • 'E' FOR EXPENDABLE;
  • 'N' FOR NON-EXPENDABLE;

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    This is the indicator for procurement of expendable or nonexpendable items.
.5 SUPPLY STATUS 7;1 POINTER TO PURCHASE ORDER STATUS FILE (#442.3) PURCHASE ORDER STATUS(#442.3)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 12, 1996
  • HELP-PROMPT:  This is the Supply status.
  • DESCRIPTION:  
    This is the Supply status of the order.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5"
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.7 SUPPLY STATUS ORDER 7;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is automatically updated when supply status changes.
.8 FISCAL STATUS ORDER 7;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This field is automatically updated when supply status changes.
1 FCP 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:'$D(PRC("SITE"))!('$D(^PRC(443.6,DA,1))) X Q:'$D(X) S:$P(^(1),U,15)]"" PRC("FY")=$P(^(1),U,15) D EN1^PRCHNPO8 Q:'$D(X) S $P(^PRC(443.6,DA,0),U,4)=PRC("APP")
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  ENTER A VALID FUND CONTROL POINT
  • DESCRIPTION:  
    This is the Fund Control Point.
  • EXECUTABLE HELP:  Q:'$D(PRC("SITE")) S:$D(D) ZD=D S Z0=$E($P(^PRC(443.6,DA,0),"-",2),1,2),X="?",DIC="^PRC(420,"_PRC("SITE")_",1,",DIC(0)="QEM",DIC("S")="D EN5^PRCHNPO6" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K Z0,Z1,ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^AJ^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN5^PRCHAMXC S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN5^PRCHAMXC
    This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
1.4 APPROPRIATION 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<4) X
  • LAST EDITED:  MAR 28, 1994
  • HELP-PROMPT:  Answer must be 4-20 characters in length.
  • DESCRIPTION:  
    This is the appropriation for this order.
2 COST CENTER 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S Z0=+$P(^PRC(443.6,DA,0),"^",3) K:'$D(PRC("SITE"))!'Z0 X,Z0 I $D(X),$D(^PRC(420,PRC("SITE"),1,Z0,2,0)) D EN2^PRCHNPO5
  • LAST EDITED:  MAR 21, 1995
  • HELP-PROMPT:  You must enter a valid Cost Center for this Fund Control Point.
  • DESCRIPTION:  
    This is the cost center for this order.
  • EXECUTABLE HELP:  Q:'$D(PRC("SITE")) S ZD=D,X="?",Z0=+$P(^PRC(443.6,DA,0),U,3),Z1=PRC("SITE") Q:'$D(^PRC(420,Z1,1,Z0,2)) S DIC="^PRC(420,Z1,1,Z0,2,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0,Z1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^AK^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN6^PRCHAMXC S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN6^PRCHAMXC
    This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
3 SUBACCOUNT1 0;6 POINTER TO BUDGET OBJECT CODE FILE (#420.2) BUDGET OBJECT CODE(#420.2)

  • LAST EDITED:  APR 18, 1994
  • DESCRIPTION:  
    This is the subaccount 1.
3.4 SUBAMOUNT1 0;7 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999.99
  • DESCRIPTION:  
    This is the subamount 1.
4 SUBACCOUNT2 0;8 POINTER TO BUDGET OBJECT CODE FILE (#420.2) BUDGET OBJECT CODE(#420.2)

  • DESCRIPTION:  
    This is the subaccount 2.
4.4 SUBAMOUNT2 0;9 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999.99
  • DESCRIPTION:  
    This is the subamount 2.
5 VENDOR 1;1 POINTER TO VENDOR FILE (#440)
************************REQUIRED FIELD************************
VENDOR(#440)

  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    This is the name of the vendor for this purchase order.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^AO^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN8^PRCHAMXD S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN8^PRCHAMXD
    This x-ref will update the CHANGES multiple whenever a 'Change VENDOR' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
5.2 REQUESTING SERVICE 1;2 POINTER TO SERVICE/SECTION FILE (#49)
************************REQUIRED FIELD************************
SERVICE/SECTION(#49)

  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    This is the requesting service for this order.
  • CROSS-REFERENCE:  443.6^AL^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN7^PRCHAMXC S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN7^PRCHAMXC
    This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
5.3 DIRECT DELIVERY PATIENT 1;12 POINTER TO DIRECT DELIVERY PATIENTS FILE (#440.2) DIRECT DELIVERY PATIENTS(#440.2)

  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    This is the direct delivery patient, if applicable.
  • CROSS-REFERENCE:  443.6^AH^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN3^PRCHAMXC S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN3^PRCHAMXC
    This x-ref will update the CHANGES multiple whenever a 'Ship-To-Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
5.4 SHIP TO 1;3 NUMBER

  • INPUT TRANSFORM:  S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) K:'Z0 X Q:'Z0 S DIC="^PRC(411,Z0,1,",DIC(0)="QEM" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC
  • OUTPUT TRANSFORM:  Q:Y']"" S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) Q:'Z0 S Y=$P($S($D(^PRC(411,Z0,1,Y,0)):^(0),1:""),U,1) K Z0
  • LAST EDITED:  AUG 31, 1995
  • HELP-PROMPT:  ENTER A RECEIVING LOCATION
  • DESCRIPTION:  
    This is the receiving location.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) Q:'Z0 S DIC="^PRC(411,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^AC^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN6^PRCHAMXB S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN6^PRCHAMXB
    This x-ref will update the CHANGES multiple whenever a 'Ship-To-Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
5.6 DELIVERY LOCATION 1;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the delivery location.
6 VERBAL PURCHASE ORDER (Y/N) 1;4 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    YES indicates that this is a verbal purchase order.
6.2 CONFIRMATION COPY (Y/N) 1;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    YES indicates that this is a confirmation copy.
6.4 F.O.B. POINT 1;6 SET
  • 'D' FOR DESTINATION;
  • 'O' FOR ORIGIN;

  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    This is the F.O.B. point.
  • CROSS-REFERENCE:  443.6^AM^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN8^PRCHAMXC S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN8^PRCHAMXC
    This x-ref will update the CHANGES multiple whenever a 'F.O.B. Edit' amendment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
6.9 ORIGINAL DELIVERY DATE 0;20 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 30, 1989
  • HELP-PROMPT:  This field is updated automatically if the Delivery Date field is changed by amendment.
  • DESCRIPTION:  
    This is the original delivery date.
7 DELIVERY DATE 0;10 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 21, 1995
  • DESCRIPTION:  
    This is the delivery date.
  • CROSS-REFERENCE:  443.6^AE^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN3^PRCHAMXB S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN3^PRCHAMXB
    This x-ref will update the CHANGES multiple whenever this field is changed. There is no FORMAL amendment change to perform this change.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
7.2 ESTIMATED COST 0;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999.99)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999999.99
  • DESCRIPTION:  
    This is the estimated cost for this purchase order.
8 SOURCE CODE 1;7 POINTER TO SOURCE CODE FILE (#420.8)
************************REQUIRED FIELD************************
SOURCE CODE(#420.8)

  • INPUT TRANSFORM:  S DIC("S")="I "_$S($D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHREQ):"""134590""[$E(^(0))",1:"""2456789B""[$E(^(0))") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 21, 1997
  • DESCRIPTION:  
    This is the source code for this purchase order.
  • SCREEN:  S DIC("S")="I "_$S($D(PRCHPUSH):"""13""[$E(^(0))",$D(PRCHREQ):"""134590""[$E(^(0))",1:"""2456789B""[$E(^(0))")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.6^AD^MUMPS
    1)= I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T S PRCHX=X,X=0 D EN7^PRCHAMXB S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1 S FLAG=1 D EN7^PRCHAMXB
    This x-ref will update the CHANGES multiple whenever a 'Source Code Edit' amemdment changes this field.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
8.1 ASTR. FOR SOURCE CODE 1;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
  • DESCRIPTION:  
    This field contains internal program code that controls printed output.
8.2 PROPOSAL 1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    This is the proposal information that prints on the purchase order, if applicable.
9.2 PROMPT PAYMENT TERMS 5;0 Multiple #443.66 443.66

  • DESCRIPTION:  
    These are the prompt payment terms for this order.
  • IDENTIFIED BY:  
    "Z1": S PRCDAY=$P(^(0),U,2) W ?30,$S(PRCDAY=+PRCDAY:"DAYS: "_PRCDAY,1:"BY THE "_PRCDAY)
13 EST. SHIPPING AND/OR HANDLING 0;13 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<0) X
  • OUTPUT TRANSFORM:  S Y=" $"_$J(Y,0,2)
  • LAST EDITED:  OCT 28, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the estimated shipping and/or handling charge.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13.05 EST. SHIPPING BOC 23;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S Z0=$P(^PRC(443.6,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X,Z0 I $D(X) D EN133^PRCHNPO7
  • LAST EDITED:  JUL 01, 1994
  • HELP-PROMPT:  Enter the BOC for the EST. SHIPPING AND/OR HANDLING field entry. Choose the appropriate BOC from this cost enter.
  • DESCRIPTION:  
    Please enter BOC for EST. SHIPPING AND/OR HANDLING charges.
  • EXECUTABLE HELP:  S ZD=D,Z0=$P(^PRC(443.6,D0,0),"^",5) K:'Z0 X,Z0 I $D(X) S X="?",DIC="^PRCD(420.1,Z0,1,",DIC(0)="E" D ^DIC K DIC S D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13.1 EST. SHIPPING LINE ITEM NO. 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 22, 1988
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the line item number of the estimated shipping date.
13.2 GOV'T B/L NO. 12;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<1) X
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  ANSWER MUST BE 1-21 CHARACTERS IN LENGTH. If FOB point=ORIGIN and Shipping charges > $150, excess shipping charges are put on Gov't Bill of Lading. Enter number here.
  • DESCRIPTION:  
    The Government Bill of Lading.
13.3 SHIP VIA 12;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1) X
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  Answer must be 1-23 characters in length.
  • DESCRIPTION:  
    The type of shipper (Air, Land, Sea).
13.4 GBL P.O.NUMBER 12;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  Enter the P.O.number assigned to the Government Bill of Lading. ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The P.O. number for the Gov. Bill of Lading.
14 DISCOUNT 3;0 Multiple #443.63 443.63

  • DESCRIPTION:  
    This is the amount of the discount.
  • IDENTIFIED BY:  
    "Z1": W ?25,$P(^(0),U,2)
    "Z2": W ?35,"LINE ITEM NO.: ",$P(^(0),U,4)
    "Z3": W:$P(^(0),U,2)=0 ?60,"**DELETED**"
15 LINE ITEM COUNT 0;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999
  • DESCRIPTION:  
    This is the line item count.
16 PA/PPM/AUTHORIZED BUYER 1;10 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ) I $P(^(400),U,1)>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 11, 1996
  • DESCRIPTION:  
    This is the purchasing agent for this order.
  • SCREEN:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ) I $P(^(400),U,1)>2"
  • EXPLANATION:  Must be a PPM Official or Manager for Requisitions, a Purchasing Agent or Manager for P.O.s.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
16.5 VALIDATION CODE 12;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    The code for the validation.
16.7 VALIDATION VERSION 12;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The version of the validation code.
16.8 ESIG CODE 12;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  APR 12, 1993
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    The signature block name.
17 VALIDATION DATE/TIME 12;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 21, 1993
  • DESCRIPTION:  
    The date of the validation.
18 PO PRINTED TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 21, 1993
  • DESCRIPTION:  
    The time the P.O. was printed.
18.5 EDI MESSAGE NO. 12;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 21, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    The EDI message number received.
18.6 NEED SPECIAL HANDLING? 12;13 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 29, 1994
  • DESCRIPTION:  
    This field is just a question to see if the special handling instructions are needed for the purchase order.
18.7 TYPE OF SPECIAL HANDLING 12;14 POINTER TO TYPE OF SPECIAL HANDLING FILE (#443.4) TYPE OF SPECIAL HANDLING(#443.4)

  • LAST EDITED:  APR 29, 1994
  • DESCRIPTION:  This is a pointer field to file 443.4. The file contains special handling instructions which are displayed/printed on purchase orders. The special handling instructions are also sent in the CO segment of the PHA
    transaction.
19 AGENT ASSIGNED P.O. 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 21, 1993
  • DESCRIPTION:  
    The Purchasing Agent assigned to the P.O.
19.2 DATE P.O. ASSIGNED 12;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 21, 1993
  • DESCRIPTION:  
    The date the P.O. was assigned the Purchase Agent.
24 ADMINISTRATIVE CERTIFICATIONS 15;0 POINTER Multiple #443.624 443.624

  • DESCRIPTION:  
    These are the administrative certifications for this purchase order.
  • SCREEN:  I $P(^(0),U,1)<9999
  • EXPLANATION:  NUMBER MUST BE LESS THAN 9999
  • IDENTIFIED BY:  
    "Z1": W " "
26 BBFY 23;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 30, 1994
  • DESCRIPTION:  
    This field is the FMS 'BEGINNING BUGDET FISCAL YEAR'. This is set from 'PRC("BBFY")' variable. This variable is created through the 'FCP', 'FUND CONTROL POINT' field.
27 OLD PO RECORD 23;3 POINTER TO AMENDMENTS FILE (#443.6) AMENDMENTS(#443.6)

  • LAST EDITED:  MAR 30, 1994
  • DESCRIPTION:  
    This is the internal record number for the original purchase order.
28 NEW PO RECORD 23;4 POINTER TO AMENDMENTS FILE (#443.6) AMENDMENTS(#443.6)

  • LAST EDITED:  MAR 30, 1994
  • DESCRIPTION:  
    This is the internal record number for the new purchase order.
29 END DATE FOR SERVICE ORDER 23;5 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 10, 1994
  • HELP-PROMPT:  Enter the ending date for this Service Order.
  • DESCRIPTION:  This field is the ending date for the Purchase order or 1358 for a service order used when the length of the service contract extends over a period greater than one month. It is used by Fiscal service at the time of
    obligation. When used in conjunction with the Auto Accrue flag, the ending date will determine the monthly accrual.
30 AUTO ACCRUE 23;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 24, 1994
  • HELP-PROMPT:  Enter YES for Auto Accrual; enter NO for no Auto Accrual.
  • DESCRIPTION:  
    This field is used by Fiscal service to indicate whether a Purchase Order or 1358 for a service order should be accrued in FMS.
31 SATELLITE STATION 23;7 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411) ADMIN. ACTIVITY SITE PARAMETER(#411)

  • LAST EDITED:  JUL 28, 1995
  • HELP-PROMPT:  Please enter the satellite station to which this purchase order belongs to.
  • DESCRIPTION:  
    Please enter the satellite station to which this purchase order belongs to.
35 AMOUNT 9;0 Multiple #443.7 443.7

  • DESCRIPTION:  
    This is the amount of the contract.
40 ITEM 2;0 Multiple #443.61 443.61

  • LAST EDITED:  DEC 20, 1993
  • DESCRIPTION:  
    This is the item for which the amendment is being processed.
  • IDENTIFIED BY:  
    "Z1": W:$D(^(1,1,0)) $E(^(0),1,60)
    "Z3": I $P(^PRC(443.6,DA(1),2,+Y,0),U,2)=0!($P(^(0),U,9)=0) W ?50,"**DELETED**"
44 DISPUTED 23;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This field is to indicate whether a purchase card charge is being disputed.
46 PURCHASE CARD NUMBER 23;8 POINTER TO PURCHASE CARD INFORMATION FILE (#440.5)
************************REQUIRED FIELD************************
PURCHASE CARD INFORMATION(#440.5)

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This is the purchase card number being used for the purchase card order.
47 DELIVERY ORDER 23;10 SET
  • 'Y' FOR YES;

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This field indicates whether this order is a delivery order.
48 TYPE OF ORDER 23;11 SET
  • 'D' FOR DELIVERY ORDER;
  • 'P' FOR DETAILED PURCHASE CARD ORDER;
  • 'S' FOR SIMPLIFED PURCHASE CARD ORDER;

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This field determines if a purchase order is a 'Detailed Purchase Card Order', 'Simplified Purchase Card Order' or a 'Delivery Order'.
50 AMENDMENT 6;0 Multiple #443.67 443.67

  • LAST EDITED:  MAR 14, 1994
  • DESCRIPTION:  
    This multiple contains information about all amendments to a purchase order.
51 SORT GROUP 23;13 POINTER TO SORT GROUP FILE (#410.7) SORT GROUP(#410.7)

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This is the sort group for this order.
52 CLASSIFICATION OF REQUEST 23;12 POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2) CLASSIFICATION OF REQUEST(#410.2)

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This is the Classification of Request for this order.
53 PCDO VENDOR 23;14 POINTER TO VENDOR FILE (#440) VENDOR(#440)

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This vendor is for purchase card and delivery order.
54 RECEIVING REQUIRED? 23;15 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This field indicates if a purchase card purchase requires receiving.
55 PURCHASE CARD EXT. NO. 23;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<16) X
  • LAST EDITED:  AUG 30, 1996
  • HELP-PROMPT:  Answer must be 16 characters in length.
  • DESCRIPTION:  
    This is the purchase card number assigned to the purchase card order.
56 PURCHASE CARD USER 23;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This is the user who entered the purchase card order.
57 APPROVE RECONCILIATION USER 23;18 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This is the user who approves the reconciliation of a purchase card order.
58 DATE RECONCILED 23;19 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This is the reconcilliation date for this purchase order.
60 PURCHASE COST 23;21 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X
  • LAST EDITED:  AUG 30, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total dollar amount for a Simplified Purchase Card Order.
61 PURCHASE CARD HOLDER 23;22 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This is the Purchase Card Holder for the Purchase Card order.
62 PCDO 2237 23;23 POINTER TO CONTROL POINT ACTIVITY FILE (#410) CONTROL POINT ACTIVITY(#410)

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This is the 2237 attached to the purchase card/delivery order.
63 PROCESSING REQUIRED IN FISCAL 24;1 SET
  • 'N' FOR NO;

  • LAST EDITED:  AUG 30, 1996
  • DESCRIPTION:  
    This field indicates if fiscal needs to process receiving report.
64 FREE TEXT VENDOR 24;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>36!($L(X)<1) X
  • LAST EDITED:  SEP 02, 1996
  • HELP-PROMPT:  Answer must be 1-36 characters in length.
  • DESCRIPTION:  
    This is free text vendor for the Simplified Purchase Card Orders.
91 TOTAL AMOUNT 0;15 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<1) X
  • LAST EDITED:  MAY 17, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 1 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total amount of the order.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the AMOUNT field of the AMOUNT sub-field of the AMENDMENTS File
92 NET AMOUNT 0;16 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999.99)!(X<0) X
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 9999999.99
  • DESCRIPTION:  
    This is the net amount.
93 LIQUIDATED AMOUNT 0;17 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
  • LAST EDITED:  APR 28, 1994
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the liquidated amount.
97 PROMPT PAY TYPE 12;15 SET
************************REQUIRED FIELD************************
  • 'A' FOR NORMAL;
  • 'C' FOR CONTRACT;
  • 'D' FOR DAIRY;
  • 'E' FOR EXEMPT;
  • 'F' FOR PROGRESS;
  • 'M' FOR MEAT;
  • 'P' FOR PRODUCE;
  • 'V' FOR PRIME VENDOR;
  • 'X' FOR MONEY MANAGEMENT EXEMPT - NORMAL;

  • LAST EDITED:  OCT 21, 1996
  • DESCRIPTION:  
    This is the type of the PROMPT PAYMENT TERMS.
101 PAYABLE CODE 18;2 SET
  • 'A' FOR REGULAR POSTED;
  • 'B' FOR IMPREST FUNDS;
  • 'J' FOR DONATED;

  • LAST EDITED:  APR 29, 1994
  • DESCRIPTION:  
    This is the payable code.
102 DOCUMENT IDENTIFIER/COMMON NO. 18;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  MAR 31, 1994
  • HELP-PROMPT:  Enter the Document Identifier for LOG (Usually either the PAT number, or Requisition No., without the Fiscal ear. ANSWER MUST BE 5 CHARACTERS IN LENGTH.
  • DESCRIPTION:  
    This is the document identifier/common number.
107 RELEASING FACILITY NUMBER 18;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  APR 29, 1994
  • HELP-PROMPT:  Answer must be 3 characters in length.
  • DESCRIPTION:  
    This field is entered only if another facility is involved. Enter the 3 digit facility number.
501 CERTIFIED P.O. 1;20 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 28, 1994
  • DESCRIPTION:  
    If the IFCAP Common Numbering System for this purchase order is a Certified entry answer YES.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3702
  • M DATA EXTRACTOR
    		•
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All