Global: ^PRC(443

FileMan FileNo	FileMan Filename	Package
443	REQUEST WORKSHEET	IFCAP

Package	Total	Routines
IFCAP	39	ITEM SPECIFIC INFORMATION 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 PRCVIBF ^PRC(443 PRCUCV1
Kernel	1	^DIC(19

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

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 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

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

>>	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)

Customize PDF page

Package: IFCAP

Global: ^PRC(443

Information

Description

Directly Accessed By Routines, Total: 48

Accessed By FileMan Db Calls, Total: 29

Pointer To FileMan Files, Total: 4

Fields, Total: 17

ICR, Total: 2

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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

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