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 |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PRC(443

Package: IFCAP

Global: ^PRC(443


Information

FileMan FileNo FileMan Filename Package
443 REQUEST WORKSHEET IFCAP

Description

Accessed By FileMan Db Calls, Total: 29

Package Total Routines
IFCAP 29 PRCFGPF    PRCG238P    PRCGARP1    PRCH410    PRCH442A    PRCHCON1    PRCHCS3    PRCHE2
PRCHED    PRCHG    PRCHG1    PRCHJMSG    PRCHJR01    PRCHJS03    PRCHJS07    PRCHNPO3
PRCHNPOA    PRCHQ2    PRCHQ2B    PRCHQ41B    PRCHQ9    PRCHRPT7    PRCHSP    PRCHSP1
PRCPWPL5    PRCSAPP2    PRCSEA    PRCSUT2    PRCVIBF    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
IFCAP 3 PURCHASE ORDER STATUS(#442.3)[1.5]    GENERIC INVENTORY(#445)[11]    CONTROL POINT ACTIVITY(#410)[.01]    
Kernel 1 NEW PERSON(#200)[2, 6]    

Fields, Total: 17

Field # Name Loc Type Details
.01 2237 TRANSACTION NUMBER 0;1 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
************************REQUIRED FIELD************************
CONTROL POINT ACTIVITY(#410)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  OCT 17, 1996
  • DESCRIPTION:  
    This is the purchase request transaction number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443^B
    1)= S ^PRC(443,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(443,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  443^C^MUMPS
    1)= N ZX S ZX=$P($P($G(^PRCS(410,DA,0)),U,1),"-",4,5) S:ZX]"" ^PRC(443,"C",ZX,DA)=""
    2)= N ZX S ZX=$P($P($G(^PRCS(410,DA,0)),U,1),"-",4,5) I ZX]"" K ^PRC(443,"C",ZX,DA)
    This X-REF keeps track of the FUND CONTROL POINT and SEQUENCE NUMBER part of a 2237 TRANSACTION NUMBER that is waiting in A&MM to be entered into a P.O. or a Requisition. This X-REF is used to lookup the 2237 transaction.
1.5 CURRENT STATUS 0;7 POINTER TO PURCHASE ORDER STATUS FILE (#442.3)
************************REQUIRED FIELD************************
PURCHASE ORDER STATUS(#442.3)

  • INPUT TRANSFORM:  D STAT^PRCHG D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 17, 1990
  • DESCRIPTION:  
    This is the current status of the 2237 request.
  • SCREEN:  D STAT^PRCHG
  • EXPLANATION:  Status depends on processing step being accomplished, as well as TYPE and SOURCE of request.
  • CROSS-REFERENCE:  443^AC
    1)= S ^PRC(443,"AC",$E(X,1,30),DA)=""
    2)= K ^PRC(443,"AC",$E(X,1,30),DA)
    This X-REF is a list of CURRENT STATUS for each 2237 TRANSACTION NUMBER in this file. This X-REF is not used for lookup.
2 ACCOUNTABLE OFFICER 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 17, 1992
  • DESCRIPTION:  
    This is the accountable officer.
  • SCREEN:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)"
  • EXPLANATION:  Must be an Accountable Officer of Manager
3 VALIDATION CODE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y="/ES/ "_$$DECODE^PRCHES11(D0)
  • LAST EDITED:  DEC 09, 1992
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
  • DESCRIPTION:  
    This is the electronic signature of the accountable officer.
    UNEDITABLE
3.5 VALIDATION VERSION 0;14 NUMBER

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

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

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 29, 1992
  • DESCRIPTION:  
    This is the date the officer signed the request.
5 DATE SIGNED BY SERVICE COMPUTED DATE

  • MUMPS CODE:  X ^DD(443,5,9.2) S X=$P(Y(443,5,101),U,7) S D0=I(0,0)
    9.2 = S I(0,0)=$S($D(D0):D0,1:""),Y(443,5,1)=$S($D(^PRC(443,D0,0)):^(0),1:""),D0=$P(Y(443,5,1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(443,5,101)=$S($D(^PRCS(410,D0,7)):^(7),1:"")
  • ALGORITHM:  2237:ES CODE DATE/TIME
  • DESCRIPTION:  
    This is the date the request was signed by the Service.
5.2 DATE REQUIRED BY SVC COMPUTED DATE

  • MUMPS CODE:  X ^DD(443,5.2,9.2) S X=$P(Y(443,5.2,101),U,4) S D0=I(0,0)
    9.2 = S I(0,0)=$S($D(D0):D0,1:""),Y(443,5.2,1)=$S($D(^PRC(443,D0,0)):^(0),1:""),D0=$P(Y(443,5.2,1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(443,5.2,101)=$S($D(^PRCS(410,D0,1)):^(1),1:"")
  • ALGORITHM:  2237 TRANSACTION NUMBER:DATE REQUIRED
  • DESCRIPTION:  
    This is the date this request is required by the service.
6 PURCHASING AGENT 0;5 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 17, 1992
  • DESCRIPTION:  
    This is the purchasing agent responsible for this request.
  • SCREEN:  S DIC("S")="I $D(^(400)),$P(^(400),U,1)>2"
  • EXPLANATION:  Must be a Purchasing Agent of Manager
  • CROSS-REFERENCE:  ^^TRIGGER^443^7
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(443,6,1,1,1.1) X ^DD(443,6,1,1,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$S($D(^PRC(443,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99)) S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=443,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))
    >0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"") S X=$P(Y(1),U,6) S DIU=X K Y S X=DIV S X="" X ^DD(443,6,1,1,2.4)
    2.4)= S DIH=$S($D(^PRC(443,DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99)) S DIH=DIH_U" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=443,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))
    >0
    CREATE VALUE)= NOW
    DELETE VALUE)= @
    FIELD)= DATE ASSIGNED TO PA
7 DATE ASSIGNED TO PA 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1986
  • DESCRIPTION:  
    This is the date this request was assigned to the purchasing agent.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the PURCHASING AGENT field of the REQUEST WORKSHEET File
8 CP FUND STATUS 0;8 SET
  • '1' FOR INSUFFICIENT FUNDS;

  • LAST EDITED:  SEP 27, 1986
  • DESCRIPTION:  
    This is the Control Point Fund status.
9 TYPE OF REQUEST 0;9 SET
************************REQUIRED FIELD************************
  • '1' FOR UNPOSTED;
  • '2' FOR POSTED;
  • '3' FOR SERVICE;
  • '4' FOR BULK SALE;
  • '5' FOR NX POSTED;

  • LAST EDITED:  MAR 24, 1987
  • DESCRIPTION:  
    This is the type of request.
10 SOURCE OF REQUEST 0;10 SET
************************REQUIRED FIELD************************
  • '1' FOR VA STOCK;
  • '2' FOR GSA/DLA STOCK;
  • '3' FOR EXCESS;
  • '4' FOR NOT AVAILABLE FROM ANY OF THESE SOURCES;

  • LAST EDITED:  APR 13, 1988
  • DESCRIPTION:  
    This is the source of the request.
11 INVENTORY/DISTRIBUTION POINT 0;11 POINTER TO GENERIC INVENTORY FILE (#445) GENERIC INVENTORY(#445)

  • LAST EDITED:  AUG 10, 1987
  • HELP-PROMPT:  If the request was made for a service using the Generic Inventory/Distribution system, the name of the Inventory Point that made the request should be entered here.
  • DESCRIPTION:  
    This is the inventory/distribution point of the request.
12 REMARK 1;0 WORD-PROCESSING #443.012

  • DESCRIPTION:  
    This is the remarks field.
  • LAST EDITED:  SEP 21, 1987
  • DESCRIPTION:  
    Remarks about WORKSHEET
13 EXPENDABLE/NONEXPENDABLE 0;12 SET
************************REQUIRED FIELD************************
  • 'E' FOR EXPENDABLE;
  • 'N' FOR NON-EXPENDABLE;

  • LAST EDITED:  AUG 08, 1989
  • HELP-PROMPT:  Indicate whether this procurement is for Expendable or for Non-expendable goods (required for new Public Law 100-322)
  • DESCRIPTION:  
    This field indicates if the procurement is for expendable or non-expendable goods, as required by Public Law 100-322.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3700
  • M DATA EXTRACTOR
    		•
    ICR #7324
  • ABOVE PAR
    		•  2237 TRANSACTION NUMBER (.01).
    Access: Read w/Fileman

    ACCOUNTABLE OFFICER (2).
    Access: Read w/Fileman

    VALIDATION CODE (3).
    Access: Read w/Fileman

    ESIG DATE/TIME (4).
    Access: Read w/Fileman

    PURCHASING AGENT (6).
    Access: Read w/Fileman

    DATE ASSIGNED TO PA (7).
    Access: Read w/Fileman

    CURRENT STATUS (1.5).
    Access: Read w/Fileman

    CP FUND STATUS (8).
    Access: Read w/Fileman

    TYPE OF REQUEST (9).
    Access: Read w/Fileman

    SOURCE OF REQUEST (10).
    Access: Read w/Fileman

    INVENTORY/DISTRIBUTION POINT (11).
    Access: Read w/Fileman

    EXPENDABLE/NONEXPENDABLE (13).
    Access: Read w/Fileman

    ESIG CODE (3.7).
    Access: Read w/Fileman

    VALIDATION VERSION (3.5).
    Access: Read w/Fileman
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All