Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PRC(443

Package: IFCAP

Global: ^PRC(443


Information

FileMan FileNo FileMan Filename Package
443 REQUEST WORKSHEET IFCAP

Description

Directly Accessed By Routines, Total: 47

Package Total Routines
IFCAP 38 PRC186P    PRCB2A    PRCFGPF    PRCG238P    PRCGARP1    PRCH OUTSTANDING REQUEST/PA    PRCH410    PRCH442A
PRCHCON1    PRCHCS3    PRCHDR    PRCHE2    PRCHES11    PRCHG    PRCHG1    PRCHJMSG
PRCHJR01    PRCHNPOA    PRCHOUT OUTST 2237/PA    PRCHP18    PRCHPPM    PRCHQ1    PRCHQ15    PRCHQ2
PRCHQ2B    PRCHQ41B    PRCHQ9    PRCHRPT7    PRCHSP    PRCHSP1    PRCPRDI1    PRCSAPP2
PRCSEA    PRCSES    PRCSUT2    PRCUCV1    PRCVIBF    ^PRC(443    
Kernel 1 ^DIC(19    

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)[26]    

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.
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: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3700
  • M DATA EXTRACTOR
  • External References

    Name Field # of Occurrence
    ^%DT 4+1, 7+1
    NOW^%DTC 6(XREF 1n1.1)
    ^DIC 1.5+1, 2+1, 6+1
    ^DICR 6(XREF 1n1.4), 6(XREF 1n2.4)
    $$DECODE^PRCHES11 3OT+1
    STAT^PRCHG 1.5+1, 1.5SCR+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 6(XREF 1n1.4), 6(XREF 1n2.4)
    ^DD(443 5+1, 5.2+1, 6(XREF 1S), 6(XREF 1K)
    ^PRC(411 - [#411] IDZ1+1
    ^PRC(443 - [#443] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1.5(XREF 1S), 1.5(XREF 1K), 5OF9.2+1, 5.2OF9.2+1, 6(XREF 1S), 6(XREF 1n1.4)
    6(XREF 1K), 6(XREF 1n2.4)
    ^PRCD(442.3 - [#442.3] ID1.5+1
    ^PRCS(410 - [#410] IDZ1+1, .01(XREF 2S), .01(XREF 2K), 5OF9.2+1, 5.2OF9.2+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID1.5+1, 5OF9.2+1, 5.2OF9.2+1, 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4)
    ^(1 5.2OF9.2+1
    ^(7 5OF9.2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % 6(XREF 1n1.1), 6(XREF 1n1.4), 6(XREF 1n2.4)
    >> %DT 4+1*, 7+1*
    %H 6(XREF 1n1.1)
    %I 6(XREF 1n1.1)
    >> D0 3OT+1, 5+1*, 5OF9.2+1*, 5.2+1*, 5.2OF9.2+1*, 6(XREF 1S), 6(XREF 1K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1.5(XREF 1S), 1.5(XREF 1K), 6(XREF 1S), 6(XREF 1K)
    DIC ID1.5+1, ID8+1, 1.5+1!*, 2+1!*, 6+1!*
    DIC("S" 2+1*, 2SCR+1*, 6+1*, 6SCR+1*
    >> DIE 1.5+1, 2+1, 6+1
    >> DIG 6(XREF 1n1.4), 6(XREF 1n2.4)
    >> DIH 6(XREF 1n1.4), 6(XREF 1n2.4)
    >> DINUM .01+1*
    >> DIU 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4)
    DIV 6(XREF 1S), 6(XREF 1n1.1), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4)
    DIV(0 6(XREF 1S), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4)
    >> I(0 5+1, 5OF9.2+1*, 5.2+1, 5.2OF9.2+1*
    U ID1.5+1, IDZ1+1, .01(XREF 2S), .01(XREF 2K), 5+1, 5OF9.2+1, 5.2+1, 5.2OF9.2+1, 6(XREF 1S), 6(XREF 1n1.4)
    6(XREF 1K), 6(XREF 1n2.4)
    X .01+1, .01(XREF 1S), .01(XREF 1K), 1.5+1*!, 1.5(XREF 1S), 1.5(XREF 1K), 2+1*!, 3+1!, 3.5+1!, 3.7+1!
    , 4+1*!, 5+1*, 5.2+1*, 6+1*!, 6(XREF 1S), 6(XREF 1n1.1), 6(XREF 1n1.4), 6(XREF 1K), 6(XREF 1n2.4), 7+1*!
    Y IDZ1+1, 1.5+1, 2+1, 3OT+1*, 4+1, 6+1, 6(XREF 1S), 6(XREF 1K), 7+1
    Y(0 3OT+1*
    Y(1 6(XREF 1S), 6(XREF 1K)
    Y(443 5+1, 5OF9.2+1*, 5.2+1, 5.2OF9.2+1*
    ZX .01(XREF 2S), .01(XREF 2K)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All