STANDARD DATA DICTIONARY #410 -- CONTROL POINT ACTIVITY FILE 3/24/25 PAGE 1
STORED IN ^PRCS(410, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This is the main file in the Control Point Activity package. It contains information concerning each and every control point
transaction. There are four basic transaction types: Ceiling, Obligation, Adjustment and Cancelled. Each transaction type has a
set of fields in this file that relate to it. Some fields relate to all four transaction types. This file should only be edited
through the Control Point Activity package.
*********DO NOT RE-INDEX THIS FILE**********
IDENTIFIED BY:
"Z0": I '$D(PRCSID) S:$D(^(0)) Z=$P(^(0),U,2),Z=$S(Z="O":"OBL ",Z="C":"CEIL ",Z="CA":"CANC ",Z="A":"ADJ ",1:"") W:Z'="" ?2
3,Z W:$D(^(2)) ?30," "_$E($P(^(2),U,1),1,20) W:$D(^(4)) ?53," "_$P(^(4),U,5) W:$D(^(10)) ?61," "_$P(^(10),U,2)
"Z1": I $D(PRCSID) W $P(X,"-") W:$D(^(4)) ?23,"COST: ",$J($P(^(4),U,1),9,2) S Z="" S:$D(^(1)) Z=$P(^(1),U,3),Z=$S(Z="ST":"
STANDARD",Z="SP":"SPECIAL",Z="EM":"EMERGENCY",1:"") W:Z'="" ?41,"PRIOR: ",Z W:$D(^(2)) ?59,$E($P(^(2),"^",1),1,20) K
Z
"Z2": W:$P(^PRCS(410,+Y,0),"^",2)="O"&($D(^("IT",1,1,1,0))) !,$E(^(0),1,79) W:$P(^PRCS(410,+Y,0),"^",2)'="O"&($D(^("CO",1,
0))) !,$E(^(0),1,79) W:$D(^PRCS(410,+Y,0)) !?2
"Z3": D:$P($G(^(1)),U,8)]"" EN^DDIOL("Accepted by eCMS",,"?0"),EN^DDIOL(" ",,"!?2")
POINTED TO BY: CONTROL POINT ACTIVITY field (#7) of the DRUG ACCOUNTABILITY TRANSACTION File (#58.81)
COUPLER field (#447) of the CONTROL POINT ACTIVITY File (#410)
2237 NUMBER field (#50) of the EQUIPMENT REQUEST File (#413)
REQUEST RECORD field (#1) of the IFCAP/ECMS TRANSACTION File (#414.06)
1ST QTR CPA NUMBER field (#7.2) of the FUND DISTRIBUTION File (#421)
2ND QTR CPA NUMBER field (#8.2) of the FUND DISTRIBUTION File (#421)
3RD QTR CPA NUMBER field (#9.2) of the FUND DISTRIBUTION File (#421)
4TH QTR CPA NUMBER field (#10.2) of the FUND DISTRIBUTION File (#421)
CPA POINTER field (#.15) of the 1358 DAILY RECORD File (#424)
PRIMARY 2237 field (#.07) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442)
PCDO 2237 field (#62) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442)
2237 REFERENCE # field (#10) of the ITEM sub-field (#442.01) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File
(#442)
1358 ADJUSTMENT field (#8) of the OBLIGATION DATA sub-field (#442.09) of the PROCUREMENT & ACCOUNTING TRANSACTIONS
File (#442)
2237 REFERENCE NUMBER field (#.01) of the 2237 REFERENCE NUMBER sub-field (#442.14) of the PROCUREMENT & ACCOUNTING
TRANSACTIONS File (#442)
2237 TRANSACTION NUMBER field (#.01) of the REQUEST WORKSHEET File (#443)
PRIMARY 2237 field (#.07) of the AMENDMENTS File (#443.6)
PCDO 2237 field (#62) of the AMENDMENTS File (#443.6)
2237 REFERENCE # field (#10) of the ITEM sub-field (#443.61) of the AMENDMENTS File (#443.6)
PRIMARY 2237 field (#8) of the REQUEST FOR QUOTATION File (#444)
ORIGINATING 2237 field (#15) of the ITEM sub-field (#444.019) of the REQUEST FOR QUOTATION File (#444)
DESTINATION 2237 field (#21) of the ITEM sub-field (#444.019) of the REQUEST FOR QUOTATION File (#444)
TRANSACTION NO. field (#.01) of the OUTSTANDING REQUEST sub-field (#445.09) of the INVENTORY ITEM sub-field
(#445.01) of the GENERIC INVENTORY File (#445)
C.P. field (#6) of the PROSTHETICS 1358 File (#664)
PARTS ORDERED ON ACC.# field (#31) of the WORK ORDER # File (#6920)
CROSS
REFERENCED BY: COST CENTER(AC), BOC1(AD), TRANSACTION NUMBER(AE), TRANSACTION $ AMOUNT(AF), PARENT TRANSACTION NUMBER(AG),
COMMITTED (ESTIMATED) COST(AH), OBLIGATED (ACTUAL) COST(AI), ADJUSTMENT $ AMOUNT(AJ), CEILING $ AMOUNT(AK),
REQUESTOR(AL), APPROVING OFFICIAL(AM), CONTROL POINT(AN), INVENTORY DISTRIBUTION POINT(AO), BOC2(AP),
READY FOR APPROVAL/SIGNATURE?(AQ), SORT GROUP(AR), ISSUE BOOK BATCH ID(AS), TRANSACTION NUMBER(B),
TRANSACTION NUMBER(B2), TRANSACTION NUMBER(B3), SUB-CONTROL POINT(C), PURCHASE ORDER/OBLIGATION NO(D), VENDOR(E),
READY FOR APPROVAL/SIGNATURE?(F), READY FOR APPROVAL/SIGNATURE?(F1), TEMPORARY TRANS. NUMBER(H),
LOG VOUCHER NUMBER (SUPPLY)(I), SORT GROUP(J), TEMP CP REF#(K), LOG VOUCHER NUMBER (SUPPLY)(L),
RUNNING BALANCE QUARTER DATE(RB)
410,.01 TRANSACTION NUMBER 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>18!($L(X)<3)!'((X?3N1"-"2N1"-"1N1"-"3.4N1"-"4N)!(X?1A.ANP)) X D EN3^PRCSUT3
LAST EDITED: FEB 21, 1989
HELP-PROMPT: ANSWER MUST BE 3-18 CHARACTERS IN LENGTH
DESCRIPTION: This is a permanent transaction number (alpha/numeric) used by the Control Point Clerk or Official,
as well as A&MM and Fiscal to identify and track the request. It is built from both the
information the user enters and the sequence number (e.g., 610-90-1-004-1234) assigned by the
computer.
610 = Station Number;
90 = Fiscal Year;
1 = Quarter;
044 = Fund Control Point;
1234 = Sequence Number assigned by computer.
DELETE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^B
1)= S ^PRCS(410,"B",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 410^B3^MUMPS
1)= I $E(X,1)>0 S ^PRCS(410,"B3",$P(X,"-",2)_"-"_$P(X,"-",5),DA)=""
2)= I $E(X,1)>0 K ^PRCS(410,"B3",$P(X,"-",2)_"-"_$P(X,"-",5),DA)
This cross reference is set on the fiscal year and last 4 digits of the transaction number.
CROSS-REFERENCE: 410^B2^MUMPS
1)= I $E(X,1)>0 S ^PRCS(410,"B2",$P(X,"-",5),DA)=""
2)= I $E(X,1)>0 K ^PRCS(410,"B2",$P(X,"-",5),DA)
This cross reference is set on the last 4 digits of the transaction number.
CROSS-REFERENCE: 410^AE^MUMPS
1)= I $E(X,1)>0 S ^PRCS(410,"AE",$P(X,"-",1,4),DA)=""
2)= I $E(X,1)>0 K ^PRCS(410,"AE",$P(X,"-",1,4),DA)
This cross reference is set on the station, the fiscal year, the quarter, and the control point.
410,.5 STATION NUMBER 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<3)!'(X?3N.AN) X
LAST EDITED: JAN 25, 1993
HELP-PROMPT: ANSWER MUST BE 3-5 CHARACTERS IN LENGTH
DESCRIPTION: This is the abbreviation for the station performing the transaction. It is supplied by the user who
initiates the request.
410,1 TRANSACTION TYPE 0;2 SET (Required)
'C' FOR CEILING;
'O' FOR OBLIGATION;
'A' FOR ADJUSTMENT;
'CA' FOR CANCELLED;
LAST EDITED: JUN 30, 1986
HELP-PROMPT: Select the appropriate one or two letter transaction type code for this transaction
DESCRIPTION: A one- or two-letter code selected from a set of Supply codes that provides information concerning
the vendor size and type of competition sought on a purchase order.
410,2 TEMPORARY TRANS. NUMBER 0;3 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<3)!(X'?1A.ANP) X
LAST EDITED: NOV 28, 1994
HELP-PROMPT: This field may be used to enter a 3 to 18 character transaction number or other identifier that the
requestor or requesting service can use to track this request
DESCRIPTION: This is a temporary transaction number (beginning with an alpha character) assigned to a request by
a Control Point Requestor. The Control Point Clerk/Official decides whether to make the
transaction number permanent. e.g., CRAIG-12
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^H^MUMPS
1)= S ^PRCS(410,"H",$E(X,1,30),DA)=$S($D(^PRCS(410,DA,11)):$P(^(11),U,2),1:"")
2)= K ^PRCS(410,"H",$E(X,1,30),DA)
This cross reference is set on the temporary transaction number, and stores the DUZ of the person
initiating the request.
410,3 FORM TYPE 0;4 POINTER TO CPA FORM TYPE FILE (#410.5) (Required)
INPUT TRANSFORM: S X(1)=$P(^PRCS(410,DA,0),"^",4) I X(1)=3!(X(1)=4)!(X(1)=5) I X'=X(1)!(X(1)=3&(X'=4)) K X W *7,!,"S
orry, you are not allowed to change a repetitive or issue book form type to another form type"
LAST EDITED: MAY 13, 1993
HELP-PROMPT: Enter the appropriate form type to be generated by this request.
DESCRIPTION: This allows the user to specify what kind of goods or services is being ordered on the request. No
Form may be specified to account for money committed by a Control Point on a manual form (not on
IFCAP). The following Form Types may be selected: Non-Repetitive (2237) Order; Repetitive (PR
Card) Order; Repetitive and Non-Rep Order; and Issue Book/Interval Issue. For version 5.0 and
later, the NO FORM type is no longer valid.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,3.1 INTERVAL ISSUE? 0;7 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUL 09, 1989
DESCRIPTION: This allows the user to specify (by entering Yes/No) whether the request for items in the Warehouse
is an Interval Issue.
i.e., Items requested between scheduled posted stock delivery, rather than a regularly scheduled
Issue Book order.
410,3.2 MONTH OF 1358 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>12)!(X<1)!(X?.E1"."1N.N) X I $D(X) D MO1^PRCSUT2 I $D(PRCSQT),$D(PRCSMO) K:PRCSQT'=PRCSM
O X K PRCSQT,PRCSMO
OUTPUT TRANSFORM: I +Y S Y=$P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC","^",Y)
LAST EDITED: JUL 27, 1989
HELP-PROMPT: Enter the number of the month for a 1358 Obligation request or the month of the 1358
increase/decrease adjustment.
DESCRIPTION:
This is the month for which the 1358 is entered.
EXECUTABLE HELP: D MO^PRCSUT2
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,4 INVENTORY DISTRIBUTION POINT 0;6 POINTER TO GENERIC INVENTORY FILE (#445)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,3)'=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 11, 1989
HELP-PROMPT: Select the appropriate inventory distribution point for this request if applicable.
DESCRIPTION: This is an entity that wants to maintain a perpetual inventory, automate their item distribution
function, and automatically generate stock replenishment orders based on inventory needs. There
are three types:
Warehouses; Primary Distribution Point; and Secondary Distribution Point.
SCREEN: S DIC("S")="I $P(^(0),U,3)'=""S"""
EXPLANATION: Only Primary Inventory Points, or the Warehouse can make requests to Supply.
CROSS-REFERENCE: 410^AO
1)= S ^PRCS(410,"AO",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"AO",$E(X,1,30),DA)
This cross reference is set on the inventory distribution point.
410,5 DATE OF REQUEST 1;1 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 22, 1994
HELP-PROMPT: Enter the date this request was submitted by the requestor
DESCRIPTION:
This is the date this request was submitted by the requestor.
410,6 SERVICE START DATE 1;6 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:X<1 X
LAST EDITED: SEP 16, 2010
HELP-PROMPT: Enter the starting date of the service(s).
DESCRIPTION:
This is the starting date of the service(s) for this obligation.
410,6.3 REQUESTING SERVICE 3;5 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: APR 04, 2013
HELP-PROMPT: Select the name of the service that submitted this request.
DESCRIPTION:
This is the name of the service that submitted this request.
410,6.5 SERVICE END DATE 1;7 DATE
INPUT TRANSFORM: S %DT="EX" S:$D(PRCSDT) %DT(0)=PRCSDT D ^%DT K %DT S X=Y K:X<1 X
LAST EDITED: MAR 14, 2011
HELP-PROMPT: Enter the ending date of the service(s). (Must be at least or after the start date)
DESCRIPTION:
This is the ending date of the service(s) for this obligation.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,7 DATE REQUIRED 1;4 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JUN 27, 1986
HELP-PROMPT: Enter the date by which you need the items you are requesting
DESCRIPTION:
This is the date by which the item(s) requested are needed.
410,7.5 PRIORITY OF REQUEST 1;3 SET
'EM' FOR EMERGENCY;
'SP' FOR SPECIAL;
'ST' FOR STANDARD;
LAST EDITED: APR 13, 1986
HELP-PROMPT: Select the appropriate priority (urgency) for this request. (Optional)
DESCRIPTION:
This is the urgency or priority for this request.
410,8 CLASSIFICATION OF REQUEST 1;5 POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2)
INPUT TRANSFORM: S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.2,+Y,0)),+$P(^(0),U,2)=+PRC(""CP"")" D ^DIC K DIC S DIC=
DIE,X=+Y K:Y<0 X
LAST EDITED: SEP 27, 1989
HELP-PROMPT: Select the appropriate classification of request (Optional)
DESCRIPTION: This Classification of Request field allows you to classify and/or categorize all transactions
(requests) for supplies, services, etc. This is the previous 'Type of Request" field.
SCREEN: S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.2,+Y,0)),+$P(^(0),U,2)=+PRC(""CP"")"
EXPLANATION: User can only use classification of requests associated with their Control Point.
410,9 SPECIAL REMARKS RM;0 WORD-PROCESSING #410.01
DESCRIPTION:
These are special remarks regarding this request.
LAST EDITED: MAR 16, 1986
HELP-PROMPT: Enter any special remarks concerning this request you wish to convey to Supply Service. These
remarks will be printed on the request form. (Optional)
DESCRIPTION:
These are special remarks regarding this request.
410,10 ITEM IT;0 Multiple #410.02 (Add New Entry without Asking)
LAST EDITED: SEP 17, 1991
DESCRIPTION:
This is the item(s) being ordered on this request.
IDENTIFIED BY:
"Z0": W:$D(^(0)) ?8,$P(^(0),U,5)
"Z1": W:$D(^(1,1,0)) ?18,$E(^(0),1,60)
"Z2": D:$P($G(@(DIC_+Y_",4)")),U,3)]"" EN^DDIOL("eCMS Item Line ID "_$P(^(4),U,3),,"!?10")
INDEXED BY: LINE ITEM NUMBER & QUANTITY & UNIT OF PURCHASE & BOC & ITEM MASTER FILE NO. & STOCK NUMBER & EST.
ITEM (UNIT) COST & DM DOC ID & DATE NEEDED BY (AH)
410.02,.01 LINE ITEM NUMBER 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: FEB 22, 2005
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the item number for this request.
CROSS-REFERENCE: 410.02^B
1)= S ^PRCS(410,DA(1),"IT","B",$E(X,1,30),DA)=""
2)= K ^PRCS(410,DA(1),"IT","B",$E(X,1,30),DA)
CROSS-REFERENCE: 410.02^AB
1)= S ^PRCS(410,DA(1),"IT","AB",$E(X,1,30),DA)=""
2)= K ^PRCS(410,DA(1),"IT","AB",$E(X,1,30),DA)
This cross reference is set for each line item of a transaction, from the "IT" item cross
reference. Listed from "AB" and the line item number, on consecutive nodes, are the line item
data.
CROSS-REFERENCE: 410.02^AD^MUMPS
1)= S Z(1)=$S($D(^PRCS(410,DA(1),3)):$P(^(3),U,3),1:"") S ^PRCS(410,DA(1),"IT",DA,0)=$P(^PRCS(410,D
A(1),"IT",DA,0)_"^^^^^^^",U,1,7)_U_Z(1) K Z(1)
2)= Q
RECORD INDEXES: AH (#580)
410.02,1 DESCRIPTION 1;0 WORD-PROCESSING #410.03
DESCRIPTION:
This is a description of the item being ordered.
HELP-PROMPT: Enter a description for this item
DESCRIPTION:
This is a description of the item being ordered.
410.02,2 QUANTITY 0;2 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<.01)!(X?.E1"."3N.N) X
LAST EDITED: JAN 22, 1986
HELP-PROMPT: Enter the quantity (a number from .01 to 999,999 with up to two decimal places) of this item you
wish to order.
DESCRIPTION:
This is the quantity of the item(s) requested.
CROSS-REFERENCE:410.02^AE^MUMPS
1)= S E=0,E(1)="" S:'$D(^PRCS(410,DA(1),4)) ^(4)="" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),"IT",E)) S:E?
1N.N E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q
1.4)= S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=E(1),DA=DA(1) X ^
DD(410,20,1,1,1) S DA=E,DA(1)=E(2)
2)= S E=0,E(1)="" S:'$D(^PRCS(410,DA(1),4)) ^(4)="" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),"IT",E)) S:E?
1N.N&(E'=DA) E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q
2.4)= S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=$J(E(1),10,2),DA=
DA(1) X ^DD(410,20,1,1,2) S DA=E,DA(1)=E(2)
This cross reference is used to calculate the quantity ordered for each line item.
RECORD INDEXES: AH (#580)
410.02,3 UNIT OF PURCHASE 0;3 POINTER TO UNIT OF ISSUE FILE (#420.5) (Required)
LAST EDITED: JUL 11, 1985
HELP-PROMPT: Select the appropriate unit of purchase for this item
DESCRIPTION: This is the unit of measurement for items being procured.
e.g., each, dozen, box, bottle, case, pound (lb.), square ft., etc.
RECORD INDEXES: AH (#580)
410.02,4 BOC 0;4 FREE TEXT (Required)
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) D SUB^PRCSES
LAST EDITED: MAR 23, 1994
HELP-PROMPT: Select the appropriate budget object code for this item
DESCRIPTION: This is a fiscal code which describes the type of item/service being procured (associated with
Control Points and Cost Centers).
e.g., 2620 Office Supplies
2623 ADP Recording Media
2524 ADP Software
BOC (Budget Object Code) replaces the 'subaccount' field for FMS.
EXECUTABLE HELP:D ^PRCSES S ZD=D,X="?",Z0=$S($D(^PRCS(410,DA(1),3)):+$P(^(3),U,3),1:0) Q:'Z0!'$D(^PRCD(420.1,Z0,1
,0)) S DIC="^PRCD(420.1,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:410.02^AD^MUMPS
1)= S ^PRCS(410,"AD",$E(X,1,30),DA(1))=""
2)= K ^PRCS(410,"AD",$E(X,1,30),DA(1))
This cross reference is set on the number and name of the budget object code used on the request.
RECORD INDEXES: AH (#580)
410.02,5 ITEM MASTER FILE NO. 0;5 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) D ITEM^PRCSES1
LAST EDITED: AUG 23, 1994
HELP-PROMPT: Select the procurement (UIR) card number you wish to order
DESCRIPTION: This is a number used to identify an item in the Item File when entering a repetitive form type
(associated with the Item Master Number).
e.g., 322 Widget-3/4 IN
EXECUTABLE HELP:D ITEMH^PRCSES1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:410.02^AG
1)= S ^PRCS(410,DA(1),"IT","AG",$E(X,1,30),DA)=""
2)= K ^PRCS(410,DA(1),"IT","AG",$E(X,1,30),DA)
This cross reference is set from the "IT" item cross reference, and from "AG", is set on the
repetitive (PR card) number.
RECORD INDEXES: AH (#580)
410.02,6 STOCK NUMBER 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>24!($L(X)<1)!(X'?.ANP) X
LAST EDITED: MAR 16, 1985
HELP-PROMPT: Enter the Federal Supply Service (FSS) or other stock number for this item, or the manufacturers
model number
DESCRIPTION: This is the item Federal Supply Service (FSS) Number; or National Stock Number (NSN); or any other
stock number; or the manufacturer model number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
RECORD INDEXES: AH (#580)
410.02,7 EST. ITEM (UNIT) COST 0;7 NUMBER (Required)
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) Q:X?1"N/C" K:+X'=X&(X'?.N1"."2N)!(X>9999999)!(X<0) X I $D(X) S:X=0 X="N/C"
LAST EDITED: MAR 17, 1986
HELP-PROMPT: Enter the unit cost for this item (a dollar amount between 0 and 9999999) or N/C for no charge.
Commas are not allowed.
DESCRIPTION:
This is the individual unit cost of the item(s) in a dollar amount or N/C for no charge.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:410.02^AF^MUMPS
1)= S E=0,E(1)="" S:'$D(^PRCS(410,DA(1),4)) ^(4)="" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),"IT",E)) S:E?
1N.N E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q
1.4)= S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=E(1),DA=DA(1) X ^
DD(410,20,1,1,2) S DA=E,DA(1)=E(2)
2)= S E=0,E(1)="" S:'$D(^PRCS(410,DA(1),4)) ^(4)="" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),"IT",E)) S:E?
1N.N&(E'=DA) E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q
2.4)= S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=$J(E(1),10,2),DA=
DA(1) X ^DD(410,20,1,1,2) S DA=E,DA(1)=E(2)
This cross reference is used to calculate the estimated item (unit) cost.
RECORD INDEXES: AH (#580)
410.02,8 ITEM DELIVERY POINTS 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<3) X
LAST EDITED: JUL 21, 1987
HELP-PROMPT: If this item is to be delivered to multiple rooms/persons/sections upon receipt, enter in this
field each delivery point and the quantity each should receive.
DESCRIPTION: This is an identification of the room(s), person(s), or section(s) to which the item is to be
delivered.
410.02,9 PURCHASE ORDER/OBLIGATION NO 0;10 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
LAST EDITED: JUL 15, 1985
DESCRIPTION: This is the item purchase order/obligation number that is either generated on IFCAP or entered by
the Control Point Clerk. For transactions generated on IFCAP, the number is transferred from the
purchase order file. For transactions not generated on IFCAP (e.g.,travel voucher), the number is
manually entered by the Control Point Clerk.
WRITE AUTHORITY:^
CROSS-REFERENCE:410.02^AC^MUMPS
1)= K ^PRCS(410,DA(1),"IT","AB",+$P(^PRCS(410,DA(1),"IT",0),U,1),DA)
2)= S ^PRCS(410,DA(1),"IT","AB",+$P(^PRCS(410,DA(1),"IT",0),U,1),DA)=""
This cross reference is used to set part of the "IT" item cross reference. From "AB", the purchase
order/obligation number is set. This cross reference is used to link the purchase order number
with the line item number. As items are deleted in any order, it is more efficient to kill and then
recreate the cross reference.
410.02,10 INTERMEDIATE PRODUCT CODE 0;11 POINTER TO INTERMEDIATE PRODUCT FILE (#420.9)
LAST EDITED: APR 22, 1986
HELP-PROMPT: Select the appropriate Intermediate Product Code for this item.
DESCRIPTION:
This is the appropriate Intermediate Product Code for the item.
410.02,11 RECEIVING CODE SHEET NO. 0;9 POINTER TO CALM/LOG CODE SHEET FILE (#423)
LAST EDITED: APR 21, 1989
HELP-PROMPT: Pointer to LOG/CALM Code sheet file (423) for the LOG Issues Code sheet created for the receipt of
this line item.
DESCRIPTION: This is the computer generated number identifying the receiving code sheet transmitted to Austin,
TX. It is associated with the CALM.LOG Code Sheet file, #423. It is composed of a Sequence Number
and Fiscal Year.
e.g., 106-91,
106 = Sequence Number;
91 = Fiscal Year.
410.02,12 DELIVERY SCHEDULE 2;0 Multiple #410.212
DESCRIPTION:
This field is the Delivery Schedule of the Order File, #442.8.
IDENTIFIED BY:
"Z1": I $D(^(0)),$D(^PRCS(410.6,+$P(^(0),U,2),0)) S Z1=^(0) W "QTY: ",$P(Z1,U,4),?15," SCP: ",$S($D(^PRC
S(410.4,+$P(Z1,U,5),0)):$E($P(^(0),U),1,10),1:""),?35," DATE: ",$E($P(Z1,U,2),4,5)_"-"_$E($P(Z1,U,
2),6,7)_"-"_$E($P(Z1,U,2),2,3) K Z1
"Z2": I $D(^(0)),$D(^PRCS(410.6,+$P(^(0),U,2),0)) S Z1=$P(^(0),U,3) W " LOC: ",$S($D(^PRCS(410.8,+Z1,0))
:$E($P(^(0),U),1,10),1:"") K Z1
410.212,.01 DELIVERY SCHEDULE 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM:K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 28, 1989
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION:
This field is the Delivery Schedule of the Order file, #442.8.
CROSS-REFERENCE:410.212^B
1)= S ^PRCS(410,DA(2),"IT",DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^PRCS(410,DA(2),"IT",DA(1),2,"B",$E(X,1,30),DA)
410.212,1 DELIVERY REFERENCE NUMBER 0;2 POINTER TO DELIVERY SCHEDULE FILE (#410.6)
LAST EDITED: MAY 08, 1989
DESCRIPTION: This is the reference number for the delivery schedule used by the Control Point Clerk. It is
associated with delivery schedules for each item of a request for repetitive, non-repetitive, or
a non-repetitive form type.
410.02,13 QUANTITY POSTED (WHSE) 0;12 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 14, 1991
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: This field is used to store the quantity posted from the warehouse to a primary for issue book
requests.
410.02,14 QUANTITY RECEIVED (PRIMARY) 0;13 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 14, 1991
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
DESCRIPTION: This field is used to store the quantity received from the warehouse to a primary for issue book
requests.
410.02,15 STATUS 0;14 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1) X
LAST EDITED: JUL 19, 1991
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This field is used to indicate if an item is 'C'ancelled or 'S'ubstituted. If an item is
substituted, it will also contain the line item number for the item(s) which were substituted for
this item.
410.02,16 PO EST. SHIPPING 3;1 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X
LAST EDITED: APR 25, 1994
HELP-PROMPT: Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits
DESCRIPTION:
This is the shipping cost for the item as calculated on the purchase order.
410.02,17 DM DOC ID 4;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>16!($L(X)<9) X
LAST EDITED: FEB 28, 2005
HELP-PROMPT: Answer must be 9-16 characters in length
DESCRIPTION: This is DynaMed's unique number associated with each item that is sent on a request order from
DynaMed. It is composed of 1 digit for Year concatenated with 3 digit Julian Date a dash,
concatenated with 4 digit Sequential Number and a dash, concatenated up to 6 characters (ex
YDDD-9999-CCCCCC).
This number is provided by DynaMed, a user's input is not required. DynaMed allows 16 characters
maximum.
TECHNICAL DESCR:
This number will be associated with an order request from DynaMed. Each order request will
identify a single item in Item Master File in IFCAP. The DM DOC ID is also recorded in a DynaMed
IFCAP Interface Audit File #414.02 (a new file created for DynaMed interface).
SOURCE OF DATA:DynaMed --Information Control
UNEDITABLE
RECORD INDEXES: AH (#580)
410.02,18 DATE NEEDED BY 4;2 DATE
INPUT TRANSFORM:S %DT="ESTX" D ^%DT S X=Y K:X<1 X
LAST EDITED: FEB 28, 2005
HELP-PROMPT: (No range limit on date)
DESCRIPTION: This field holds a date when DynaMed anticipates an item should arrive. It is received in a
Repetitive Item List(RIL) transaction for each item and then carried on to 2237 and then to
Purchase Order as the item is processed through IFCAP.
TECHNICAL DESCR:
This field reflects item's needed by date in DynaMed. It is best NOT to edit this date.
SOURCE OF DATA:DynaMed --Information Control
UNEDITABLE
RECORD INDEXES: AH (#580)
410.02,100 ECMS ITEMUID 4;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<1)!'(X?1.10N) X
LAST EDITED: MAY 10, 2012
HELP-PROMPT: Enter the 1-10 digit eCMS ItemUID value.
DESCRIPTION: This field stores the eCMS internal, unique identifier for this 2237 item line. This field is
populated by the eCMS/IFCAP interface.
UNEDITABLE
410.02,445.01 ACCT-BOC 445;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7)!'(X?1"A"1N1"-"4N) X
LAST EDITED: MAY 06, 1994
HELP-PROMPT: Enter 'A' followed by the 1 digit account followed by a '-' followed by the 4 digit BOC.
DESCRIPTION: This field is used to build a cross-reference of the inventory account and BOC which is used to
determine the FMS line number for the IV document. This field is populated during the issue book
posting and adjustments in the inventory package.
CROSS-REFERENCE:410.02^AX1^MUMPS
1)= D XREFFMS^PRCPSFU0(DA(1),DA,X,445.01,"SET")
2)= D XREFFMS^PRCPSFU0(DA(1),DA,X,445.01,"KILL")
This cross-reference is used to lookup the FMS line number when creating the IV document. If an
account-BOC previously appears on an FMS IV document line number, the same line number must be
used for other items which have the same account-BOC information.
410.02,445.02 FMSLINE 445;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 07, 1994
HELP-PROMPT: Enter the FMS IV document line number which was used for this account-BOC (item). From 1 to 999.
DESCRIPTION: This field is used to store the FMS IV document line number which was used for this account-BOC
(field 445.01).
CROSS-REFERENCE:410.02^AX2^MUMPS
1)= D XREFFMS^PRCPSFU0(DA(1),DA,X,445.02,"SET")
2)= D XREFFMS^PRCPSFU0(DA(1),DA,X,445.02,"KILL")
This cross-reference is used to lookup the FMS line number when creating the IV document. If an
account-BOC previously appears on an FMS IV document line number, the same line number must be
used for other items which have the same account-BOC information.
410.02,445.03 TOTAL QUANTITY POSTED 445;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 07, 1994
HELP-PROMPT: Enter the total quantity posted by the warehouse from 0 to 9999999.
DESCRIPTION:
This field stores the total quantity posted by the warehouse.
410.02,445.04 TOTAL INVENTORY VALUE 445;4 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X
LAST EDITED: MAR 07, 1994
HELP-PROMPT: Enter the total warehouse inventory value posted by the warehouse from 0 to 9999999.99.
DESCRIPTION:
This field stores the total inventory value posted by the warehouse inventory point.
410.02,445.05 TOTAL SELLING VALUE 445;5 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<0) X
LAST EDITED: MAR 07, 1994
HELP-PROMPT: Enter the total warehouse selling value posted by the warehouse from 0 to 9999999.99.
DESCRIPTION:
This field stores the total selling value posted by the warehouse inventory point.
410,11 VENDOR 2;1 FREE TEXT (Required)
INPUT TRANSFORM: D VENDOR^PRCSES
LAST EDITED: APR 19, 1986
HELP-PROMPT: Enter the name of the vendor for the items ordered on this request (1 to 30 characters)
DESCRIPTION:
This is the name of the vendor for the items ordered on the request.
EXECUTABLE HELP: S:$D(D) ZD=D,X="?",DIC="^PRC(440,",DIC(0)="EMZ" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD W !,"For 1358 r
equests, additional information concerning vendors may be entered",!,"in the Purpose field."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^E
1)= S ^PRCS(410,"E",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"E",$E(X,1,30),DA)
This cross reference is set on the vendor for the transaction.
410,11.1 VENDOR ADDRESS1 2;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>33!($L(X)<1)!'(X?.ANP) X
LAST EDITED: FEB 20, 1986
HELP-PROMPT: Enter first line of vendor address. Answer must be from 1 to 33 characters.
DESCRIPTION:
This is the first line of the vendor address.
410,11.2 VENDOR ADDRESS2 2;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>33!($L(X)<1)!'(X?.ANP) X
LAST EDITED: FEB 20, 1986
HELP-PROMPT: Enter the second line of the vendor address (if applicable). Answer must be from 1 to 33
characters.
DESCRIPTION:
This is the second line of the vendor address (if applicable).
410,11.3 VENDOR ADDRESS3 2;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1)!'(X?.ANP) X
LAST EDITED: FEB 20, 1986
HELP-PROMPT: Enter the third line of the vendor address (if applicable). Answer must be from 1 to 25
characters.
DESCRIPTION:
This is the third line of the vendor address (if applicable).
410,11.4 VENDOR ADDRESS4 2;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1)!'(X?.ANP) X
LAST EDITED: FEB 20, 1986
HELP-PROMPT: Enter the fourth line of the vendor address (if applicable). Answer must be from 1 to 25
characters.
DESCRIPTION:
This is the fourth line of the vendor address (if applicable).
410,11.5 VENDOR CITY 2;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3)!'(X?.ANP) X
LAST EDITED: APR 28, 1985
HELP-PROMPT: Enter the city for this vendor. Answer must be from 3 to 20 characters.
DESCRIPTION:
This is the city in the vendor address.
410,11.6 VENDOR STATE 2;7 POINTER TO STATE FILE (#5)
LAST EDITED: APR 28, 1985
HELP-PROMPT: Select the state for this vendor.
DESCRIPTION:
This is the state in the vendor address.
410,11.7 VENDOR ZIP CODE 2;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)<5!(X'?5N.ANP)!($L(X)>5&(X'?5N1"-"4N)) X
LAST EDITED: APR 28, 1985
HELP-PROMPT: Enter a 5 digit or 9 digit zip code (e.g., 12345 or 12345-6789)
DESCRIPTION:
This is a 5 or 9 digit zip code in the vendor address.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,11.8 VENDOR CONTACT 2;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!'(X?.ANP) X
LAST EDITED: APR 28, 1985
HELP-PROMPT: Enter the name of the person to contact concerning product information for this vendor. Answer
must be from 3 to 30 characters.
DESCRIPTION:
This is the name of the contact person for information from this vendor.
410,11.9 VENDOR PHONE NO. 2;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>18!($L(X)<3)!'(X?.ANP) X
LAST EDITED: FEB 20, 1986
HELP-PROMPT: Enter the phone number for the contact person for this vendor. Answer must be from 3 to 18
characters.
DESCRIPTION:
This is the phone number of the contact person for this vendor.
410,12 VENDOR(POINTER) 3;4 POINTER TO VENDOR FILE (#440)
LAST EDITED: APR 19, 1986
DESCRIPTION:
This is the name of the vendor for the items on this request.
410,13 VENDOR CONTRACT NUMBER 3;10 FREE TEXT
INPUT TRANSFORM: S Z0=$S($D(^PRCS(410,DA,3)):$P(^(3),U,4),1:0) K:'Z0 X Q:'Z0 Q:'$D(^PRC(440,Z0,4,0)) S DIC="^PRC(4
40,Z0,4,",DIC(0)="QEMNZ" D ^DIC K DIC K:Y'>0 X Q:'$D(X) S X=$P(Y(0),U,1)
LAST EDITED: AUG 26, 1987
HELP-PROMPT: Select the appropriate contract number applicable to this request.
DESCRIPTION:
This is the vendor contract number.
EXECUTABLE HELP: S:$D(D) ZD=D S X="?",Z0=$S($D(^PRCS(410,DA,3)):$P(^(3),U,4),1:0) Q:'Z0 Q:'$D(^PRC(440,Z0,4,0)) S
DIC="^PRC(440,Z0,4,",DIC(0)="QEM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,15 CONTROL POINT 3;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) S Z0=$P(^PRCS(410,DA,0),U,5) K:'Z0 X Q:'Z0 Q:'$D(^PRC(420,Z0,1,0))
S DIC="^PRC(420,Z0,1,",DIC(0)="QEMNZ" D ^DIC K DIC K:Y'>0 X Q:'$D(X) S X=$P(Y(0),U,1)
LAST EDITED: NOV 28, 1994
HELP-PROMPT: Select the appropriate control point for this transaction
DESCRIPTION:
This is the division of monies to a specified service, activity, or purpose from an appropriation.
EXECUTABLE HELP: S ZD=D,X="?",Z0=$P(^PRCS(410,DA,0),U,5) Q:'Z0 Q:'$D(^PRC(420,Z0,1,0)) S DIC="^PRC(420,Z0,1,",DIC(
0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AN
1)= S ^PRCS(410,"AN",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"AN",$E(X,1,30),DA)
This cross reference is set on the control point name and number.
410,15.5 COST CENTER 3;3 FREE TEXT (Required)
INPUT TRANSFORM: D CC^PRCSES
LAST EDITED: JUL 15, 1985
HELP-PROMPT: Select the appropriate cost center for this request
DESCRIPTION: This is a subdivision of a Fund Control Point that tells which service/section is being charged for
a request/order.
EXECUTABLE HELP: S ZD=D,X="?",Z0=$P(^PRCS(410,DA,0),U,5),Z1=+$P(^PRCS(410,DA,3),U,1) Q:'$D(^PRC(420,Z0,1,0))!'$D(^PR
C(420,Z0,1,Z1,2,0)) S DIC="^PRC(420,Z0,1,Z1,2,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AC
1)= S ^PRCS(410,"AC",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"AC",$E(X,1,30),DA)
This cross reference is set on the cross center number and name.
410,16 SUB-CONTROL POINT 12;0 POINTER Multiple #410.04
DESCRIPTION: This is a subdivision of the Control Point for the division of funds by section, unit of service,
clinic or major 'product line'.
410.04,.01 SUB-CONTROL POINT 0;1 POINTER TO SUB-CONTROL POINT FILE (#410.4) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.4,+Y,0)),$P(^(0),U,2)=+PRC(""CP"")" D ^DIC K DIC S DIC=D
IE,X=+Y K:Y<0 X
LAST EDITED: JAN 22, 1990
DESCRIPTION: This is an additional sub-control point. IFCAP allows more than one sub-control point on each
transaction to get a quantity discount.
SCREEN: S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.4,+Y,0)),$P(^(0),U,2)=+PRC(""CP"")"
EXPLANATION: Users can only select Sub-Control Points for their own control points.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:410^C^MUMPS
1)= S ^PRCS(410,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^PRCS(410,"C",$E(X,1,30),DA(1),DA)
This cross reference is set on the sub-control point and ceiling transaction number.
CROSS-REFERENCE:410.04^AB
1)= S ^PRCS(410,DA(1),12,"AB",$E(X,1,30),DA)=""
2)= K ^PRCS(410,DA(1),12,"AB",$E(X,1,30),DA)
This cross reference is set on the sub-control point node as a cross reference by sub-control point
number.
410.04,1 $ AMOUNT 0;2 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
LAST EDITED: MAY 23, 1989
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
DESCRIPTION:
This is the dollar amount committed by each sub-control point.
CROSS-REFERENCE:410.04^AC^MUMPS
1)= D TRANS^PRCSEZZ
2)= D TRANK^PRCSEZZ
This cross reference is used to set the sub-control point dollar amount.
410.04,2 SCP AMT ; COMPUTED
MUMPS CODE: X ^DD(410.04,2,9.7) S X=$S(Y(410.04,2,5):Y(410.04,2,8),Y(410.04,2,10):Y(410.04,2,11),Y(410.04,2,12)
:X)
9.2 = S Y(410.04,2,2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""),Y(410.04,2,4)=$C(59)_$S($D(^DD(
410,1,0)):$P(^(0),U,3),1:"")
9.3 = X ^DD(410.04,2,9.2) S Y(410.04,2,9)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""),Y(410.04,2,
1)=$S($D(^PRCS(410,D0,0)):^(0),1:"")
9.4 = X ^DD(410.04,2,9.3) S Y(410.04,2,7)=$S($D(^PRCS(410,D0,12,D1,0)):^(0),1:"") S X=$P($P(Y(410.0
4,2,2),$C(59)_$P(Y(410.04,2,1),U,2)_":",2),$C(59),1)["OB"
9.5 = X ^DD(410.04,2,9.4) S Y(410.04,2,3)=X S X=$P($P(Y(410.04,2,4),$C(59)_$P(Y(410.04,2,1),U,2)_":
",2),$C(59),1)["ADJ",Y=X,X=Y(410.04,2,3),X=X!Y,Y(410.04,2,5)=X
9.6 = X ^DD(410.04,2,9.5) S Y(410.04,2,6)=X S X=-$P(Y(410.04,2,7),U,2),Y(410.04,2,8)=X S X=$P($P(Y(
410.04,2,9),$C(59)_$P(Y(410.04,2,1),U,2)_":",2),$C(59),1)["CA"
9.7 = X ^DD(410.04,2,9.6) S Y(410.04,2,10)=X S X=0,Y(410.04,2,11)=X S X=1,Y(410.04,2,12)=X,Y(410.04
,2,13)=X S X=$P(Y(410.04,2,7),U,2)
ALGORITHM: $S((#1["OB"!(#1["ADJ")):(-$ AMOUNT),#1["CA":0,1:($ AMOUNT))
LAST EDITED: OCT 31, 1989
DESCRIPTION:
This is the computed amount for the Sub-Control Point (SCP).
410,17 BOC1 3;6 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) S Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) D SUB1^PRCSES I $D(X),
+$P(^PRCS(410,DA,3),"^",8)=+X K X W !,"You have already entered this BOC in the BOC2 field."
LAST EDITED: MAY 06, 1994
HELP-PROMPT: Select the appropriate budget object code for this request.
DESCRIPTION:
This is a budget object code (BOC) for the transaction.
EXECUTABLE HELP: D ^PRCSES S:$D(D) ZD=D S X="?",Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) Q:'Z0!('$D(^PRCD(420.1,
Z0,1,0))) S DIC="^PRCD(420.1,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AD
1)= S ^PRCS(410,"AD",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"AD",$E(X,1,30),DA)
This cross reference is set on the BOC name and number for the first BOC used on the transaction.
410,17.5 BOC1 $ AMOUNT 3;7 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,
2)
LAST EDITED: MAR 23, 1994
HELP-PROMPT: Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits
DESCRIPTION:
This is the dollar amount applied to the budget object code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,18 BOC2 3;8 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) S Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) D SUB1^PRCSES I $D(X),
+$P(^PRCS(410,DA,3),"^",6)=+X K X W !,"You have already entered this BOC in the BOC1 field."
LAST EDITED: MAY 06, 1994
HELP-PROMPT: Select the appropriate second budget object code for this request if applicable. (Optional)
DESCRIPTION:
This is the second budget object code for the transaction (if applicable).
EXECUTABLE HELP: D ^PRCSES S:$D(D) ZD=D S X="?",Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) Q:'Z0!('$D(^PRCD(420.1,
Z0,1,0))) S DIC="^PRCD(420.1,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AP
1)= S ^PRCS(410,"AP",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"AP",$E(X,1,30),DA)
This cross reference is set on the BOC name and number for the second BOC (if any) used on the
transaction.
410,18.5 BOC2 $ AMOUNT 3;9 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,
2)
LAST EDITED: MAR 23, 1994
HELP-PROMPT: Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits
DESCRIPTION:
This is the dollar amount applied to this budget object code (if applicable).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,19 AUTHORITY 11;4 POINTER TO AUTHORITY OF REQUEST FILE (#410.9)
INPUT TRANSFORM: S DIC("S")="I ('$P(^(0),U,4)!($P(^(0),U,4)>DT)),Y<100" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: AUG 30, 2010
HELP-PROMPT: Select the Authority for this 1358 Obligation.
DESCRIPTION: This is the officially approved authority for use of a 1358 document. You can only select active
authorities.
SCREEN: S DIC("S")="I ('$P(^(0),U,4)!($P(^(0),U,4)>DT)),Y<100"
EXPLANATION: Only Active Primary Authorities.
410,19.1 SUB AUTHORITY 11;5 POINTER TO AUTHORITY OF REQUEST FILE (#410.9)
INPUT TRANSFORM: S DIC("S")="I ('$P(^(0),U,4)!($P(^(0),U,4)>DT)),$D(^PRCS(410.9,""AC"",+$P($G(^PRCS(410,D0,11)),U,4)
,Y))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: AUG 27, 2010
HELP-PROMPT: Select the Sub-Authority for this 1358 Obligation.
DESCRIPTION: This is the officially approved sub-authority for use of a 1358 document. You can only select
active sub-authorities for the authority you selected.
SCREEN: S DIC("S")="I ('$P(^(0),U,4)!($P(^(0),U,4)>DT)),$D(^PRCS(410.9,""AC"",+$P($G(^PRCS(410,D0,11)),U,4)
,Y))"
EXPLANATION: You can only select active sub-authorities that relate to the main one.
410,20 COMMITTED (ESTIMATED) COST 4;1 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>9999999.99)!(X<0) X I $D(X) W " $ ",$J(X,0,2)
LAST EDITED: MAY 16, 2013
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits.
DESCRIPTION:
This is the estimated amount of the committed cost of the requested item(s).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AH^MUMPS
1)= Q:$P(^PRCS(410,DA,4),U,3)'="" S $P(^(4),"^",8)=X D TRANS^PRCSES
2)= Q:$P(^PRCS(410,DA,4),U,3)'="" S $P(^(4),"^",8)="" D TRANK^PRCSES
This cross reference is used to set the committed (estimated) cost.
410,21 DATE COMMITTED 4;2 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 28, 1996
HELP-PROMPT: Enter the date money was committed for this request
DESCRIPTION:
This is the date money was committed for this request.
410,22 OBLIGATED (ACTUAL) COST 4;3 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$
J(X,0,2)
LAST EDITED: MAY 19, 1993
HELP-PROMPT: Enter the dollar amount (from -9999999.99 to 9999999.99) from the purchase order for this
transaction.
DESCRIPTION:
This is the obligated (actual) cost amount from the purchase order.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AI^MUMPS
1)= S $P(^PRCS(410,DA,4),"^",8)=X D TRANS1^PRCSES
2)= S $P(^PRCS(410,DA,4),"^",8)="" D TRANK1^PRCSES
This cross reference is used to set the obligated (actual) cost.
410,23 DATE OBLIGATED 4;4 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date money was obligated for this transaction
DESCRIPTION:
This is the date that the funds were obligated for this transaction.
410,24 PURCHASE ORDER/OBLIGATION NO 4;5 FREE TEXT
INPUT TRANSFORM: K:X'?6UN X I $D(X),$D(DA),$D(^PRCS(410,DA,0)),$P(^(0),"^",2)="A",$O(^PRCS(410,"D",X,0))'>0 W !,*7,"
Reference number does not exist. Are you sure " S %=2 D YN^DICN K:%'=1 X K %
LAST EDITED: MAR 25, 1987
HELP-PROMPT: Enter the 6 character purchase order/obligation/reference number for this transaction
DESCRIPTION:
This is the purchase order/obligation/reference number for this transaction.
EXECUTABLE HELP: S DIC="^PRCS(410,",DIC(0)="EQZ",D="D",DIC("S")="I $P(^(0),U,4)'=1" S:$D(PRCSFT) DIC("S")="I $P(^(0)
,U,4)=1" S DIC("S")=DIC("S")_",PRC(""SITE"")=+^(0),+PRC(""CP"")=$P($P(^(0),U),""-"",4)" D IX^DIC K
DIC("S")
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^D
1)= S ^PRCS(410,"D",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"D",$E(X,1,30),DA)
This cross reference is set on the purchase order/obligation number.
410,25 ADJUSTMENT $ AMOUNT 4;6 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) S:X["CR" X=-X K:+X'=X&(X'?."-".N1"."2N)!(X>9999999.99)!(X<-9999999.99) X I $D
(X) W " $ ",$J(X,0,2)
LAST EDITED: MAY 16, 2013
HELP-PROMPT: Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits.
DESCRIPTION:
This is the adjustment dollar amount for this obligation transaction.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AJ^MUMPS
1)= S $P(^PRCS(410,DA,4),"^",3)=X,$P(^(4),"^",8)=X D TRANS^PRCSES I $P(^PRCS(410,DA,4),"^",14)="Y"
S X=$P(^(4),"^",8),$P(^(4),"^",3)="" D TRANK1^PRCSEZ
2)= N PRCAAMT S PRCAAMT=X,$P(^PRCS(410,DA,4),"^",3)="",$P(^(4),"^",8)="" D TRANK^PRCSES I $P(^PRCS(
410,DA,4),"^",14)="Y" S X=PRCAAMT D TRANS1^PRCSES
This cross reference is used to set the adjustment dollar amount.
410,25.5 ADJUST CP BALANCE ONLY 4;14 SET
'N' FOR NO;
'Y' FOR YES;
LAST EDITED: FEB 19, 1997
DESCRIPTION:
This is used for adjust transactions only.
410,26 DATE OBL ADJUSTED 4;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date this obligation transaction was adjusted
DESCRIPTION:
This is the date this obligation transaction was adjusted.
410,27 TRANSACTION $ AMOUNT 4;8 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$
J(X,0,2)
LAST EDITED: MAY 15, 2013
HELP-PROMPT: Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits.
DESCRIPTION:
This is the transaction dollar amount.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AF^MUMPS
1)= D TRANS^PRCSES
2)= D TRANK^PRCSES
This cross reference is used to set the dollar amount for the transaction.
410,28 ACCOUNTING DATA 3;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<7)!'(X?.ANP) X
LAST EDITED: MAY 01, 1985
HELP-PROMPT: Enter the appropriation symbols for this transaction (e.g., 3650160.001.01)
DESCRIPTION:
These are the appropriate accounting symbols for this transaction originating from Fiscal Service.
410,28.1 FCP/PRJ 3;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<1) X
LAST EDITED: MAY 31, 1994
HELP-PROMPT: Answer must be 1-9 characters in length.
DESCRIPTION:
This is the fund control point/project number.
410,28.5 BBFY 3;11 DATE (Required)
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y,X=X-(X#10000) K:3990000X) X
LAST EDITED: MAR 29, 1994
HELP-PROMPT: Enter a year between 1900 and 2099.
DESCRIPTION:
This is the beginning budget fiscal year.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,29 OBLIGATED BY 4;9 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 24, 1992
HELP-PROMPT: Select the individual in Fiscal Service who obligated this request.
DESCRIPTION:
This is the person who obligated the transaction.
410,29.5 OBLIGATION VALIDATION CODE 4;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM: S Y(0)=Y S Y="/ES/"_$$DECODE^PRCSC2(D0)
LAST EDITED: MAR 17, 1993
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION: This is the code created for the record at the time that the obligating official entered their
electronic signature, which replaces the written signature required on the IFCAP document. The
Obligation Validation Code is encrypted to prevent unauthorized use.
DELETE AUTHORITY: ^
410,29.6 OBLIGATION VALIDATION VERSION 4;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1993
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: This is the version number of the algorithms used for encoding and decoding the Obligation
Validation Code for the record.
410,29.7 OBLIGATION SIGNATURE BLOCK 4;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: NOV 16, 1992
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION: This is the printed form of the name of the official who authorized the obligation transaction. It
is printed on documents along with a notation which indicates that the obligation was approved by
electronic signature.
410,29.8 OBLIGATION VAL CODE DATE/TIME 4;13 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 13, 1993
DESCRIPTION: This is the date and time that a valid electronic signature was entered authorizing the obligation
transaction.
410,30 FMS $ AMOUNT 5;1 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) S:$D(DA) TT=$P(^PRCS(410,DA,0),"^",2),X=$S(TT="C"&(X["CR"):-X,TT="A"&(X["CR")
:-X,1:X) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W " $ ",$J(X,0,2)
LAST EDITED: MAY 04, 1994
HELP-PROMPT: Enter the dollar amount (from -9999999.99 to 9999999.99) for this transaction
DESCRIPTION:
This is the FMS dollar amount for the adjustment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,31 FMS DATE 5;2 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 04, 1994
HELP-PROMPT: Enter the date from the CALM (820) report for this transaction
DESCRIPTION:
This is the obligation date for this transaction.
410,32 FMS TRANSACTION TYPE 5;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)'=6!'((X?3N1"."2N)!(X?3N1"-"2N)) X
LAST EDITED: MAY 04, 1994
HELP-PROMPT: Enter the two digit FMS transaction code for this transaction.
DESCRIPTION:
This is the code identifying the transaction.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,32.1 CALM TRANS COMPUTED CODE ; COMPUTED
MUMPS CODE: X ^DD(410,32.1,9.3) S X=$E(Y(410,32.1,5),Y(410,32.1,6),X) S Y=X,X=Y(410,32.1,4),X=X_Y
9.2 = S Y(410,32.1,1)=$S($D(^PRCS(410,D0,5)):^(5),1:"") S X=$P(Y(410,32.1,1),U,3),Y(410,32.1,2)=X S
X=1,Y(410,32.1,3)=X S X=3,X=$E(Y(410,32.1,2),Y(410,32.1,3),X)
9.3 = X ^DD(410,32.1,9.2) S Y(410,32.1,4)=X S X=$P(Y(410,32.1,1),U,3),Y(410,32.1,5)=X S X=5,Y(410,3
2.1,6)=X S X=6
ALGORITHM: $E(#32,1,3)_$E(#32,5,6)
LAST EDITED: MAY 26, 1988
DESCRIPTION: This is the computed code for the request. CALM (Centralized Accounting for Local Management)
reports are processed in Austin from input received from the VA Medical Centers.
410,33 END DATE FOR 1358 5;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: AUG 12, 1994
HELP-PROMPT: Enter the ending date for this 1358 Obligation.
DESCRIPTION: This field is the ending date for the 1358 Obligation, 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 be used to
determine the monthly accrual.
410,34 AUTO ACCRUE 5;5 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: JUN 14, 2011
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 1358 Obligation should be accrued in
FMS.
410,35 CEILING $ AMOUNT 6;1 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) S:X["CR" X=-+X K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X I $D(X) W
" $ ",$J(X,0,2)
LAST EDITED: FEB 17, 1989
HELP-PROMPT: TYPE A NUMBER BETWEEN -9999999 AND 9999999
DESCRIPTION:
This is the dollar ceiling amount for this request.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AK^MUMPS
1)= S $P(^PRCS(410,DA,4),"^",3)=X,$P(^(4),"^",8)=X D TRANS1^PRCSES
2)= S $P(^PRCS(410,DA,4),"^",3)="",$P(^(4),"^",8)="" D TRANK1^PRCSES
This cross reference is used to set the ceiling dollar amount for a ceiling type transaction.
410,36 DATE ALLOCATED 6;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
DESCRIPTION:
This is the date that the funds are allocated for this request.
410,37 FUND CONTROL POINT DIST. NO 6;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>8!($L(X)<1)!(X'?.ANP) X
LAST EDITED: MAR 16, 1985
HELP-PROMPT: ANSWER MUST BE 1-8 CHARACTERS IN LENGTH
DESCRIPTION: This is the Fund Control Point Distribution Number. This number is the Transaction Number from the
Fund Distribution file, #421. The Transaction Number is composed of SITE, FY (Fiscal Year), and
Sequential Number. The number used here is the Sequential Number, a four (4) digit number,
beginning at 0001.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,38 TEMP CP REF# 6;4 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X
LAST EDITED: NOV 28, 1994
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION:
This field is used for lookups of temporary transactions by the control point clerk.
CROSS-REFERENCE: 410^K
1)= S ^PRCS(410,"K",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"K",$E(X,1,30),DA)
This cross reference is used for lookups of temporary transactions by the control point clerk.
410,39 ACCOUNTABLE OFFICER 7;11 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 02, 1994
DESCRIPTION: This field holds the pointer to the accountable officer name in the New Person file. This field is
displayed on 2237 transactions.
410,40 REQUESTOR 7;1 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: I $D(^PRC(411,PRC("SITE"),8,X)) K X Q
LAST EDITED: JAN 12, 1994
HELP-PROMPT: Select the name of the individual to be printed on the 2237 request as the initiator of this
request.
DESCRIPTION:
This is the name of the individual printed on the 2237 form as the initiator of the request.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^AL^MUMPS
1)= I $D(^VA(200,X,20)),$P(^(20),"^",3)'="" S $P(^PRCS(410,DA,7),"^",2)=$P(^VA(200,X,20),"^",3)
2)= S $P(^PRCS(410,DA,7),"^",2)=""
This cross reference is used to set the requestor name from file 200 into the file 410 transaction
record.
410,41 REQUESTOR'S TITLE 7;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>35!($L(X)<3)!(X'?.ANP) X
LAST EDITED: MAR 16, 1985
HELP-PROMPT: ANSWER MUST BE 3-35 CHARACTERS IN LENGTH
DESCRIPTION:
This is the title of the requestor of this transaction.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,42 APPROVING OFFICIAL 7;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 24, 1992
HELP-PROMPT: Select the name of the approving official who will be signing this request
DESCRIPTION:
This is the name of the approving official who will be signing the request.
CROSS-REFERENCE: 410^AM^MUMPS
1)= I $D(^VA(200,X,20)),$P(^(20),"^",3)'="" S $P(^PRCS(410,DA,7),"^",4)=$P(^VA(200,X,20),"^",3)
2)= S $P(^PRCS(410,DA,7),"^",4)=""
This cross reference is used to set the approving official's name form file 200 into the file 410
transaction record.
410,43 APPR. OFFICIAL'S TITLE 7;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>27!($L(X)<3)!(X'?.ANP) X
LAST EDITED: MAR 16, 1985
HELP-PROMPT: ANSWER MUST BE 3-27 CHARACTERS IN LENGTH
DESCRIPTION:
This is the title of the approving official for this request.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,44 DATE SIGNED (APPROVED) 7;5 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date this request was signed (approved)
DESCRIPTION:
This is the date the request was signed (approved).
410,44.5 VALIDATION CODE 7;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM: S Y=""
LAST EDITED: JAN 13, 1993
HELP-PROMPT: Answer must be 2-30 characters in length.
DESCRIPTION: This is the electronic signature code of the approving official for this request. It replaces the
written signature required on the IFCAP document. The electronic signature code is encrypted to
prevent unauthorized use.
DELETE AUTHORITY: ^
UNEDITABLE
410,44.55 VALIDATION VERSION 7.1;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1993
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: This is the version number of the algorithms used to encode and decode the Validation Code created
at the time that the official approving the transaction entered their electronic signature.
410,44.57 ESIG CODE 7.1;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: APR 15, 1993
HELP-PROMPT: Answer must be 2-10 characters in length.
DESCRIPTION: This is the encoded value used by IFCAP security utilities when confirming the integrity of the
record.
410,44.6 ES CODE DATE/TIME 7;7 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 16, 1993
DESCRIPTION:
This is the date and time of the ESIG code.
WRITE AUTHORITY: ^
410,44.7 GPF APPROVING FISCAL OFFICER 7;8 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 24, 1992
HELP-PROMPT: Used for General Post Fund requests only. Entered when the request is approved by a Fiscal officer
and released to Supply.
DESCRIPTION: This is the field used to identify the responsible Fiscal Officer when the request is approved and
released to Supply (General Post Funds - GPF requests only).
410,44.8 GPF VALIDATION CODE 7;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM: S Y=""
LAST EDITED: JAN 13, 1993
HELP-PROMPT: Answer must be 2-30 characters in length. Used for General Post Fund requests only. Entered when
the request is approved by a Fiscal Officer and released to Supply.
DESCRIPTION: This is the electronic signature code of the approving Fiscal Officer (General Post Funds - GPF
requests only). It replaces the written signature required on the IFCAP document. The electronic
signature code is encrypted to prevent unauthorized use.
DELETE AUTHORITY: ^
410,44.85 GPF VALIDATION VERSION 7.1;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1993
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: This is the version number of the algorithms used for encoding and decoding the GPF Validation
Code.
410,44.87 GPF ESIG CODE 7.1;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: APR 15, 1993
HELP-PROMPT: Answer must be 2-10 characters in length.
DESCRIPTION: This is the encoded value used by IFCAP security utilities when confirming the integrity of the
General Post Fund request.
410,44.9 GPF ES CODE DATE/TIME 7;10 DATE
INPUT TRANSFORM: S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 16, 1993
HELP-PROMPT: Used for General Post Fund requests only. Entered when the request is approved by a Fiscal Officer
and released to Supply.
DESCRIPTION: This is the date and time associated with the Fiscal Officer's approval of the request (General
Post Funds - GPF requests only).
410,45 JUSTIFICATION 8;0 WORD-PROCESSING #410.06
DESCRIPTION:
This is the justification for the request entered by the Control Point Requestor.
PURPOSE
LAST EDITED: MAR 16, 1985
HELP-PROMPT: Enter an appropriate justification for this request. If this is a sole source request, enter the
words "SOLE SOURCE REQUEST" as the beginning of this justification
DESCRIPTION:
This is the justification for the request entered by the Control Point Requestor.
410,46 DELIVER TO/LOCATION 9;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3)!(X'?.ANP) X
LAST EDITED: MAR 16, 1985
HELP-PROMPT: Enter the name of the individual and/or the room number this request should be delivered to (3 to
30 characters)
DESCRIPTION:
This is the name of the individual and/or room number to which this request is to be delivered.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,47 EST. DELIVERY DATE 9;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the estimated delivery date for this request
DESCRIPTION:
This is the estimated delivery date for this request.
410,48 DATE RECEIVED 9;3 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
HELP-PROMPT: Enter the date this request was received in full
DESCRIPTION:
This is the date on which the request was received in full.
410,48.1 EST. SHIPPING AND/OR HANDLING 9;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999.99)!(X<1) X
LAST EDITED: SEP 22, 1988
HELP-PROMPT: Type a Dollar Amount between 1 and 9999.99, 2 Decimal Digits
DESCRIPTION:
This is the estimated shipping and/or handling cost for the request.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,49 SORT GROUP 11;1 VARIABLE POINTER
FILE ORDER PREFIX LAYGO MESSAGE
410.7 1 S y Sort Group
6920 2 W n Work Order
SCREEN ON FILE 410.7: S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.7,+Y,0)),$P(^(0),U,2)=+PRC(""CP"")"
SCREEN EXPLANATION: User can only use sort groups associated with their Control Point.
LAST EDITED: MAR 13, 1997
DESCRIPTION: This Sort Group field may be used to group together all transactions (requests) that relate to a
specific project, work order, investigator, food group, doctor, etc. This is the previous 'Project
Number' field.
CROSS-REFERENCE: 410^J
1)= S ^PRCS(410,"J",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"J",$E(X,1,30),DA)
This cross reference is used to hold Sort Group numbers.
CROSS-REFERENCE: 410^AR^MUMPS
1)= I '$D(DIU(0)),$E($P(X,";",2),1,9)="ENG(6920," D ACCX^ENLIB2
2)= Q
This cross-reference is used to check the sort group for Engineering users (work order for
Engineering).
410,50 LINE ITEM COUNT 10;1 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 01, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 999
DESCRIPTION:
This is the number of line items on the request.
410,51 PARENT TRANSACTION NUMBER 10;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<5)!'(X?.ANP) X
LAST EDITED: MAY 08, 1985
HELP-PROMPT: ANSWER MUST BE 5-18 CHARACTERS IN LENGTH
DESCRIPTION:
This is the original transaction, providing the request has been divided.
CROSS-REFERENCE: 410^AG
1)= S ^PRCS(410,"AG",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"AG",$E(X,1,30),DA)
This cross reference holds the parent transaction number of a split transaction.
410,52 STATION NO - P.O. NO 10;3 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
LAST EDITED: JUL 15, 1985
DESCRIPTION:
This is the station number and the purchase order number on this request.
410,53 ORIGINATOR OF TEMP # REQ. 11;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: DEC 21, 1992
DESCRIPTION: This is the name of the person originating the temporary request. The number assigned to the
request remains temporary until such time as the Control Point Clerk chooses to make it permanent.
410,54 STATUS ; COMPUTED
MUMPS CODE: D STATUS^PRCSES
9.2 = S Y(410,54,80)=$S($D(D0):D0,1:""),Y(410,54,1)=$S($D(^PRCS(410,D0,10)):^(10),1:""),D0=$P(Y(410
,54,1),U,3) S:'$D(^PRC(442,+D0,0)) D0=-1 S Y(410,54,101)=$S($D(^PRC(442,D0,7)):^(7),1:"")
ALGORITHM: D STATUS^PRCSES
LAST EDITED: DEC 08, 1986
DESCRIPTION:
This is the status of this request. It is associated with the Purchase Order Status file, #442.3.
410,55 READY FOR APPROVAL/SIGNATURE? 11;3 SET
'1' FOR YES;
LAST EDITED: NOV 16, 1989
HELP-PROMPT: Enter a '1' for 'YES' if this request is ready for approval by the Control Point Official.
DESCRIPTION:
YES indicates that this request is ready for approval by the Control Point Official.
CROSS-REFERENCE: 410^F^MUMPS
1)= S %=^PRCS(410,DA,0) I +%,$S($P(%,U,2)="O"&($P(%,U,4)'=.5):1,$P(%,U,2)="A"&($P(%,U,4)=1):1,1:"")
S ^PRCS(410,"F",+%_"-"_+$P($P(%,U),"-",4)_"-"_$P($P(%,U),"-",5),DA)=""
2)= S %=^PRCS(410,DA,0) K ^PRCS(410,"F",+%_"-"_+$P($P(%,U),"-",4)_"-"_$P($P(%,U),"-",5),DA)
This cross reference is set on the station name, the control point, and the last four digits of the
transaction number. It is set only for requests which are ready for the control point official's
approval.
CROSS-REFERENCE: 410^F1^MUMPS
1)= S %=^PRCS(410,DA,0) I +%,$S($P(%,U,2)="O"&($P(%,U,4)'=.5):1,$P(%,U,2)="A"&($P(%,U,4)=1):1,1:"")
S ^PRCS(410,"F1",$P($P(%,U),"-",5)_"-"_+%_"-"_+$P($P(%,U),"-",4),DA)=""
2)= S %=^PRCS(410,DA,0) K ^PRCS(410,"F1",$P($P(%,U),"-",5)_"-"_+%_"-"_+$P($P(%,U),"-",4),DA)
This cross ref is set on the last 4 digits of the transaction number, station #, and the control
point. It is set only for requests which are ready for the control point official's approval.
CROSS-REFERENCE: 410^AQ
1)= S ^PRCS(410,"AQ",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"AQ",$E(X,1,30),DA)
This cross reference is set on the transaction number. It is set only for requests which are ready
for the control point official's approval.
410,56 REQUEST STATUS 10;4 POINTER TO PURCHASE ORDER STATUS FILE (#442.3)
LAST EDITED: OCT 05, 1987
DESCRIPTION:
This is the status of this request. It is associated with the Purchase Order Status file, #442.3.
410,57 LOG VOUCHER NUMBER (SUPPLY) 100;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1UN4N) X I $D(X),"0123456789JK"'[$E(X,1,1) K
X
LAST EDITED: JUL 16, 1991
HELP-PROMPT: Voucher No. must have fiscal month (0=Oct. J=Nov. K=Dec 1=Jan...9=Sep) followed by 4-digit
sequential number.
DESCRIPTION: This is the LOG Voucher Number. It must have fiscal month (0=Oct. J=Nov. K= Dec,
1=Jan....9=Sep.), followed by a 4-digit sequential number. This originates from the Integrated
Procurement, Storage and Distribution System (LOG1) manual, MP-6, Part XIV. It is used when
transmitting L0G transactions to the Austin Automation Center (AAC).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 410^I^MUMPS
1)= S Z=$F("0JK123456789",$E(X,1)) S:Z Z="P"_$E("ABCDEFGHJKLM",(Z-1),(Z-1))_$E(X,2,5),$P(^PRCS(410,
DA,100),"^",7)=Z K Z
2)= Q
This cross reference is used to set the LOG Voucher Number (Supply).
CROSS-REFERENCE: 410^L
1)= S ^PRCS(410,"L",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"L",$E(X,1,30),DA)
This cross reference is set on the LOG Voucher Number for the transaction.
410,58 LOG DIETETIC PERIOD 100;2 SET (Required)
'1' FOR FIRST REPORT (1ST-15TH);
'2' FOR SECOND REPORT (16TH-31ST);
'N' FOR NO REPORT;
OUTPUT TRANSFORM: I $D(PRCHLOG) S:Y="" Y=" "
LAST EDITED: APR 24, 1989
DESCRIPTION: This is the set of codes for the first report (1st through 15th of month), second report (16th
through 31st of month), and no report.
410,59 FISCAL PROCESSING MONTH 100;3 SET (Required)
'1' FOR JANUARY;
'2' FOR FEBRUARY;
'3' FOR MARCH;
'4' FOR APRIL;
'5' FOR MAY;
'6' FOR JUNE;
'7' FOR JULY;
'8' FOR AUGUST;
'9' FOR SEPTEMBER;
'0' FOR OCTOBER;
'J' FOR NOVEMBER;
'K' FOR DECEMBER;
LAST EDITED: APR 21, 1989
DESCRIPTION:
This is the month the request was processed in fiscal.
410,60 COMMENTS CO;0 WORD-PROCESSING #410.05
DESCRIPTION:
These are comments entered by Control Point personnel concerning the request.
LAST EDITED: MAR 15, 1985
HELP-PROMPT: Enter any appropriate comments related to this transaction in this field
DESCRIPTION:
These are comments entered by Control Point personnel concerning the request.
410,61 REASON FOR RETURN 13;0 WORD-PROCESSING #410.061
DESCRIPTION:
This is the reason the request was returned from fiscal.
LAST EDITED: APR 06, 1988
DESCRIPTION:
This is the reason the request was returned from Fiscal.
410,62 LOG CODE SHEETS SENT BY 100;4 POINTER TO NEW PERSON FILE (#200)
INPUT TRANSFORM: S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 17, 1992
HELP-PROMPT: Name of PPM clerk who created and signed the LOG Issue Request code sheets.
DESCRIPTION:
This is the person who sent the log code sheets.
SCREEN: S DIC("S")="I $D(^(400)),""24""[($P(^(400),U,1))"
EXPLANATION: Only PPM Clerks or Manager can create LOG code sheets.
410,63 LOG CODE SHEETS VALID. CODE 100;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
OUTPUT TRANSFORM: S:Y'="" Y=""
LAST EDITED: JAN 13, 1993
HELP-PROMPT: Electronic Signature of PPM Clerk who created and signed the LOG Issue Request Code sheets. Answer
must be 2-30 characters in length.
DESCRIPTION: This is the validation code created for the record after the person sending the log code sheets has
entered their electronic signature.
DELETE AUTHORITY: ^
410,63.5 LOG CS VALIDATION VERSION 100;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 13, 1993
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: This is the version number of the algorithms used to encode and decode the LOG Code Sheets
Validation Code at the time that the sender enters a valid electronic signature.
410,63.7 LOG CS ESIG CODE 100;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: APR 15, 1993
HELP-PROMPT: Answer must be 2-10 characters in length.
DESCRIPTION: This is the encoded value used by IFCAP security utilities when confirming the integrity of the LOG
code sheet.
410,64 DATE SIGNED 100;6 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 17, 1992
HELP-PROMPT: Date/time LOG Issue Request Code sheets were signed by PPM Clerk (thus marking them for
transmission).
DESCRIPTION:
This is the date when the code sheets were signed.
410,65 LOG VOUCHER NUMBER (FISCAL) 100;7 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?1"P"1U4N) X I $D(X),"ABCDEFGHJKLM"'[$E(X,2,2) K X
LAST EDITED: MAY 09, 1989
HELP-PROMPT: Enter Voucher No. in Fiscal Format. (Letter 'P', followed by letter for month A through M = Oct.
through Sep. (note: skips 'I'), followed by 4 digit sequential number.
DESCRIPTION: Enter Voucher No. in Fiscal format. (Letter 'P', followed by letter for month A through M = Oct.
through Sep. (note: skips 'I'), followed by 4 digit sequential number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,66 LOG DEPARTMENT 100;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: AUG 31, 1989
HELP-PROMPT: Enter LOG department number for Issue Book requests only! Answer must be 3 characters in length.
DESCRIPTION: This is the LOG department number for issue book requests. This number originates from the
Integrated Procurement, Storage and Distribution System (LOG1) manual, MP-6, Part XIV. It is used
when transmitting L0G transactions to the Austin Data Processing Center (DPC).
410,67 CONVERTED 1358 0;9 SET
'1' FOR yes;
'0' FOR no;
LAST EDITED: MAR 05, 1992
DESCRIPTION: This field will reflect if the entry is a 1358 and has been converted during installation of v4
of IFCAP.
410,68 ORIGINATOR OF REQUEST 14;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUL 11, 1994
DESCRIPTION: This field is used to contain the New Person File pointer for the clerk who physically enters a
request.
410,69 AO SIGNATURE DATE 7;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: DEC 02, 1994
DESCRIPTION: This field is used to hold the date when a 2237 was signed by an accountable officer. It is used
to display on the 2237.
410,103 ECMS ACTIONUID 1;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1)!'(X?1.10N) X
LAST EDITED: MAY 10, 2012
HELP-PROMPT: Enter the 1-10 digit eCMS ActionUID value.
DESCRIPTION: This field stores the eCMS internal, unique identifier for the Purchase Request created from this
IFCAP 2237. This field is populated by the eCMS/IFCAP interface.
UNEDITABLE
410,104 CANCELLED BY 1;9 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 11, 2013
HELP-PROMPT: Enter the person cancelling this 2237.
DESCRIPTION:
This is the individual who cancelled this 2237.
CROSS-REFERENCE: ^^TRIGGER^410^105
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCS(410,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S
DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% S DIH=$G(^PRCS(410,DIV(0),1)),DIV=X S $P(^(1),U,10)=DI
V,DIH=410,DIG=105 D ^DICR
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCS(410,D0,1)):^(1),1:"") S X=$P(Y(1),U,10),X=X S
DIU=X K Y S X="" S DIH=$G(^PRCS(410,DIV(0),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=410,DIG=105 D ^DICR
CREATE VALUE)= NOW
DELETE VALUE)= @
FIELD)= #105
This cross reference populates the CANCEL DATE/TIME field (#105) when the user cancels a 2237.
410,105 CANCEL DATE/TIME 1;10 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 11, 2013
HELP-PROMPT: Enter the date and time of 2237 cancellation.
DESCRIPTION:
This is the date and time that the person cancelled the 2237 in IFCAP.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the CANCELLED BY field of the CONTROL POINT ACTIVITY File
410,445.01 REFERENCE VOUCHER NUMBER 445;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?1"I"5N) X
LAST EDITED: MAR 07, 1994
HELP-PROMPT: Enter the 6 character reference voucher number which will be used to identify the issue book on the
code sheets. The first character should be the letter I.
DESCRIPTION: This field is used for issue books. It stores the reference voucher number which is generated by
the inventory package during posted. The reference voucher number is used on the issue book code
sheets and the voucher summary report.
410,445.02 LAST FMSLINE USED 445;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 07, 1994
HELP-PROMPT: Enter the last fms line number used on the IV document. From 0 to 999.
DESCRIPTION: This field is used by the inventory package during issue book posting or adjustments to track the
last FMS IV document line number used.
410,446 TOTAL DOLLARS POSTED 445;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 05, 1994
HELP-PROMPT: Type a Number between 0 and 9999999, 0 Decimal Digits
DESCRIPTION:
This is the total dollar amount posted for the issue book.
410,447 COUPLER 445;4 POINTER TO CONTROL POINT ACTIVITY FILE (#410)
LAST EDITED: DEC 19, 1994
HELP-PROMPT: ENTER THE SELLER/BUYER'S TRANSACTION
DESCRIPTION:
This field is used to store the seller/buyer txn record id in file 410.
410,448 SUBSTATION 0;10 POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411)
INPUT TRANSFORM: S DIC("S")="I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""SITE"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: AUG 31, 1995
HELP-PROMPT: Enter the substation number, if applicable.
DESCRIPTION: This field contains the substation number for the transaction. It is used only for merged stations
which have a primary station with subsidiary stations.
SCREEN: S DIC("S")="I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""SITE"")"
EXPLANATION: Insure that substation is linked with selected station.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
410,449 RUNNING BALANCE QUARTER DATE 0;11 DATE (Required)
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 23, 1996
DESCRIPTION: This is the beginning date of a quarter. It is used to print the quarterly running balance report
and to recalcualte the control point balances. This date will be edited when a entry is created,
apporved, obligated and carried forward to the new quarter.
CROSS-REFERENCE: 410^RB^MUMPS
1)= N A S A=$P(^PRCS(410,DA,0),U) S:A A=X_"-"_$P(A,"-",1)_"-"_$P(A,"-",4)_"-"_$P(A,"-",2)_"-"_$P(A,
"-",5),^PRCS(410,"RB",A,DA)=""
2)= N A S A=$P(^PRCS(410,DA,0),U) I A S A=X_"-"_$P(A,"-",1)_"-"_$P(A,"-",4)_"-"_$P(A,"-",2)_"-"_$P(
A,"-",5) K ^PRCS(410,"RB",A,DA)
This cross-reference is used to print the quarterly running balance report, recalculate the control
balances, and run the carry forward option.
410,450 RUNNING BALANCE STATUS 0;12 SET (Required)
'E' FOR ENTERED;
'A' FOR APPROVED;
'O' FOR OBLIGATED;
'C' FOR CANCELED;
LAST EDITED: FEB 16, 1996
DESCRIPTION:
This code is used to indicate the entry is in entered, approved, or obligated status.
410,451 PURCHASE CARD RECORD 1;2 POINTER TO PURCHASE CARD INFORMATION FILE (#440.5)
OUTPUT TRANSFORM: I Y S:$G(PRCPRTTF)=1 Y="XXXXXXXXXXXX"_$E($P($G(^PRC(440.5,Y,0)),U),13,16) S:$G(PRCPRTTF)'=1 Y=$P($G
(^PRC(440.5,Y,0)),U)
LAST EDITED: DEC 11, 2013
HELP-PROMPT: Select the purchase card.
DESCRIPTION: This field is populated with the Purchase Card number when the 2237 associated with a purchase card
order is created.
TECHNICAL DESCR: The Output Transform was created to insure regular IFCAP users are not able to see Purchase Card
(credit card) number via options PRCF INQ 410 or PRCF INQ 442, but, IT users and high level Fileman
users are able to see the full associated card number.
410,455 ISSUE BOOK BATCH ID 445;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: MAR 21, 2005
HELP-PROMPT: Answer must be 1-25 characters in length.
DESCRIPTION: This is the Batch ID of the Issue Book sent from the COTS inventory system to uniquely identify the
Issue Book.
CROSS-REFERENCE: 410^AS
1)= S ^PRCS(410,"AS",$E(X,1,30),DA)=""
2)= K ^PRCS(410,"AS",$E(X,1,30),DA)
This cross reference is used for background, but not user interactive lookup of file #410 entries
associated with a given Issue Book from a COTS inventory system.
FILES POINTED TO FIELDS
ADMIN. ACTIVITY SITE PARAMETER
(#411) SUBSTATION (#448)
AUTHORITY OF REQUEST (#410.9) AUTHORITY (#19)
SUB AUTHORITY (#19.1)
CALM/LOG CODE SHEET (#423) ITEM:RECEIVING CODE SHEET NO. (#11)
CLASSIFICATION OF REQUEST
(#410.2) CLASSIFICATION OF REQUEST (#8)
CONTROL POINT ACTIVITY (#410) COUPLER (#447)
CPA FORM TYPE (#410.5) FORM TYPE (#3)
DELIVERY SCHEDULE (#410.6) DELIVERY SCHEDULE:DELIVERY REFERENCE NUMBER (#1)
GENERIC INVENTORY (#445) INVENTORY DISTRIBUTION POINT (#4)
INTERMEDIATE PRODUCT (#420.9) ITEM:INTERMEDIATE PRODUCT CODE (#10)
NEW PERSON (#200) OBLIGATED BY (#29)
ACCOUNTABLE OFFICER (#39)
REQUESTOR (#40)
APPROVING OFFICIAL (#42)
GPF APPROVING FISCAL OFFICER (#44.7)
ORIGINATOR OF TEMP # REQ. (#53)
LOG CODE SHEETS SENT BY (#62)
ORIGINATOR OF REQUEST (#68)
CANCELLED BY (#104)
PROCUREMENT & ACCOUNTING TRANS
(#442) STATION NO - P.O. NO (#52)
ITEM:PURCHASE ORDER/OBLIGATION NO (#9)
PURCHASE CARD INFORMATION
(#440.5) PURCHASE CARD RECORD (#451)
PURCHASE ORDER STATUS (#442.3) REQUEST STATUS (#56)
SERVICE/SECTION (#49) REQUESTING SERVICE (#6.3)
SORT GROUP (#410.7) SORT GROUP (#49)
STATE (#5) VENDOR STATE (#11.6)
SUB-CONTROL POINT (#410.4) SUB-CONTROL POINT:SUB-CONTROL POINT (#.01)
UNIT OF ISSUE (#420.5) ITEM:UNIT OF PURCHASE (#3)
VENDOR (#440) VENDOR(POINTER) (#12)
WORK ORDER # (#6920) SORT GROUP (#49)
Subfile #410.02
Record Indexes:
AH (#580) RECORD MUMPS IR ACTION
Short Descr: generate update message to DynaMed for 2237 line item cancel
Description: check for deletion action, check that DM Doc ID field (17) has data, then call PRCVLIC to build update message
for DynaMed in ^XTMP
Set Logic: Q
Kill Logic: D EN^PRCVLIC
Kill Cond: S X=(X2=""&($P($G(^PRCS(410,DA(1),"IT",DA,4)),"^",1)]""))
X(1): LINE ITEM NUMBER (410.02,.01) (forwards)
X(2): QUANTITY (410.02,2) (forwards)
X(3): UNIT OF PURCHASE (410.02,3) (forwards)
X(4): BOC (410.02,4) (forwards)
X(5): ITEM MASTER FILE NO. (410.02,5) (forwards)
X(6): STOCK NUMBER (410.02,6) (forwards)
X(7): EST. ITEM (UNIT) COST (410.02,7) (forwards)
X(8): DM DOC ID (410.02,17) (forwards)
X(9): DATE NEEDED BY (410.02,18) (forwards)
INPUT TEMPLATE(S):
PRCE 1358 ADJUSTMENT SEP 13, 2010@10:10 USER #0
This input template is for creating a 1358 form type adjustment.
PRCE NEW 1358 MAR 30, 2016@10:32 USER #0
PRCE NEW 1358S APR 26, 2016@13:57 USER #0
PRCN2237 JAN 30, 1997@10:45 USER #0
PRCN2237E JAN 30, 1997@10:46 USER #0
PRCSEDS APR 03, 1989 USER #0
PRCSEN1358 DEC 30, 1994@09:03 USER #0
This input template is for creating a 1358 form type request.
PRCSEN1358A DEC 30, 1994@09:06 USER #0
This input template is for creating a 1358 form type adjustment.
PRCSEN1358S DEC 30, 1994@09:05 USER #0
This input template is for creating a 1358 form type request at
the Requestor's Level.
PRCSEN2237B SEP 01, 2017@09:43 USER #0
PRCSEN2237S AUG 24, 2017@14:23 USER #0
This input template is for creating a non-repetitive form type
request at the Requestor's Level.
PRCSENA MAY 04, 1994@15:11 USER #0
This input template is for creating an adjustment of a request.
PRCSENA 1358 SEP 13, 2010@10:11 USER #0
This input template is for creating an adjustment of a 1358
form type request.
PRCSENC OCT 27, 1994@16:18 USER #0
This input template is for editing ceiling transactions for Control
Points that are not automated.
PRCSENCAD DEC 07, 1986 USER #0
This input template is for creating a Calm adjustment.
PRCSENCI SEP 12, 1989@15:27 USER #0
This input template is for editing ceiling transactions for Control
Points that are automated.
PRCSENCOD OCT 30, 1991@11:03 USER #0
This input template is for creating a No Form request.
PRCSENCODS OCT 15, 1992@15:13 USER #0
This input template is for creating a No Form request at the
Requestor's Level.
PRCSENCT DEC 07, 1986 USER #0
This input template is for editing the transaction's comments.
PRCSENE SEP 29, 1988 USER #0
This input template is for entry/edit of Sub-Control Point dollar
amount distribution.
PRCSENIB DEC 03, 1998@15:48 USER #0
Thie input template is for creating an Issue Book request.
PRCSENIBS DEC 03, 1998@16:04 USER #0
This input template is for reating an Issue Book request at the
Requestor's Level.
PRCSENMDR MAY 13, 1989 USER #0
This input template is for recording the multiple delivery
distribution quantity amounts.
PRCSENOD JAN 31, 1990@16:07 USER #0
This input template is for creating obligation data request.
PRCSENPR APR 24, 2013@12:59 USER #0
This input template is for creating a repetitive form type request.
PRCSENPRS AUG 09, 2017@09:37 USER #0
This input template is for creating a repetitive form type request
at the Requestor's level.
PRCSENR&NR SEP 01, 2017@10:02 USER #0
This input template is for creating a repetitive and non-repetitive
form type request.
PRCSENR&NRS APR 07, 2016@14:52 USER #0
This input template is for creating a repetitive and non-repetitive
form type request at the Requestor's Level.
PRINT TEMPLATE(S):
CAPTIONED USER #0
PRC 1358 SEPARATION VIOL MAY 01, 2009@12:49 USER #0 1358 SEPARATION OF DUTIES VIOLATIONS
PRCH REQUESTING SRVC MAY 22, 1997@09:41 USER #0 REQUESTING SERVICE STATISTICS REPORT
PRCH REQUESTING SVC FEB 02, 1988 USER #0 REQUESTING SERVICE STATISTICS
PRCHLO410-04_VALIDATE APR 26, 2009@22:58 USER #0 SUB CONTROL POINT DATA
PRCHLO410_HDR_VALIDATE JAN 26, 2011@22:02 USER #0 CONTROL POINT ACTIVITIES DATA
PRCS APPROVE REQUEST JUL 13, 2005@16:24 USER #0 ^PRCST5 @
This print template is for printing out limited data of a
Control Point Request for the Control Point Official to sign.
PRCS CP ITEMHIST FEB 05, 1998@08:33 USER #0 ^PRCSHP [PRCS CP ITEMHIST-HDR]
PRCS CP ITEMHIST-HDR FEB 05, 1998@08:30 USER #0 ^PRCSHH @
PRCS REQUESTS FOR APPROVAL NOV 14, 1989@08:42 USER #0 ^PRCST6 REQUESTS TO BE APPROVED LIST
This print template is for printint out the requests that are
ready for the Control Point Official's signature.
PRCSCOM APR 28, 1994@14:39 USER #0 COMMITTED TRANSACTION LISTING
PRCSCPOQR OCT 12, 1994@14:24 USER #0 CONTROL POINT BALANCE REPORT
This print template is for printing the Control Point Quarterly
Report.
PRCSCPT JAN 18, 1996@11:43 USER #0 STATUS OF OBLIGATION TRANSACTIONS REPORT - CONTROL POINT
This print template is for printing the Status of Obligation
Transactions Report.
PRCSCSCP APR 27, 1989 USER #0 COMPLETED PO/SCP $ RECONCILIATION
This print template is for printing the Purchase Order/Sub-Control
Point dollar amount reconciliation report.
PRCSCTR SEP 13, 1989@15:22 USER #0 CEILING REPORT - CP:
This print template is for printing the Control Point's Ceiling Report.
PRCSFACPT DEC 02, 1994@14:50 USER #0 820 RECONCILIATION REPORT
This print template is for printing the Fiscal Audit List.
PRCSMDS DEC 07, 1995@15:46 USER #0 ^PRCST7 MULTIPLE DELIVERY SCHEDULE LIST
This print template is for printing the transaction's Multiple
Delivery Schedule List.
PRCSOAR JAN 07, 1994@15:53 USER #0 OUTSTANDING APPROVED REQUESTS REPORT
PRCSOTR AUG 19, 1988 USER #0 OBLIGATION STATUS REPORT
This print template is for printing the Obligation Status Report without
the comments.
PRCSOTR1 AUG 19, 1988 USER #0 OBLIGATION STATUS REPORT
This print template is for printing the Obligation Status Report with
the comments.
PRCSPROJ NOV 02, 1989@10:30 USER #0 SORT GROUP REPORT
This print template is for printing the Control Point's Sort Group Report.
PRCSSA MAY 18, 1994@12:41 USER #0 BUDGET OBJECT CODE DETAIL TOTALS
PRCSSBCPT JUL 03, 1989 USER #0 SUB-CONTROL POINT EXPENDITURES
This print template is for printing the Quarterly Sub-Control Point
Expenditure Report.
PRCSSBCPT1 JUL 03, 1989 USER #0 SUB-CONTROL POINT EXPENDITURES
This print template is for printing the Fiscal Year Sub-Control
Point Expenditure Report.
PRCSTEMPT FEB 25, 1993@15:27 USER #0 TEMPORARY TRANSACTION LISTING
This print template is for printing the Temporary Transaction List.
PRCSTOR MAR 06, 1989 USER #0 CLASSIFICATION OF REQUEST REPORT
This print template is for printing the Control Point's Classification
of Request Report.
SORT TEMPLATE(S):
PRC SEPARATION VIOLATE APR 30, 2009@10:50 USER #0
SORT BY: @DATE SIGNED (APPROVED)// (User is asked range)
WITHIN DATE SIGNED (APPROVED), SORT BY: @FORM TYPE// (FORM TYPE equals 1358 ORDER)
WITHIN FORM TYPE, SORT BY: (REQUESTOR=APPROVING OFFICIAL)!(REQUESTOR=OBLIGATED BY)!(APPROVING OFFICIAL=OBLIGATED BY);L1// ((REQUESTOR=APPROVING OFFICIAL)!(REQUESTOR=OBLIGATED BY)!(APPROVING OFFICIAL=OBLIGATED BY))
Identifies violations of separation of duties for 1358s.
PRCH REQUESTING SVC AUG 25, 1997@15:13 USER #0
SORT BY: '@INTERNAL(FORM TYPE)// (INTERNAL(FORM TYPE) not null)
WITHIN INTERNAL(FORM TYPE), SORT BY: '@DATE SIGNED (APPROVED)// (User is asked range)
WITHIN DATE SIGNED (APPROVED), SORT BY: +REQUESTING SERVICE;"SVC: ";S2// (User is asked range)
WITHIN REQUESTING SERVICE, SORT BY: +PRIORITY OF REQUEST;"PRIORITY: ";S// (PRIORITY OF REQUEST not null)
PRCS CP ITEMHIST NOV 06, 1997@13:23 USER #0
SORT BY: CONTROL POINT// (User is asked range)
WITHIN CONTROL POINT, SORT BY: ITEM//
ITEM SUB-FIELD: ITEM MASTER FILE NO.// (User is asked range)
WITHIN ITEM MASTER FILE NO., SORT BY: -@DATE OBLIGATED// (User is asked range)
PRCSASRT MAY 18, 1994@12:40 USER #0
SORT BY: TRANSACTION TYPE="OBLIGATION";L1// (TRANSACTION TYPE=""OBLIGATION"")
WITHIN TRANSACTION TYPE="OBLIGATION", SORT BY: +ITEM//
ITEM SUB-FIELD: BOC// (BOC not null)
WITHIN BOC, SORT BY: TRANSACTION NUMBER// (TRANSACTION NUMBER not null)
PRCSFACPT MAY 18, 1994@12:44 USER #0
SORT BY: @CONTROL POINT//
WITHIN CONTROL POINT, SORT BY: @FMS DATE//
WITHIN FMS DATE, SORT BY: @PURCHASE ORDER/OBLIGATION NO//
WITHIN PURCHASE ORDER/OBLIGATION NO, SORT BY: @TRANSACTION NUMBER//
FORM(S)/BLOCK(S):