Global: ^PRCF(423

FileMan FileNo	FileMan Filename	Package
423	CALM/LOG CODE SHEET	IFCAP

Package	Total	Routines
IFCAP	25	PRCEOB PRCFAC PRCFAC01 PRCFAC2 PRCFAC5 PRCFACB PRCFACBT PRCFACD PRCFACLD PRCFACP1 PRCFACP2 PRCFACR1 PRCFACR2 PRCFACR3 PRCFACR4 PRCFACX0 PRCFACX1 PRCFACX2 PRCFACXL PRCFACXM PRCHCS PRCHCS3 PRCHCS8 PRCHDEP2 PRCHREC7
Accounts Receivable	1	PRCACLM

Package	Total	FileMan Files
IFCAP	3	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[#442.01(37), #442.08(5), #442.11(19.6)] AMENDMENTS(#443.6)[#443.61(37), #443.64(5)] CONTROL POINT ACTIVITY(#410)[#410.02(11)]

Package	Total	FileMan Files
IFCAP	7	FEDERAL SUPPLY CLASSIFICATION(#441.2)[364] PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[5.1, #423.1(12)] COST CENTER(#420.1)[116, 116.4, 116.8, 117.3, #423.0117(.01), #423.15(1), #423.15(3)] BUDGET OBJECT CODE(#420.2)[99, #423.07(5), #423.08(2), #423.09(2), #423.11(5), #423.16(4)] UNIT OF ISSUE(#420.5)[303] DLA/LOG CODES(#441.4)[312, 342, 350, 351, 356, 357, 422] CALM/LOG BATCH TYPE(#423.9)[.6]
Kernel	2	STATE(#5)[#423.2(43)] NEW PERSON(#200)[999, 999.2]

Fields, Total: 360

Field #	Name	Loc	Type	Details
.01	ID	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)<4!($L(X)>21) X` LAST EDITED: `APR 21, 1993` HELP-PROMPT: `ENTER CODE SHEET IDENTIFIER OR CALM REFERENCE NUMBER` DESCRIPTION: `This is the code sheet identifier or CALM reference number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `423^B` `1)= S ^PRCF(423,"B",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `423^AG^MUMPS` `1)= S $P(^PRCF(423,DA,"TRANS"),"^",1)="I",^PRCF(423,"AC","I",DA)="" K ^PRCF(423,"AC","N",DA)` `2)= Q` `This cross-reference is used to set the BATCHED? field to "I", to set the "AC","I" node and to kill the "AC","N" node for the record.` CROSS-REFERENCE: `423^AF^MUMPS` `1)= I $D(DT),$D(DA),$P(^PRCF(423,DA,"TRANS"),"^",9)="" S $P(^PRCF(423,DA,"TRANS"),"^",9)=DT` `2)= Q` `This cross-reference contains the code that will set the DATE CREATED field.` CROSS-REFERENCE: `423^AQ^MUMPS` `1)= Q` `2)= K ^PRCF(423,"AC","I",DA)` `This cross-reference contains the code that will kill the "AC","I" node for the record.`
.05	DATE CREATED	TRANS;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 09, 1986` DESCRIPTION: `This is the date this code sheet was created.`
.1	SYSTEM IDENTIFIER	0;10	SET	'LOG' FOR LOG; 'CLM' FOR CALM; 'FEE' FOR FEE; 'FEN' FOR FEN; 'CAP' FOR CAPPS; 'IRS' FOR IRS; 'ISM' FOR ISMS; 'PHA' FOR PHA; 'CLI' FOR CALM; 'PRC' FOR PRC; LAST EDITED: `JAN 27, 1993` DESCRIPTION: `This is the system identifier.`
.2	CODE	CODE;0	Multiple #423.06	423.06 DESCRIPTION: `This is the CALM code.`
.21	BATCH LIST KEY	TRANS;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>17!($L(X)<1) X` LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Answer must be 1-17 characters in length.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `423^AJ` `1)= S:$D(PRC("SITE")) ^PRCF(423,"AJ",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AJ",$E(X,1,30),DA)` `This cross-reference contains the code sheets that have been batched and are ready for printing in the Batch and Print option. In the automatic transmission of the code sheets, this cross-reference contains the code` `sheets that are ready for transmission.`
.22	TRANSMIT LIST KEY	TRANS;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>21!($L(X)<1) X` LAST EDITED: `JAN 03, 1992` HELP-PROMPT: `Answer must be 1-21 characters in length.` DESCRIPTION: `This field contains the string identifying the time and user creating a list of code sheets to be transmitted to Austin.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `423^AK` `1)= S:$D(PRC("SITE")) ^PRCF(423,"AK",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AK",$E(X,1,30),DA)` `This cross-reference contains the code sheets that are being transmitted to Austin.`
.23	ERROR IN BATCHING KEY	TRANS;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>17!($L(X)<1) X` LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Answer must be 1-17 characters in length.` DESCRIPTION: `This field contains the key number ($H_"-"_DUZ) used to differentiate code sheets errors found by the code sheet batch and print option.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `423^AL` `1)= S ^PRCF(423,"AL",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AL",$E(X,1,30),DA)` `This cross-reference contains any code sheets in which errors were found during the batch and print option. These code sheets in error will print for the user at the end of the batch and print listing.`
.231	BATCHING ERROR	TRANS;14	SET	'1' FOR NO 'ZEROTH' NODE; '2' FOR NO 'TRANS' NODE; '3' FOR MISSING TRANSMISSION DATE; '4' FOR MISSING TECHNICIAN; '5' FOR INVALID OR MISSING STATION #; '6' FOR INVALID OR MISSING BATCH TYPE; LAST EDITED: `MAR 29, 1989`
.24	REPRINT LIST KEY	TRANS;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>17!($L(X)<1) X` LAST EDITED: `JUN 07, 1990` HELP-PROMPT: `Answer must be 1-17 characters in length.` DESCRIPTION: `This field contains the string of time_user. It is used for creating a list of code sheets to be retransmitted to Austin.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `423^AM` `1)= S:$D(PRC("SITE")) ^PRCF(423,"AM",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AM",$E(X,1,30),DA)` `This cross-reference contains the individual batches or all the batches within a transmission number that have been selected for reprint in the Reprint a Batch option.`
.25	ON BUDGET LIST	TRANS;16	SET	'Y' FOR YES; LAST EDITED: `JUN 19, 1990` CROSS-REFERENCE: `423^AO` `1)= S ^PRCF(423,"AO",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AO",$E(X,1,30),DA)` `This cross-reference contains the code sheets for released transactions for a given Fiscal Year and Quarter used in the Generate Budget Code Sheets option.`
.3	BATCHED?	TRANS;1	SET	'N' FOR NO; 'I' FOR BATCHFLAG; 'Y' FOR YES; LAST EDITED: `APR 21, 1993` DESCRIPTION: `YES identifies if this code sheet is to be printed.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the TRANSMISSION DATE field of the CALM/LOG CODE SHEET File` CROSS-REFERENCE: `423^AC` `1)= I X="N",$D(PRC("SITE")) S ^PRCF(423,"AC",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AC",$E(X,1,30),DA)` `This cross-reference contains the code sheets that are ready for the Batch and Print. These code sheets are in the "N" subscript level.`
.31	BACKGROUND BATCH	21;6	SET	'1' FOR YES; LAST EDITED: `JAN 10, 1992` DESCRIPTION: `This field is used as a flag to process code sheets in a background job.` CROSS-REFERENCE: `423^AP` `1)= S ^PRCF(423,"AP",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AP",$E(X,1,30),DA)` `This cross-reference contains the code sheets that are batched and printed in the background.`
.4	DATE PRINTED	TRANS;2	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 07, 1985` DESCRIPTION: `This is the date the code sheet was printed.`
.5	TRANSMISSION DATE	TRANS;3	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 01, 1987` DESCRIPTION: `This is the transmission date of this CALM code sheet.` CROSS-REFERENCE: `423^AH^MUMPS` `1)= S $P(^PRCF(423,DA,"TRANS"),"^",1)="N",^PRCF(423,"AC","N",DA)=""` `2)= S $P(^PRCF(423,DA,"TRANS"),"^",1)="" K ^PRCF(423,"AC","N",DA)` `This cross-reference contains the code that sets the code sheets into the "AC","N" cross-reference. The code sheets are now ready for the batch and print.`
.6	BATCH TYPE	TRANS;4	POINTER TO CALM/LOG BATCH TYPE FILE (#423.9)	**********************REQUIRED FIELD********************** CALM/LOG BATCH TYPE(#423.9) LAST EDITED: `AUG 04, 1986` DESCRIPTION: `This is the batch type for this transmission.`
.7	BATCH NUMBER	TRANS;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<12)!'(X?3N1"-"3U1"-"2N1"-"5UN) X` LAST EDITED: `JAN 25, 1988` HELP-PROMPT: `ANSWER MUST BE 12-17 CHARACTERS IN LENGTH` DESCRIPTION: `This is the batch number for this transmission.` CROSS-REFERENCE: `423^AD` `1)= S ^PRCF(423,"AD",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AD",$E(X,1,30),DA)` `This cross-reference contains the code sheet batch numbers.`
.8	BATCH PRIORITY	TRANS;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>4)!(X<2)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 24, 1988` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 2 AND 4` DESCRIPTION: `This is the batch priority for this transmission.` CROSS-REFERENCE: `423^AE` `1)= S ^PRCF(423,"AE",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AE",$E(X,1,30),DA)` `This cross-reference contains the batch priority for the transmitted code sheets.`
.9	TRANSMISSION NUMBER	TRANS;8	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<15)!'(X?3N1"-"3U1"-"2N1"-"4N) X` LAST EDITED: `JAN 22, 1988` HELP-PROMPT: `ANSWER MUST BE 15 CHARACTERS IN LENGTH` DESCRIPTION: `This is the CALM batch transmission number.`
.95	CODE SHEET LENGTH	TRANS;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 30, 1989` HELP-PROMPT: `Enter length of code sheet if fixed. Leave blank if length is variable.` DESCRIPTION: `This is the length of the code sheet.`
1	STATION NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the number of the station making the transmission.`
2	EDIT TEMPLATE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>18!($L(X)<6)!(X'?1"["4.16ANP1"]") X` HELP-PROMPT: `ANSWER MUST BE 10 CHARACTERS IN LENGTH` DESCRIPTION: `This is the edit template for this transmission.`
3	TRANSACTION TYPE	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<3) X` LAST EDITED: `DEC 10, 1987` HELP-PROMPT: `ANSWER MUST BE 3-6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the transaction status code.` `UNEDITABLE`
4	TRANSACTION DATE	0;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<0 X` LAST EDITED: `MAY 09, 1985` HELP-PROMPT: `ANSWER MUST BE 1-10 CHARACTERS IN LENGTH` DESCRIPTION: `This is the transaction date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
4.5	DOCUMENT DATE	8;11	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X` OUTPUT TRANSFORM: `S Y=Y` LAST EDITED: `MAR 14, 1991` DESCRIPTION: `This is the date of the transaction document.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
5	REFERENCE NUMBER	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1UN.UN) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Z0="" S:Y="" Y=" " Q:Y=" " F I=1:1 Q:Z0=+Z0 S Z0=$E(Y,I) I Z0=+Z0 S Y=$E(Y,1,I-1)_$E(Y,I+1,6)` LAST EDITED: `JAN 08, 1988` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the reference number for this transaction.` CROSS-REFERENCE: `423^C` `1)= S ^PRCF(423,"C",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"C",$E(X,1,30),DA)` `This cross-reference contains the reference number for the code sheet, but without the station number.`
5.1	PAT NUMBER	1;29	POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)	PROCUREMENT & ACCOUNTING TRANSACTIONS(#442) LAST EDITED: `DEC 04, 1987` DESCRIPTION: `This is the PAT number for this transaction.` CROSS-REFERENCE: `423^AI` `1)= S ^PRCF(423,"AI",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AI",$E(X,1,30),DA)` `This cross-reference contains the PAT NUMBER, which is a pointer to the PROCUREMENT & ACCOUNTING TRANSACTIONS file (#442).`
5.2	VOUCHER/TICKET NUMBER	1;30	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU` LAST EDITED: `DEC 18, 1990` HELP-PROMPT: `ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the voucher/ticket number.`
6	YALD CODE	1;1	FREE TEXT	INPUT TRANSFORM: `S:X="" X=".." Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!(($L(X)<2)&(X'="$")) X I $D(X) Q:X=".." I $D(X),(X'="$") S X=$E(X,1,2)_"."_$E(X,3)_"."_$E(X,4)` OUTPUT TRANSFORM: `S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)` LAST EDITED: `OCT 09, 1989` HELP-PROMPT: `ENTER STANDARD YALD CODE (with or without the DOTS) OR A '$'` DESCRIPTION: `This is the standard YALD code or a dollar amount.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
7	DELIVERY MONTH	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2NA) X` LAST EDITED: `APR 16, 1985` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: `This is the delivery month.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	SOURCE CODE	1;3	SET	'1' FOR VA SUPPLY FUND - DEPOT; '2' FOR VA SUPPLY FUND - STATION; '3' FOR NON-FEDERAL SOURCES; '4' FOR GSA; '5' FOR OTHER FED AGENCIES, A/C, OTHER VA; '6' FOR ACCRUED SVCS PAY - FEDERAL; '7' FOR ACCRUED SVCS PAY - NON FEDERAL; LAST EDITED: `APR 19, 1988` DESCRIPTION: `This is the source code.`
9	DATE	1;4	FREE TEXT	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X` LAST EDITED: `NOV 28, 1988` HELP-PROMPT: `ANSWER MUST BE 1-12 CHARACTERS IN LENGTH` DESCRIPTION: `This is the date of the delivery.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
10	CONTROL POINT ($ ALLOWED)	1;5	FREE TEXT	INPUT TRANSFORM: `I X'="$" S DIC="^PRC(420,"_$P(^PRCF(423,DA,0),U,2)_",1,",DIC(0)="EMNZ" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1)," ",1) K:Y<0 X K DIC` LAST EDITED: `APR 23, 1985` HELP-PROMPT: `ENTER CONTROL POINT NUMBER OR A "$" TO TERMINATE` DESCRIPTION: `This is the Fund Control Point number.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=+$P(^PRCF(423,DA,0),U,2) 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,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
11	COST CENTER	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1)!'(X?1"$"!(X?6N)) X` LAST EDITED: `DEC 08, 1986` HELP-PROMPT: `ENTER STANDARD 6 NUMBER COST CENTER` DESCRIPTION: `This is the standard 6 digit cost center number.`
12	ANALYSIS ACCOUNT	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` HELP-PROMPT: `ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the analysis of the account.`
13	SUBACCOUNT 1	1;8	FREE TEXT	INPUT TRANSFORM: `I X'="$" S DIC=420.2,DIC(0)="MNZQE" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S PRCFLN=4 D RBF^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `ENTER STANDARD CALM 4 NUMBER SUB ACCOUNT` DESCRIPTION: `This is the CALM 4 standard number sub-account.` EXECUTABLE HELP: `S ZD=D,X="?",DIC=420.2,DIC(0)="EMN" D ^DIC S D=ZD K ZD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14	AMOUNT	1;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the amount of the transaction for the first subaccount.`
15	SUBACCOUNT 2	1;10	FREE TEXT	INPUT TRANSFORM: `I X'="$"&(X'="TRDE")&(X'="DPST") S DIC=420.2,DIC(0)="MNQE" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S PRCFLN=4 D RBF^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `ENTER SUBACCOUNT NUMBER,'TRDE','DPST', OR '$' AS APPLICABLE` DESCRIPTION: `This is the sub-account number.` EXECUTABLE HELP: `S ZD=D,X="?",DIC=420.2,DIC(0)="EMN" D ^DIC S D=ZD K ZD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
16	AMOUNT 2	1;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the amount of the transaction for the second subaccount.`
17	LIQUIDATION CODE	1;12	SET	'C' FOR C; 'P' FOR P; 'F' FOR F; '$' FOR $; DESCRIPTION: `This is the liquidation code.`
18	LIQUIDATION AMOUNT 1	1;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999999` DESCRIPTION: `This is the liquidation amount 1.`
19	LIQUIDATION AMOUNT 2	1;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the liquidation amount 2.`
20	RECEIVABLE CODE	1;15	SET	'0' FOR CONTING ASSET T/C 932; '1' FOR FEDERAL G/L 3011; '2' FOR NON FEDERAL G/L 3012; '3' FOR REIMB - FED G/L 1022; '4' FOR REIMB - NON FED G/L 1022; '5' FOR REIMB - Q&S G/L 1022; LAST EDITED: `APR 19, 1988` DESCRIPTION: `This is the receivable code.`
21	SUB ACCOUNT/PAYROLL ANALYSIS	2;0	Multiple #423.01	423.01 DESCRIPTION: `This is the subaccount payroll analysis.`
22	SOC SEC NUMBER	1;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9)!'(X?9N) X` LAST EDITED: `APR 10, 1985` HELP-PROMPT: `ANSWER MUST BE 9 CHARACTERS IN LENGTH` DESCRIPTION: `This is the social security number of the employee, if appropriate.`
23	STUB NAME	1;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S PRCFLN=3 D RBF^PRCFU` LAST EDITED: `JUL 20, 1989` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the stub name.`
24	LINE NUMBER (1-38)	3;0	Multiple #423.02	423.02 LAST EDITED: `DEC 16, 1992` DESCRIPTION: `This is the line number of the transaction.`
25	PAT REFERENCE NUMBER	1;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6AN) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the PENDING ACCOUNTING TRANSACTION reference number.`
26	SECOND STATION NUMBER	1;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the three character second station number.`
27	INVENTORY ACCOUNT CODE	1;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: `This is the 2 character inventory account code.`
28	TRANSFER FROM STATION NUMBER	1;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the station that is the source of the transferred funds.`
29	TRANSFER TO STATION NUMBER	1;23	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the station that receives the transferred funds.`
30	ACCRUAL COST CENTER LINE #	4;0	Multiple #423.03	423.03 DESCRIPTION: `This is the accrual cost center line number.`
31	SECTION A	1;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This field contains an 'A' if section A is to be used, or a '$' to terminate the code sheet.`
32	SECTION B	1;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This field contains a 'B' if section B is to be used, or a '$' to terminate the code sheet.`
33	SECTION C	1;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This field contains a 'C' if section C is to be used, or a '$' to terminate the code sheet.`
34	SECTION D	1;27	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This field contains a 'D' if section D is to be used, or a '$' to terminate the code sheet.`
35	SECTION B LINE NUMBER	5;0	Multiple #423.04	423.04 DESCRIPTION: `This is the section B line number.`
36	Q & S AMOUNT	6;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999` DESCRIPTION: `This is the quarter and subsistence amount.`
37	Q & S STATION NUMBER	6;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH`
38	TERMINAL LEAVE PAYMENTS	6;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: `Theses are terminal leave payments.`
39	ACCOUNTING MONTH	6;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: `This is the accounting month.`
40	REC STA OR FCP	7;0	Multiple #423.05	423.05 DESCRIPTION: `This is the receiving station or the fund control point.`
41	LIQ CODE 1	6;5	SET	**********************REQUIRED FIELD********************** 'C' FOR C; 'P' FOR P; 'F' FOR F; '1' FOR 1; '2' FOR 2; '3' FOR 3; LAST EDITED: `JUL 23, 1985` HELP-PROMPT: `ENTER LIQUIDATION CODE, LETTERS FOR CURRENT YEAR, NUMBERS FOR PRIOR YEAR` DESCRIPTION: `This is the liquidation code 1, letters for the current year and numbers for the prior year.`
42	LIQ CODE 2	6;6	SET	**********************REQUIRED FIELD********************** 'F' FOR F; 'C' FOR C; 'P' FOR P; LAST EDITED: `JUL 23, 1985` DESCRIPTION: `This is the liquidation code 2.`
43	VENDOR ID NUMBER	6;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S PRCFLN=9 D RBF^PRCFU` LAST EDITED: `JUL 05, 1989` HELP-PROMPT: `ENTER CALM VENDOR ID NUMBER` DESCRIPTION: `This is the vendor identification number.`
44	CHECK ENCLOSURE CODE	6;8	SET	**********************REQUIRED FIELD********************** '1' FOR 1; '2' FOR 2; '5' FOR 5; 'F' FOR F; 'P' FOR P; 'X' FOR X; LAST EDITED: `MAR 01, 1993` HELP-PROMPT: `ENTER STANDARD CALM CHECK ENCLOSURE CODE NUMBER` DESCRIPTION: `This is the standard CALM check enclosure code number.`
45	VENDOR NAME	6;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>23!($L(X)<3)!'(X?1UPN.UPN) X` LAST EDITED: `MAR 12, 1986` HELP-PROMPT: `ANSWER MUST BE 3-23 CHARACTERS IN LENGTH` DESCRIPTION: `This is the vendor name.`
46	FIRST ADDRESS LINE	6;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>23!($L(X)<1) X` LAST EDITED: `JUL 23, 1985` HELP-PROMPT: `ENTER FIRST LINE OF VENDOR ADDRESS - NOT TO EXCEED 23 CHARACTERS IN LENGTH` DESCRIPTION: `This is the first line of the vendor address.`
47	SECOND ADDRESS LINE	6;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>23!($L(X)<1) X` LAST EDITED: `JUL 23, 1985` HELP-PROMPT: `ENTER SECOND LINE OF VENDOR ADDRESS - NOT TO EXCEED 23 CHARACTERS IN LENGTH` DESCRIPTION: `This is the second line of the vendor address.`
48	CITY	6;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>13!($L(X)<1) X` LAST EDITED: `JUL 23, 1985` HELP-PROMPT: `ENTER CITY OF VENDOR - DO NOT EXCEED 13 CHARACTERS IN LENGTH` DESCRIPTION: `This is the city of the vendor address.`
49	STATE	6;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `JUL 23, 1985` HELP-PROMPT: `ENTER 2 CHARACTER ABBREVIATION OF STATE OF VENDOR` DESCRIPTION: `This is the two character abbreviation of the state of the vendor address.`
50	ZIP CODE	6;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X` LAST EDITED: `SEP 18, 1985` HELP-PROMPT: `ENTER 5 OR 9 DIGIT ZIP CODE` DESCRIPTION: `This is the 5 or 9 digit zip code of the vendor address.`
51	INVOICE/BILL NUMBER	6;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1) X` LAST EDITED: `JUL 23, 1985` HELP-PROMPT: `ENTER INVOICE OR BILL NUMBER TO IDENTIFY PAYMENT -16 CHARACTERS IN LENGTH` DESCRIPTION: `This is the invoice or bill number to identify the payment.`
52	COST CENTER 1	8;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1)!'(X?1"$"!(X?6N)) X` LAST EDITED: `JUL 26, 1985` HELP-PROMPT: `ENTER STANDARD 6 DIGIT COST CENTER OR "$" TO END CODE SHEET` DESCRIPTION: `This is the 6 digit cost center 2 number.`
53	ANALYSIS ACCOUNT 2	8;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` LAST EDITED: `JUL 26, 1985` HELP-PROMPT: `ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the analysis account 2.`
54	COST CENTER 2	8;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<1)!'(X?1"$"!(X?6N)) X` LAST EDITED: `JUL 26, 1985` HELP-PROMPT: `ENTER STANDARD CALM 6 DIGIT COST CENTER OR "$" TO END CODE SHEET` DESCRIPTION: `This is the 6 digit cost center 2 number.`
55	VENDOR/AGENT CASHIER ID	8;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` LAST EDITED: `SEP 18, 1985` HELP-PROMPT: `ENTER VENDOR/AGENT CASHIER ID DO NOT EXCEED 9 CHARACTERS` DESCRIPTION: `This is the vendor/agent cashier identification number.`
56	PAT ADVANCE REF #	8;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` LAST EDITED: `SEP 18, 1985` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the PENDING ACCOUNTING TRANSACTION (PAT) advance reference number.`
57	ADVANCE AMT/APPLIED	8;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 18, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the advance applied amount.`
58	AMOUNT CLAIMED 1	8;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 18, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the amount claimed 1.`
59	AMOUNT CLAIMED 2	8;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 18, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the amount claimed 2.`
60	NAME	8;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>23!($L(X)<1) X` LAST EDITED: `SEP 18, 1985` HELP-PROMPT: `ANSWER MUST BE 1-23 CHARACTERS IN LENGTH` DESCRIPTION: `This is the name of the employee receiving a travel advance.`
61	DELIVERY MONTH - 921.60	0;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S X1=$A($E(X)),X2=$A($E(X,2)) K:$L(X)>2!(X1<65)!(X2<65)!(X1>77)!(X2>77)!((X1+X2)>142)!(X["I") X K X1,X2` LAST EDITED: `SEP 08, 1986` DESCRIPTION: `This is the 2 letter delivery month.` EXECUTABLE HELP: `D DDATE^PRCFALD` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
62	DELIVERY DATE - 920	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `NOV 01, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the 3 character delivery date.`
63	RECEIVING STATION	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'((X?3N)!(X?1"OGA")) X` LAST EDITED: `NOV 01, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the receiving station.`
64	CONTROL POINT ($ NOT ALLOWED)	0;13	FREE TEXT	INPUT TRANSFORM: `S DIC="^PRC(420,"_$P(^PRCF(423,DA,0),U,2)_",1,",DIC(0)="EMNZ" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1)," ",1) K:Y<0 X K DIC` LAST EDITED: `NOV 01, 1985` HELP-PROMPT: `ENTER VALID CONTROL POINT NUMBER` DESCRIPTION: `This is the fund control point number.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=+$P(^PRCF(423,DA,0),U,2) 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,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
65	DOCUMENT NUMBER	0;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?1UN.UN) X` LAST EDITED: `MAR 09, 1986` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the document number.`
66	SF ACCT CODE LINE #	9;0	Multiple #423.07	423.07 DESCRIPTION: `This is the SF Accounting code line number.`
67	FROM SECTION	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `NOV 01, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This is the lender to section A on a CALM 973 code sheet.`
68	APPROPRIATION CODE 1	0;15	FREE TEXT	INPUT TRANSFORM: `S:X="" X=".." Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!($L(X)<2) X Q:'$D(X) Q:X=".." S X=$E(X,1,2)_"."_$E(X,3)_"."_$E(X,4)` OUTPUT TRANSFORM: `S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)` LAST EDITED: `OCT 09, 1989` HELP-PROMPT: `Enter Standard YALD code - with or without the DOTS.` DESCRIPTION: `This is the appropriation code 1.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
69	ACCOUNT CODE	0;16	FREE TEXT	INPUT TRANSFORM: `I X'="09",X'=14,X'=15,X'=16,X'=17,X'=24 K X` LAST EDITED: `NOV 01, 1985` HELP-PROMPT: `ENTER WITH ACCOUNT CODES '09',14,15,16,17 OR 24 AS APPLICABLE` DESCRIPTION: `This is the account code.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
70	COST CENTER 'A' LINE #	10;0	Multiple #423.08	423.08 DESCRIPTION: `This is the cost center line 'A' number.`
71	TO SECTION	0;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `NOV 01, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This is the receiving section on a CALM 973 code sheet.`
72	APPROPRIATION CODE 2	0;19	FREE TEXT	INPUT TRANSFORM: `S:X="" X=".." Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!($L(X)<2) X Q:'$D(X) Q:X=".." S X=$E(X,1,2)_"."_$E(X,3)_"."_$E(X,4)` OUTPUT TRANSFORM: `S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)` LAST EDITED: `OCT 09, 1989` HELP-PROMPT: `Enter Standard YALD code - with or without the DOTS.` DESCRIPTION: `This is the appropriation code 2.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
73	FUND CONTROL POINT	0;20	FREE TEXT	INPUT TRANSFORM: `S DIC="^PRC(420,"_$P(^PRCF(423,DA,0),U,2)_",1,",DIC(0)="EMNZ" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1)," ",1) K:Y<0 X K DIC` LAST EDITED: `NOV 01, 1985` HELP-PROMPT: `ENTER CONTROL POINT NUMBER` DESCRIPTION: `This is the fund control point number.` EXECUTABLE HELP: `S ZD=D,X="?",Z0=+$P(^PRCF(423,DA,0),U,2) 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,Z0` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
74	COST CENTER 'B' LINE #	11;0	Multiple #423.09	423.09 DESCRIPTION: `This is the cost center line 'B' number.`
75	TT974 LINE NUMBER	12;0	Multiple #423.1	423.1 DESCRIPTION: `This is the TT974 line number.`
76	LINE #	13;0	Multiple #423.11	423.11 DESCRIPTION: `This is the line number for various multiple fields within CALM.`
77	ACTION CODE 1	0;21	SET	'1' FOR ADDITIONS; '2' FOR SUBTRACTIONS; '3' FOR DATA OR POSITIVE AMT (OVERLAY); '4' FOR NEGATIVE AMOUNTS (OVERLAY); LAST EDITED: `NOV 03, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This is the action code 1.`
78	ACTION CODE 2	0;22	SET	'1' FOR ADDITIONS; '2' FOR SUBTRACTIONS; '3' FOR DATA OR POSITIVE AMT (OVERLAY); '4' FOR NEGATIVE AMOUNTS (OVERLAY); '$' FOR $; LAST EDITED: `NOV 03, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This is the action code 2.`
79	AMOUNT 1	6;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999` DESCRIPTION: `This is the amount 1.`
80	AMOUNT 2 (9)	6;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 03, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999` DESCRIPTION: `This is the amount 2.`
81	LIQ. CODE	6;18	SET	'C' FOR C; 'P' FOR P; 'F' FOR F; LAST EDITED: `FEB 27, 1986` DESCRIPTION: `This is the liquidation code.`
82	SUB ACCT/GL ACCT	6;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N) X` LAST EDITED: `FEB 27, 1986` HELP-PROMPT: `ENTER STANDARD SUB ACCOUNT NUMBER OR GENERAL LEDGER ACCOUNT NUMBER` DESCRIPTION: `This is the standard subaccount number or general ledger account number.`
83	GROSS PAYMENT AMOUNT	6;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 27, 1986` HELP-PROMPT: `ENTER GROSS PAYMENT AMOUNT, WITH NO DECIMAL POINT` DESCRIPTION: `This is the gross payment amount.`
84	AMOUNT TO BE LIQUIDATED	6;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 27, 1986` HELP-PROMPT: `ENTER AMOUNT TO BE LIQUIDATED` DESCRIPTION: `This is the amount to be liquidated.`
85	GENERAL LEDGER ACCOUNT	6;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'(X?4N) X` LAST EDITED: `FEB 27, 1986` HELP-PROMPT: `ENTER STANDARD 4 NUMBER GENERAL LEDGER ACCOUNT NUMBER` DESCRIPTION: `This is the standard 4 number general ledger account number.`
86	OFFSET AMOUNT	6;23	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 27, 1986` HELP-PROMPT: `ENTER AMOUNT TO BE OFFSET, NO DECIMAL POINT PLEASE` DESCRIPTION: `This is the amount to be offset.`
87	OFFSET REFERENCE NUMBER	6;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` LAST EDITED: `FEB 27, 1986` HELP-PROMPT: `ENTER REFERENCE NUMBER OF OFFSET. ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the reference number of the offset.`
88	OFFSET STATION NUMBER	6;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `FEB 27, 1986` HELP-PROMPT: `ENTER STATION NUMBER OF OFFSET, ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the station number of the offset.`
89	REF # (2ND LINE)	14;0	Multiple #423.12	423.12 DESCRIPTION: `This is the second line reference number.`
90	941 LINE NUMBER	15;0	Multiple #423.13	423.13 DESCRIPTION: `This is the 941 line number.`
91	CREDITOR SSN OR VENDOR ID	0;23	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1)!'(X?1UN.UN) X` LAST EDITED: `MAR 07, 1986` HELP-PROMPT: `CREDITOR SSN OR VENDOR ID 1 TO 9 UPPER CASE OR NUMERIC CHARACTERS` DESCRIPTION: `This is the creditor social security number or the vendor identification number.`
92	VENDOR TYPE	0;24	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 07, 1986` HELP-PROMPT: `ENTER VENDOR TYPE 1-2 FOR SC 31, 1-3 FOR SC 33 OR BLANK` DESCRIPTION: `This is the vendor type.`
93	ORIGINAL TRANSACTION CODE	1;28	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `MAR 09, 1986` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the original transaction code.`
94	ORIGINAL STATUS CODE	6;26	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X` LAST EDITED: `JUN 24, 1986` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: `This is the original status code.`
95	ORIGINAL TRANSACTION DATE	6;27	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,4,7)_$E(X,2,3)` OUTPUT TRANSFORM: `S Y=Y` LAST EDITED: `AUG 15, 1991` DESCRIPTION: `This is the original transaction date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
96	PAT TYPE CODE	6;28	SET	'B' FOR B; 'C' FOR C; 'J' FOR J; 'L' FOR L; 'S' FOR S; 'T' FOR T; 'W' FOR W; LAST EDITED: `MAR 09, 1986` DESCRIPTION: `This is the PENDING ACCOUNTING TRANSACTION (PAT) type code.`
97	945 LINE NUMBER	16;0	Multiple #423.14	423.14 DESCRIPTION: `This is the 945 line number.`
98	946 LINE NUMBER	17;0	Multiple #423.15	423.15 DESCRIPTION: `This is the 946 line number.`
99	SUB ACCOUNT	8;10	POINTER TO BUDGET OBJECT CODE FILE (#420.2)	BUDGET OBJECT CODE(#420.2) LAST EDITED: `MAR 09, 1986` DESCRIPTION: `This is the subaccount.`
100	LINE NUMBER (1-5)	18;0	Multiple #423.16	423.16 DESCRIPTION: `This is a line number which cannot exceed 5 records.`
101	ACCOMPLISHED DATE	8;12	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X` OUTPUT TRANSFORM: `S Y=Y` LAST EDITED: `MAR 14, 1991` DESCRIPTION: `This is the accomplished date.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
102	PAT ACTION CODE	8;13	SET	'1' FOR UPDATE EXISTING PAT RECORD; '2' FOR REESTABLISH RECEIVABLE PAT RECORD; LAST EDITED: `APR 19, 1988` DESCRIPTION: `This is the PENDING ACCOUNTING TRANSACTION code.`
103	SERVICE CODE	19;1	SET	'01' FOR 01; '02' FOR 02; '03' FOR 03; '04' FOR 04; '05' FOR 05; '06' FOR 06; '07' FOR 07; '08' FOR 08; '09' FOR 09; '10' FOR 10; '11' FOR 11; '12' FOR 12; '13' FOR 13; '14' FOR 14; '15' FOR 15; '16' FOR 16; '17' FOR 17; '18' FOR 18; '19' FOR 19; '20' FOR 20; '21' FOR 21; '22' FOR 22; '40' FOR 40; '41' FOR 41; '42' FOR 42; '43' FOR 43; '44' FOR 44; '45' FOR 45; '46' FOR 46; LAST EDITED: `MAR 01, 1993` HELP-PROMPT: `ENTER ACCOUNT CODE FULL REFERENCE IS CONTAINED IN MP4 PV PARA12D.06` DESCRIPTION: `This is the service code.`
104	INVOICE OR BILL #	8;14	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1)!'((X?.UN1"/"6N)!(X?3N1"/"3N)!(X?6UN1"/"3N)) X` LAST EDITED: `APR 18, 1988` HELP-PROMPT: `ENTER TYPE OF DOC., THEN A "/", 3 DIGIT STA NUM AND 3 DIGIT DOCUMENT NUMBER` DESCRIPTION: `This is the invoice or bill number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
105	DOCUMENT #	8;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>23!($L(X)<1)!'(X?.UN1"/"6N) X` LAST EDITED: `MAR 09, 1986` HELP-PROMPT: `ENTER DOCUMENT NUMBER, A "/", 3 DIGIT STATION NUMBER AND 3 DIGIT SEQ. NUMBER` DESCRIPTION: `This is the document number.`
106	929 ANALYSIS ACCOUNT	19;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<4)!'(X?4.5N) X` LAST EDITED: `AUG 15, 1986` HELP-PROMPT: `ANSWER MUST BE 4-5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the 929 analysis account.`
107	929 ANALYSIS ACCOUNT 2	19;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<4)!'(X?4.5N) X` LAST EDITED: `AUG 15, 1986` HELP-PROMPT: `ANSWER MUST BE 4-5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the 929 analysis account 2.`
108	BALANCE AMOUNT	8;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<-99999999999)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 04, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN -99999999999 AND 99999999999` DESCRIPTION: `This is the balance amount.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the AMOUNT field of the LINE NUMBER (1-38) sub-field of the CALM/LOG CODE SHEET File` `TRIGGERED by the COLLECTION AMOUNT field of the LINE NUMBER (1-38) sub-field of the CALM/LOG CODE SHEET File`
109	BALANCE AMOUNT 2	8;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999999)!(X<-9999999999999)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 08, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN -9999999999999 AND 9999999999999` DESCRIPTION: `This is the balance amount 2.`
110	CP/ALD CODE	8;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `SEP 08, 1986` HELP-PROMPT: `ENTER CP NUMBER OR ALD CODE AS APPLICABLE` DESCRIPTION: `This is the fund control point number or Appropriation Limitation Department (ALD) code.`
111	P/S ANALYSIS ACCOUNT	20;0	Multiple #423.17	423.17 DESCRIPTION: `This is the personal service analysis account.`
112	KEYPUNCH CODE	KEY;0	WORD-PROCESSING #423.18	DESCRIPTION: `This is the keypunch code.` LAST EDITED: `NOV 25, 1986`
113	BLANK FIELD	19;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>13!($L(X)<1) X` LAST EDITED: `DEC 22, 1986` HELP-PROMPT: `ANSWER MUST BE 1-13 CHARACTERS IN LENGTH` DESCRIPTION: `This is a blank field used to hold a space and a CALM \ code sheet.`
114	RECEIVING STATION - 920.04	6;29	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `AUG 14, 1987` HELP-PROMPT: `ENTER 'OGA' ONLY` DESCRIPTION: `This is the receiving station.`
115	939 YALD CODE	6;30	FREE TEXT	INPUT TRANSFORM: `S:X="" X=".." Q:X?.2UN1".".1UN1"." K:$L(X)>3!($L(X)<2)!(X'?2.3UN) X I $D(X) Q:X=".." I $D(X) S X=$E(X,1,2)_"."_$E(X,3)_"."` LAST EDITED: `OCT 09, 1989` HELP-PROMPT: `Enter applicable YALD code. The "D" portion of the field is always blank. X53 not valid for 939` DESCRIPTION: `This is the valid YALD code.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
116	COST CENTER #1	21;7	POINTER TO COST CENTER FILE (#420.1)	COST CENTER(#420.1) LAST EDITED: `JUL 07, 1992` HELP-PROMPT: `Enter 1204 or 1302 as applicable` DESCRIPTION: `This field contains the 921 analysis account for VACO.`
116.1	PERCENT 1	21;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1992` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
116.2	YALD 1	21;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<2) X` LAST EDITED: `JUL 06, 1992` HELP-PROMPT: `Enter Valid YALD code`
116.3	CP 1	21;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<2)!'(X?3N) X` LAST EDITED: `JUL 06, 1992` HELP-PROMPT: `Enter 3 digit CP number`
116.4	COST CENTER #2	21;11	POINTER TO COST CENTER FILE (#420.1)	COST CENTER(#420.1) LAST EDITED: `JUL 07, 1992`
116.5	PERCENT 2	21;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 06, 1992` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
116.6	YALD 2	21;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<2) X` LAST EDITED: `JUL 06, 1992` HELP-PROMPT: `Enter valid YALD code`
116.7	CP 2	21;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `JUL 06, 1992` HELP-PROMPT: `Enter 3 digit CP number`
116.8	COST CENTER 3	21;12	POINTER TO COST CENTER FILE (#420.1)	COST CENTER(#420.1)
116.9	PERCENT 3	21;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
117	P&R CC (1-7)	23;0	POINTER Multiple #423.0117	423.0117 LAST EDITED: `FEB 12, 1992` HELP-PROMPT: `Supply Fund must be 000`
117.1	YALD 3	21;18	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<2) X` HELP-PROMPT: `Enter valid YALD code`
117.2	CP 3	21;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` HELP-PROMPT: `Enter 3 digit CP number`
117.3	COST CENTER 4	21;13	POINTER TO COST CENTER FILE (#420.1)	COST CENTER(#420.1)
117.4	PERCENT 4	21;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits`
117.5	YALD 4	21;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<2) X` HELP-PROMPT: `Enter valid YALD code`
117.6	CP 4	21;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` HELP-PROMPT: `Enter 3 digit CP number`
118	TRANSPORTATION AMOUNT	24;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1992` HELP-PROMPT: `Type a Number between 0 and 99999999999, 0 Decimal Digits`
119	MARK UP AMOUNT	24;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1992` HELP-PROMPT: `Type a Number between 0 and 99999999999, 0 Decimal Digits`
120	PAYABLE AMOUNT	24;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 18, 1992` HELP-PROMPT: `Type a Number between 0 and 99999999999, 0 Decimal Digits`
150	DOCUMENT TYPE	100;1	SET	**********************REQUIRED FIELD********************** 'C' FOR CERTIFIED INVOICE; LAST EDITED: `JUN 02, 1989` DESCRIPTION: `This is the document type.`
151	DOCUMENT LOCATOR NUMBER	100;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<11)!'(X?11N) X` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `ANSWER MUST BE 11 CHARACTERS IN LENGTH` DESCRIPTION: `This is the document locator number.`
152	DISCOUNT PERCENT	100;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99.99)!(X<.01)!(X?.E1"."3N.N) X` OUTPUT TRANSFORM: `I '$D(PRCF("OUT")) S Y=Y*100,PRCFLN=4 D LZF^PRCFU` LAST EDITED: `APR 02, 1992` HELP-PROMPT: `Type a Number between .01 and 99.99, 2 Decimal Digits` DESCRIPTION: `This is the discount percent amount.`
153	DISCOUNT DAYS	100;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S PRCFLN=2 D LZF^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `Type a Number between 0 and 99, 0 Decimal Digits` DESCRIPTION: `This is the number of discount days.`
154	DISCOUNT TERMS	100;13	SET	**********************REQUIRED FIELD********************** 'X' FOR STANDARD; 'P' FOR PROX; 'E' FOR EOM; LAST EDITED: `JUL 28, 1989` DESCRIPTION: `This is the set of codes for discount terms.`
155	DISCOUNT AMOUNT	100;27	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) D CAPSDOL^PRCFU` LAST EDITED: `JUL 05, 1989` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `This is the discount amount.`
156	INVOICE NUMBER	100;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S PRCFLN=16 D RBF^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `ANSWER MUST BE 1-16 CHARACTERS IN LENGTH` DESCRIPTION: `This is the invoice number.`
157	INVOICE DATE	100;4	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `S Y(0)=Y I '$D(PRCF("OUT")) D CAPSDATE^PRCFU` LAST EDITED: `FEB 28, 1992` DESCRIPTION: `This is the date of the invoice.`
158	INVOICE AMOUNT	100;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) D CAPSDOL^PRCFU` LAST EDITED: `JUL 05, 1989` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `This is the invoice amount.`
159	SHIPPING AMOUNT	100;14	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) D CAPSDOL^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the shipping amount.`
160	DATE INVOICE RECEIVED	100;5	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `S Y(0)=Y I '$D(PRCF("OUT")) D CAPSDATE^PRCFU` LAST EDITED: `FEB 28, 1992` DESCRIPTION: `This is the date the invoice was received.`
161	MEMO 1	100;28	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S PRCFLN=3 D RBF^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the first memo.`
162	MEMO 2	100;29	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S PRCFLN=3 D RBF^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the second memo, if applicable.`
163	MEMO 3	100;30	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S PRCFLN=3 D RBF^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the third memo, if applicable.`
164	INTEREST INDICATOR	100;23	SET	'X' FOR BLANK; 'I' FOR INTEREST ONLY; 'P' FOR PAYMENT ONLY; LAST EDITED: `JUN 02, 1989` DESCRIPTION: `This is the interest indicator.`
165	INVOICE SUFFIX	100;26	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S PRCFLN=4 D LZF^PRCFU` LAST EDITED: `JUL 05, 1989` HELP-PROMPT: `Type a Number between 1 and 9999, 0 Decimal Digits` DESCRIPTION: `This is the invoice suffix.`
166	CAPPS LIQUIDATION CODE	100;16	SET	'C' FOR COMPLETE; 'P' FOR PARTIAL; LAST EDITED: `JUN 02, 1989` DESCRIPTION: `This is the CAPPS liquidation code.`
167	CAPPS LIQUIDATION AMT 1	100;19	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) D CAPSDOL^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the CAPPS liquidation amount 1.`
168	CAPPS LIQUIDATION AMT 2	100;20	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) D CAPSDOL^PRCFU` LAST EDITED: `JUN 02, 1989` HELP-PROMPT: `Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits` DESCRIPTION: `This is the CAPPS liquidation amount 2.`
169	DATE SERVICE RECEIVED	100;21	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `S Y(0)=Y I '$D(PRCF("OUT")) D CAPSDATE^PRCFU` LAST EDITED: `FEB 28, 1992` DESCRIPTION: `This is the date that the services were performed or completed.`
170	MONEY MANAGEMENT EXEMPT	100;22	SET	'B' FOR BLANK; 'X' FOR EXEMPT; LAST EDITED: `JUN 02, 1989` DESCRIPTION: `This is the indicator for whether funds are money management exempt.`
171	CAPPS PRODUCT TYPE	100;6	SET	'X' FOR NORMAL; 'P' FOR PRODUCE; 'M' FOR MEAT; 'F' FOR PROGRESS; 'D' FOR DAIRY; 'C' FOR CONTRACT; 'V' FOR PRIME VENDOR; LAST EDITED: `OCT 07, 1993` DESCRIPTION: `This is the set of codes for the CAPPS product type.`
172	CAPPS SUBACCOUNT 1	100;17	FREE TEXT	INPUT TRANSFORM: `I "DPST$"'[X S DIC=420.2,DIC(0)="MNZQE" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S PRCFLN=4 D RBF^PRCFU` LAST EDITED: `JUL 05, 1989` HELP-PROMPT: `Enter standard CALM Sub-Account, or DPST` DESCRIPTION: `This is the CAPPS subaccount 1.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
173	CAPPS SUBACCOUNT 2	100;18	FREE TEXT	INPUT TRANSFORM: `I "TRDE~DPST"'[X S DIC=420.2,DIC(0)="MNQE" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S PRCFLN=4 D RBF^PRCFU` LAST EDITED: `JUL 05, 1989` HELP-PROMPT: `ANSWER MUST BE 4 CHARACTERS IN LENGTH` DESCRIPTION: `This is CAPPS subaccount 2.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
300	LINE ITEM NUMBER	300;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 17, 1987` HELP-PROMPT: `Type a Number between 1 and 99999, 0 Decimal Digits` DESCRIPTION: `This is the line item number.`
300.1	LOG BATCH NO.	300;25	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<9) X` LAST EDITED: `MAR 14, 1989` HELP-PROMPT: `Created automatically when new LOG code sheets are created. Made up of Station No._"-"_P.O.No._"."_Partial No. (period & partial no. for receiving only)` DESCRIPTION: `This is the number that is created automatically upon creation of new log code sheets (i.e., Station Number, Purchase Order Number, (period (.)), and Partial Number (period and partial number are used for receiving only).` CROSS-REFERENCE: `423^AN` `1)= S ^PRCF(423,"AN",$E(X,1,30),DA)=""` `2)= K ^PRCF(423,"AN",$E(X,1,30),DA)` `This cross-reference contains the LOG BATCH NO.`
301	TOTAL VALUE	300;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y'=" " S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU` LAST EDITED: `AUG 30, 1989` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the total value.`
302	QUANTITY	300;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1)!'(X?.5N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Z=$S($D(PRCHCS("CANC")):PRCHCS("CANC"),1:"") S:Z="C" Y=" " I Z'="C" S PRCFLN=5 D LZF^PRCFU K Z` LAST EDITED: `APR 11, 1989` HELP-PROMPT: `Enter Quantity (between 1 and 99999).` DESCRIPTION: `This is the quantity of invoice items.`
303	UNIT OF ISSUE	300;4	POINTER TO UNIT OF ISSUE FILE (#420.5)	**********************REQUIRED FIELD********************** UNIT OF ISSUE(#420.5) OUTPUT TRANSFORM: `S PRCHZ(2)=$S($D(^PRCF(423,DA,0)):$P(^(0),U,4),1:""),PRCHZ(1)=$S($D(^PRCD(420.5,+Y,0)):^(0),1:"") S:PRCHZ(1)]"" Y=$S(PRCHZ(2)=100:$P(PRCHZ(1),U,3),1:$P(PRCHZ(1),U,1)) K PRCHZ I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 10, 1989` DESCRIPTION: `This is the unit of issue for the invoice item(s).`
304	FISCAL YEAR OF FUNDING	300;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 11, 1989` HELP-PROMPT: `Type a Number between 0 and 9, 0 Decimal Digits` DESCRIPTION: `This is the fiscal year of funding.`
305	FISCAL MONTH	300;6	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; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 23, 1989` DESCRIPTION: `This is the month of fiscal funding.`
306	DUE-IN DATE	300;7	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y="" Y=" " S:Y Y=$E("1234567890JK",+$E(Y,4,5))_$E(Y,6,7)_$E(Y,3)` LAST EDITED: `MAY 10, 1989` DESCRIPTION: `This is the due-in date for the invoice item(s).`
306.1	DATE OF RECEIPT	300;22	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y]"" Y=$E("1234567890JK",+$E(Y,4,5))_$E(Y,6,7) S:Y="" Y=" "` LAST EDITED: `APR 07, 1989` HELP-PROMPT: `Enter Partial Receipt Date.` DESCRIPTION: `This is the partial receipt date.`
306.2	DATE	300;23	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `D:Y&'$D(PRCHLOG) DD^%DT I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCH0=$E(Y,3),X1=Y,X2=$E(Y,1,3)_"0101" D ^%DTC S X=X+1,Y=PRCH0_$E("000"_X,$L(X)+1,6) K PRCH0` LAST EDITED: `FEB 26, 1998` DESCRIPTION: `This is the date of item receipt.`
307	STOCK NUMBER (NSN)	300;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>13!($L(X)<9) X` OUTPUT TRANSFORM: `I $D(Y),$D(PRCHLOG) S:$L(Y)=9 Y=Y_" " S PRCFLN=13 D LBF^PRCFU` LAST EDITED: `MAY 23, 1989` HELP-PROMPT: `Enter two question marks for help` DESCRIPTION: `DLA ACQUISITIONS code sheets, enter 13 digit NSN.` `UNPOSTED RECEIVING non-drug items, or drug items from Depot,` `enter 3 blanks followed by 9 or 10 digit N.I.I.N. code (National` `Stock number, without leading FSC code.)` `UNPOSTED RECEIVING Drugs from any source other than Depot` `cc 1 'A' if narcotic, 'L' if controlled substance, or 'D' otherwise.` `cc 2-13 NDC` `cc 2-7 labeler code. If not 6 digits, put in 1 leading 0.` `cc 8-11 product code.` `cc 12-13 package code.` `If NDC is not long enough, left justify it and fill end with blanks.`
308	N.I.I.N. (STOCK NO.)	300;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<9)!((X'?9N.A)&(X'?9N." ")) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=10 D RBF^PRCFU` LAST EDITED: `SEP 26, 1989` HELP-PROMPT: `Enter the last 9 Digits of the NSN and the Suffix.` DESCRIPTION: `This is the last nine digits of the National Stock Number and the Suffix.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
309	NOMENCLATURE (21)	300;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>21!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Z0="",$P(Z0," ",22-$L(Y))="",Y=Y_Z0 K Z0` LAST EDITED: `AUG 18, 1987` HELP-PROMPT: `ANSWER MUST BE 1-21 CHARACTERS IN LENGTH` DESCRIPTION: `This is the 21 character nomenclature entry.`
310	NOMENCLATURE (15)	300;14	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Z0="",$P(Z0," ",16-$L(Y))="",Y=Y_Z0 K Z0` LAST EDITED: `DEC 04, 1987` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH` DESCRIPTION: `This is the fifteen character nomenclature entry.`
310.5	NOMENCLATURE (20)	301;32	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=20 D RBF^PRCFU` LAST EDITED: `APR 05, 1989` HELP-PROMPT: `ANSWER MUST BE 1-20 CHARACTERS IN LENGTH` DESCRIPTION: `This is the fifteen character nomenclature entry.`
310.6	SERIAL NO./NOMENCLATURE (GSA)	301;33	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y?1""4N Y=" "_Y S PRCFLN=9 D RBF^PRCFU` LAST EDITED: `APR 18, 1989` HELP-PROMPT: `To locally assign serial no., enter asterisk '' followed by serial no. > 6000. To have computer assign serial no., leave blank or enter nomenclature (up to 9 characters).` DESCRIPTION: `This is the serial number/nomenclature for GSA.`
311	ACTIVITY ADDRESS CODE	300;15	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6N) X I $D(X),'$O(^PRC(411,+$P(^PRCF(423,DA,0),U,2),5,"B",X,0)) K X` OUTPUT TRANSFORM: `I $D(PRCHLOG),Y="" S Y=" "` LAST EDITED: `MAY 02, 1989` HELP-PROMPT: `Enter the 6 digit activity address for DLA.` DESCRIPTION: `This is the Activity Address Code.` EXECUTABLE HELP: `W !,"Select From: ",! F Z=0:0 S Z=$O(^PRC(411,+$P(^PRCF(423,DA,0),U,2),5,Z)) Q:'Z W:$D(^(Z,0)) $P(^(0),U,1),!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
312	ROUTING IDENTIFIER CODE	300;16	POINTER TO DLA/LOG CODES FILE (#441.4)	**********************REQUIRED FIELD********************** DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y="DLA"` LAST EDITED: `MAY 10, 1989` DESCRIPTION: `This is the routing identifier code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""R"""` EXPLANATION: `Enter appropriate DLA Routing Indicator.`
313	DOCUMENT IDENTIFIER CODE	300;17	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3UN) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y="A0A"` LAST EDITED: `APR 28, 1989` HELP-PROMPT: `Enter the 3 character identifier code.` DESCRIPTION: `This is the document identifier code.`
314	FUND CONTROL POINT	300;18	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `AUG 19, 1987` HELP-PROMPT: `Enter the three digit fund control point or 'OGA','CTN', or 'GPF'.` DESCRIPTION: `This is the Fund Control Point.`
315	COST CENTER NO.	300;19	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `FEB 25, 1991` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the cost center number.`
325	BLANK (1)	300;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1" ") X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=" "` LAST EDITED: `AUG 19, 1987` HELP-PROMPT: `Enter one blank space.` DESCRIPTION: `This field is for entry of a blank space.`
326	BLANK (3)	300;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3" ") X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=" "` LAST EDITED: `AUG 19, 1987` HELP-PROMPT: `Enter three blank spaces.` DESCRIPTION: `This field is for entry of three blank spaces.`
327	BLANK (5)	300;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?5" ") X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=" "` LAST EDITED: `AUG 19, 1987` HELP-PROMPT: `Enter five blank spaces.` DESCRIPTION: `This field is for entry of five blank spaces.`
330	DEPARTMENT NUMBER	301;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<2)!'(X?2N.UN) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=3 D RBF^PRCFU` LAST EDITED: `JUN 26, 1989` HELP-PROMPT: `ANSWER MUST BE 2-3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the department number.`
331	DO NOT SUB	301;2	SET	'1' FOR NO SUBSTITUTION; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `AUG 19, 1987` DESCRIPTION: `This is the indicator for whether an item which is not in stock may have a similar item substituted for it.`
332	DO NOT B/O	301;3	SET	'1' FOR NO BACKORDER; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `DEC 18, 1990` DESCRIPTION: `This is the indicator for whether an item which is currently out of stock should be backordered.`
333	DIETETIC PERIOD	301;4	SET	'1' FOR FIRST REPORT (1ST-15TH); '2' FOR SECOND REPORT (16TH-31ST); 'N' FOR NO REPORT-DIETETICS SUPPLIES; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 03, 1989` DESCRIPTION: `This is the set of codes for first, second, or no report for dietetics supplies.`
334	FOOD GROUP	301;5	SET	'1' FOR Meat, Fish, Poultry, Eggs & Convenience Entrees; '2' FOR Milk, Milk Products; '3' FOR Fruits, Vegetables; '4' FOR Bread, Flour, Cereal, etc.; '5' FOR Commercial Nutritional Products, Tube feedings & supplements; '6' FOR Miscellaneous, Foods; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `OCT 24, 1989` HELP-PROMPT: `Needed only for use on creating LOG codesheets for subsistence items only.` DESCRIPTION: `This is the set of codes for food groups.`
335	CONVERSION FACTOR	301;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU` LAST EDITED: `OCT 24, 1989` HELP-PROMPT: `ANSWER MUST BE 1-5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the conversion factor.`
336	COMMODITY CODE	301;7	SET	'1' FOR DRUGS; '2' FOR OTHER MEDICAL; '3' FOR GENERAL; '6' FOR FUEL; '8' FOR SUBSISTENCE; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `DEC 12, 1988` DESCRIPTION: `This is the commodity code.`
337	GROUP SPLIT CIV	301;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Z0="",$P(Z0," ",4-$L(Y))="",Y=Z0_Y K Z0` LAST EDITED: `AUG 19, 1987` HELP-PROMPT: `ANSWER MUST BE 1-3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the three letter CIV code. Items having the same code will be grouped together on the CIV.`
338	CONSUMER LEVEL	301;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1)!'(X?1.4N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S Z0="",$P(Z0,0,5-$L(Y))="",Y=Z0_Y K Z0` LAST EDITED: `APR 26, 1989` HELP-PROMPT: `Enter the established consumer level, one to four digits.` DESCRIPTION: `This is the consumer level, the normal stock level of an item at an inventory point.`
339	CONSUMER LEVEL OVERRIDE	301;10	SET	'1' FOR IGNORE CONSUMER LEVEL; 'A' FOR IGNORE FIS ISSURE MULTIPLE AND CONSUMER LEVEL; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `AUG 19, 1987` DESCRIPTION: `This is the indicator for whether the consumer level for the item can be overriden.`
340	REASON CODE	301;11	SET	**********************REQUIRED FIELD********************** '1' FOR REGULAR; '2' FOR RESUBMISSION OF REJECTS; '3' FOR CALM BYPASS; 'G' FOR ACQUISITIONS DIRECT TO GSA; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 11, 1989` DESCRIPTION: `This is the reason code for the code sheet.` SCREEN: `S DIC("S")="Q:'$D(PRCHTYP) I $S(PRCHTYP=""A"":""G""[Y,1:""123""[Y)"` EXPLANATION: `Screen depends on which type of code sheet is being entered`
341	SOURCE CODE (LOG)	301;12	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!("012345679AC"'[X) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 11, 1989` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH (i.e. 2=Local Procurement)` DESCRIPTION: `This is the LOG source code. (See MP-6, Part XIV, Supp 6.1, Para. 1201.04)` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
342	SOURCE DEVIATION	302;2	POINTER TO DLA/LOG CODES FILE (#441.4)	DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 22, 1989` DESCRIPTION: `This is the source deviation code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""S"""` EXPLANATION: `Enter appropriate source deviation code or leave blank.`
343	COMPLETE INDICATOR	301;14	SET	'P' FOR PARTIAL; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `AUG 19, 1987` DESCRIPTION: `This is the complete indicator.`
344	DOCUMENT IDENTIFIER	301;15	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU` LAST EDITED: `APR 07, 1989` HELP-PROMPT: `Enter the document or common number used to identify this transaction (Requisition No., P.O.No., etc.) (5 CHARACTERS)` DESCRIPTION: `This is the document identifier.`
345	DEPOT (OR RELEASING FACILITY)	301;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `AUG 20, 1987` HELP-PROMPT: `If facility is involved, enter releasing number. Cannot be blank if source code is 1 (DEPOT) or A (Another Facility's long supply) Enter the three digit station number.` DESCRIPTION: `This is the depot or releasing facility.`
346	PAYABLE CODE	301;17	SET	'A' FOR REGULAR POSTED; 'B' FOR IMPREST FUND; 'J' FOR DONATED; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 24, 1989` HELP-PROMPT: `Enter appropriate LOG Payable Code if required for this code sheet.` DESCRIPTION: `This is the payable code.`
347	BACKORDER CONTROL	301;18	SET	'-' FOR ESTABLISH BACKORDER; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `DEC 07, 1987` HELP-PROMPT: `Enter '-' to establish a backorder (source 1).` DESCRIPTION: `This is the backorder control indicator. Enter '-' to establish a backorder.`
348	SUBSTITUTE CONTROL	301;19	SET	'-' FOR NO SUBSTITUTION; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `DEC 07, 1987` HELP-PROMPT: `Enter '-' if substitution is not authorized.` DESCRIPTION: `This indicates whether substitution of a supply item is authorized.`
349	MAXIMUM OVERRIDE	301;20	SET	'1' FOR OVERRIDE THE MAXIMUM ORDER QUANTITY; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `DEC 07, 1987` HELP-PROMPT: `Enter '1' if you want to override the maximum order quantity.` DESCRIPTION: `This permits the requisitioner to override the maximum order quantity for a supply item.`
350	MEDIA & STATUS CODE	300;20	POINTER TO DLA/LOG CODES FILE (#441.4)	**********************REQUIRED FIELD********************** DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""M""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y="S"` LAST EDITED: `MAY 19, 1993` DESCRIPTION: `This is a pointer to the DLA/LOG Codes File, #441.4. It contains the Defense Logistics Agency (DLA) media and status code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""M"""` EXPLANATION: `Enter DLA Media & Status Code`
351	DEPT.DESIGNATION (DEMAND CODE)	301;21	POINTER TO DLA/LOG CODES FILE (#441.4)	DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 02, 1989` DESCRIPTION: `This is a pointer to the DLA/LOG Codes File, #441.4. It contains the Demand Code for Troop Issue or Dietetic Sale.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""D"""` EXPLANATION: `Enter Demand Code for Troop Issue or Dietetic Sale, or leave blank.`
352	SIGNAL CODE	301;22	SET	**********************REQUIRED FIELD********************** 'A' FOR Ship to Requisitioner. Bill to Requisitioner (cc 30-35); OUTPUT TRANSFORM: `I $D(PRCHLOG),Y="" S Y="A"` LAST EDITED: `OCT 26, 1989` HELP-PROMPT: `'A' is the only valid entry for this field.` DESCRIPTION: `This is the code indicating to send the shipment/billing to the requisitioner.`
353	FUND CODE	301;23	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?.UN) X` OUTPUT TRANSFORM: `I $D(PRCHLOG),Y="" S Y=" "` LAST EDITED: `APR 28, 1989` HELP-PROMPT: `Facility Defined for DLA code sheets. ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: `This code is defined by the facility for the Defense Logistics Agency (DLA) code sheets.`
354	DISTRIBUTION CODE (OPTIONAL)	301;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `DEC 07, 1987` HELP-PROMPT: `Facility Defined. ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This code is defined by the facility.`
355	PROJECT CODE	301;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 25, 1989` HELP-PROMPT: `Enter Department Number or leave null. ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the Department Number.`
356	PRIORITY CODE	301;26	POINTER TO DLA/LOG CODES FILE (#441.4)	**********************REQUIRED FIELD********************** DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y=15` LAST EDITED: `MAY 02, 1989` DESCRIPTION: `This is a pointer to the DLA/LOG Codes File, #441.4. It contains the Defense Logistics Agency (DLA) priority code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""P"""` EXPLANATION: `Enter DLA Priority Code`
357	ADVICE CODE	301;27	POINTER TO DLA/LOG CODES FILE (#441.4)	**********************REQUIRED FIELD********************** DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y="2J"` LAST EDITED: `MAY 02, 1989` DESCRIPTION: `This is a pointer to the DLA/LOG Codes File, #441.4. It contains the Defense Logistics Agency (DLA) advice code.` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""A"""` EXPLANATION: `Enter appropriate DLA Advice Code.`
358	DELIVERY DATE	301;28	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `D:Y&'$D(PRCHLOG) DD^%DT I $D(PRCHLOG) S:Y="" Y=" " I Y S X1=Y,X2=$E(Y,1,3)_"0101" D ^%DTC S X=X+1,Y=$E("000"_X,$L(X)+1,6)` LAST EDITED: `FEB 26, 1998`
359	SOURCE DEVIATION/SERIAL NUMBER	300;21	FREE TEXT	INPUT TRANSFORM: `D EN1^PRCHLCS` OUTPUT TRANSFORM: `I $D(PRCHLOG),Y="" S Y=" "` LAST EDITED: `SEP 13, 1989` EXECUTABLE HELP: `D EN2^PRCHLCS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
360	SPECIAL CODE	301;29	SET	**********************REQUIRED FIELD********************** 'Y' FOR MUST ENTER 'Y'; OUTPUT TRANSFORM: `I $D(PRCHLOG),Y="" S Y="Y"` LAST EDITED: `APR 25, 1989` HELP-PROMPT: `A 'Y' MUST be entered in this field!`
361	CANCEL	301;30	SET	'C' FOR CANCEL DUE-IN; 'A' FOR ADJUST DUE-IN; '' FOR GSA FOLLOW-UP; 'X' FOR GSA CANCELLATION; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 17, 1989` DESCRIPTION: `This code indicates whether there should be cancellation or adjustment of due-ins; or GSA cancellation or follow-up.` SCREEN: `S DIC("S")="Q:'$D(PRCHCS(""SC"")) Q:'$D(PRCFA(""TT"")) Q:PRCHCS(""SC"")="""" I $S(PRCFA(""TT"")=700:""C""[Y,PRCHCS(""SC"")=3:""X""[Y,1:""AC""[Y)"` EXPLANATION: `'C' used for cancellation of other than GSA, 'A' to adjust due-in, '' or 'X' used for GSA follow-up or cancellation.`
362	PUSH RELEASE	301;31	FREE TEXT	INPUT TRANSFORM: `S X="PUSH RELEASE"` LAST EDITED: `DEC 16, 1988` HELP-PROMPT: `Must contain the words 'PUSH RELEASE'` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
364	FEDERAL SUPPLY CLASSIFICATION	301;35	POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2)	**********************REQUIRED FIELD********************** FEDERAL SUPPLY CLASSIFICATION(#441.2) OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 02, 1989` DESCRIPTION: `This is a pointer to the Federal Supply Classification (FSC) file, #441.2. It is the FSC of the requisition.`
365	SERIAL NO.(FOLLOW-UP/CANCEL)	301;36	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?1"*"4N) X I $D(X) K:$E(X,2,5)'>5000 X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `For follow-up or cancellation--enter an asterisk, followed by a 4 digit serial number greater than 5000.` DESCRIPTION: `This is an indicator to follow-up or cancel a requisition.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
366	SERIAL NO.(DLA)	301;34	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 25, 1989` HELP-PROMPT: `Enter DLA Serial No., if Facility Assigned. Type a Number between 1000 and 9999, 0 Decimal Digits` DESCRIPTION: `This is the Defense Logistics Agency (DLA) serial number for the requisition that is assigned by the facility .`
367	DOCUMENT IDENTIFIER (DLA)	301;37	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6) X` LAST EDITED: `OCT 25, 1989` HELP-PROMPT: `Enter entire assigned common number, including Fiscal Year (PAT number). Answer must be 6 characters in length.` DESCRIPTION: `This is the assigned common number, including Fiscal Year (i.e., PAT - Pending Accounting Transaction - number).`
368	DEPOT VOUCHER	301;38	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `FEB 12, 1991` HELP-PROMPT: `Enter the depot voucher number from the shipping document. 5 characters, cannot be blank.` DESCRIPTION: `This is the depot voucher (number) found on the shipping document.`
369	REQUISITION NO.	301;39	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` LAST EDITED: `MAY 01, 1989` HELP-PROMPT: `Enter facility requisition number--3 character sequential number followed by Fiscal Year. (5 characters, cannot be blank).` DESCRIPTION: `This is the facility requisition number, a three (3) character sequential number, followed by Fiscal Year (e.g.,12391).`
370	CANCEL/ADJUST/RELEASE	301;40	SET	**********************REQUIRED FIELD********************** 'C' FOR CANCEL ALL TRANSACTIONS; 'R' FOR RELEASE ALL/ADJUST SINGLE ITEM; 'P' FOR RELEASE SINGLE ITEM; LAST EDITED: `MAY 01, 1989` HELP-PROMPT: `For processing entire requisition, use 'C' to cancel, 'R' to release all line/items. For single line/item, use 'R' to adjust item, 'P' to release item.` DESCRIPTION: `This code indicates, for processing requisitions, whether there should be cancellation of all transactions (C); release of all or adjustment of a single item (R); or release of a single item (P).` SCREEN: `S DIC("S")="I $S($D(PRCHTYP):""CR""[Y,1:""CRP""[Y)"` EXPLANATION: `Use C or R for processing entire requisition, R or P for single line/item.`
371	VALUE (OLD)	301;41	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU` LAST EDITED: `MAY 23, 1989` HELP-PROMPT: `Enter value from shipping document. Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is a dollar amount indicating the original value of the shipment.`
372	VALUE (NEW)	301;42	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2),PRCFLN=7 D LZF^PRCFU` LAST EDITED: `MAY 23, 1989` HELP-PROMPT: `Enter new value for change, leave blank for cancellation or for individual release of original value. Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the dollar amount indicating a change from the original value of the shipment.`
373	QUANTITY (OLD)	301;43	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=5 D LZF^PRCFU` LAST EDITED: `MAY 23, 1989` HELP-PROMPT: `Enter quantity from shipping document. Type a Number between 0 and 99999, 0 Decimal Digits` DESCRIPTION: `This is the original quantity specified on the shipping document.`
374	QUANTITY (NEW)	301;44	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=5 D LZF^PRCFU` LAST EDITED: `MAY 23, 1989` HELP-PROMPT: `Enter new quantity for change, leave blank for cancellation or for individual release of original quantity. Type a Number between 0 and 99999, 0 Decimal Digits` DESCRIPTION: `This is the new quantity, a change from the original quantity specified on the shipping document.`
375	NONISSUABLE	301;45	SET	'N' FOR PICK UP INTO NONISSUABLE; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 22, 1989` HELP-PROMPT: `Enter an 'N' to pick up into nonissuable stock, or leave empty for regular.` DESCRIPTION: `This is the code indicating nonissuable stock(N).`
376	ACCOUNT (NONISSUABLE)	301;46	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `MAY 22, 1989` HELP-PROMPT: `Enter 1 character nonissuable account code if previous field set to 'N' (Nonissuable), or leave empty for regular.` DESCRIPTION: `This is the nonissuable account code specified if (N) is placed in the field indicating nonissuable stock.`
377	DOCUMENT NUMBER (LOG)	302;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` LAST EDITED: `MAY 11, 1989` HELP-PROMPT: `For Posted Receipts--Enter Requisition No. for Source 1 (DEPOT), Common Number otherwise. ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the requisition number for Source 1 (Depot), under Posted Receipts. Otherwise, it is the common number.`
378	DOCUMENT IDENTIFIER (DRUGS)	302;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU` LAST EDITED: `JUN 08, 1989` HELP-PROMPT: `Enter DEPOT drug requisition number. If blank, cc 40-44 (DOCUMENT IDENTIFIER) will be used. ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the Depot drug requisition number.`
379	DOCUMENT ID (SUBSISTENCE)	302;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU` LAST EDITED: `JUN 08, 1989` HELP-PROMPT: `Enter DEPOT subsistence requisition number. If blank, cc 40-44 (DOCUMENT IDENTIFIER) will be used. ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the Depot drug subsistence number.`
380	COMMON NUMBER (DRUGS)	302;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU` LAST EDITED: `JUN 08, 1989` HELP-PROMPT: `Enter common number for DEPOT drugs, or leave blank. If coded, cc 47-51 (DOCUMENT ID (DRUGS)) MUST be coded. ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the common number for Depot drugs.`
381	COMMON NUMBER (SUBSISTENCE)	302;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU` LAST EDITED: `JUN 08, 1989` HELP-PROMPT: `Enter common number for DEPOT subsistence, or leave blank. If coded, cc 54-58 (DOCUMENT ID (SUBSISTENCE)) MUST be coded. ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the common number for Depot subsistence.`
382	COMMON NUMBER (DEPOT REGULAR)	302;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU` LAST EDITED: `JUN 08, 1989` HELP-PROMPT: `Enter common number for DEPOT regular, or leave blank. If coded, CC 40-44 (DOCUMENT IDENTIFIER) must be coded. ANSWER MUST BE 5 CHARACTERS IN LENGTH` DESCRIPTION: `This is the common number for Depot regular posted stock.`
383	EMERGENCY SOURCE 2 PROCUREMENT	302;8	SET	'' FOR YES; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `JAN 18, 1990` HELP-PROMPT: `If this code sheet is for Emergency Procurement from Source 2, for either Drugs (commodity code 1) or Other Medical (commodity code 2), enter an asterisk ().` DESCRIPTION: `This an emergency procurement for drugs (commodity code 1) or other medical stock (commodity code 2).`
384	AMENDMENT NUMBER	302;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=$E("000",$L(Y)+1,3)_Y` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Type a Number between 0 and 999, 0 Decimal Digits` DESCRIPTION: `Purchase Order Amendment number`
385	PURCHASE ORDER DATE	302;10	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y="" Y=" " S:Y Y=$E(Y,4,7)_$E(Y,2,3)` LAST EDITED: `FEB 15, 1990` DESCRIPTION: `This is the date the purchase order was issued.` `SOURCE OF DATA: Purchase order file #442`
386	PURCHASE AUTHORIZATION NUMBER	303;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
387	DELIVERY POINT	303;2	SET	**********************REQUIRED FIELD********************** '793' FOR HINES; '794' FOR SOMMERVILLE; '79A' FOR BELL; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Enter the number of the Depot where delivery is to be made.` DESCRIPTION: `This is the number of the Depot where delivery is to be made.`
388	UNIT COST (LOG)	303;3	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits` DESCRIPTION: `This is the dollar amount of the unit.` `SOURCE OF DATA: Purchase Order file (442)`
389	REASON CODE (LOG)	303;4	SET	**********************REQUIRED FIELD********************** 'R' FOR REGULAR; 'T' FOR TEST; 'C' FOR CORRECTION; ' ' FOR BLANK; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `FEB 28, 1990` HELP-PROMPT: `Leave blank to establish a PO Due-in. Enter R to delete a regular Due-in or T to delete a Held for Test Due-in. Enter C to change quantity, unit cost, or scheduled delivery date on a PO Due-in.` DESCRIPTION: `This is a code indicating whether to establish a Purchase Order (PO) due-in; delete a regular due-in or delete a Held for Test due-in; or change quantity, unit cost, or schedule the delivery on a PO Due-in.`
390	CORRECTED QUANTITY	303;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y=0 Y=" " I Y S PRCFLN=5 D LZF^PRCFU` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits` DESCRIPTION: `This is a correction to the quantity specified on the requisition.`
391	CORRECTED UNIT COST	303;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y=0 Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2),PRCFLN=5 D LZF^PRCFU` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999, 2 Decimal Digits` DESCRIPTION: `This is a correction to the unit cost on the requisition.`
392	CORRECTED DELIVERY DATE	303;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y="" Y="00000" S:Y Y=$E("1234567890JK",+$E(Y,4,5))_$E(Y,6,7)_$E(Y,2,3)` LAST EDITED: `FEB 15, 1990` DESCRIPTION: `This is a correction to the delivery date specified on the requisition.`
393	LOG DATE	304;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y]"" Y=$E("1234567890JK",+$E(Y,4,5))_$E(Y,6,7) S:Y="" Y=" "` LAST EDITED: `MAR 06, 1990` HELP-PROMPT: `Enter the date that the receipt was processed or accepted.` DESCRIPTION: `Date for LOG transactions on which the receipt was processed or accepted`
394	EXPIRATION/DATE OF PACK	304;2	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(PRCHDEP) D EXP^PRCHREC7` OUTPUT TRANSFORM: `X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y]"" Y=$E(Y,3)_$E("1234567890JK",+$E(Y,4,5)) S:Y="" Y=" "` LAST EDITED: `AUG 15, 1990` HELP-PROMPT: `Food must have Date of Pack, drugs must have Expiration Date.` DESCRIPTION: `This is mandatory information on the stock, including the date of the pack, or the expiration date of the drug.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
395	COMPLETION CODE (LOG)	304;3	SET	**********************REQUIRED FIELD********************** '1' FOR COMPLETE; '2' FOR COMP IN 2 LINES; '3' FOR COMP IN 3 LINES; '4' FOR COMP IN 4 LINES; '5' FOR COMP IN 5 LINES; '6' FOR COMP IN 6 LINES; '7' FOR COMP IN 7 LINES; '8' FOR COMP IN 8 LINES; '9' FOR COMP IN 9 LINES; '0' FOR PARTIAL; '-' FOR NO DUE-IN EST.; 'T' FOR TEST; LAST EDITED: `APR 06, 1990` HELP-PROMPT: `Enter "0" for a partial; "1, 2, 3, through 9" for a complete receipt, (This indicates the number of trans. submitted for this item). The same number must appear on all input for this receipt` DESCRIPTION: `This is a code indicating the number of transactions submitted for the item, including 0 for a partial receipt or 1 through 9 for a complete receipt; (-) for No Due-In Est.(estimate); or T for Test.`
396	CONDITION CODE (LOG)	304;4	SET	**********************REQUIRED FIELD********************** '1' FOR ISSUABLE; LAST EDITED: `FEB 08, 1990` DESCRIPTION: `This is the code indicating whether the stock is ready for issue.`
397	PRIORITY CODE (LOG)	304;5	SET	**********************REQUIRED FIELD********************** 'N' FOR NORMAL; 'P' FOR PRIORITY; 'B' FOR BROKEN; 'L' FOR LOOSE; LAST EDITED: `FEB 08, 1990` HELP-PROMPT: `Enter "N" for normal stock, "P" for priority issue, "L" for loose issue or intermediate packs, or "B" for a broken pack on a mandatory issue package. (IP or OP)` DESCRIPTION: `This a code indicating the condition of the stock, including N for normal stock; P for priority issue; L for loose issue; or B for broken pack on a mandatory issue package.`
398	WEIGHT	304;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=$E("0000",$L(Y)+1,4)_Y` LAST EDITED: `FEB 14, 1990` HELP-PROMPT: `Enter the weight of the original pack for broken or whole O/P's. Enter zero for loose issue or broken I/P's.` DESCRIPTION: `This is the weight (of the original pack ) used to represent the broken or whole original pack. Loose issue or broken intermediate packs require an entry of zero (0).`
399	CUBE	304;7	NUMBER	INPUT TRANSFORM: `K:X'?3N X S:$D(X) X=X/10` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=Y+.05*100\10,Y=$E("000",$L(Y)+1,3)_Y` LAST EDITED: `JUL 25, 1990` HELP-PROMPT: `Enter to the nearest tenth, the cubic feet of the original pack. Do not include decimal point. i.e. 1.4 = 014` DESCRIPTION: `This is the measurement (in cubic ft.) of the original pack.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
400	FCC SUFFIX	304;8	SET	' ' FOR DEFAULT; OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=$E(" ",$L(Y)+1,2)_Y` LAST EDITED: `FEB 14, 1990`
401	LOCATION	304;9	FREE TEXT	INPUT TRANSFORM: `K:'(X?1.2N1U3N!(X?1"R "4N)) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=$E("000000",$L(Y)+1,6)_Y` LAST EDITED: `JUL 25, 1990` HELP-PROMPT: `Enter storage location of item received (Area, Bay, Row). i.e. 22A333 Enter R nnnn for bulk locations. i.e. R 1234` DESCRIPTION: `This is the identification for the storage location (area, bay, or row)` `of the item received (e.g., 22A333 - non-bulk location; R 1234 - bulk location).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
402	UNITS IN O/P	304;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S Y=$E("0000",$L(Y)+1,4)_Y` LAST EDITED: `FEB 14, 1990` HELP-PROMPT: `Enter the number of units in the original pack. For loose issue, enter 1. For broken O/P's or I/P's this field must be the same as the quantity field.` DESCRIPTION: `This is the number of units in the original pack. Loose issue requires an entry of 1; broken O/Ps or I/Ps (original packs or intermediate packs) require an entry corresponding with that of the Quantity field.`
403	TRANSPORTATION COSTS	304;11	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999.99)!(X<0) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=5 D LZF^PRCFU K Z` LAST EDITED: `FEB 14, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits Enter the transportation cost for this line item, if FOB origin.` DESCRIPTION: `This is the transportation cost for the line item (if origin is FOB).`
404	VALUE (LOG)	304;12	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y'=" " S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=8 D LZF^PRCFU` LAST EDITED: `FEB 14, 1990` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits`
405	QUANTITY (401)	304;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=6 D LZF^PRCFU` LAST EDITED: `FEB 15, 1990` HELP-PROMPT: `Type a Number between 1 and 999999, 0 Decimal Digits`
406	DUE-IN (401)	304;14	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y="" Y=" " S:Y Y=$E(Y,4,7)_$E(Y,2,3)` LAST EDITED: `FEB 15, 1990`
407	DEPOT (HINES)	304;15	SET	**********************REQUIRED FIELD********************** '793' FOR HINES; '794' FOR SOMMERVILLE; '79A' FOR BELL; LAST EDITED: `FEB 23, 1990` HELP-PROMPT: `Enter the Depot if this is for Bell or Sommerville.` DESCRIPTION: `This is the code indicating the Depot (i.e., Hines = 793; Sommerville = 794; and Bell = 79A).`
408	DEPOT CODE	304;16	SET	**********************REQUIRED FIELD********************** '7M1' FOR MEDICAL SUPPLIES; '7M4' FOR SUBSISTENCE; '7M5' FOR DRUGS; LAST EDITED: `MAR 12, 1990` HELP-PROMPT: `Enter 7M1, 7M4 or 7M5 to indicate MEDICAL SUPPLIES, SUBSISTENCE OR DRUGS resp.` DESCRIPTION: `This is the depot code representing medical supplies, subsistence, or drugs (i.e., 7M1, 7M4 , or 7M5, respectively).`
409	CONTAINER TYPE	304;17	SET	**********************REQUIRED FIELD********************** 'CT' FOR CARTON; 'SA' FOR SACK; 'XX' FOR OTHER; LAST EDITED: `JUL 30, 1990` HELP-PROMPT: `Enter Carton, Sack or Other for the type of container received.` DESCRIPTION: `This is the type of container received (i.e., CT = Carton; SA = Sack; and XX = other).`
410	SUFFIX (664)	200;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 26, 1991` HELP-PROMPT: `Enter department suffix when separate issue book is desired for selected items within a department.`
411	TYPE TRANS (664)	200;2	SET	**********************REQUIRED FIELD********************** 'A' FOR ESTABLISH NEW DEPARTMENT; 'C' FOR CHANGE; 'D' FOR DELETE; 'A' FOR ADD; 'L' FOR LABELS; 'M' FOR REPORT 039; 'P' FOR ISSUE BOOKS AND WORKDECKS; 'X' FOR EXPANDED NOMENCLATURE CATALOG; LAST EDITED: `APR 09, 1991` HELP-PROMPT: `ENTER IDENTIFIER FOR THIS TRANSACTION TYPE.`
412	LEVEL (664)	200;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'((X?.N)!(X="***")) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 26, 1991` HELP-PROMPT: `Enter assigned consumer level or *** to delete.`
413	SEQUENCE (664)	200;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>4!($L(X)<4)!'((X?.N)!(X="STKN")!(X="INDX")) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 26, 1991` HELP-PROMPT: `Enter specific number if desired or leave blank for alpha sequence. Enter STKN for stock number sequence or INDX to remove previous designation.`
414	FREQUENCY (664)	200;5	SET	'M' FOR MONTHLY; 'Q' FOR QUARTERLY; '0' FOR DEFAULT; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 09, 1991` HELP-PROMPT: `Enter M to change to monthly print, Q if desired quarterly or 0 change to same 6 month schedule as facility header.`
415	COPIES (664)	200;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=3 D LZF^PRCFU` LAST EDITED: `APR 09, 1991` HELP-PROMPT: `Enter new number of copies or leave blank.`
416	DECKS (664)	200;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=2 D LZF^PRCFU` LAST EDITED: `APR 11, 1991` HELP-PROMPT: `Enter new number of decks, or leave blank.`
417	SUPPL ID (664)	200;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=20 D RBF^PRCFU` LAST EDITED: `APR 09, 1991` HELP-PROMPT: `Enter new identification to change, enter a minus (-) to delete.`
418	COST CENTER (664)	200;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<100000)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 11, 1991` HELP-PROMPT: `Type a Number between 100000 and 999999, 0 Decimal Digits`
419	CONTROL POINT (664)	200;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'((X="OGA")!(X="CTN")!(X>16)) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 26, 1991` HELP-PROMPT: `Answer must be from 017 to 999 or OGA or CTN.`
420	DEPT NO. (664)	200;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'((X>-1)!(X="OGA")!(X="CTN")) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 26, 1991` HELP-PROMPT: `Enter the department number as 3 digits (i.e. 003, 017, etc.) or OGA or CTN.`
421	NON ADJ REASON CODE	201;1	SET	**********************REQUIRED FIELD********************** 'A' FOR ISSUABLE TO NONISSUABLE; 'B' FOR NONISSUABLE TO ISSUABLE; 'C' FOR + OR - NONISSUABLE; 'D' FOR RECALL ISSUABLE TO NON; 'E' FOR RELEASE NON TO ISSUABLE; 'F' FOR RECALL, RETURNS, CREDITS; 'G' FOR INVENTORY; 'H' FOR DAMAGE; 'I' FOR ERROR; 'J' FOR SURVEY; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 16, 1991`
422	GL ACCOUNT CODE	201;2	POINTER TO DLA/LOG CODES FILE (#441.4)	DLA/LOG CODES(#441.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` OUTPUT TRANSFORM: `S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 16, 1991` SCREEN: `S DIC("S")="I $P(^(0),U,2)=""C"""` EXPLANATION: `Enter applicable account code. (See MP-6 Part 14 Supp-6.1 Par. 1201.03)`
423	+ OR -	201;3	SET	'+' FOR PLUS; '-' FOR MINUS; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 16, 1991` HELP-PROMPT: `Enter "+" (Plus Sign) to increase or "-" (Minus Sign) to decrease.`
424	QUANTITY (605)	201;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y]" " S PRCFLN=5 D LZF^PRCFU` LAST EDITED: `JUN 19, 1991` HELP-PROMPT: `Type a Number between 0 and 99999, 0 Decimal Digits`
425	VALUE (605)	201;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y]" " S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU` LAST EDITED: `JUN 19, 1991` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits`
426	QUAN/VAL ADJ REASON CODE	201;6	SET	**********************REQUIRED FIELD********************** 'A' FOR WAREHOUSE INVENTORY; 'B' FOR REPORT OF SURVEY; 'C' FOR DAMAGE; 'E' FOR ERRONEOUS INPUT; 'F' FOR RECALLS, RETURNS AND CREDITS; OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 16, 1991` HELP-PROMPT: `Enter the Reason Code for the Quantity and/or Value Adjustment.`
427	CHANGE ADJ REASON CODE	201;7	SET	**********************REQUIRED FIELD********************** 'A' FOR CHANGE OF ISSUE; 'C' FOR CHANGE OF ISSUE TO NONISSUABLE; 'D' FOR CHANGE OF ISSUE-DROP; 'E' FOR CHANGE OF ISSUE-DIETETIC ONLY; LAST EDITED: `APR 24, 1991` HELP-PROMPT: `Enter the reason code for the change adjustment.`
428	COMMON NUMBER (607D)	201;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU` LAST EDITED: `APR 19, 1991` HELP-PROMPT: `Enter the common number the quantity is to be dropped on.`
429	SELLING COST	201;9	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"."3N.N) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" " I Y]"" S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU` LAST EDITED: `JUN 19, 1991` HELP-PROMPT: `Type a Number between 0 and 99999.99, 2 Decimal Digits`
430	ORIGINAL TRANS CODE	201;10	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` OUTPUT TRANSFORM: `I $D(PRCHLOG) S:Y="" Y=" "` LAST EDITED: `APR 19, 1991` HELP-PROMPT: `Enter the transaction code of the original issue.`
500	ISMS IDENTIFIER	50;1	SET	**********************REQUIRED FIELD********************** 'ISM' FOR ISMS; 'PSM' FOR PRISM; LAST EDITED: `JAN 24, 1992`
501	ISMS TRANS DATE	50;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S Z0=$E(Y,1,3),X=Y D JD^PRCFDLN S Y=Z0+1700_$E(Y,1,3) K Z0` LAST EDITED: `SEP 04, 1991`
502	ISMS TRANS TIME	50;3	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S Y=$E(Y#1+.0000001,2,7)` LAST EDITED: `SEP 11, 1991`
503	ISMS REFERENCE NO.	50;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>11!($L(X)<3) X` LAST EDITED: `AUG 30, 1991` HELP-PROMPT: `Answer must be 3-11 characters in length.`
503.1	ISMS SEQUENCE NUMBER	50;17	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 22, 1991` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
503.2	ISMS TOTAL SEQUENCE	50;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 22, 1991` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
504	ISMS TRANS INT VER	50;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 30, 1991` HELP-PROMPT: `Type a Number between 1 and 1, 0 Decimal Digits`
505	NATIONAL STOCK NUMBER	50;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>16!($L(X)<16)!'(X?4N1"-"2N1"-"3N1"-"4N) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S Y=$TR(Y,"-")` LAST EDITED: `SEP 06, 1991` HELP-PROMPT: `Answer must be 16 characters in length.i.e. 6505-01-001-0001`
506	ISMS SEGMENT TYPE	50;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `AUG 31, 1991` HELP-PROMPT: `Answer must be 3 characters in length.`
507	ISMS TRANS TERMINATOR	50;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `SEP 03, 1991` HELP-PROMPT: `Answer must be 2 characters in length.`
515.85	ISMS VENDOR STATE	56;22	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `DEC 10, 1991` HELP-PROMPT: `Answer must be 2 characters in length.`
516	SEGMENT 6 TYPE	50;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `AUG 31, 1991` HELP-PROMPT: `Answer must be 3 characters in length.`
520	LINE COUNT	50;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 01, 1991` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits`
521	L/C REFERENCE NO.	50;15	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>11!($L(X)<3) X` LAST EDITED: `SEP 01, 1991` HELP-PROMPT: `Answer must be 3-11 characters in length.`
530	ISMS LINE ITEM	52;0	Multiple #423.19	423.19 LAST EDITED: `NOV 25, 1991`
550	NX ITEMS	57;0	Multiple #423.2	423.2
581	ISMS COST CENTER	56;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<100000)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 10, 1991` HELP-PROMPT: `Type a Number between 100000 and 999999, 0 Decimal Digits`
582	ISMS FCP #	56;6	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<10)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 10, 1991` HELP-PROMPT: `Type a Number between 10 and 9999, 0 Decimal Digits`
997	APPROVED BY	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `APR 10, 1985` HELP-PROMPT: `ANSWER MUST BE 1-15 CHARACTERS IN LENGTH` DESCRIPTION: `This is the person appropriation.`
998	AUTOMATIC TERMINATOR	1;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `APR 09, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This is the automatic terminator for this code sheet.`
999	COMPLETED BY	0;8	POINTER TO NEW PERSON FILE (#200)	**********************REQUIRED FIELD********************** NEW PERSON(#200) LAST EDITED: `JAN 27, 1993` DESCRIPTION: `This is the person completing the code sheet.`
999.1	COMPLETED BY INITIALS		COMPUTED	MUMPS CODE: `X ^DD(423,999.1,9.2) S Y(423,999.1,101)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(423,999.1,101),U,2) S D0=Y(423,999.1,80)` `9.2 = S Y(423,999.1,80)=$S($D(D0):D0,1:""),Y(423,999.1,1)=$S($D(^PRCF(423,D0,0)):^(0),1:""),D0=$P(Y(423,999.1,1),U,8) S:'$D(^VA(200,+D0,0)) D0=-1` ALGORITHM: `COMPLETED BY:INITIAL` LAST EDITED: `APR 20, 1987` DESCRIPTION: `These are the initials of the person who completes the code sheet.`
999.2	USER LOGGED IN	TRANS;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 21, 1992` DESCRIPTION: `This is the user who is logged in at the time the code sheet is created.` `WRITE AUTHORITY: ^`
999.3	VALIDATION CODE	8;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` OUTPUT TRANSFORM: `S Y(0)=Y S Y="/ES/"_$$DECODE^PRCFES1(D0)` LAST EDITED: `JAN 27, 1993` HELP-PROMPT: `ANSWER MUST BE 2-30 CHARACTERS IN LENGTH` DESCRIPTION: `This is the electronic signature of the person releasing the code sheet. ---------THIS FIELD USED TO BE CALLED ELECTRONIC SIGNATURE-------` `DELETE AUTHORITY: ^` `WRITE AUTHORITY: ^` `UNEDITABLE`
999.5	VALIDATION VERSION	8.1;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<0)!(X?.E1"."6N.N) X` OUTPUT TRANSFORM: `S Y="" Q` LAST EDITED: `JAN 25, 1993` HELP-PROMPT: `Type a Number between 0 and 99999, 5 Decimal Digits` DESCRIPTION: `THIS IS THE VALIDATION VERSION OF A RECORD WITH A VALIDATION CODE ON IT.` TECHNICAL DESCR: `THIS IS THE VALIDATION VERSION OF A RECORD WITH A VALIDATION CODE ON IT.`
999.7	VALIDATION DATE/TIME	8.1;2	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 27, 1993` DESCRIPTION: `THIS IS THE TIME THE VALIDATION CODE WAS ENTERED ON THE RECORD.` TECHNICAL DESCR: `THIS IS THE TIME THE VALIDATION CODE WAS ENTERED ON THE RECORD.`
999.8	ESIG CODE	8.1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 10, 1993` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `Encoded value used by IFCAP security utilities when confirming the integrity of this record.`
1000	PAYMENT TYPE	21;1	SET	**********************REQUIRED FIELD********************** '0' FOR CHECK REPLENISHMENT; '1' FOR CTP DIRECT DEPOSIT REPLENISHMENT; '2' FOR CCD+ DIRECT DEPOSIT REPLENISHMENT; LAST EDITED: `JUN 07, 1991` DESCRIPTION: `This is a code indicating the type of payment forms to be replenished (i.e., check or direct deposit).`
1001	ACCOUNT TYPE	21;2	SET	**********************REQUIRED FIELD********************** 'C' FOR CHECKING; 'S' FOR SAVINGS; LAST EDITED: `JUL 11, 1990` DESCRIPTION: `This is a code indicating the type of account (i.e.,checking or saving).`
1002	DEPOSITOR ACCOUNT NO.	21;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>17!($L(X)<3) X` LAST EDITED: `JUL 11, 1990` HELP-PROMPT: `Answer must be 3-17 characters in length.` DESCRIPTION: `This is the depositor account number.`
1003	ROUTING NO.	21;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<8)!'(X?8N) X` LAST EDITED: `JUL 11, 1990` HELP-PROMPT: `Enter first 8 digits of bank routing number.` DESCRIPTION: `This is the first eight (8) digits of the bank routing number.`
1004	CHECK DIGIT	21;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1N) X` LAST EDITED: `JUL 11, 1990` HELP-PROMPT: `Enter 9th digit of bank routing number.` DESCRIPTION: `This is the ninth (9) digit of the bank routing number.`
1005.01	AGENCY CODE	1005;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X="04") X` LAST EDITED: `SEP 26, 1990` HELP-PROMPT: `Answer must be 04.` DESCRIPTION: `This is the agency code to be entered as 04.`
1005.02	SUBAGENCY CODE	1005;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X=81) X` LAST EDITED: `SEP 26, 1990` HELP-PROMPT: `Answer must be 81.` DESCRIPTION: `This is the subagency code to be entered as 81.`
1005.03	NAME CONTROL	1005;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>4!($L(X)<1) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y=Y_$E(" ",1,4-$L(Y))` LAST EDITED: `SEP 28, 1990` HELP-PROMPT: `Answer must be 1-4 characters in length.`
1005.04	SSN	1005;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9)!'(X?9N) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y=0_Y` LAST EDITED: `SEP 28, 1990` HELP-PROMPT: `Answer must be 9 numerics in length.` DESCRIPTION: `This is the Social Security Number.`
1005.05	TYPE INDICATOR	1005;5	SET	**********************REQUIRED FIELD********************** '0' FOR DECREASE OR DELETION IN AMOUNT; LAST EDITED: `SEP 26, 1990`
1005.06	FILLER-14	1005;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X=" ") X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y="",$P(Y," ",15)=""` LAST EDITED: `SEP 29, 1994` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This field places 14 blanks on a code sheet.`
1005.07	FILLER-2	1005;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X=" ") X` LAST EDITED: `SEP 26, 1990` HELP-PROMPT: `Answer must be 2 blanks.` DESCRIPTION: `This field is reserved for Filler.`
1005.08	YEAR OF ORIGINAL OFFSET	1005;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X="00") X` LAST EDITED: `SEP 26, 1990` HELP-PROMPT: `Answer must be 00.` DESCRIPTION: `This field that is reserved for the original offset year must contain two (2) zeros.`
1005.09	DMF PROGRAM YEAR	1005;9	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X) S X=$E(DT,2,3)` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S Y=$S($D(PRC("FY")):PRC("FY"),1:$E(DT,2,3))` LAST EDITED: `OCT 02, 1990` HELP-PROMPT: `Answer must be 2 numerics in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1005.11	SUBAGENCY PRIORITY CODE	1005;11	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X=0) X` LAST EDITED: `SEP 26, 1990` HELP-PROMPT: `Answer must be a zero.` DESCRIPTION: `This is the subagency priority code to be entered as zero (0).`
1005.12	LAST NAME	1005;12	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y=Y_$E(" ",1,20-$L(Y))` LAST EDITED: `SEP 28, 1990` HELP-PROMPT: `Answer must be 1-20 characters in length.` DESCRIPTION: `This is the individual's last name.`
1005.13	FIRST NAME	1005;13	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y=Y_$E(" ",1,15-$L(Y))` LAST EDITED: `SEP 28, 1990` HELP-PROMPT: `Answer must be 1-15 characters in length.` DESCRIPTION: `This is the individual's first name.`
1005.14	AMOUNT (IRS)	1005;14	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<0) X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y=$P(Y,".")_$P(Y,".",2)_$E("00",1,2-$L($P(Y,".",2))),Y=$E("000000000000",1,12-$L(Y))_Y` LAST EDITED: `NOV 24, 1992` HELP-PROMPT: `Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits` DESCRIPTION: `This is the dollar amount required by the Internal Revenue Service.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1005.15	AGENCY INFORMATION	1005;15	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2)!'(X=" ") X` LAST EDITED: `SEP 26, 1990` HELP-PROMPT: `Answer must be 2 blanks.` DESCRIPTION: `This field that is reserved for agency information must contain two (2) blanks.`
1005.16	LOCAL CODE	1005;16	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X="000") X` LAST EDITED: `SEP 26, 1990` HELP-PROMPT: `Answer must be 3 zeros.` DESCRIPTION: `This field that is reserved for the local code must contain three (3) zeros.`
1005.17	VA IDENT NO.	1005;17	POINTER *** TO AN UNDEFINED FILE (#412), STORED IN ^PRC(412) *****	**********************REQUIRED FIELD********************** OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y=$E("000000000",1,9-$L(Y))_Y` LAST EDITED: `OCT 29, 1990` DESCRIPTION: `This is a pointer to the AR (Accounts Receivable) Debtor File, #412.`
1005.18	DELINQUENT DATE	1005;18	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` OUTPUT TRANSFORM: `X:'$D(PRCF("OUT")) ^DD("DD") S:$D(PRCF("OUT")) Y=$E(Y,2,7)` LAST EDITED: `OCT 09, 1990` DESCRIPTION: `This is the date that payment is overdue.`
1005.19	JUDGEMENT DEBT INDICATOR	1005;19	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X=" ") X` LAST EDITED: `SEP 26, 1990` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This indicates whether a judgement on the debt has been made.`
1005.2	MASTER FILE CODE	1005;20	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 20, 1994` HELP-PROMPT: `Type a Number between 1 and 1, 0 Decimal Digits` DESCRIPTION: `This will contain a '1' and is used on both the Master and Update codesheets.`
1005.21	FILLER-54	1005;21	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>54!($L(X)<54) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S PRCFLN=54 D RBF^PRCFU` LAST EDITED: `OCT 02, 1990` HELP-PROMPT: `Answer must be 54 characters in length.` DESCRIPTION: `This field is reserved for fifty-four (54) characters of filler.`
1005.22	FILLER-12	1005;22	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X=" ") X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y="",$P(Y," ",13)=""` LAST EDITED: `OCT 30, 1990` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This field is reserved for twelve (12) characters of filler.`
1006.01	FILLER-52	1006;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>52!($L(X)<52) X` OUTPUT TRANSFORM: `I $D(PRCF("OUT")) S PRCFLN=52 D RBF^PRCFU` LAST EDITED: `MAY 20, 1992` HELP-PROMPT: `Answer must be 52 characters in length.` DESCRIPTION: `This field is used to place 52 blanks on a code sheet. Used for the IRS Offset Master Record.`
1006.02	FILLER-15	1006;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X=" ") X` OUTPUT TRANSFORM: `Q:'$D(PRCF("OUT")) S Y="",$P(Y," ",16)=""` LAST EDITED: `MAY 20, 1992` HELP-PROMPT: `Answer must be 1 character in length.` DESCRIPTION: `This field is used to place 12 blanks on a code sheet. Used for the IRS Offset Weekly Update.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #804	Accounts Receivable
ICR #7159	ENTERPRISE REPORTING TOOL	ID# (.01). Access: Direct Global Read & w/Fileman

Customize PDF page

Package: IFCAP

Global: ^PRCF(423

Information

Description

Accessed By FileMan Db Calls, Total: 26

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 9

Fields, Total: 360

ICR, Total: 2