STANDARD DATA DICTIONARY #423 -- CALM/LOG CODE SHEET FILE 6/27/25 PAGE 1
STORED IN ^PRCF(423, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.1)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the completed CALM/LOG Code Sheets.
IDENTIFIED BY: BATCH NUMBER (#.7)
"Z3": W:$D(^(0)) " ",$P(^(0),U,4)
"Z4": W:$D(^(0)) " ",$P(^(0),U,5)
"Z5": W:$D(^(0)) " ",$P(^(0),U,6)
POINTED TO BY: RECEIVING CODE SHEET NO. field (#11) of the ITEM sub-field (#410.02) of the CONTROL POINT ACTIVITY File (#410)
ACQUISITIONS CODE SHEET NO. field (#37) of the ITEM sub-field (#442.01) of the PROCUREMENT & ACCOUNTING TRANSACTIONS
File (#442)
RECEIVING CODE SHEET NO. field (#5) of the DATE RECEIVED sub-field (#442.08) of the ITEM sub-field (#442.01) of the
PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442)
RECV.CODE SHEET NO.(DEPOT) field (#19.6) of the PARTIAL sub-field (#442.11) of the PROCUREMENT & ACCOUNTING
TRANSACTIONS File (#442)
ACQUISITIONS CODE SHEET NO. field (#37) of the ITEM sub-field (#443.61) of the AMENDMENTS File (#443.6)
RECEIVING CODE SHEET NO. field (#5) of the DATE RECEIVED sub-field (#443.64) of the ITEM sub-field (#443.61) of the
AMENDMENTS File (#443.6)
CROSS
REFERENCED BY: BATCHED?(AC), BATCH NUMBER(AD), BATCH PRIORITY(AE), ID(AF), ID(AG), TRANSMISSION DATE(AH), PAT NUMBER(AI),
BATCH LIST KEY(AJ), TRANSMIT LIST KEY(AK), ERROR IN BATCHING KEY(AL), REPRINT LIST KEY(AM), LOG BATCH NO.(AN),
ON BUDGET LIST(AO), BACKGROUND BATCH(AP), ID(AQ), ID(B), REFERENCE NUMBER(C)
423,.01 ID 0;1 FREE TEXT (Required)
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.
423,.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.
423,.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.
423,.2 CODE CODE;0 Multiple #423.06 (Add New Entry without Asking)
DESCRIPTION:
This is the CALM code.
423.06,.01 CODE 0;E1,245 FREE TEXT
INPUT TRANSFORM: K:$L(X)>245!($L(X)<1) X
LAST EDITED: FEB 28, 1992
HELP-PROMPT: Answer must be 1-245 characters in length.
DESCRIPTION:
This is the CALM code sheet.
423,.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.
423,.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.
423,.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.
423,.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
423,.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.
423,.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.
423,.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.
423,.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.
423,.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.
423,.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.
423,.6 BATCH TYPE TRANS;4 POINTER TO CALM/LOG BATCH TYPE FILE (#423.9) (Required)
LAST EDITED: AUG 04, 1986
DESCRIPTION:
This is the batch type for this transmission.
423,.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.
423,.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.
423,.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.
423,.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.
423,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.
423,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.
423,3 TRANSACTION TYPE 0;4 FREE TEXT (Required)
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
423,4 TRANSACTION DATE 0;5 FREE TEXT (Required)
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
423,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
423,5 REFERENCE NUMBER 0;6 FREE TEXT (Required)
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.
423,5.1 PAT NUMBER 1;29 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#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).
423,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.
423,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
423,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
423,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.
423,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
423,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)="QE
M" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423,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.
423,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.
423,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
423,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.
423,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 D
IC,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
423,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.
423,17 LIQUIDATION CODE 1;12 SET
'C' FOR C;
'P' FOR P;
'F' FOR F;
'$' FOR $;
DESCRIPTION:
This is the liquidation code.
423,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.
423,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.
423,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.
423,21 SUB ACCOUNT/PAYROLL ANALYSIS 2;0 Multiple #423.01 (Add New Entry without Asking)
DESCRIPTION:
This is the subaccount payroll analysis.
423.01,.01 SUB ACCOUNT/PAYROLL ANALYSIS 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: I X'="$" K:X<1000&(X>4300)&(X'?4N) X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: Enter valid 4 number sub-account or payroll analysis account number
DESCRIPTION:
This is the valid 4 number subaccount or payroll analysis account number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.01,1 AMOUNT 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 10, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the amount of the transaction.
423.01,2 LIQUIDATION AMOUNT 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: APR 10, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999999
DESCRIPTION:
This is the liquidation amount.
423,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.
423,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.
423,24 LINE NUMBER (1-38) 3;0 Multiple #423.02 (Add New Entry without Asking)
LAST EDITED: DEC 16, 1992
DESCRIPTION:
This is the line number of the transaction.
423.02,.01 LINE NUMBER (1-38) 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>38)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 38
DESCRIPTION:
This is the line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.02,1 PAT NUMBER 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?6AN) X
LAST EDITED: APR 11, 1985
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the PAT transaction number.
423.02,2 YALD 0;3 FREE TEXT
INPUT TRANSFORM: Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!($L(X)<3) X I $D(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 YALD code (year, appropriation, limitation, department).
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.02,3 FUNCTIONAL STATUS CODE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2) X
LAST EDITED: APR 11, 1985
HELP-PROMPT: ANSWER MUST BE 2 CHARACTERS IN LENGTH
DESCRIPTION:
This is the two character functional status code.
423.02,4 COLLECTION AMOUNT 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 04, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the collection amount.
CROSS-REFERENCE: ^^TRIGGER^423^108
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"") S X=$P(Y(1),U,1
7),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(423.02,4,1,1,1.4)
1.4)= S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH
_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=423,DIG=1
08 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"") S X=$P(Y(1),U,1
7),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(423.02,4,1,1,2.4)
2.4)= S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH
_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=423,DIG=1
08 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= BALANCE AMOUNT+COLLECTION AMOUNT
DELETE VALUE)= BALANCE AMOUNT-OLD COLLECTION AMOUNT
FIELD)= BAL
423.02,5 ACTION CODE 0;6 SET
'1' FOR ADDITIONS;
'2' FOR SUBTRACTIONS;
'3' FOR DATA OR POSITIVE AMT (OVERLAY);
'4' FOR NEGATIVE AMOUNTS (OVERLAY);
LAST EDITED: APR 19, 1988
DESCRIPTION:
This is the 2 character (between 1 and 2) action code.
423.02,6 ACCOUNT CODE 0;7 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;
'23' FOR 23;
'99' FOR 99;
LAST EDITED: APR 19, 1988
HELP-PROMPT: ENTER ACCOUNT CODE. FOR FULL REFERENCE SEE MP 4 PT V PARA 12D.06
423.02,7 SOURCE CODE 0;8 SET
'1' FOR VA SUPPLY FUND - DEPOT;
'2' FOR VA SUPPLY FUND - STATION;
'3' FOR NON FEDERAL;
'4' FOR GSA;
'5' FOR OTHER FEDERAL, A/C, OTHER VA;
'6' FOR ACCRUED SVCS PAY - FED;
'7' FOR ACCRUED SVCS PAY - NON FED;
LAST EDITED: APR 19, 1988
DESCRIPTION:
This is the source code.
423.02,8 INVENTORY AMOUNT 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 19, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the inventory amount.
423.02,9 PAYABLE AMOUNT 0;10 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 19, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the payable amount.
423.02,10 INTEROFFICE STATION NUMBER 0;11 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 interoffice station number.
423.02,11 DEBIT G.L. ACCT # 0;12 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<3)!'(X?3N!(X?6N)) X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: ANSWER MUST BE 3 OR 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the debit G.L. account number.
423.02,12 CREDIT G.L. ACCT # 0;13 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<6)!'(X?6N) X
LAST EDITED: APR 19, 1985
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the credit G.L. account number.
423.02,13 AMOUNT 0;14 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 04, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the amount of the general ledger credit.
CROSS-REFERENCE:^^TRIGGER^423^108
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I $D(PRCFA("TRACK")) I X S X=DIV S Y(1)=$S($D(^
PRCF(423,D0,8)):^(8),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(423.02,13,1,
1,1.4)
1.4)= S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH
_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=423,DIG=1
08 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I $D(PRCFA("TRACK")) I X S X=DIV S Y(1)=$S($D(^
PRCF(423,D0,8)):^(8),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(423.02,13,1,1,2.1) X ^DD(423.02,
13,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^PRCF(423,D0,3,D1,0)):^(0),1:"") S X=DIU-$P(Y(1),U,14)
2.4)= S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH
_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=423,DIG=1
08 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
CREATE CONDITION)= I $D(PRCFA("TRACK"))
CREATE VALUE)= BALANCE AMOUNT+AMOUNT
DELETE CONDITION)= I $D(PRCFA("TRACK"))
DELETE VALUE)= BALANCE AMOUNT-AMOUNT
DIC)=
FIELD)= BAL
423.02,14 RECEIVABLE CODE 0;15 SET
'0' FOR CONTING ASSET ACCRU;
'1' FOR DUE FROM FED 3011;
'2' FOR DUE FROM NON FED 3012;
'3' FOR REIMB - FED 1022;
'4' FOR REIMB - NON FED 1022;
'5' FOR REIMB - Q&L 1022;
LAST EDITED: AUG 15, 1991
DESCRIPTION:
This is the receivable code.
423.02,15 SERVICE CODE 0;16 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 SERVICE CODE. FULL REFERENCE FOUND IN MP 4 PT V PARA 12D.06
DESCRIPTION:
This is the service code.
423.02,16 LIMITATION 0;17 FREE TEXT
INPUT TRANSFORM:K:$L(X)>1!($L(X)<1)!'(X?1AN) X
LAST EDITED: APR 22, 1985
HELP-PROMPT: ANSWER MUST BE 1 CHARACTER IN LENGTH
DESCRIPTION:
This is the limitation code for this line number.
423.02,17 QUARTER 0;18 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 4
DESCRIPTION:
This is the FY quarter for this transaction.
423.02,18 AMOUNT OF TRANSFER 0;19 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>9999999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999999
DESCRIPTION:
This is the amount of the transfer.
423.02,19 TO CONTROL POINT 0;20 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
DESCRIPTION:
This is the Control Point that receives the transferred funds.
423.02,20 FROM CONTROL POINT 0;21 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
DESCRIPTION:
This is the control point that is the source of the transferred funds.
423,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.
423,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.
423,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.
423,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.
423,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.
423,30 ACCRUAL COST CENTER LINE # 4;0 Multiple #423.03 (Add New Entry without Asking)
DESCRIPTION:
This is the accrual cost center line number.
423.03,.01 ACCRUAL COST CENTER LINE # 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>14)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 14
DESCRIPTION:
This is the accrual cost center line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.03,.05 COST CENTER 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?6N) X
LAST EDITED: MAY 07, 1986
HELP-PROMPT: ENTER 6 DIGIT COST CENTER
DESCRIPTION:
This is the 6 digit cost center line number.
423.03,1 SUB ACCOUNT 0;2 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 subaccount for this accrual cost center line number.
423.03,2 AMOUNT 0;3 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 amount of this accrual cost center line number.
423.03,3 HOURS 0;4 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:
These are the hours covered in the transaction, if applicable.
423,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.
423,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.
423,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.
423,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.
423,35 SECTION B LINE NUMBER 5;0 Multiple #423.04 (Add New Entry without Asking)
DESCRIPTION:
This is the section B line number.
423.04,.01 SECTION B LINE NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<1) X I $D(X) S DINUM=X
LAST EDITED: SEP 08, 1987
HELP-PROMPT: ENTER AN INTEGER BETWEEN 1 AND 5
DESCRIPTION:
This is the section B code sheet line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.04,.05 ACCOUNT1 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1350)!(X<1100)!(X?.E1"."1N.N) X
LAST EDITED: SEP 08, 1987
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1100 AND 1350
DESCRIPTION:
This is the section B payroll analysis account number.
423.04,1 AMOUNT 1 0;2 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 section B amount relating to payroll analysis account 1.
423.04,2 ACCOUNT 2 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>1350)!(X<1100)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1100 AND 1350
DESCRIPTION:
This is the next section B payroll analysis account.
423.04,3 AMOUNT 2 0;4 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 section B amount relating to payroll analysis account 2.
423,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.
423,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
423,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.
423,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.
423,40 REC STA OR FCP 7;0 Multiple #423.05 (Add New Entry without Asking)
DESCRIPTION:
This is the receiving station or the fund control point.
423.05,.01 REC STA OR FCP 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>3!($L(X)<3)!'(X?3N) X Q:'$D(X) I $D(D1),D1>9 W " ONLY 10 ENTRIES PER CODE SHEET ARE PERMI
TTED",*7 K X
LAST EDITED: JUN 07, 1993
HELP-PROMPT: ANSWER MUST BE 3 CHARACTERS IN LENGTH
DESCRIPTION:
This is the 3 character receiving station or fund control point.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.05,1 1ST QTR AMOUNT 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the first quarter amount.
423.05,2 2ND QTR AMOUNT 0;3 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the second quarter amount.
423.05,3 3RD QTR AMOUNT 0;4 NUMBER
INPUT TRANSFORM:Q:X="$" K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the third quarter amount.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.05,4 4TH QTR AMOUNT 0;5 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: APR 22, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the fourth quarter amount.
423,41 LIQ CODE 1 6;5 SET (Required)
'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.
423,42 LIQ CODE 2 6;6 SET (Required)
'F' FOR F;
'C' FOR C;
'P' FOR P;
LAST EDITED: JUL 23, 1985
DESCRIPTION:
This is the liquidation code 2.
423,43 VENDOR ID NUMBER 6;7 FREE TEXT (Required)
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.
423,44 CHECK ENCLOSURE CODE 6;8 SET (Required)
'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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,61 DELIVERY MONTH - 921.60 0;9 FREE TEXT (Required)
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 X
1,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
423,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.
423,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.
423,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)="QE
M" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423,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.
423,66 SF ACCT CODE LINE # 9;0 Multiple #423.07 (Add New Entry without Asking)
DESCRIPTION:
This is the SF Accounting code line number.
423.07,.01 SF ACCT CODE LINE # 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 10
DESCRIPTION:
This is the SF account code line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.07,1 SF INV ACCOUNT CODE 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: ANSWER MUST BE 2 CHARACTERS IN LENGTH
DESCRIPTION:
This is the SF inventory account code.
423.07,2 SALES AMOUNT 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the sales amount.
423.07,3 INVENTORY AMOUNT 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the inventory amount.
423.07,4 COST CENTER 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?6N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the cost center.
423.07,5 SUB ACCOUNT 0;6 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: NOV 01, 1985
DESCRIPTION:
This is the subaccount.
423.07,6 DOT 0;7 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 field forces the code sheet to enter an extra '>' character.
423,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.
423,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
423,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
423,70 COST CENTER 'A' LINE # 10;0 Multiple #423.08 (Add New Entry without Asking)
DESCRIPTION:
This is the cost center line 'A' number.
423.08,.01 COST CENTER 'A' LINE # 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 5
DESCRIPTION:
This is the cost center 'A' line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.08,1 COST CENTER OR ASSET ACQUIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?6N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: ENTER COST CENTER OR ASSET ACQUISITION NUMBER
DESCRIPTION:
This is the cost center or asset acquisition number.
423.08,2 SUB ACCOUNT 0;3 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: NOV 01, 1985
DESCRIPTION:
This is the subaccount.
423.08,3 PERSONAL SERVICE ANALYSIS ACCT 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!'(X?4N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: ANSWER MUST BE 4 CHARACTERS IN LENGTH
DESCRIPTION:
This is the personal service analysis account.
423.08,4 AMOUNT 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the amount relating to the personal service analysis account.
423.08,5 HOURS 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
DESCRIPTION:
These are the hours relating to the personal service analysis account.
423,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.
423,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
423,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)="QE
M" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423,74 COST CENTER 'B' LINE # 11;0 Multiple #423.09 (Add New Entry without Asking)
DESCRIPTION:
This is the cost center line 'B' number.
423.09,.01 COST CENTER 'B' LINE # 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 5
DESCRIPTION:
This is the cost center 'B' line.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.09,1 COST CENTER OR ASSET ACQUIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?6N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the cost center or asset acquisition number.
423.09,2 SUB ACCOUNT 0;3 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: NOV 01, 1985
DESCRIPTION:
This is the subaccount.
423.09,3 PERSONAL SERVICE ANALYSIS 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<4)!'(X?4N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: ANSWER MUST BE 4 CHARACTERS IN LENGTH
DESCRIPTION:
This is the personal service analysis.
423.09,4 AMOUNT 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
423.09,5 HOURS 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 01, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
423,75 TT974 LINE NUMBER 12;0 Multiple #423.1 (Add New Entry without Asking)
DESCRIPTION:
This is the TT974 line number.
423.1,.01 TT974 LINE NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>15)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: DEC 09, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 15
DESCRIPTION:
This is the TT974 line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.1,1 REFERENCE # 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the reference #.
423.1,2 APPROPRIATION CODE 0;3 FREE TEXT (Required)
INPUT TRANSFORM: 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: DEC 09, 1986
HELP-PROMPT: ENTER APPROPRIATION (YALD) CODE, WITHOUT "."
DESCRIPTION:
This is the appropriation code.
WRITE AUTHORITY: ^
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.1,3 LIQUIDATION CODE 0;4 SET
'C' FOR COMPLETE;
'P' FOR PARTIAL;
'F' FOR FINAL;
LAST EDITED: APR 19, 1988
DESCRIPTION:
This is the liquidation code.
423.1,4 FUNCTIONAL STATUS CODE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: ANSWER MUST BE 2 CHARACTERS IN LENGTH
DESCRIPTION:
This is the functional status code.
423.1,5 AMOUNT 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the amount.
423.1,6 LIQUIDATION AMOUNT 0;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the liquidation amount.
423.1,8 CONTROL POINT 0;9 FREE TEXT
INPUT TRANSFORM:S DIC="^PRC(420,"_$P(^PRCF(423.1,DA,0),U,8)_",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: AUG 14, 1985
HELP-PROMPT: ANSWER MUST BE 4 CHARACTERS IN LENGTH
DESCRIPTION:
This is the control point.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.1,9 TIME OF UPDATE 0;10 SET (Required)
'1' FOR NOW;
'2' FOR WHEN TRANSMITTED;
LAST EDITED: AUG 14, 1985
HELP-PROMPT: ENTER 'WHEN TRANSMITTED' ONLY WHEN YOU WILL BE DELAYING TRANSMISSION OF THE CODE SHEET
DESCRIPTION:
This is the time of the update.
423.1,10 STATION NUMBER 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>3!($L(X)<3)!'(X?3N) X
LAST EDITED: AUG 14, 1985
HELP-PROMPT: ANSWER MUST BE 3 CHARACTERS IN LENGTH
DESCRIPTION:
This is the 3 character station number.
423.1,11 INCREASE OR DECREASE 0;11 SET
'I' FOR INCREASE;
'D' FOR DECREASE;
LAST EDITED: AUG 14, 1985
HELP-PROMPT: ENTER AN 'I' TO INCREASE THE CONTROL POINT BALANCE OR A 'D' TO DECREASE THE BALANCE
DESCRIPTION:
This is the increase or decrease of the Control Point balance.
423.1,12 POST TO PAT FILE # 0;12 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442)
LAST EDITED: AUG 15, 1985
DESCRIPTION:
This is the pending accounting transaction number.
423,76 LINE # 13;0 Multiple #423.11 (Add New Entry without Asking)
DESCRIPTION:
This is the line number for various multiple fields within CALM.
423.11,.01 LINE # 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>11)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 11
DESCRIPTION:
This is the line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.11,1 REFERENCE NUMBER 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?1UN.NU) X
LAST EDITED: MAR 12, 1986
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the reference number.
423.11,2 APPROPRIATION CODE (YALD) 0;3 FREE TEXT
INPUT TRANSFORM: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.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.11,3 CONTROL POINT 0;4 (Add New Entry without Asking)
INPUT TRANSFORM:S DIC="^PRC(420,"_$P(^PRCF(423,DA(1),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 02, 1986
HELP-PROMPT: ENTER APPROVED CONTROL POINT NUMBER
DESCRIPTION:
This is the control point number.
EXECUTABLE HELP:S ZD=D,X="?",Z0=+$P(^PRCF(423,DA(1),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
423.11,4 COST CENTER 0;5 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<6)!'(X?6N) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the cost center.
423.11,5 SUB ACCOUNT 0;6 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: NOV 02, 1985
DESCRIPTION:
This is the subaccount.
423.11,6 ANALYSIS ACCOUNT 0;7 FREE TEXT
INPUT TRANSFORM:K:$L(X)>5!($L(X)<5) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: ANSWER MUST BE 5 CHARACTERS IN LENGTH
DESCRIPTION:
This is the analysis account.
423.11,7 FUNCTIONAL STATUS CODE 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>2!($L(X)<2)!'(X?2N) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: ENTER CALM FUNCTIONAL STATUS CODE
DESCRIPTION:
This is the CALM functional status code.
423.11,8 AMOUNT 0;9 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: NOV 02, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is an 11 digit amount field.
423.11,9 INTERFACE RECORD IDENT #1 0;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<10)!'(X?.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER 4 CHARACTER PREFIX FOLLOWED BY 6 CHARACTER NUMBER. FILL WITH "X" WHEN REQUIRED
DESCRIPTION:
This is the 4 character prefix followed by a 6 digit number of the interface record 2.
423.11,10 INTERFACE RECORD IDENT #2 0;11 FREE TEXT
INPUT TRANSFORM:K:$L(X)>10!($L(X)<10)!'(X?.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER 4 DIGIT PREFIX FOLLOWED BY 6 DIGIT NUMBER USE "X" FOR FILL WHEN REQUIRED
423.11,11 GROUP IDENTIFICATION #1 0;12 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER 3 DIGIT STATION NUMBER THEN 4 DIGIT RECORD PREFIX
DESCRIPTION:
This is the 3 digit station number, then a 4 digit record prefix identification number 1.
423.11,12 GROUP IDENTIFICATION #2 0;13 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER 3 DIGIT STATION NUMBER THEN 4 DIGIT RECORD PREFIX
DESCRIPTION:
This is the 3 digit station number, then a 4 digit record prefix identification number 2.
423.11,13 GROUP IDENTIFICATION #3 0;14 FREE TEXT
INPUT TRANSFORM:K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER 3 DIGIT STATION NUMBER THEN 4 DIGIT RECORD PREFIX
DESCRIPTION:
This is the 3 digit station number, then a 4 digit record prefix identification number 3.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,89 REF # (2ND LINE) 14;0 Multiple #423.12 (Add New Entry without Asking)
DESCRIPTION:
This is the second line reference number.
423.12,.01 REF # (2ND LINE) 0;1 FREE TEXT (Required) (Multiply asked)
INPUT TRANSFORM: K:$L(X)>6!($L(X)<6)!'(X?6UN) X
LAST EDITED: SEP 25, 1987
HELP-PROMPT: ANSWER MUST BE 6 CHARACTERS IN LENGTH
DESCRIPTION:
This is the second line reference number.
423.12,1 FUNCTIONAL STATUS CODE 0;2 SET (Required)
'01' FOR 01;
'02' FOR 02;
'04' FOR 04;
'06' FOR 06;
'15' FOR 15;
'16' FOR 16;
LAST EDITED: MAR 04, 1986
DESCRIPTION:
This is the functional status code.
423.12,2 ACCOUNT CODE 0;3 SET (Required)
'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;
'23' FOR 23;
'99' FOR 99;
LAST EDITED: MAR 04, 1986
HELP-PROMPT: ENTER ACCOUNT CODE. FULL REFERENCE IS CONTAINED IN MP4 P5 PARA 12D.06
DESCRIPTION:
This is the account code.
423.12,3 SOURCE CODE 0;4 SET (Required)
'1' FOR VA SUPPLY FUND - DEPOT;
'2' FOR VA SUPPLY FUND - STATION;
'3' FOR NON-FEDERAL;
'4' FOR GSA;
'5' FOR OTHER FEDERAL, A/C, OTHER VA;
'6' FOR ACCRUED SVCS PAY - FED;
'7' FOR ACCRUED SVCS PAY - NON FED;
LAST EDITED: APR 19, 1988
DESCRIPTION:
This is the source code.
423.12,4 INVENTORY AMOUNT 0;5 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 29, 1989
HELP-PROMPT: Type a Number between 0 and 99999999999, 0 Decimal Digits
DESCRIPTION:
This is the inventory amount.
423.12,5 PAYABLE AMOUNT 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 04, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
DESCRIPTION:
This is the payable amount.
423.12,6 INTER-OFFICE STATION NUMBER 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3)!'(X?3N) X
LAST EDITED: MAR 04, 1986
HELP-PROMPT: ENTER 3 DIGIT STATION NUMBER FROM WHICH INVENTORY WAS RECEIVED
DESCRIPTION:
This is the 3 digit station number from which inventory was received.
423.12,7 ACTION CODE 0;8 SET (Required)
'1' FOR INCREASE;
'2' FOR DECREASE;
LAST EDITED: MAR 04, 1986
DESCRIPTION:
This is the action code.
423,90 941 LINE NUMBER 15;0 Multiple #423.13 (Add New Entry without Asking)
DESCRIPTION:
This is the 941 line number.
423.13,.01 941 LINE NUMBER 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>6)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 6
DESCRIPTION:
This is the 941 line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.13,1 CP 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3)!'(X?3N) X
LAST EDITED: MAR 07, 1986
HELP-PROMPT: ENTER CONTROL POINT NUMBER
DESCRIPTION:
This is the control point number.
423.13,2 ALD CODE 0;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?1UN.UN) X
LAST EDITED: JUN 10, 1986
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
DESCRIPTION:
This is the ALD code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.13,3 CONTROL POINT NAME 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>17!($L(X)<1) X
LAST EDITED: JUN 10, 1986
HELP-PROMPT: ENTER CONTROL POINT NAME, ANSWER MUST BE 1-17 CHARACTERS IN LENGTH
DESCRIPTION:
This is the control point name.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423,91 CREDITOR SSN OR VENDOR ID 0;23 FREE TEXT (Required)
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.
423,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.
423,93 ORIGINAL TRANSACTION CODE 1;28 FREE TEXT (Required)
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.
423,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.
423,95 ORIGINAL TRANSACTION DATE 6;27 DATE (Required)
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
423,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.
423,97 945 LINE NUMBER 16;0 Multiple #423.14 (Add New Entry without Asking)
DESCRIPTION:
This is the 945 line number.
423.14,.01 945 LINE NUMBER 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>14)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: ENTER A LINE NUMBER BETWEEN 1 AND 14
DESCRIPTION:
This is the 945 line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.14,1 FIELD #/ACTION CODE/DATA #1 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>14!($L(X)<3)!'(X?3N.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER 2 CHARACTER FIELD CODE, 1 CHARACTER ACTION CODE AND NOT MORE THAN 11 DATA CHARACTERS
DESCRIPTION:
This is the field code, action code, and the data #1.
423.14,2 FIELD #/ACTION CODE/DATA #2 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>14!($L(X)<3)!'(X?3N.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: 2 ENTRY FIELD #,1 CH ACTION CODE AND UP TO 11 DATA CHARACTERS.
DESCRIPTION:
This is the field code, action code, and the data #2.
423,98 946 LINE NUMBER 17;0 Multiple #423.15 (Add New Entry without Asking)
DESCRIPTION:
This is the 946 line number.
423.15,.01 946 LINE NUMBER 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>17)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: AUG 15, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 17
DESCRIPTION:
This is the 946 line number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.15,1 TO COST CENTER #1 0;2 POINTER TO COST CENTER FILE (#420.1) (Required)
LAST EDITED: MAR 09, 1986
DESCRIPTION:
This is a valid cost center.
423.15,2 PERCENT #1 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 100
DESCRIPTION:
This is a percentage relating to cost center #1.
423.15,3 TO COST CENTER #2 0;4 POINTER TO COST CENTER FILE (#420.1)
LAST EDITED: MAR 09, 1986
DESCRIPTION:
This is any valid cost center.
423.15,4 PERCENT #2 0;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 100
DESCRIPTION:
This is a percentage relating to cost center #2.
423,99 SUB ACCOUNT 8;10 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: MAR 09, 1986
DESCRIPTION:
This is the subaccount.
423,100 LINE NUMBER (1-5) 18;0 Multiple #423.16 (Add New Entry without Asking)
DESCRIPTION:
This is a line number which cannot exceed 5 records.
423.16,.01 LINE NUMBER (1-5) 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>5)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 5
DESCRIPTION:
This is a line number field, which cannot exceed 5 records.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.16,1 YALD CODE 0;2 FREE TEXT (Required)
INPUT TRANSFORM:Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!($L(X)<2)!'(X?1NU.NU) X I $D(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 applicable YALD code - with or without the DOTS.
DESCRIPTION:
This is the YALD code.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.16,2 CONTROL POINT 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>3!($L(X)<3)!'(X?3N) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER CP NUMBER IF APPLICABLE
DESCRIPTION:
This is the control point number, if applicable.
423.16,3 COST CENTER 0;4 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<6)!'(X?6N) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER COST CENTER, IF APPLICABLE
DESCRIPTION:
This is the cost center, if applicable.
423.16,4 SUB ACCOUNT 0;5 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER SUB ACCOUNT, IF APPLICABLE
DESCRIPTION:
This is the subaccount, if applicable.
423.16,5 PERSONAL SERV. ANALYSIS ACCT. 0;6 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>1999)!(X<1000)!(X?.E1"."1N.N) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER PERSONAL SERVICE ANALYSIS ACCOUNT, IF APPLICABLE
DESCRIPTION:
This is the personal service analysis account, if applicable.
423.16,6 AMOUNT 0;7 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER AMOUNT OF ADJUSTMENT, DO NOT EXCEED 11 NUMBERS
DESCRIPTION:
This is the amount of adjustment.
423.16,7 HOURS 0;8 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>8)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER MAN-HOURS, IF APPLICABLE.
DESCRIPTION:
These are the man-hours, if applicable, relating to the personal service account.
423.16,8 PAT TYPE CODE #1 0;9 SET (Required)
'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 type code #1.
423.16,9 PAT REF #1 0;10 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>6!($L(X)<6)!'(X?.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER PAT NUMBER
DESCRIPTION:
This is the PENDING ACCOUNTING TRANSACTION reference #1.
423.16,10 PAT TYPE CODE #2 0;11 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 code #2.
423.16,11 PAT REF #2 0;12 FREE TEXT
INPUT TRANSFORM:K:$L(X)>6!($L(X)<6)!'(X?.UN) X
LAST EDITED: MAR 09, 1986
HELP-PROMPT: ENTER PAT REFERENCE NUMBER
DESCRIPTION:
This is the PENDING ACCOUNTING TRANSACTION reference #2.
423,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
423,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.
423,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.
423,104 INVOICE OR BILL # 8;14 FREE TEXT (Required)
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
423,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.
423,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.
423,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.
423,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
423,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.
423,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.
423,111 P/S ANALYSIS ACCOUNT 20;0 Multiple #423.17 (Add New Entry without Asking)
DESCRIPTION:
This is the personal service analysis account.
423.17,.01 P/S ANALYSIS ACCOUNT 0;1 NUMBER (Required) (Multiply asked)
INPUT TRANSFORM: Q:X="$" K:+X'=X!(X>1299)!(X<1000)!(X?.E1"."1N.N) X
LAST EDITED: DEC 05, 1986
HELP-PROMPT: ENTER PERSONAL SERVICE ANALYSIS ACCOUNT
DESCRIPTION:
This is the personal service analysis account.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.17,1 AMOUNT 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 23, 1986
HELP-PROMPT: ENTER AMOUNT RELATING TO INDICATED PERSONAL SERVICE ANALYSIS ACCOUNT
DESCRIPTION:
This is the amount relating to the indicated personal service analysis account.
423,112 KEYPUNCH CODE KEY;0 WORD-PROCESSING #423.18 (NOWRAP)
DESCRIPTION:
This is the keypunch code.
LAST EDITED: NOV 25, 1986
423,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.
423,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.
423,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
423,116 COST CENTER #1 21;7 POINTER TO COST CENTER FILE (#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.
423,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
423,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
423,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
423,116.4 COST CENTER #2 21;11 POINTER TO COST CENTER FILE (#420.1)
LAST EDITED: JUL 07, 1992
423,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
423,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
423,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
423,116.8 COST CENTER 3 21;12 POINTER TO COST CENTER FILE (#420.1)
423,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
423,117 P&R CC (1-7) 23;0 POINTER Multiple #423.0117 (Add New Entry without Asking)
LAST EDITED: FEB 12, 1992
HELP-PROMPT: Supply Fund must be 000
423.0117,.01 P&R COST CENTER 0;1 POINTER TO COST CENTER FILE (#420.1) (Multiply asked)
LAST EDITED: JUN 19, 1992
CROSS-REFERENCE: 423.0117^B
1)= S ^PRCF(423,DA(1),23,"B",$E(X,1,30),DA)=""
2)= K ^PRCF(423,DA(1),23,"B",$E(X,1,30),DA)
423.0117,2 MANUFACTURING COST 0;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
423,117.1 YALD 3 21;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<2) X
HELP-PROMPT: Enter valid YALD code
423,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
423,117.3 COST CENTER 4 21;13 POINTER TO COST CENTER FILE (#420.1)
423,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
423,117.5 YALD 4 21;19 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<2) X
HELP-PROMPT: Enter valid YALD code
423,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
423,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
423,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
423,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
423,150 DOCUMENT TYPE 100;1 SET (Required)
'C' FOR CERTIFIED INVOICE;
LAST EDITED: JUN 02, 1989
DESCRIPTION:
This is the document type.
423,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.
423,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.
423,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.
423,154 DISCOUNT TERMS 100;13 SET (Required)
'X' FOR STANDARD;
'P' FOR PROX;
'E' FOR EOM;
LAST EDITED: JUL 28, 1989
DESCRIPTION:
This is the set of codes for discount terms.
423,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.
423,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.
423,157 INVOICE DATE 100;4 DATE (Required)
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.
423,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.
423,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.
423,160 DATE INVOICE RECEIVED 100;5 DATE (Required)
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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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
423,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
423,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.
423,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.
423,301 TOTAL VALUE 300;2 NUMBER (Required)
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.
423,302 QUANTITY 300;3 FREE TEXT (Required)
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.
423,303 UNIT OF ISSUE 300;4 POINTER TO UNIT OF ISSUE FILE (#420.5) (Required)
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).
423,304 FISCAL YEAR OF FUNDING 300;5 NUMBER (Required)
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.
423,305 FISCAL MONTH 300;6 SET (Required)
'1' FOR JANUARY;
'2' FOR FEBRUARY;
'3' FOR MARCH;
'4' FOR APRIL;
'5' FOR MAY;
'6' FOR JUNE;
'7' FOR JULY;
'8' FOR AUGUST;
'9' FOR SEPTEMBER;
'0' FOR OCTOBER;
'J' FOR NOVEMBER;
'K' FOR DECEMBER;
OUTPUT TRANSFORM: I $D(PRCHLOG) S:Y="" Y=" "
LAST EDITED: MAY 23, 1989
DESCRIPTION:
This is the month of fiscal funding.
423,306 DUE-IN DATE 300;7 DATE (Required)
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).
423,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.
423,306.2 DATE 300;23 DATE (Required)
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.
423,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.
423,308 N.I.I.N. (STOCK NO.) 300;9 FREE TEXT (Required)
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
423,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.
423,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.
423,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.
423,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.
423,311 ACTIVITY ADDRESS CODE 300;15 FREE TEXT (Required)
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
423,312 ROUTING IDENTIFIER CODE 300;16 POINTER TO DLA/LOG CODES FILE (#441.4) (Required)
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.
423,313 DOCUMENT IDENTIFIER CODE 300;17 FREE TEXT (Required)
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.
423,314 FUND CONTROL POINT 300;18 FREE TEXT (Required)
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.
423,315 COST CENTER NO. 300;19 FREE TEXT (Required)
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.
423,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.
423,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.
423,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.
423,330 DEPARTMENT NUMBER 301;1 FREE TEXT (Required)
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.
423,331 DO NOT SUB 301;2 SET
Do Not Substitute
'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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,340 REASON CODE 301;11 SET (Required)
'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
423,341 SOURCE CODE (LOG) 301;12 FREE TEXT (Required)
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
423,342 SOURCE DEVIATION 302;2 POINTER TO DLA/LOG CODES FILE (#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.
423,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.
423,344 DOCUMENT IDENTIFIER 301;15 FREE TEXT (Required)
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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,350 MEDIA & STATUS CODE 300;20 POINTER TO DLA/LOG CODES FILE (#441.4) (Required)
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
423,351 DEPT.DESIGNATION (DEMAND CODE) 301;21 POINTER TO DLA/LOG CODES FILE (#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.
423,352 SIGNAL CODE 301;22 SET (Required)
'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.
423,353 FUND CODE 301;23 FREE TEXT (Required)
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.
423,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.
423,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.
423,356 PRIORITY CODE 301;26 POINTER TO DLA/LOG CODES FILE (#441.4) (Required)
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
423,357 ADVICE CODE 301;27 POINTER TO DLA/LOG CODES FILE (#441.4) (Required)
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.
423,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
423,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
423,360 SPECIAL CODE 301;29 SET (Required)
'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!
423,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-u
p or cancellation.
423,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
423,364 FEDERAL SUPPLY CLASSIFICATION 301;35 POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2) (Required)
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.
423,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
423,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 .
423,367 DOCUMENT IDENTIFIER (DLA) 301;37 FREE TEXT (Required)
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).
423,368 DEPOT VOUCHER 301;38 FREE TEXT (Required)
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.
423,369 REQUISITION NO. 301;39 FREE TEXT (Required)
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).
423,370 CANCEL/ADJUST/RELEASE 301;40 SET (Required)
'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.
423,371 VALUE (OLD) 301;41 NUMBER (Required)
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.
423,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.
423,373 QUANTITY (OLD) 301;43 NUMBER (Required)
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.
423,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.
423,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).
423,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.
423,377 DOCUMENT NUMBER (LOG) 302;1 FREE TEXT (Required)
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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,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).
423,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
423,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
423,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
423,387 DELIVERY POINT 303;2 SET (Required)
'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.
423,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)
423,389 REASON CODE (LOG) 303;4 SET (Required)
'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.
423,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.
423,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.
423,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.
423,393 LOG DATE 304;1 DATE (Required)
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
423,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
423,395 COMPLETION CODE (LOG) 304;3 SET (Required)
'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.
423,396 CONDITION CODE (LOG) 304;4 SET (Required)
'1' FOR ISSUABLE;
LAST EDITED: FEB 08, 1990
DESCRIPTION:
This is the code indicating whether the stock is ready for issue.
423,397 PRIORITY CODE (LOG) 304;5 SET (Required)
'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.
423,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).
423,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
423,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
423,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
423,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.
423,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).
423,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
423,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
423,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
423,407 DEPOT (HINES) 304;15 SET (Required)
'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).
423,408 DEPOT CODE 304;16 SET (Required)
'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).
423,409 CONTAINER TYPE 304;17 SET (Required)
'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).
423,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.
423,411 TYPE TRANS (664) 200;2 SET (Required)
'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.
423,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.
423,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.
423,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.
423,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.
423,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.
423,417 SUPPL ID (664) 200;8 FREE TEXT
Supplementary Identification
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.
423,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
423,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.
423,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.
423,421 NON ADJ REASON CODE 201;1 SET (Required)
Nonissuable Adjustment Reason Code
'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
423,422 GL ACCOUNT CODE 201;2 POINTER TO DLA/LOG CODES FILE (#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,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.
423,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
423,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^P
RCFU
LAST EDITED: JUN 19, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
423,426 QUAN/VAL ADJ REASON CODE 201;6 SET (Required)
'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.
423,427 CHANGE ADJ REASON CODE 201;7 SET (Required)
'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.
423,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.
423,429 SELLING COST 201;9 NUMBER (Required)
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^PR
CFU
LAST EDITED: JUN 19, 1991
HELP-PROMPT: Type a Number between 0 and 99999.99, 2 Decimal Digits
423,430 ORIGINAL TRANS CODE 201;10 FREE TEXT (Required)
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.
423,500 ISMS IDENTIFIER 50;1 SET (Required)
'ISM' FOR ISMS;
'PSM' FOR PRISM;
LAST EDITED: JAN 24, 1992
423,501 ISMS TRANS DATE 50;2 DATE (Required)
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
423,502 ISMS TRANS TIME 50;3 DATE (Required)
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
423,503 ISMS REFERENCE NO. 50;4 FREE TEXT (Required)
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.
423,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
423,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
423,504 ISMS TRANS INT VER 50;5 NUMBER (Required)
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
423,505 NATIONAL STOCK NUMBER 50;6 FREE TEXT (Required)
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
423,506 ISMS SEGMENT TYPE 50;7 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: AUG 31, 1991
HELP-PROMPT: Answer must be 3 characters in length.
423,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.
423,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.
423,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.
423,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
423,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.
423,530 ISMS LINE ITEM 52;0 Multiple #423.19 (Add New Entry without Asking)
LAST EDITED: NOV 25, 1991
423.19,.01 ISMS LINE ITEM 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
LAST EDITED: SEP 09, 1991
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 423.19^B
1)= S ^PRCF(423,DA(1),52,"B",$E(X,1,30),DA)=""
2)= K ^PRCF(423,DA(1),52,"B",$E(X,1,30),DA)
423.19,1 NSN 0;2 FREE TEXT
INPUT TRANSFORM: K:X'?13N.1U&(X'?4N1"-"2N1"-"3N1"-"4N.1U) X S:$D(X) X=$TR(X,"-")
OUTPUT TRANSFORM: S Y=$E(Y,1,4)_"-"_$E(Y,5,6)_"-"_$E(Y,7,9)_"-"_$E(Y,10,14)
LAST EDITED: OCT 24, 1991
HELP-PROMPT: Enter NSN code 16-17 characters in length. Example: 6505-01-001-0001
423.19,2.2 SKU FACTOR 1;12 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
423.19,3 QUANTITY 0;4 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999999.99)!(X<0)!(X?.E1"."1N.N) X S:$D(X) X=X*100
OUTPUT TRANSFORM: S Y=Y/100
LAST EDITED: SEP 07, 1991
HELP-PROMPT: Type a Number between 0 and 99999999.99, 2 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.19,4 TOTAL VALUE 0;5 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X S:$D(X) X=X*10000
OUTPUT TRANSFORM: S Y=Y/10000
LAST EDITED: SEP 07, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999.99 2 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.19,5 CHANGE IN B/O QUANTITY 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999.99)!(X<0)!(X?.E1"."1N.N) X S:$D(X) X=X*100
OUTPUT TRANSFORM: S Y=Y/100
LAST EDITED: SEP 07, 1991
HELP-PROMPT: Type a Number between 0 and 9999999.99 2 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.19,6 ITEM SALES PRICE 0;7 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"."5N.N) X S:$D(X) X=X*10000
OUTPUT TRANSFORM: S Y=Y/10000
LAST EDITED: SEP 07, 1991
HELP-PROMPT: Type a Number between 0 and 99999.9999, 4 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.19,7 QUANTITY RECEIVED 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999.99)!(X<0)!(X?.E1"."3N.N) X S:$D(X) X=X*100
OUTPUT TRANSFORM: S Y=Y/100
LAST EDITED: FEB 04, 1993
HELP-PROMPT: Type a Number between 0 and 99999999.99, 2 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.19,7.5 DATE RECEIVED 1;19 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 28, 1992
423.19,8 TOTAL VALUE OF RECEIPT 0;9 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X S:$D(X) X=X*100
OUTPUT TRANSFORM: S Y=Y/100
LAST EDITED: SEP 07, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.19,10 ITEM MOVING AVG COST 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"."5N.N) X S:$D(X) X=X*10000
OUTPUT TRANSFORM: S Y=Y/10000
LAST EDITED: SEP 07, 1991
HELP-PROMPT: Type a Number between 0 and 99999.9999, 4 Decimal Digits
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
423.19,11 TO/PO/SO NUMBER 0;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<3) X
LAST EDITED: SEP 01, 1991
HELP-PROMPT: Answer must be 3-6 characters in length.
423.19,12 IFCAP LINE NUMBER 0;13 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 09, 1991
HELP-PROMPT: Type a Number between 1 and 9999, 0 Decimal Digits
423.19,13 RECEIPT STATUS 0;14 SET
'P' FOR PARTIAL;
'F' FOR FINAL;
LAST EDITED: SEP 01, 1991
423.19,19 SEGMENT TYPE 0;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: SEP 01, 1991
HELP-PROMPT: Answer must be 3 characters in length.
423.19,23.1 UNIT COST 1;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: NOV 25, 1991
HELP-PROMPT: Answer must be 1-10 characters in length.
423.19,32 NULL 1;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: SEP 06, 1991
HELP-PROMPT: Answer must be 1 character in length.
423.19,33 PRISM ITEM NO. 1;17 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: JAN 23, 1992
HELP-PROMPT: Answer must be 3-20 characters in length.
423.19,35 STATUS CODE 1;20 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JAN 28, 1992
HELP-PROMPT: Answer must be 1 character in length.
423,550 NX ITEMS 57;0 Multiple #423.2
423.2,.01 NX ITEMS 0;1 NUMBER (Multiply asked)
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Number between 1 and 999, 0 Decimal Digits
CROSS-REFERENCE: 423.2^B
1)= S ^PRCF(423,DA(1),57,"B",$E(X,1,30),DA)=""
2)= K ^PRCF(423,DA(1),57,"B",$E(X,1,30),DA)
423.2,1 SEGMENT TYPE NA 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>3!($L(X)<3) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 3 characters in length.
423.2,2 CSN 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 3-20 characters in length.
423.2,3 MANUFACTURER 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 3-30 characters in length.
423.2,4 PROPERTY TYPE 0;5 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-15 characters in length.
423.2,5 MODEL 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-15 characters in length.
423.2,6 SERIAL NUMBER 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-20 characters in length.
423.2,7 IFCAP PO NUMBER 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>11!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-11 characters in length.
423.2,8 VENDOR NAME 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<3) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 3-25 characters in length.
423.2,9 ACQUISITION VALUE 1;1 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
423.2,10 ACQUISITION DATE 1;2 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 13, 1991
423.2,11 ACQUISITION CODE 1;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Number between 0 and 9, 0 Decimal Digits
423.2,12 GEN LEDGER ACCT # 1;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Number between 0 and 9999, 0 Decimal Digits
423.2,13 YALD CODE 1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-4 characters in length.
423.2,14 COST CENTER 1;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>6!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-6 characters in length.
423.2,15 CAPITALIZATION FLAG 1;7 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: SEP 13, 1991
423.2,16 USE CODE 1;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1 character in length.
423.2,17 OWNERSHIP CODE 1;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1 character in length.
423.2,18 LEASE COST/MONTH 1;10 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
423.2,19 LIFE EXPECTANCY 1;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Number between 0 and 99, 0 Decimal Digits
423.2,20 FINAL DISPOSAL DATE 1;12 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 13, 1991
423.2,21 REPLACEMENT COST 1;13 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
423.2,22 RETIREMENT DATE 1;14 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 13, 1991
423.2,23 DISPOSITION CODE 1;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1 character in length.
423.2,24 DISPOSITION PROCEEDS 1;16 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
423.2,25 LAST INVENTORY DATE 1;17 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: SEP 13, 1991
423.2,26 PM TOTAL COST 1;18 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
423.2,27 CAT STK # DESC 2;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-30 characters in length.
423.2,28 REPLACEMENT NUMBER 2;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Type a Number between 0 and 99999999, 0 Decimal Digits
423.2,29 CMR DEPARTMENT # 2;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-5 characters in length.
423.2,30 CONTROLLED ITEM 2;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1 character in length.
423.2,31 REASON CODE 2;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-4 characters in length.
423.2,32 PARENT SYSTEM 2;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-10 characters in length.
423.2,33 COMMENTS 2;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-25 characters in length.
423.2,34 NSN 2;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1-20 characters in length.
423.2,35 SPECIAL HANDLING CODE 2;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: SEP 13, 1991
HELP-PROMPT: Answer must be 1 character in length.
423.2,36 FIPS AGENCY CODE 2;10 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-4 characters in length.
423.2,37 ADP UNIT DESIGNATOR 2;11 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-10 characters in length.
423.2,38 ADP MFG CODE 2;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-5 characters in length.
423.2,39 ADP MODEL CODE 2;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-5 characters in length.
423.2,40 ADP COMPUTER QTY 2;14 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Type a Number between 0 and 999999, 0 Decimal Digits
423.2,41 ADP DESCRIPTION 2;15 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-25 characters in length.
423.2,42 CITY 2;16 FREE TEXT
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-25 characters in length.
423.2,43 STATE 2;17 POINTER TO STATE FILE (#5)
LAST EDITED: JAN 02, 1992
423.2,44 USCODE 2;18 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1 character in length.
423.2,45 DS IND 2;19 FREE TEXT
INPUT TRANSFORM: K:$L(X)>1!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1 character in length.
423,581 ISMS COST CENTER 56;5 NUMBER (Required)
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
423,582 ISMS FCP # 56;6 NUMBER (Required)
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
423,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.
423,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.
423,999 COMPLETED BY 0;8 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JAN 27, 1993
DESCRIPTION:
This is the person completing the code sheet.
423,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.
423,999.2 USER LOGGED IN TRANS;7 POINTER TO NEW PERSON FILE (#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: ^
423,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
423,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.
423,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.
423,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.
423,1000 PAYMENT TYPE 21;1 SET (Required)
'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).
423,1001 ACCOUNT TYPE 21;2 SET (Required)
'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).
423,1002 DEPOSITOR ACCOUNT NO. 21;3 FREE TEXT (Required)
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.
423,1003 ROUTING NO. 21;4 FREE TEXT (Required)
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.
423,1004 CHECK DIGIT 21;5 FREE TEXT (Required)
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.
423,1005.01 AGENCY CODE 1005;1 FREE TEXT (Required)
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.
423,1005.02 SUBAGENCY CODE 1005;2 FREE TEXT (Required)
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.
423,1005.03 NAME CONTROL 1005;3 FREE TEXT (Required)
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.
423,1005.04 SSN 1005;4 FREE TEXT (Required)
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.
423,1005.05 TYPE INDICATOR 1005;5 SET (Required)
'0' FOR DECREASE OR DELETION IN AMOUNT;
LAST EDITED: SEP 26, 1990
423,1005.06 FILLER-14 1005;6 FREE TEXT (Required)
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.
423,1005.07 FILLER-2 1005;7 FREE TEXT (Required)
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.
423,1005.08 YEAR OF ORIGINAL OFFSET 1005;8 FREE TEXT (Required)
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.
423,1005.09 DMF PROGRAM YEAR 1005;9 FREE TEXT (Required)
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
423,1005.11 SUBAGENCY PRIORITY CODE 1005;11 FREE TEXT (Required)
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).
423,1005.12 LAST NAME 1005;12 FREE TEXT (Required)
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.
423,1005.13 FIRST NAME 1005;13 FREE TEXT (Required)
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.
423,1005.14 AMOUNT (IRS) 1005;14 NUMBER (Required)
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
423,1005.15 AGENCY INFORMATION 1005;15 FREE TEXT (Required)
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.
423,1005.16 LOCAL CODE 1005;16 FREE TEXT (Required)
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.
423,1005.17 VA IDENT NO. 1005;17 POINTER ***** TO AN UNDEFINED FILE (#412), STORED IN ^PRC(412) ******* (Required)
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.
423,1005.18 DELINQUENT DATE 1005;18 DATE (Required)
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.
423,1005.19 JUDGEMENT DEBT INDICATOR 1005;19 FREE TEXT (Required)
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.
423,1005.2 MASTER FILE CODE 1005;20 NUMBER (Required)
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.
423,1005.21 FILLER-54 1005;21 FREE TEXT (Required)
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.
423,1005.22 FILLER-12 1005;22 FREE TEXT (Required)
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.
423,1006.01 FILLER-52 1006;1 FREE TEXT (Required)
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.
423,1006.02 FILLER-15 1006;2 FREE TEXT (Required)
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.
FILES POINTED TO FIELDS
BUDGET OBJECT CODE (#420.2) SUB ACCOUNT (#99)
SF ACCT CODE LINE #:SUB ACCOUNT (#5)
COST CENTER 'A' LINE #:SUB ACCOUNT (#2)
COST CENTER 'B' LINE #:SUB ACCOUNT (#2)
LINE #:SUB ACCOUNT (#5)
LINE NUMBER (1-5):SUB ACCOUNT (#4)
CALM/LOG BATCH TYPE (#423.9) BATCH TYPE (#.6)
CALM/LOG CODE SHEET (#423) LINE NUMBER (1-38):COLLECTION AMOUNT (#4)
AMOUNT (#13)
COST CENTER (#420.1) COST CENTER #1 (#116)
COST CENTER #2 (#116.4)
COST CENTER 3 (#116.8)
COST CENTER 4 (#117.3)
P&R CC (1-7):P&R COST CENTER (#.01)
946 LINE NUMBER:TO COST CENTER #1 (#1)
TO COST CENTER #2 (#3)
DLA/LOG CODES (#441.4) ROUTING IDENTIFIER CODE (#312)
SOURCE DEVIATION (#342)
MEDIA & STATUS CODE (#350)
DEPT.DESIGNATION (DEMAND CODE) (#351)
PRIORITY CODE (#356)
ADVICE CODE (#357)
GL ACCOUNT CODE (#422)
FEDERAL SUPPLY CLASSIFICATION
(#441.2) FEDERAL SUPPLY CLASSIFICATION (#364)
NEW PERSON (#200) COMPLETED BY (#999)
USER LOGGED IN (#999.2)
PROCUREMENT & ACCOUNTING TRANS
(#442) PAT NUMBER (#5.1)
TT974 LINE NUMBER:POST TO PAT FILE # (#12)
STATE (#5) NX ITEMS:STATE (#43)
UNIT OF ISSUE (#420.5) UNIT OF ISSUE (#303)
}UNDEFINED FILE (#412) VA IDENT NO. (#1005.17)
INPUT TEMPLATE(S):
PRCFA TT900.00 AUG 01, 1989 USER #0
PRCFA TT920.00 NOV 01, 1985 USER #0
PRCFA TT920.04 AUG 14, 1987 USER #0
PRCFA TT920.41 JUL 06, 1992@15:16 USER #0
PRCFA TT921.00 MAY 17, 1985 USER #0
PRCFA TT921.20 DEC 22, 1986 USER #0
PRCFA TT921.21 DEC 22, 1986 USER #0
PRCFA TT921.26 DEC 22, 1986 USER #0
PRCFA TT921.30 APR 02, 1986 USER #0
PRCFA TT921.31 NOV 04, 1987 USER #0
PRCFA TT921.39 APR 17, 1985 USER #0
PRCFA TT921.41 FEB 12, 1992@18:08 USER #0
PRCFA TT921.51 APR 17, 1985 USER #0
PRCFA TT921.53 APR 17, 1985 USER #0
PRCFA TT921.60 OCT 07, 1985 USER #0
PRCFA TT921.71 AUG 27, 1987 USER #0
PRCFA TT921.72 JAN 13, 1988 USER #0
PRCFA TT921.91 APR 18, 1985 USER #0
PRCFA TT921.93 APR 18, 1985 USER #0
PRCFA TT921.94 APR 18, 1985 USER #0
PRCFA TT922.00 MAR 04, 1986 USER #0
PRCFA TT922.01 MAR 04, 1986 USER #0
PRCFA TT922.10 FEB 12, 1992@17:42 USER #0
PRCFA TT922.21 FEB 24, 1992@10:03 USER #0
PRCFA TT922.99 MAR 04, 1986 USER #0
PRCFA TT923.01 APR 19, 1985 USER #0
PRCFA TT923.07 APR 19, 1985 USER #0
PRCFA TT924.00 MAY 17, 1985 USER #0
PRCFA TT924.41 SEP 04, 1991@09:16 USER #0
PRCFA TT925.01 APR 19, 1985 USER #0
PRCFA TT925.30 FEB 10, 1992@18:17 USER #0
PRCFA TT928.01 APR 19, 1985 USER #0
PRCFA TT929.00 AUG 14, 1987 USER #0
PRCFA TT929.30 FEB 19, 1992@17:28 USER #0
PRCFA TT930.00 APR 09, 1985 USER #0
PRCFA TT930.21 APR 22, 1985 USER #0
PRCFA TT934.20 OCT 23, 1986 USER #0
PRCFA TT938.00 AUG 26, 1989 USER #0
PRCFA TT938.01 NOV 21, 1988 USER #0
PRCFA TT938.07 DEC 05, 1988 USER #0
PRCFA TT938.08 NOV 21, 1988 USER #0
PRCFA TT938.09 MAR 09, 1992@11:14 USER #0
PRCFA TT938.10 NOV 21, 1988 USER #0
PRCFA TT938.21 NOV 21, 1988 USER #0
PRCFA TT938.28 NOV 21, 1988 USER #0
PRCFA TT938.30 DEC 05, 1988 USER #0
PRCFA TT938.32 DEC 05, 1988 USER #0
PRCFA TT938.41 DEC 05, 1988 USER #0
PRCFA TT938.54 DEC 05, 1988 USER #0
PRCFA TT938.55 DEC 05, 1988 USER #0
PRCFA TT939.00 MAY 04, 1988 USER #0
PRCFA TT939.10 MAY 04, 1988 USER #0
PRCFA TT939.12 MAY 04, 1988 USER #0
PRCFA TT939.43 MAY 04, 1988 USER #0
PRCFA TT939.45 MAR 01, 1993@10:58 USER #0
PRCFA TT941.00 MAR 07, 1986 USER #0
PRCFA TT941.02 JAN 13, 1987 USER #0
PRCFA TT942.31 JUL 11, 1990@14:27 USER #0
PRCFA TT942.38 AUG 14, 1987 USER #0
PRCFA TT944.01 MAR 09, 1986 USER #0
PRCFA TT945.03 SEP 08, 1986 USER #0
PRCFA TT945.04 MAR 09, 1986 USER #0
PRCFA TT945.05 MAR 27, 1986 USER #0
PRCFA TT946.00 MAR 09, 1986 USER #0
PRCFA TT946.21 MAR 09, 1986 USER #0
PRCFA TT951.00 SEP 08, 1987 USER #0
PRCFA TT951.11 OCT 02, 1992@11:32 USER #0
PRCFA TT951.21 AUG 15, 1986 USER #0
PRCFA TT951.31 SEP 08, 1987 USER #0
PRCFA TT951.51 AUG 15, 1986 USER #0
PRCFA TT951.61 AUG 15, 1986 USER #0
PRCFA TT952.01 MAR 09, 1986 USER #0
PRCFA TT959.01 MAR 09, 1986 USER #0
PRCFA TT960.00 SEP 04, 1986 USER #0
PRCFA TT960.01 AUG 15, 1986 USER #0
PRCFA TT961.00 MAR 09, 1986 USER #0
PRCFA TT961.26 MAR 01, 1993@10:56 USER #0
PRCFA TT961.71 MAR 09, 1986 USER #0
PRCFA TT970.01 JUL 18, 1989 USER #0
PRCFA TT970.02 APR 29, 1986 USER #0
PRCFA TT970.05 APR 18, 1988 USER #0
PRCFA TT970.06 FEB 10, 1992@18:29 USER #0
PRCFA TT970.12 AUG 15, 1986 USER #0
PRCFA TT970.20 NOV 10, 1988 USER #0
PRCFA TT972.01 JUL 26, 1985 USER #0
PRCFA TT972.04 DEC 08, 1986 USER #0
PRCFA TT972.05 DEC 08, 1986 USER #0
PRCFA TT972.06 APR 25, 1986 USER #0
PRCFA TT972.07 DEC 08, 1986 USER #0
PRCFA TT972.11 APR 17, 1986 USER #0
PRCFA TT972.13 MAR 09, 1992@11:38 USER #0
PRCFA TT972.14 DEC 08, 1986 USER #0
PRCFA TT972.15 DEC 08, 1986 USER #0
PRCFA TT972.16 AUG 15, 1986 USER #0
PRCFA TT972.21 JUL 20, 1989 USER #0
PRCFA TT972.51 JUN 07, 1991@11:27 USER #0
PRCFA TT972.71 JUL 21, 1989 USER #0
PRCFA TT973.00 NOV 01, 1985 USER #0
PRCFA TT973.10 NOV 01, 1985 USER #0
PRCFA TT973.11 NOV 01, 1985 USER #0
PRCFA TT973.20 NOV 01, 1985 USER #0
PRCFA TT973.30 NOV 01, 1985 USER #0
PRCFA TT973.81 JUL 23, 1992@13:46 USER #0
PRCFA TT974.00 NOV 02, 1985 USER #0
PRCFA TT974.01 NOV 02, 1985 USER #0
PRCFA TT974.21 APR 02, 1986 USER #0
PRCFA TT982.00 APR 01, 1986 USER #0
PRCFA TT983.00 APR 22, 1985 USER #0
PRCFA TT984.00 APR 22, 1985 USER #0
PRCFA TT986.00 APR 22, 1985 USER #0
PRCFA TT994.00 MAY 28, 1993@10:10 USER #0
PRCFA TT994.01 MAY 28, 1993@10:19 USER #0
PRCFA TT994.90 MAY 28, 1993@10:11 USER #0
PRCFA TT998.01 MAR 09, 1986 USER #0
PRCFACEDIT OCT 10, 1985 USER #0
PRCH-DEP LOG 401 MAY 23, 1990@13:40 USER #0
PRCH-REC7 LOG 431/434 AUG 15, 1990@16:38 USER #0
PRCHL100 OCT 25, 1989@13:37 USER #0
PRCHL500 SEP 13, 1989@14:31 USER #0
PRCHL501 MAY 11, 1989 USER #0
PRCHL550 JUN 08, 1989 USER #0
PRCHL551 FEB 01, 1990@15:04 USER #0
PRCHL552 MAY 23, 1989 USER #0
PRCHL604 APR 16, 1991@09:50 USER #0
PRCHL605 APR 16, 1991@10:42 USER #0
PRCHL607 JUN 19, 1991@15:13 USER #0
PRCHL632 SEP 13, 1989@14:50 USER #0
PRCHL642 APR 15, 1991@09:20 USER #0
PRCHL664 JUN 25, 1991@13:43 USER #0
PRCHL666 MAY 30, 1989 USER #0
PRCHL700 APR 18, 1989 USER #0
PRCHL710 JAN 18, 1990@07:22 USER #0
PRCHL712 APR 15, 1991@09:43 USER #0
PRINT TEMPLATE(S):
PRCFA BACKGROUND TRANSMIT AUG 25, 1992@16:22 USER #0 [PRCFA CALM HEADER]
PRCFA BATCH LISTING HEADER FEB 22, 1993@11:27 USER #0 @
PRCFA BATCH LISTING TRAILER AUG 25, 1992@16:23 USER #0 [PRCFA BATCH LISTING HEADER]
PRCFA BTCH HEADER AUG 12, 1994@10:39 USER #0 @
PRCFA BTCH TRANSMIT AUG 12, 1994@10:41 USER #0 [PRCFA BTCH HEADER]
PRCFA CALM HEADER FEB 22, 1993@11:17 USER #0 @
PRCFA CALM TRANSMIT FEB 19, 1993@14:53 USER #0 [PRCFA CALM HEADER]
PRCFA ERROR LIST AUG 25, 1992@16:27 USER #0 CALM/LOG CODE SHEET BATCHING ERROR LIST
PRCFA REPRINT HEADER FEB 22, 1993@11:30 USER #0 @
PRCFA REPRINT TRAILER AUG 25, 1992@16:28 USER #0 [PRCFA REPRINT HEADER]
SORT TEMPLATE(S):
PRCFA BATCH PRINT SORT JUN 07, 1990@13:52 USER #0
SORT BY: @BATCH LIST KEY// (User is asked range)
WITHIN BATCH LIST KEY, SORT BY: @#BATCH NUMBER// (BATCH NUMBER not null)
WITHIN BATCH NUMBER, SORT BY: @BATCH PRIORITY// (BATCH PRIORITY not null)
WITHIN BATCH PRIORITY, SORT BY: @$E(+(TRANSACTION TYPE),1,6)// ($E(+(TRANSACTION TYPE),1,6) not null)
PRCFA BATCH REPRINT SORT JUN 07, 1990@13:56 USER #0
SORT BY: @REPRINT LIST KEY// (User is asked range)
WITHIN REPRINT LIST KEY, SORT BY: @#BATCH NUMBER//
WITHIN BATCH NUMBER, SORT BY: @BATCH PRIORITY//
WITHIN BATCH PRIORITY, SORT BY: @$E(+(TRANSACTION TYPE),1,6)//
PRCFA BATCH TRANSMIT SORT JUN 07, 1990@13:53 USER #0
SORT BY: @TRANSMIT LIST KEY// (User is asked range)
WITHIN TRANSMIT LIST KEY, SORT BY: @#BATCH NUMBER//
WITHIN BATCH NUMBER, SORT BY: @BATCH PRIORITY//
WITHIN BATCH PRIORITY, SORT BY: @$E(+(TRANSACTION TYPE),1,6)//
PRCFA ERROR LIST MAR 29, 1989 USER #0
SORT BY: ]@ERROR IN BATCHING//
WITHIN ERROR IN BATCHING, SORT BY: ID//
PRCFA REPRINT ERROR LIST JUN 02, 1992@13:46 USER #0
SORT BY: @BATCHED?// From 'N' To 'N^N'
WITHIN BATCHED?, SORT BY: 'BATCHING ERROR//
FORM(S)/BLOCK(S):