Global: ^PRCS(410

FileMan FileNo	FileMan Filename	Package
410	CONTROL POINT ACTIVITY	IFCAP

Package	Total	Routines
IFCAP	327	ITEM SPECIFIC INFORMATION PRC SEPARATION VIOLATE PRC0G PRC186P PRC5B6 PRCB1F1 PRCBBUL PRCBR2 PRCEADJ PRCEADJ1 PRCEFIS5 PRCF CI BORROWER PRCF223P PRCFAC02 PRCFDO1 PRCFFERT PRCGA PRCGARP1 PRCH REQUESTING SRVC PRCH135P PRCH410 PRCHCS3 PRCHDSP2 PRCHFPNT PRCHFPT2 PRCHJR03 PRCHJS02 PRCHJUTL PRCHLO1 PRCHLO1A PRCHLO2A PRCHNPO5 PRCHNPOA PRCHPAM PRCHQ1 PRCHQ12A PRCHQ15 PRCHQ2B PRCHQ41B PRCHSP PRCPEIL0 PRCPRDI1 PRCPRPIQ PRCPRPIR PRCPWDOR PRCPWIU PRCPWPL4 ^PRC(444 PRC0F PRC182 PRC5CON1 PRC5CON2 PRCB0B PRCB1E1 PRCB1G1 PRCB1GE1 PRCB2A PRCBCS PRCBR1 PRCE NEW 1358 PRCE NEW 1358S PRCE0A PRCEFIS1 PRCEMOA PRCEN PRCEOB1 PRCESOE PRCESOE1 PRCF58A PRCF58A1 PRCFAC0J PRCFARR PRCFFM1M PRCFFU11 PRCFFU2 PRCFFUD1 PRCFGPF PRCG238P PRCGARC1 PRCH OUTSTANDING REQUEST/PA PRCH REQUEST LIST PRCH REQUEST SVC PRCH REQUESTING SVC PRCH TOT AMT PRCH TOT AMT DAILY PRCH UNPOSTED DIETETIC PRINT PRCH W/O FPDS PRCH1A3 PRCH442 PRCH442A PRCH58OB PRCHAMYB PRCHCON1 PRCHCON2 PRCHCS5 PRCHCS6 PRCHDAM PRCHDP2 PRCHDR PRCHDSP PRCHE2 PRCHED PRCHG PRCHG1 PRCHJMSG PRCHJR01 PRCHJR02 PRCHJTA PRCHLO6 PRCHMA PRCHNPO2 PRCHNPO3 PRCHNPO4 PRCHNPO6 PRCHNPOB PRCHNRQ PRCHOUT OUTST 2237/PA PRCHP18 PRCHP181 PRCHP183 PRCHPAM8 PRCHPNT1 PRCHPRCV PRCHQ13A PRCHQ1B PRCHQ2 PRCHQ2A PRCHQ410 PRCHQ9 PRCHQRP5 PRCHREC1 PRCHRP3 PRCHRP8 PRCHRPT5 PRCHRPT6 PRCHRPT7 PRCHRPT8 PRCHSP1 PRCHT1 PRCHT12 PRCHT3 PRCHT35 PRCIN45 PRCPAUTH PRCPAWI0 PRCPAWI1 PRCPPOL1 PRCPPOLB PRCPRDI2 PRCPRDIN PRCPREME PRCPRIB0 PRCPRIB1 PRCPRIT1 PRCPRPIT PRCPRPK2 PRCPRVSR PRCPSFIU PRCPSFIV PRCPSFR0 PRCPSFU0 PRCPSLOI PRCPSMSI PRCPUTRA PRCPWDOU PRCPWI PRCPWPL0 PRCPWPL1 PRCPWPL2 PRCPWPL3 PRCPWPL5 PRCPWPLB PRCPWPLM PRCPWPP0 PRCPWPP3 PRCPWPPB PRCPWPPL PRCRIA PRCS CP ITEMHIST PRCS0B PRCS149P PRCS150P PRCS156P PRCS58OB PRCS826 PRCSAPP PRCSAPP1 PRCSAPP2 PRCSASRT PRCSC1 PRCSC2 PRCSC3 PRCSC4 PRCSCK PRCSCK1 PRCSCPOQR PRCSCPT PRCSCPY PRCSCSCP PRCSCTR PRCSD11 PRCSD111 PRCSD12 PRCSD121 PRCSD122 PRCSD123 PRCSEA PRCSEA1 PRCSEB PRCSEB0 PRCSEB1 PRCSEB2 PRCSEC2 PRCSECP PRCSECP1 PRCSED PRCSED1 PRCSEM PRCSEN2237B PRCSEN2237S PRCSENA PRCSENCAD PRCSENCI PRCSENCOD PRCSENCODS PRCSENIB PRCSENIBS PRCSENOD PRCSENPR PRCSENPRS PRCSENR&NR PRCSENR&NRS PRCSES PRCSES1 PRCSES2 PRCSEXCE PRCSEZ PRCSEZZ PRCSFACPT PRCSHP PRCSOUT PRCSP1 PRCSP11 PRCSP111 PRCSP12 PRCSP121 PRCSP122 PRCSP123 PRCSP124 PRCSP13 PRCSP131 PRCSP132 PRCSP133 PRCSP1A PRCSP1A2 PRCSP1B PRCSP1C PRCSP1C1 PRCSP1D PRCSP2 PRCSP21 PRCSP21N PRCSP2N PRCSPC PRCSQR PRCSRCD PRCSRDIS PRCSREC2 PRCSRIG2 PRCSSBCPT PRCSSBCPT1 PRCST1 PRCST11 PRCST12 PRCST13 PRCST17 PRCST18 PRCST2 PRCST21 PRCST22 PRCST25 PRCST26 PRCST27 PRCST3 PRCST31 PRCST32 PRCST33 PRCST34 PRCST35 PRCST36 PRCST37 PRCST4 PRCST41 PRCST42 PRCST43 PRCST44 PRCST45 PRCST46 PRCST5 PRCST6 PRCST7 PRCSTEMPT PRCSTOR PRCSUT1 PRCSUT2 PRCSUT3 PRCSUT31 PRCSUT4 PRCSUT41 PRCSX123 PRCT DATA UPLOAD STATUS ^PRC(443 PRCUA PRCUCV1 PRCUFCD PRCV DYNAMED RIL'S NEED ACTION PRCV ITEM DISPLAY PRCVFMS1 PRCVIBF PRCVLIC PRCVTAP PRCVTCA PRCX1P1 PRCX1Q PRCX1Q1 PRCXA PRCXTST
Controlled Substances	5	PSDACT1 PSDREC2 PSDREC4 PSDREVC PSDREVD
Drug Accountability	5	PSAHIS1 PSALOG2 PSAREC PSAREVC PSAREVD
Engineering	5	ENARG21 ENLIB2 ENWOD ENWOD3 ENWOP1
Equipment Turn-In Request	2	PRCN11PO PRCN2237
Interim Management Support	1	ECTFCPB
Kernel	1	^DIC(19
Prosthetics	1	RMPRP21

Package	Total	Routines
IFCAP	95	PRC5CON1 PRCB2B PRCE58P PRCEADJ PRCEAU PRCEDRE PRCEFIS1 PRCEN PRCF58A PRCFGPF PRCG238P PRCGARP1 PRCH410 PRCH58OB PRCHCON1 PRCHCS3 PRCHED PRCHG PRCHJMSG PRCHJR01 PRCHJR02 PRCHJR03 PRCHJS01 PRCHJS02 PRCHJUTL PRCHLO6 PRCHNPO PRCHNPO3 PRCHNPOA PRCHQ410 PRCHQRP5 PRCHRP3 PRCHRPT PRCHSP PRCPWPLM PRCPWPPL PRCS149P PRCS150P PRCS58OB PRCSAPP PRCSAPP1 PRCSCPY PRCSEA PRCSEA1 PRCSEB PRCSEB0 PRCSEB1 PRCSEB2 PRCSECP PRCSED PRCSED1 PRCSEM PRCSP1 PRCSP13 PRCSP1A PRCSP1A1 PRCSP1B PRCSP1D PRCSP1E PRCSP1F PRCSRCD PRCSREC2 PRCSRIG1 PRCST1 PRCST11 PRCST12 PRCST13 PRCST17 PRCST18 PRCST2 PRCST21 PRCST22 PRCST25 PRCST26 PRCST3 PRCST31 PRCST32 PRCST33 PRCST34 PRCST35 PRCST36 PRCST37 PRCST4 PRCST41 PRCST42 PRCST43 PRCST45 PRCSUT1 PRCSUT2 PRCSUT3 PRCV442B PRCVLIC PRCVTAP PRCVTCA PRCX1P1
Controlled Substances	3	PSDREC2 PSDREC4 PSDREVC
Drug Accountability	2	PSAREC PSAREVC
Equipment Turn-In Request	1	PRCN2237
Prosthetics	1	RMPR37

Package	Total	FileMan Files
IFCAP	9	1358 DAILY RECORD(#424)[.15] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[.07, 62, #442.01(10), #442.09(8), #442.14(.01)] REQUEST WORKSHEET(#443)[.01] AMENDMENTS(#443.6)[.07, 62, #443.61(10)] REQUEST FOR QUOTATION(#444)[8, #444.019(15), #444.019(21)] FUND DISTRIBUTION(#421)[7.2, 8.2, 9.2, 10.2] GENERIC INVENTORY(#445)[#445.09(.01)] CONTROL POINT ACTIVITY(#410)[447] IFCAP/ECMS TRANSACTION(#414.06)[1]
Drug Accountability	1	DRUG ACCOUNTABILITY TRANSACTION(#58.81)[7]
Engineering	1	WORK ORDER #(#6920)[31]
Equipment Turn-In Request	1	EQUIPMENT REQUEST(#413)[50]
Prosthetics	1	PROSTHETICS 1358(#664)[6]

Package	Total	FileMan Files
IFCAP	16	ADMIN. ACTIVITY SITE PARAMETER(#411)[448] VENDOR(#440)[12] PURCHASE CARD INFORMATION(#440.5)[451] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[52, #410.02(9)] UNIT OF ISSUE(#420.5)[#410.02(3)] INTERMEDIATE PRODUCT(#420.9)[#410.02(10)] PURCHASE ORDER STATUS(#442.3)[56] CALM/LOG CODE SHEET(#423)[#410.02(11)] GENERIC INVENTORY(#445)[4] CONTROL POINT ACTIVITY(#410)[447] CLASSIFICATION OF REQUEST(#410.2)[8] SUB-CONTROL POINT(#410.4)[#410.04(.01)] CPA FORM TYPE(#410.5)[3] DELIVERY SCHEDULE(#410.6)[#410.212(1)] SORT GROUP(#410.7)[49] AUTHORITY OF REQUEST(#410.9)[19, 19.1]
Kernel	3	SERVICE/SECTION(#49)[6.3] STATE(#5)[11.6] NEW PERSON(#200)[29, 39, 40, 42, 44.7, 53, 62, 68, 104]
Engineering	1	WORK ORDER #(#6920)[49]

Fields, Total: 120

Field #	Name	Loc	Type	Details
.01	TRANSACTION NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
.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.`
1	TRANSACTION TYPE	0;2	SET	**********************REQUIRED FIELD********************** '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.`
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.`
3	FORM TYPE	0;4	POINTER TO CPA FORM TYPE FILE (#410.5)	**********************REQUIRED FIELD********************** CPA FORM TYPE(#410.5) 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,!,"Sorry, 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`
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.`
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'=PRCSMO 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`
4	INVENTORY DISTRIBUTION POINT	0;6	POINTER TO GENERIC INVENTORY FILE (#445)	GENERIC INVENTORY(#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.`
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.`
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.`
6.3	REQUESTING SERVICE	3;5	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#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.`
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`
7	DATE REQUIRED	1;4	DATE	**********************REQUIRED FIELD********************** 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.`
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.`
8	CLASSIFICATION OF REQUEST	1;5	POINTER TO CLASSIFICATION OF REQUEST FILE (#410.2)	CLASSIFICATION OF REQUEST(#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.`
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.`
10	ITEM	IT;0	Multiple #410.02	410.02 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)`
11	VENDOR	2;1	FREE TEXT	**********************REQUIRED FIELD********************** 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 requests, 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.`
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.`
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).`
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).`
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).`
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.`
11.6	VENDOR STATE	2;7	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `APR 28, 1985` HELP-PROMPT: `Select the state for this vendor.` DESCRIPTION: `This is the state in the vendor address.`
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`
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.`
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.`
12	VENDOR(POINTER)	3;4	POINTER TO VENDOR FILE (#440)	VENDOR(#440) LAST EDITED: `APR 19, 1986` DESCRIPTION: `This is the name of the vendor for the items on this request.`
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(440,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`
15	CONTROL POINT	3;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
15.5	COST CENTER	3;3	FREE TEXT	**********************REQUIRED FIELD********************** 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(^PRC(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.`
16	SUB-CONTROL POINT	12;0	POINTER Multiple #410.04	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'.`
17	BOC1	3;6	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
17.5	BOC1 $ AMOUNT	3;7	NUMBER	**********************REQUIRED FIELD********************** 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`
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.`
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`
19	AUTHORITY	11;4	POINTER TO AUTHORITY OF REQUEST FILE (#410.9)	AUTHORITY OF REQUEST(#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.`
19.1	SUB AUTHORITY	11;5	POINTER TO AUTHORITY OF REQUEST FILE (#410.9)	AUTHORITY OF REQUEST(#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.`
20	COMMITTED (ESTIMATED) COST	4;1	NUMBER	**********************REQUIRED FIELD********************** 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.`
21	DATE COMMITTED	4;2	DATE	**********************REQUIRED FIELD********************** 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.`
22	OBLIGATED (ACTUAL) COST	4;3	NUMBER	**********************REQUIRED FIELD********************** 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.`
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.`
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.`
25	ADJUSTMENT $ AMOUNT	4;6	NUMBER	**********************REQUIRED FIELD********************** 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.`
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.`
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.`
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.`
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.`
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.`
28.5	BBFY	3;11	DATE	**********************REQUIRED FIELD********************** 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`
29	OBLIGATED BY	4;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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: ^`
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.`
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.`
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.`
30	FMS $ AMOUNT	5;1	NUMBER	**********************REQUIRED FIELD********************** 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`
31	FMS DATE	5;2	DATE	**********************REQUIRED FIELD********************** 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.`
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`
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,32.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.`
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.`
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.`
35	CEILING $ AMOUNT	6;1	NUMBER	**********************REQUIRED FIELD********************** 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.`
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.`
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`
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.`
39	ACCOUNTABLE OFFICER	7;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
40	REQUESTOR	7;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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`
42	APPROVING OFFICIAL	7;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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`
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).`
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`
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.`
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.`
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: ^`
44.7	GPF APPROVING FISCAL OFFICER	7;8	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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).`
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: ^`
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.`
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.`
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).`
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.`
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`
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.`
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.`
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`
49	SORT GROUP	11;1	VARIABLE POINTER	SORT GROUP(#410.7) WORK ORDER #(#6920) 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).`
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.`
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.`
52	STATION NO - P.O. NO	10;3	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) LAST EDITED: `JUL 15, 1985` DESCRIPTION: `This is the station number and the purchase order number on this request.`
53	ORIGINATOR OF TEMP # REQ.	11;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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.`
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.`
56	REQUEST STATUS	10;4	POINTER TO PURCHASE ORDER STATUS FILE (#442.3)	PURCHASE ORDER STATUS(#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.`
57	LOG VOUCHER NUMBER (SUPPLY)	100;1	FREE TEXT	**********************REQUIRED FIELD********************** 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.`
58	LOG DIETETIC PERIOD	100;2	SET	**********************REQUIRED FIELD********************** '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.`
59	FISCAL PROCESSING MONTH	100;3	SET	**********************REQUIRED FIELD********************** '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.`
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.`
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.`
62	LOG CODE SHEETS SENT BY	100;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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: ^`
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.`
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.`
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.`
65	LOG VOUCHER NUMBER (FISCAL)	100;7	FREE TEXT	**********************REQUIRED FIELD********************** 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`
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).`
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.`
68	ORIGINATOR OF REQUEST	14;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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.`
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.`
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`
104	CANCELLED BY	1;9	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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)=DIV,DIH=410,DIG=105 D ^DIC` `R` `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.`
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`
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.`
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.`
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.`
447	COUPLER	445;4	POINTER TO CONTROL POINT ACTIVITY FILE (#410)	CONTROL POINT ACTIVITY(#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.`
448	SUBSTATION	0;10	POINTER TO ADMIN. ACTIVITY SITE PARAMETER FILE (#411)	ADMIN. ACTIVITY SITE PARAMETER(#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`
449	RUNNING BALANCE QUARTER DATE	0;11	DATE	**********************REQUIRED FIELD********************** 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.`
450	RUNNING BALANCE STATUS	0;12	SET	**********************REQUIRED FIELD********************** '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.`
451	PURCHASE CARD RECORD	1;2	POINTER TO PURCHASE CARD INFORMATION FILE (#440.5)	PURCHASE CARD INFORMATION(#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.`
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.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #198	Controlled Substances Drug Accountability
ICR #611	Prosthetics
ICR #802	Prosthetics M DATA EXTRACTOR
ICR #1524	EQUIPMENT/TURN-IN REQUEST	TRANSACTION NUMBER (.01). Access: Both R/W w/Fileman TRANSACTION TYPE (1). Access: Both R/W w/Fileman TEMPORARY TRANSACTION NUMBER (2). Access: Both R/W w/Fileman FORM TYPE (3). Access: Both R/W w/Fileman ORIGINATOR OF TEMP # REQ. (53). Access: Write w/Fileman CLASSIFICATION OF REQUEST (8). Access: Both R/W w/Fileman SORT GROUP (49). Access: Both R/W w/Fileman DATE OF REQUEST (5). Access: Both R/W w/Fileman REQUESTING SERVICE (6.3). Access: Both R/W w/Fileman DATE REQUIRED (7). Access: Both R/W w/Fileman PRIORITY OF REQUEST (7.5). Access: Both R/W w/Fileman SPECIAL REMARKS (9). Access: Both R/W w/Fileman CONTROL POINT (15). Access: Both R/W w/Fileman BBFY (28.5). Access: Write w/Fileman REQUESTOR (40). Access: Both R/W w/Fileman COST CENTER (15.5). Access: Both R/W w/Fileman REQUEST STATUS (56). Access: Write w/Fileman ITEM (10). Access: Both R/W w/Fileman VENDOR (11). Access: Both R/W w/Fileman	Moves data from Equipment Request (file 413) into the2237 (file 410) if creating a new 2237, otherwise allows user to edit alreadycreated 2237 (but only those 2237s created from the Equipment/Turn-In module).
ICR #2409	Pharmacy Benefits Management	TRANSACTION NUMBER (.01). Access: Read w/Fileman
ICR #6634	ABOVE PAR ADVANCED PROSTHETICS ACQUISITION TOOL	TRANSACTION NUMBER (.01). Access: Both R/W w/Fileman TRANSACTION TYPE (1). Access: Both R/W w/Fileman TEMPORARY TRANS. NUMBER (2). Access: Read w/Fileman FORM TYPE (3). Access: Both R/W w/Fileman STATION NUMBER (.5). Access: Direct Global Read & w/Fileman INVENTORY DISTRIBUTION POINT (4). Access: Both R/W w/Fileman INTERVAL ISSUE? (3.1). Access: Read w/Fileman MONTH OF 1358 (3.2). Access: Read w/Fileman CONVERTED 1358 (67). Access: Read w/Fileman SUBSTATION (448). Access: Read w/Fileman RUNNING BALANCE QUARTER DATE (449). Access: Read w/Fileman RUNNING BALANCE STATUS (450). Access: Read w/Fileman DATE OF REQUEST (5). Access: Both R/W w/Fileman PURCHASE CARD RECORD (451). Access: Both R/W w/Fileman PRIORITY OF REQUEST (7.5). Access: Both R/W w/Fileman DATE REQUIRED (7). Access: Both R/W w/Fileman CLASSIFICATION OF REQUEST (8). Access: Both R/W w/Fileman SERVICE START DATE (6). Access: Read w/Fileman SERVICE END DATE (6.5). Access: Read w/Fileman ECMS ACTIONUID (103). Access: Read w/Fileman CANCELLED BY (104). Access: Read w/Fileman CANCEL DATE/TIME (105). Access: Read w/Fileman VENDOR (11). Access: Both R/W w/Fileman VENDOR ADDRESS1 (11.1). Access: Both R/W w/Fileman VENDOR ADDRESS2 (11.2). Access: Both R/W w/Fileman VENDOR ADDRESS3 (11.3). Access: Both R/W w/Fileman VENDOR ADDRESS4 (11.4). Access: Both R/W w/Fileman VENDOR CITY (11.5). Access: Both R/W w/Fileman VENDOR STATE (11.6). Access: Both R/W w/Fileman VENDOR ZIP CODE (11.7). Access: Both R/W w/Fileman VENDOR CONTACT (11.8). Access: Both R/W w/Fileman VENDOR PHONE NO. (11.9). Access: Both R/W w/Fileman CONTROL POINT (15). Access: Both R/W w/Fileman ACCOUNTING DATA (28). Access: Read w/Fileman COST CENTER (15.5). Access: Both R/W w/Fileman VENDOR(POINTER) (12). Access: Both R/W w/Fileman REQUESTING SERVICE (6.3). Access: Both R/W w/Fileman BOC1 (17). Access: Read w/Fileman BOC1 $ AMOUNT (17.5). Access: Read w/Fileman BOC2 (18). Access: Read w/Fileman BOC2 $ AMOUNT (18.5). Access: Read w/Fileman VENDOR CONTRACT NUMBER (13). Access: Read w/Fileman BBFY (28.5). Access: Read w/Fileman FCP/PRJ (28.1). Access: Read w/Fileman COMMITTED (ESTIMATED) COST (20). Access: Read w/Fileman DATE COMMITTED (21). Access: Both R/W w/Fileman OBLIGATED (ACTUAL) COST (22). Access: Read w/Fileman DATE OBLIGATED (23). Access: Read w/Fileman PURCHASE ORDER/OBLIGATION NO (24). Access: Both R/W w/Fileman ADJUSTMENT $ AMOUNT (25). Access: Read w/Fileman DATE OBL ADJUSTED (26). Access: Read w/Fileman TRANSACTION $ AMOUNT (27). Access: Both R/W w/Fileman OBLIGATED BY (29). Access: Read w/Fileman OBLIGATION VALIDATION CODE (29.5). Access: Read w/Fileman OBLIGATION VALIDATION VERSION (29.6). Access: Read w/Fileman OBLIGATION SIGNATURE BLOCK (29.7). Access: Read w/Fileman OBLIGATION VAL CODE DATE/TIME (29.8). Access: Read w/Fileman ADJUST CP BALANCE ONLY (25.5). Access: Read w/Fileman FMS $ AMOUNT (30). Access: Read w/Fileman FMS DATE (31). Access: Read w/Fileman FMS TRANSACTION TYPE (32). Access: Read w/Fileman END DATE FOR 1358 (33). Access: Read w/Fileman AUTO ACCRUE (34). Access: Read w/Fileman CEILING $ AMOUNT (35). Access: Read w/Fileman DATE ALLOCATED (36). Access: Read w/Fileman FUND CONTROL POINT DIST. NO (37). Access: Read w/Fileman TEMP CP REF# (38). Access: Read w/Fileman REQUESTOR (40). Access: Both R/W w/Fileman REQUESTOR'S TITLE (41). Access: Both R/W w/Fileman APPROVING OFFICIAL (42). Access: Read w/Fileman APPR. OFFICIAL'S TITLE (43). Access: Read w/Fileman DATE SIGNED (APPROVED) (44). Access: Read w/Fileman VALIDATION CODE (44.5). Access: Read w/Fileman ES CODE DATE/TIME (44.6). Access: Read w/Fileman GPF APPROVING FISCAL OFFICER (44.7). Access: Read w/Fileman GPF VALIDATION CODE (44.8). Access: Direct Global Read & w/Fileman GPF ES CODE DATE/TIME (44.9). Access: Read w/Fileman ACCOUNTABLE OFFICER (39). Access: Read w/Fileman AO SIGNATURE DATE (69). Access: Read w/Fileman GPF VALIDATION VERSION (44.85). Access: Read w/Fileman GPF ESIG CODE (44.87). Access: Read w/Fileman VALIDATION VERSION (44.55). Access: Read w/Fileman ESIG CODE (44.57). Access: Read w/Fileman JUSTIFICATION (.01). Access: Read w/Fileman DELIVER TO/LOCATION (46). Access: Both R/W w/Fileman EST. DELIVERY DATE (47). Access: Both R/W w/Fileman DATE RECEIVED (48). Access: Read w/Fileman EST. SHIPPING AND/OR HANDLING (48.1). Access: Both R/W w/Fileman LINE ITEM COUNT (50). Access: Read w/Fileman PARENT TRANSACTION NUMBER (51). Access: Read w/Fileman STATION NO - P.O. NO (52). Access: Both R/W w/Fileman REQUEST STATUS (56). Access: Read w/Fileman SORT GROUP (49). Access: Both R/W w/Fileman ORIGINATOR OF TEMP # REQ. (53). Access: Read w/Fileman READY FOR APPROVAL/SIGNATURE? (55). Access: Read w/Fileman AUTHORITY (19). Access: Read w/Fileman SUB AUTHORITY (19.1). Access: Read w/Fileman SUB-CONTROL POINT (.01). Access: Both R/W w/Fileman $ AMOUNT (1). Access: Both R/W w/Fileman REASON FOR RETURN (.01). Access: Read w/Fileman ORIGINATOR OF REQUEST (68). Access: Both R/W w/Fileman LOG VOUCHER NUMBER (SUPPLY) (57). Access: Read w/Fileman LOG DIETETIC PERIOD (58). Access: Read w/Fileman FISCAL PROCESSING MONTH (59). Access: Read w/Fileman LOG CODE SHEETS SENT BY (62). Access: Read w/Fileman LOG CODE SHEETS VALID. CODE (63). Access: Read w/Fileman DATE SIGNED (64). Access: Read w/Fileman LOG VOUCHER NUMBER (FISCAL) (65). Access: Read w/Fileman LOG DEPARTMENT (66). Access: Read w/Fileman LOG CS VALIDATION VERSION (63.5). Access: Read w/Fileman LOG CS ESIG CODE (63.7). Access: Read w/Fileman REFERENCE VOUCHER NUMBER (445.01). Access: Read w/Fileman LAST FMSLINE USED (445.02). Access: Read w/Fileman TOTAL DOLLARS POSTED (446). Access: Read w/Fileman COUPLER (447). Access: Read w/Fileman ISSUE BOOK BATCH ID (455). Access: Read w/Fileman COMMENTS (.01). Access: Read w/Fileman LINE ITEM NUMBER (.01). Access: Both R/W w/Fileman QUANTITY (2). Access: Both R/W w/Fileman UNIT OF PURCHASE (3). Access: Both R/W w/Fileman BOC (4). Access: Both R/W w/Fileman ITEM MASTER FILE NO. (5). Access: Both R/W w/Fileman STOCK NUMBER (6). Access: Both R/W w/Fileman EST. ITEM (UNIT) COST (7). Access: Both R/W w/Fileman ITEM DELIVERY POINTS (8). Access: Both R/W w/Fileman RECEIVING CODE SHEET NO. (11). Access: Read w/Fileman PURCHASE ORDER/OBLIGATION NO (9). Access: Read w/Fileman INTERMEDIATE PRODUCT CODE (10). Access: Read w/Fileman QUANTITY POSTED (WHSE) (13). Access: Read w/Fileman QUANTITY RECEIVED (PRIMARY) (14). Access: Read w/Fileman STATUS (15). Access: Read w/Fileman DESCRIPTION (.01). Access: Both R/W w/Fileman DELIVERY SCHEDULE (.01). Access: Read w/Fileman DELIVERY REFERENCE NUMBER (1). Access: Read w/Fileman PO EST. SHIPPING (16). Access: Read w/Fileman DM DOC ID (17). Access: Read w/Fileman DATE NEEDED BY (18). Access: Read w/Fileman ECMS ITEMUID (100). Access: Read w/Fileman ACCT-BOC (445.01). Access: Direct Global Read & w/Fileman FMSLINE (445.02). Access: Direct Global Read & w/Fileman TOTAL QUANTITY POSTED (445.03). Access: Direct Global Read & w/Fileman TOTAL INVENTORY VALUE (445.04). Access: Direct Global Read & w/Fileman TOTAL SELLING VALUE (445.05). Access: Direct Global Read & w/Fileman SPECIAL REMARKS (.01). Access: Direct Global Read & w/Fileman	File 410 'B' cross-reference Used to look up byTRANSACTION NUMBERFile 410 'IT','AG' cross-reference For looking up a2237's item linebased on the file #410 entry'sIEN and the Item Master File (IMF)Number on that item lineFile 410 "AO" cross reference Used to look up byINVENTORY DISTRIBUTION POINT for the transactionFile 410 'AQ' cross reference Used to look up byTRANSACTION NUMBER only for requests that are ready for the Control PointOfficial's approvalFile 410 "E" cross reference Used to look uptransactions by VENDOR NAME

Customize PDF page

Package: IFCAP

Global: ^PRCS(410

Information

Description

Directly Accessed By Routines, Total: 395

Accessed By FileMan Db Calls, Total: 102

Pointed To By FileMan Files, Total: 13

Pointer To FileMan Files, Total: 20

Fields, Total: 120

ICR, Total: 6