STANDARD DATA DICTIONARY #443 -- REQUEST WORKSHEET FILE 3/24/25 PAGE 1
STORED IN ^PRC(443, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains a listing of the requests that have been transmitted to A&MM but not yet transferred onto a Purchase Order or
Requisition.
IDENTIFIED BY: CURRENT STATUS (#1.5)[R], CP FUND STATUS (#8)
"Z1": W:Y]""&($P($G(^PRCS(410,+Y,0)),U,10)]"") " ",$P($G(^PRC(411,$P($G(^PRCS(410,+Y,0)),U,10),0)),U)
CROSS
REFERENCED BY: CURRENT STATUS(AC), 2237 TRANSACTION NUMBER(B), 2237 TRANSACTION NUMBER(C)
443,.01 2237 TRANSACTION NUMBER 0;1 POINTER TO CONTROL POINT ACTIVITY FILE (#410) (Required)
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.
443,1.5 CURRENT STATUS 0;7 POINTER TO PURCHASE ORDER STATUS FILE (#442.3) (Required)
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.
443,2 ACCOUNTABLE OFFICER 0;2 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 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
443,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
443,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.
443,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.
443,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.
443,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.
443,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.
443,6 PURCHASING AGENT 0;5 POINTER TO NEW PERSON FILE (#200) (Required)
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 ^D
ICR:$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 ^D
ICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NOW
DELETE VALUE)= @
FIELD)= DATE ASSIGNED TO PA
443,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
443,8 CP FUND STATUS 0;8 SET
'1' FOR INSUFFICIENT FUNDS;
LAST EDITED: SEP 27, 1986
DESCRIPTION:
This is the Control Point Fund status.
443,9 TYPE OF REQUEST 0;9 SET (Required)
'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.
443,10 SOURCE OF REQUEST 0;10 SET (Required)
'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.
443,11 INVENTORY/DISTRIBUTION POINT 0;11 POINTER TO GENERIC INVENTORY FILE (#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.
443,12 REMARK 1;0 WORD-PROCESSING #443.012 (NOWRAP)
DESCRIPTION:
This is the remarks field.
LAST EDITED: SEP 21, 1987
DESCRIPTION:
Remarks about WORKSHEET
443,13 EXPENDABLE/NONEXPENDABLE 0;12 SET (Required)
'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.
FILES POINTED TO FIELDS
CONTROL POINT ACTIVITY (#410) 2237 TRANSACTION NUMBER (#.01)
GENERIC INVENTORY (#445) INVENTORY/DISTRIBUTION POINT (#11)
NEW PERSON (#200) ACCOUNTABLE OFFICER (#2)
PURCHASING AGENT (#6)
PURCHASE ORDER STATUS (#442.3) CURRENT STATUS (#1.5)
INPUT TEMPLATE(S):
PRCHPC OCT 24, 1986 USER #0
PRCHPCR MAR 20, 1989 USER #0
PRCHPPM SEP 11, 1989@10:41 USER #0
PRINT TEMPLATE(S):
PRCH OUTSTAND HDR AUG 29, 1997@12:54 USER #0 REQUEST WORKSHEET LIST
PRCH REQUEST LIST AUG 25, 1997@15:06 USER #0 OUTSTANDING 2237 REPORT
PRCH REQUEST SVC FEB 24, 1987 USER #0 REQUEST WORKSHEET STATISTICS
SORT TEMPLATE(S):
PRCH OUTSTANDING REQUEST/PA MAR 06, 2013@15:45 USER #0
SORT BY: 'INTERNAL(#1.5)// (INTERNAL(#1.5) from 69 to 80)
WITHIN INTERNAL(#1.5), SORT BY: +PURCHASING AGENT;S2;C17// (All PURCHASING AGENT (includes nulls))
WITHIN PURCHASING AGENT, SORT BY: .01:DATE REQUIRED;"DATE REQUIRED: ";C5;S1// (.01:DATE REQUIRED not null)
WITHIN .01:DATE REQUIRED, SORT BY: 2237 TRANSACTION NUMBER// (2237 TRANSACTION NUMBER not null)
This template helps select 2237s to display, as well as, provide
sort parameters for display of outstanding 2237s.
FORM(S)/BLOCK(S):