Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PRCF(423

Package: IFCAP

Global: ^PRCF(423


Information

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

Description

Accessed By FileMan Db Calls, Total: 26

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

Pointed To By FileMan Files, Total: 3

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

Pointer To FileMan Files, Total: 9

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

Fields, Total: 360

Field # Name Loc Type Details
.01 ID 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)<4!($L(X)>21) X
  • LAST EDITED:  APR 21, 1993
  • HELP-PROMPT:  ENTER CODE SHEET IDENTIFIER OR CALM REFERENCE NUMBER
  • DESCRIPTION:  
    This is the code sheet identifier or CALM reference number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  423^B
    1)= S ^PRCF(423,"B",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  423^AG^MUMPS
    1)= S $P(^PRCF(423,DA,"TRANS"),"^",1)="I",^PRCF(423,"AC","I",DA)="" K ^PRCF(423,"AC","N",DA)
    2)= Q
    This cross-reference is used to set the BATCHED? field to "I", to set the "AC","I" node and to kill the "AC","N" node for the record.
  • CROSS-REFERENCE:  423^AF^MUMPS
    1)= I $D(DT),$D(DA),$P(^PRCF(423,DA,"TRANS"),"^",9)="" S $P(^PRCF(423,DA,"TRANS"),"^",9)=DT
    2)= Q
    This cross-reference contains the code that will set the DATE CREATED field.
  • CROSS-REFERENCE:  423^AQ^MUMPS
    1)= Q
    2)= K ^PRCF(423,"AC","I",DA)
    This cross-reference contains the code that will kill the "AC","I" node for the record.
.05 DATE CREATED TRANS;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 09, 1986
  • DESCRIPTION:  
    This is the date this code sheet was created.
.1 SYSTEM IDENTIFIER 0;10 SET
  • 'LOG' FOR LOG;
  • 'CLM' FOR CALM;
  • 'FEE' FOR FEE;
  • 'FEN' FOR FEN;
  • 'CAP' FOR CAPPS;
  • 'IRS' FOR IRS;
  • 'ISM' FOR ISMS;
  • 'PHA' FOR PHA;
  • 'CLI' FOR CALM;
  • 'PRC' FOR PRC;

  • LAST EDITED:  JAN 27, 1993
  • DESCRIPTION:  
    This is the system identifier.
.2 CODE CODE;0 Multiple #423.06 423.06

  • DESCRIPTION:  
    This is the CALM code.
.21 BATCH LIST KEY TRANS;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<1) X
  • LAST EDITED:  JUN 07, 1990
  • HELP-PROMPT:  Answer must be 1-17 characters in length.
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  423^AJ
    1)= S:$D(PRC("SITE")) ^PRCF(423,"AJ",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AJ",$E(X,1,30),DA)
    This cross-reference contains the code sheets that have been batched and are ready for printing in the Batch and Print option. In the automatic transmission of the code sheets, this cross-reference contains the code
    sheets that are ready for transmission.
.22 TRANSMIT LIST KEY TRANS;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<1) X
  • LAST EDITED:  JAN 03, 1992
  • HELP-PROMPT:  Answer must be 1-21 characters in length.
  • DESCRIPTION:  
    This field contains the string identifying the time and user creating a list of code sheets to be transmitted to Austin.
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  423^AK
    1)= S:$D(PRC("SITE")) ^PRCF(423,"AK",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AK",$E(X,1,30),DA)
    This cross-reference contains the code sheets that are being transmitted to Austin.
.23 ERROR IN BATCHING KEY TRANS;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<1) X
  • LAST EDITED:  JUN 07, 1990
  • HELP-PROMPT:  Answer must be 1-17 characters in length.
  • DESCRIPTION:  
    This field contains the key number ($H_"-"_DUZ) used to differentiate code sheets errors found by the code sheet batch and print option.
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  423^AL
    1)= S ^PRCF(423,"AL",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AL",$E(X,1,30),DA)
    This cross-reference contains any code sheets in which errors were found during the batch and print option. These code sheets in error will print for the user at the end of the batch and print listing.
.231 BATCHING ERROR TRANS;14 SET
  • '1' FOR NO 'ZEROTH' NODE;
  • '2' FOR NO 'TRANS' NODE;
  • '3' FOR MISSING TRANSMISSION DATE;
  • '4' FOR MISSING TECHNICIAN;
  • '5' FOR INVALID OR MISSING STATION #;
  • '6' FOR INVALID OR MISSING BATCH TYPE;

  • LAST EDITED:  MAR 29, 1989
.24 REPRINT LIST KEY TRANS;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<1) X
  • LAST EDITED:  JUN 07, 1990
  • HELP-PROMPT:  Answer must be 1-17 characters in length.
  • DESCRIPTION:  
    This field contains the string of time_user. It is used for creating a list of code sheets to be retransmitted to Austin.
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  423^AM
    1)= S:$D(PRC("SITE")) ^PRCF(423,"AM",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AM",$E(X,1,30),DA)
    This cross-reference contains the individual batches or all the batches within a transmission number that have been selected for reprint in the Reprint a Batch option.
.25 ON BUDGET LIST TRANS;16 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JUN 19, 1990
  • CROSS-REFERENCE:  423^AO
    1)= S ^PRCF(423,"AO",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AO",$E(X,1,30),DA)
    This cross-reference contains the code sheets for released transactions for a given Fiscal Year and Quarter used in the Generate Budget Code Sheets option.
.3 BATCHED? TRANS;1 SET
  • 'N' FOR NO;
  • 'I' FOR BATCHFLAG;
  • 'Y' FOR YES;

  • LAST EDITED:  APR 21, 1993
  • DESCRIPTION:  
    YES identifies if this code sheet is to be printed.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the TRANSMISSION DATE field of the CALM/LOG CODE SHEET File
  • CROSS-REFERENCE:  423^AC
    1)= I X="N",$D(PRC("SITE")) S ^PRCF(423,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AC",$E(X,1,30),DA)
    This cross-reference contains the code sheets that are ready for the Batch and Print. These code sheets are in the "N" subscript level.
.31 BACKGROUND BATCH 21;6 SET
  • '1' FOR YES;

  • LAST EDITED:  JAN 10, 1992
  • DESCRIPTION:  
    This field is used as a flag to process code sheets in a background job.
  • CROSS-REFERENCE:  423^AP
    1)= S ^PRCF(423,"AP",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AP",$E(X,1,30),DA)
    This cross-reference contains the code sheets that are batched and printed in the background.
.4 DATE PRINTED TRANS;2 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 07, 1985
  • DESCRIPTION:  
    This is the date the code sheet was printed.
.5 TRANSMISSION DATE TRANS;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 01, 1987
  • DESCRIPTION:  
    This is the transmission date of this CALM code sheet.
  • CROSS-REFERENCE:  423^AH^MUMPS
    1)= S $P(^PRCF(423,DA,"TRANS"),"^",1)="N",^PRCF(423,"AC","N",DA)=""
    2)= S $P(^PRCF(423,DA,"TRANS"),"^",1)="" K ^PRCF(423,"AC","N",DA)
    This cross-reference contains the code that sets the code sheets into the "AC","N" cross-reference. The code sheets are now ready for the batch and print.
.6 BATCH TYPE TRANS;4 POINTER TO CALM/LOG BATCH TYPE FILE (#423.9)
************************REQUIRED FIELD************************
CALM/LOG BATCH TYPE(#423.9)

  • LAST EDITED:  AUG 04, 1986
  • DESCRIPTION:  
    This is the batch type for this transmission.
.7 BATCH NUMBER TRANS;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<12)!'(X?3N1"-"3U1"-"2N1"-"5UN) X
  • LAST EDITED:  JAN 25, 1988
  • HELP-PROMPT:  ANSWER MUST BE 12-17 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the batch number for this transmission.
  • CROSS-REFERENCE:  423^AD
    1)= S ^PRCF(423,"AD",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AD",$E(X,1,30),DA)
    This cross-reference contains the code sheet batch numbers.
.8 BATCH PRIORITY TRANS;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>4)!(X<2)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 24, 1988
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 2 AND 4
  • DESCRIPTION:  
    This is the batch priority for this transmission.
  • CROSS-REFERENCE:  423^AE
    1)= S ^PRCF(423,"AE",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AE",$E(X,1,30),DA)
    This cross-reference contains the batch priority for the transmitted code sheets.
.9 TRANSMISSION NUMBER TRANS;8 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<15)!'(X?3N1"-"3U1"-"2N1"-"4N) X
  • LAST EDITED:  JAN 22, 1988
  • HELP-PROMPT:  ANSWER MUST BE 15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the CALM batch transmission number.
.95 CODE SHEET LENGTH TRANS;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 30, 1989
  • HELP-PROMPT:  Enter length of code sheet if fixed. Leave blank if length is variable.
  • DESCRIPTION:  
    This is the length of the code sheet.
1 STATION NUMBER 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the number of the station making the transmission.
2 EDIT TEMPLATE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>18!($L(X)<6)!(X'?1"["4.16ANP1"]") X
  • HELP-PROMPT:  ANSWER MUST BE 10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the edit template for this transmission.
3 TRANSACTION TYPE 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<3) X
  • LAST EDITED:  DEC 10, 1987
  • HELP-PROMPT:  ANSWER MUST BE 3-6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the transaction status code.
    UNEDITABLE
4 TRANSACTION DATE 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<0 X
  • LAST EDITED:  MAY 09, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the transaction date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4.5 DOCUMENT DATE 8;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X
  • OUTPUT TRANSFORM:  S Y=Y
  • LAST EDITED:  MAR 14, 1991
  • DESCRIPTION:  
    This is the date of the transaction document.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 REFERENCE NUMBER 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1UN.UN) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Z0="" S:Y="" Y=" " Q:Y=" " F I=1:1 Q:Z0=+Z0 S Z0=$E(Y,I) I Z0=+Z0 S Y=$E(Y,1,I-1)_$E(Y,I+1,6)
  • LAST EDITED:  JAN 08, 1988
  • HELP-PROMPT:  ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the reference number for this transaction.
  • CROSS-REFERENCE:  423^C
    1)= S ^PRCF(423,"C",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"C",$E(X,1,30),DA)
    This cross-reference contains the reference number for the code sheet, but without the station number.
5.1 PAT NUMBER 1;29 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442) PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)

  • LAST EDITED:  DEC 04, 1987
  • DESCRIPTION:  
    This is the PAT number for this transaction.
  • CROSS-REFERENCE:  423^AI
    1)= S ^PRCF(423,"AI",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AI",$E(X,1,30),DA)
    This cross-reference contains the PAT NUMBER, which is a pointer to the PROCUREMENT & ACCOUNTING TRANSACTIONS file (#442).
5.2 VOUCHER/TICKET NUMBER 1;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU
  • LAST EDITED:  DEC 18, 1990
  • HELP-PROMPT:  ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the voucher/ticket number.
6 YALD CODE 1;1 FREE TEXT

  • INPUT TRANSFORM:  S:X="" X=".." Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!(($L(X)<2)&(X'="$")) X I $D(X) Q:X=".." I $D(X),(X'="$") S X=$E(X,1,2)_"."_$E(X,3)_"."_$E(X,4)
  • OUTPUT TRANSFORM:  S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)
  • LAST EDITED:  OCT 09, 1989
  • HELP-PROMPT:  ENTER STANDARD YALD CODE (with or without the DOTS) OR A '$'
  • DESCRIPTION:  
    This is the standard YALD code or a dollar amount.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 DELIVERY MONTH 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2NA) X
  • LAST EDITED:  APR 16, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the delivery month.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8 SOURCE CODE 1;3 SET
  • '1' FOR VA SUPPLY FUND - DEPOT;
  • '2' FOR VA SUPPLY FUND - STATION;
  • '3' FOR NON-FEDERAL SOURCES;
  • '4' FOR GSA;
  • '5' FOR OTHER FED AGENCIES, A/C, OTHER VA;
  • '6' FOR ACCRUED SVCS PAY - FEDERAL;
  • '7' FOR ACCRUED SVCS PAY - NON FEDERAL;

  • LAST EDITED:  APR 19, 1988
  • DESCRIPTION:  
    This is the source code.
9 DATE 1;4 FREE TEXT

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X
  • LAST EDITED:  NOV 28, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the date of the delivery.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 CONTROL POINT ($ ALLOWED) 1;5 FREE TEXT

  • INPUT TRANSFORM:  I X'="$" S DIC="^PRC(420,"_$P(^PRCF(423,DA,0),U,2)_",1,",DIC(0)="EMNZ" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1)," ",1) K:Y<0 X K DIC
  • LAST EDITED:  APR 23, 1985
  • HELP-PROMPT:  ENTER CONTROL POINT NUMBER OR A "$" TO TERMINATE
  • DESCRIPTION:  
    This is the Fund Control Point number.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=+$P(^PRCF(423,DA,0),U,2) Q:'$D(^PRC(420,Z0,1,0)) S DIC="^PRC(420,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
11 COST CENTER 1;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1"$"!(X?6N)) X
  • LAST EDITED:  DEC 08, 1986
  • HELP-PROMPT:  ENTER STANDARD 6 NUMBER COST CENTER
  • DESCRIPTION:  
    This is the standard 6 digit cost center number.
12 ANALYSIS ACCOUNT 1;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • HELP-PROMPT:  ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the analysis of the account.
13 SUBACCOUNT 1 1;8 FREE TEXT

  • INPUT TRANSFORM:  I X'="$" S DIC=420.2,DIC(0)="MNZQE" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S PRCFLN=4 D RBF^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  ENTER STANDARD CALM 4 NUMBER SUB ACCOUNT
  • DESCRIPTION:  
    This is the CALM 4 standard number sub-account.
  • EXECUTABLE HELP:  S ZD=D,X="?",DIC=420.2,DIC(0)="EMN" D ^DIC S D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
14 AMOUNT 1;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
  • DESCRIPTION:  
    This is the amount of the transaction for the first subaccount.
15 SUBACCOUNT 2 1;10 FREE TEXT

  • INPUT TRANSFORM:  I X'="$"&(X'="TRDE")&(X'="DPST") S DIC=420.2,DIC(0)="MNQE" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S PRCFLN=4 D RBF^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  ENTER SUBACCOUNT NUMBER,'TRDE','DPST', OR '$' AS APPLICABLE
  • DESCRIPTION:  
    This is the sub-account number.
  • EXECUTABLE HELP:  S ZD=D,X="?",DIC=420.2,DIC(0)="EMN" D ^DIC S D=ZD K ZD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
16 AMOUNT 2 1;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
  • DESCRIPTION:  
    This is the amount of the transaction for the second subaccount.
17 LIQUIDATION CODE 1;12 SET
  • 'C' FOR C;
  • 'P' FOR P;
  • 'F' FOR F;
  • '$' FOR $;

  • DESCRIPTION:  
    This is the liquidation code.
18 LIQUIDATION AMOUNT 1 1;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999999
  • DESCRIPTION:  
    This is the liquidation amount 1.
19 LIQUIDATION AMOUNT 2 1;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
  • DESCRIPTION:  
    This is the liquidation amount 2.
20 RECEIVABLE CODE 1;15 SET
  • '0' FOR CONTING ASSET T/C 932;
  • '1' FOR FEDERAL G/L 3011;
  • '2' FOR NON FEDERAL G/L 3012;
  • '3' FOR REIMB - FED G/L 1022;
  • '4' FOR REIMB - NON FED G/L 1022;
  • '5' FOR REIMB - Q&S G/L 1022;

  • LAST EDITED:  APR 19, 1988
  • DESCRIPTION:  
    This is the receivable code.
21 SUB ACCOUNT/PAYROLL ANALYSIS 2;0 Multiple #423.01 423.01

  • DESCRIPTION:  
    This is the subaccount payroll analysis.
22 SOC SEC NUMBER 1;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • LAST EDITED:  APR 10, 1985
  • HELP-PROMPT:  ANSWER MUST BE 9 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the social security number of the employee, if appropriate.
23 STUB NAME 1;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S PRCFLN=3 D RBF^PRCFU
  • LAST EDITED:  JUL 20, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the stub name.
24 LINE NUMBER (1-38) 3;0 Multiple #423.02 423.02

  • LAST EDITED:  DEC 16, 1992
  • DESCRIPTION:  
    This is the line number of the transaction.
25 PAT REFERENCE NUMBER 1;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?6AN) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the PENDING ACCOUNTING TRANSACTION reference number.
26 SECOND STATION NUMBER 1;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the three character second station number.
27 INVENTORY ACCOUNT CODE 1;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the 2 character inventory account code.
28 TRANSFER FROM STATION NUMBER 1;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the station that is the source of the transferred funds.
29 TRANSFER TO STATION NUMBER 1;23 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  APR 19, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the station that receives the transferred funds.
30 ACCRUAL COST CENTER LINE # 4;0 Multiple #423.03 423.03

  • DESCRIPTION:  
    This is the accrual cost center line number.
31 SECTION A 1;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  APR 22, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This field contains an 'A' if section A is to be used, or a '$' to terminate the code sheet.
32 SECTION B 1;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  APR 22, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This field contains a 'B' if section B is to be used, or a '$' to terminate the code sheet.
33 SECTION C 1;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  APR 22, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This field contains a 'C' if section C is to be used, or a '$' to terminate the code sheet.
34 SECTION D 1;27 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  APR 22, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This field contains a 'D' if section D is to be used, or a '$' to terminate the code sheet.
35 SECTION B LINE NUMBER 5;0 Multiple #423.04 423.04

  • DESCRIPTION:  
    This is the section B line number.
36 Q & S AMOUNT 6;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 22, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999
  • DESCRIPTION:  
    This is the quarter and subsistence amount.
37 Q & S STATION NUMBER 6;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  APR 22, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
38 TERMINAL LEAVE PAYMENTS 6;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  APR 22, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Theses are terminal leave payments.
39 ACCOUNTING MONTH 6;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  APR 22, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the accounting month.
40 REC STA OR FCP 7;0 Multiple #423.05 423.05

  • DESCRIPTION:  
    This is the receiving station or the fund control point.
41 LIQ CODE 1 6;5 SET
************************REQUIRED FIELD************************
  • 'C' FOR C;
  • 'P' FOR P;
  • 'F' FOR F;
  • '1' FOR 1;
  • '2' FOR 2;
  • '3' FOR 3;

  • LAST EDITED:  JUL 23, 1985
  • HELP-PROMPT:  ENTER LIQUIDATION CODE, LETTERS FOR CURRENT YEAR, NUMBERS FOR PRIOR YEAR
  • DESCRIPTION:  
    This is the liquidation code 1, letters for the current year and numbers for the prior year.
42 LIQ CODE 2 6;6 SET
************************REQUIRED FIELD************************
  • 'F' FOR F;
  • 'C' FOR C;
  • 'P' FOR P;

  • LAST EDITED:  JUL 23, 1985
  • DESCRIPTION:  
    This is the liquidation code 2.
43 VENDOR ID NUMBER 6;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S PRCFLN=9 D RBF^PRCFU
  • LAST EDITED:  JUL 05, 1989
  • HELP-PROMPT:  ENTER CALM VENDOR ID NUMBER
  • DESCRIPTION:  
    This is the vendor identification number.
44 CHECK ENCLOSURE CODE 6;8 SET
************************REQUIRED FIELD************************
  • '1' FOR 1;
  • '2' FOR 2;
  • '5' FOR 5;
  • 'F' FOR F;
  • 'P' FOR P;
  • 'X' FOR X;

  • LAST EDITED:  MAR 01, 1993
  • HELP-PROMPT:  ENTER STANDARD CALM CHECK ENCLOSURE CODE NUMBER
  • DESCRIPTION:  
    This is the standard CALM check enclosure code number.
45 VENDOR NAME 6;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<3)!'(X?1UPN.UPN) X
  • LAST EDITED:  MAR 12, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3-23 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the vendor name.
46 FIRST ADDRESS LINE 6;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1) X
  • LAST EDITED:  JUL 23, 1985
  • HELP-PROMPT:  ENTER FIRST LINE OF VENDOR ADDRESS - NOT TO EXCEED 23 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the first line of the vendor address.
47 SECOND ADDRESS LINE 6;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1) X
  • LAST EDITED:  JUL 23, 1985
  • HELP-PROMPT:  ENTER SECOND LINE OF VENDOR ADDRESS - NOT TO EXCEED 23 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the second line of the vendor address.
48 CITY 6;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<1) X
  • LAST EDITED:  JUL 23, 1985
  • HELP-PROMPT:  ENTER CITY OF VENDOR - DO NOT EXCEED 13 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the city of the vendor address.
49 STATE 6;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  JUL 23, 1985
  • HELP-PROMPT:  ENTER 2 CHARACTER ABBREVIATION OF STATE OF VENDOR
  • DESCRIPTION:  
    This is the two character abbreviation of the state of the vendor address.
50 ZIP CODE 6;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X
  • LAST EDITED:  SEP 18, 1985
  • HELP-PROMPT:  ENTER 5 OR 9 DIGIT ZIP CODE
  • DESCRIPTION:  
    This is the 5 or 9 digit zip code of the vendor address.
51 INVOICE/BILL NUMBER 6;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<1) X
  • LAST EDITED:  JUL 23, 1985
  • HELP-PROMPT:  ENTER INVOICE OR BILL NUMBER TO IDENTIFY PAYMENT -16 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the invoice or bill number to identify the payment.
52 COST CENTER 1 8;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1"$"!(X?6N)) X
  • LAST EDITED:  JUL 26, 1985
  • HELP-PROMPT:  ENTER STANDARD 6 DIGIT COST CENTER OR "$" TO END CODE SHEET
  • DESCRIPTION:  
    This is the 6 digit cost center 2 number.
53 ANALYSIS ACCOUNT 2 8;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  JUL 26, 1985
  • HELP-PROMPT:  ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the analysis account 2.
54 COST CENTER 2 8;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?1"$"!(X?6N)) X
  • LAST EDITED:  JUL 26, 1985
  • HELP-PROMPT:  ENTER STANDARD CALM 6 DIGIT COST CENTER OR "$" TO END CODE SHEET
  • DESCRIPTION:  
    This is the 6 digit cost center 2 number.
55 VENDOR/AGENT CASHIER ID 8;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  SEP 18, 1985
  • HELP-PROMPT:  ENTER VENDOR/AGENT CASHIER ID DO NOT EXCEED 9 CHARACTERS
  • DESCRIPTION:  
    This is the vendor/agent cashier identification number.
56 PAT ADVANCE REF # 8;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  SEP 18, 1985
  • HELP-PROMPT:  ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the PENDING ACCOUNTING TRANSACTION (PAT) advance reference number.
57 ADVANCE AMT/APPLIED 8;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 18, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
  • DESCRIPTION:  
    This is the advance applied amount.
58 AMOUNT CLAIMED 1 8;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 18, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
  • DESCRIPTION:  
    This is the amount claimed 1.
59 AMOUNT CLAIMED 2 8;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 18, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999
  • DESCRIPTION:  
    This is the amount claimed 2.
60 NAME 8;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1) X
  • LAST EDITED:  SEP 18, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-23 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the name of the employee receiving a travel advance.
61 DELIVERY MONTH - 921.60 0;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S X1=$A($E(X)),X2=$A($E(X,2)) K:$L(X)>2!(X1<65)!(X2<65)!(X1>77)!(X2>77)!((X1+X2)>142)!(X["I") X K X1,X2
  • LAST EDITED:  SEP 08, 1986
  • DESCRIPTION:  
    This is the 2 letter delivery month.
  • EXECUTABLE HELP:  D DDATE^PRCFALD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
62 DELIVERY DATE - 920 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  NOV 01, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the 3 character delivery date.
63 RECEIVING STATION 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'((X?3N)!(X?1"OGA")) X
  • LAST EDITED:  NOV 01, 1985
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the receiving station.
64 CONTROL POINT ($ NOT ALLOWED) 0;13 FREE TEXT

  • INPUT TRANSFORM:  S DIC="^PRC(420,"_$P(^PRCF(423,DA,0),U,2)_",1,",DIC(0)="EMNZ" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1)," ",1) K:Y<0 X K DIC
  • LAST EDITED:  NOV 01, 1985
  • HELP-PROMPT:  ENTER VALID CONTROL POINT NUMBER
  • DESCRIPTION:  
    This is the fund control point number.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=+$P(^PRCF(423,DA,0),U,2) Q:'$D(^PRC(420,Z0,1,0)) S DIC="^PRC(420,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65 DOCUMENT NUMBER 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?1UN.UN) X
  • LAST EDITED:  MAR 09, 1986
  • HELP-PROMPT:  ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the document number.
66 SF ACCT CODE LINE # 9;0 Multiple #423.07 423.07

  • DESCRIPTION:  
    This is the SF Accounting code line number.
67 FROM SECTION 0;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  NOV 01, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This is the lender to section A on a CALM 973 code sheet.
68 APPROPRIATION CODE 1 0;15 FREE TEXT

  • INPUT TRANSFORM:  S:X="" X=".." Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!($L(X)<2) X Q:'$D(X) Q:X=".." S X=$E(X,1,2)_"."_$E(X,3)_"."_$E(X,4)
  • OUTPUT TRANSFORM:  S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)
  • LAST EDITED:  OCT 09, 1989
  • HELP-PROMPT:  Enter Standard YALD code - with or without the DOTS.
  • DESCRIPTION:  
    This is the appropriation code 1.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
69 ACCOUNT CODE 0;16 FREE TEXT

  • INPUT TRANSFORM:  I X'="09",X'=14,X'=15,X'=16,X'=17,X'=24 K X
  • LAST EDITED:  NOV 01, 1985
  • HELP-PROMPT:  ENTER WITH ACCOUNT CODES '09',14,15,16,17 OR 24 AS APPLICABLE
  • DESCRIPTION:  
    This is the account code.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
70 COST CENTER 'A' LINE # 10;0 Multiple #423.08 423.08

  • DESCRIPTION:  
    This is the cost center line 'A' number.
71 TO SECTION 0;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  NOV 01, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This is the receiving section on a CALM 973 code sheet.
72 APPROPRIATION CODE 2 0;19 FREE TEXT

  • INPUT TRANSFORM:  S:X="" X=".." Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!($L(X)<2) X Q:'$D(X) Q:X=".." S X=$E(X,1,2)_"."_$E(X,3)_"."_$E(X,4)
  • OUTPUT TRANSFORM:  S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)
  • LAST EDITED:  OCT 09, 1989
  • HELP-PROMPT:  Enter Standard YALD code - with or without the DOTS.
  • DESCRIPTION:  
    This is the appropriation code 2.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
73 FUND CONTROL POINT 0;20 FREE TEXT

  • INPUT TRANSFORM:  S DIC="^PRC(420,"_$P(^PRCF(423,DA,0),U,2)_",1,",DIC(0)="EMNZ" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1)," ",1) K:Y<0 X K DIC
  • LAST EDITED:  NOV 01, 1985
  • HELP-PROMPT:  ENTER CONTROL POINT NUMBER
  • DESCRIPTION:  
    This is the fund control point number.
  • EXECUTABLE HELP:  S ZD=D,X="?",Z0=+$P(^PRCF(423,DA,0),U,2) Q:'$D(^PRC(420,Z0,1,0)) S DIC="^PRC(420,Z0,1,",DIC(0)="QEM" D ^DIC S DIC=DIE,D=ZD K ZD,Z0
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
74 COST CENTER 'B' LINE # 11;0 Multiple #423.09 423.09

  • DESCRIPTION:  
    This is the cost center line 'B' number.
75 TT974 LINE NUMBER 12;0 Multiple #423.1 423.1

  • DESCRIPTION:  
    This is the TT974 line number.
76 LINE # 13;0 Multiple #423.11 423.11

  • DESCRIPTION:  
    This is the line number for various multiple fields within CALM.
77 ACTION CODE 1 0;21 SET
  • '1' FOR ADDITIONS;
  • '2' FOR SUBTRACTIONS;
  • '3' FOR DATA OR POSITIVE AMT (OVERLAY);
  • '4' FOR NEGATIVE AMOUNTS (OVERLAY);

  • LAST EDITED:  NOV 03, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This is the action code 1.
78 ACTION CODE 2 0;22 SET
  • '1' FOR ADDITIONS;
  • '2' FOR SUBTRACTIONS;
  • '3' FOR DATA OR POSITIVE AMT (OVERLAY);
  • '4' FOR NEGATIVE AMOUNTS (OVERLAY);
  • '$' FOR $;

  • LAST EDITED:  NOV 03, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This is the action code 2.
79 AMOUNT 1 6;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
  • DESCRIPTION:  
    This is the amount 1.
80 AMOUNT 2 (9) 6;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 03, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
  • DESCRIPTION:  
    This is the amount 2.
81 LIQ. CODE 6;18 SET
  • 'C' FOR C;
  • 'P' FOR P;
  • 'F' FOR F;

  • LAST EDITED:  FEB 27, 1986
  • DESCRIPTION:  
    This is the liquidation code.
82 SUB ACCT/GL ACCT 6;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?4N) X
  • LAST EDITED:  FEB 27, 1986
  • HELP-PROMPT:  ENTER STANDARD SUB ACCOUNT NUMBER OR GENERAL LEDGER ACCOUNT NUMBER
  • DESCRIPTION:  
    This is the standard subaccount number or general ledger account number.
83 GROSS PAYMENT AMOUNT 6;20 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1986
  • HELP-PROMPT:  ENTER GROSS PAYMENT AMOUNT, WITH NO DECIMAL POINT
  • DESCRIPTION:  
    This is the gross payment amount.
84 AMOUNT TO BE LIQUIDATED 6;21 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1986
  • HELP-PROMPT:  ENTER AMOUNT TO BE LIQUIDATED
  • DESCRIPTION:  
    This is the amount to be liquidated.
85 GENERAL LEDGER ACCOUNT 6;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'(X?4N) X
  • LAST EDITED:  FEB 27, 1986
  • HELP-PROMPT:  ENTER STANDARD 4 NUMBER GENERAL LEDGER ACCOUNT NUMBER
  • DESCRIPTION:  
    This is the standard 4 number general ledger account number.
86 OFFSET AMOUNT 6;23 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1986
  • HELP-PROMPT:  ENTER AMOUNT TO BE OFFSET, NO DECIMAL POINT PLEASE
  • DESCRIPTION:  
    This is the amount to be offset.
87 OFFSET REFERENCE NUMBER 6;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  FEB 27, 1986
  • HELP-PROMPT:  ENTER REFERENCE NUMBER OF OFFSET. ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the reference number of the offset.
88 OFFSET STATION NUMBER 6;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  FEB 27, 1986
  • HELP-PROMPT:  ENTER STATION NUMBER OF OFFSET, ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the station number of the offset.
89 REF # (2ND LINE) 14;0 Multiple #423.12 423.12

  • DESCRIPTION:  
    This is the second line reference number.
90 941 LINE NUMBER 15;0 Multiple #423.13 423.13

  • DESCRIPTION:  
    This is the 941 line number.
91 CREDITOR SSN OR VENDOR ID 0;23 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1)!'(X?1UN.UN) X
  • LAST EDITED:  MAR 07, 1986
  • HELP-PROMPT:  CREDITOR SSN OR VENDOR ID 1 TO 9 UPPER CASE OR NUMERIC CHARACTERS
  • DESCRIPTION:  
    This is the creditor social security number or the vendor identification number.
92 VENDOR TYPE 0;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 07, 1986
  • HELP-PROMPT:  ENTER VENDOR TYPE 1-2 FOR SC 31, 1-3 FOR SC 33 OR BLANK
  • DESCRIPTION:  
    This is the vendor type.
93 ORIGINAL TRANSACTION CODE 1;28 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  MAR 09, 1986
  • HELP-PROMPT:  ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the original transaction code.
94 ORIGINAL STATUS CODE 6;26 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X
  • LAST EDITED:  JUN 24, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the original status code.
95 ORIGINAL TRANSACTION DATE 6;27 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,4,7)_$E(X,2,3)
  • OUTPUT TRANSFORM:  S Y=Y
  • LAST EDITED:  AUG 15, 1991
  • DESCRIPTION:  
    This is the original transaction date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
96 PAT TYPE CODE 6;28 SET
  • 'B' FOR B;
  • 'C' FOR C;
  • 'J' FOR J;
  • 'L' FOR L;
  • 'S' FOR S;
  • 'T' FOR T;
  • 'W' FOR W;

  • LAST EDITED:  MAR 09, 1986
  • DESCRIPTION:  
    This is the PENDING ACCOUNTING TRANSACTION (PAT) type code.
97 945 LINE NUMBER 16;0 Multiple #423.14 423.14

  • DESCRIPTION:  
    This is the 945 line number.
98 946 LINE NUMBER 17;0 Multiple #423.15 423.15

  • DESCRIPTION:  
    This is the 946 line number.
99 SUB ACCOUNT 8;10 POINTER TO BUDGET OBJECT CODE FILE (#420.2) BUDGET OBJECT CODE(#420.2)

  • LAST EDITED:  MAR 09, 1986
  • DESCRIPTION:  
    This is the subaccount.
100 LINE NUMBER (1-5) 18;0 Multiple #423.16 423.16

  • DESCRIPTION:  
    This is a line number which cannot exceed 5 records.
101 ACCOMPLISHED DATE 8;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X
  • OUTPUT TRANSFORM:  S Y=Y
  • LAST EDITED:  MAR 14, 1991
  • DESCRIPTION:  
    This is the accomplished date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
102 PAT ACTION CODE 8;13 SET
  • '1' FOR UPDATE EXISTING PAT RECORD;
  • '2' FOR REESTABLISH RECEIVABLE PAT RECORD;

  • LAST EDITED:  APR 19, 1988
  • DESCRIPTION:  
    This is the PENDING ACCOUNTING TRANSACTION code.
103 SERVICE CODE 19;1 SET
  • '01' FOR 01;
  • '02' FOR 02;
  • '03' FOR 03;
  • '04' FOR 04;
  • '05' FOR 05;
  • '06' FOR 06;
  • '07' FOR 07;
  • '08' FOR 08;
  • '09' FOR 09;
  • '10' FOR 10;
  • '11' FOR 11;
  • '12' FOR 12;
  • '13' FOR 13;
  • '14' FOR 14;
  • '15' FOR 15;
  • '16' FOR 16;
  • '17' FOR 17;
  • '18' FOR 18;
  • '19' FOR 19;
  • '20' FOR 20;
  • '21' FOR 21;
  • '22' FOR 22;
  • '40' FOR 40;
  • '41' FOR 41;
  • '42' FOR 42;
  • '43' FOR 43;
  • '44' FOR 44;
  • '45' FOR 45;
  • '46' FOR 46;

  • LAST EDITED:  MAR 01, 1993
  • HELP-PROMPT:  ENTER ACCOUNT CODE FULL REFERENCE IS CONTAINED IN MP4 PV PARA12D.06
  • DESCRIPTION:  
    This is the service code.
104 INVOICE OR BILL # 8;14 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<1)!'((X?.UN1"/"6N)!(X?3N1"/"3N)!(X?6UN1"/"3N)) X
  • LAST EDITED:  APR 18, 1988
  • HELP-PROMPT:  ENTER TYPE OF DOC., THEN A "/", 3 DIGIT STA NUM AND 3 DIGIT DOCUMENT NUMBER
  • DESCRIPTION:  
    This is the invoice or bill number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
105 DOCUMENT # 8;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>23!($L(X)<1)!'(X?.UN1"/"6N) X
  • LAST EDITED:  MAR 09, 1986
  • HELP-PROMPT:  ENTER DOCUMENT NUMBER, A "/", 3 DIGIT STATION NUMBER AND 3 DIGIT SEQ. NUMBER
  • DESCRIPTION:  
    This is the document number.
106 929 ANALYSIS ACCOUNT 19;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<4)!'(X?4.5N) X
  • LAST EDITED:  AUG 15, 1986
  • HELP-PROMPT:  ANSWER MUST BE 4-5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the 929 analysis account.
107 929 ANALYSIS ACCOUNT 2 19;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<4)!'(X?4.5N) X
  • LAST EDITED:  AUG 15, 1986
  • HELP-PROMPT:  ANSWER MUST BE 4-5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the 929 analysis account 2.
108 BALANCE AMOUNT 8;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<-99999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 04, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN -99999999999 AND 99999999999
  • DESCRIPTION:  
    This is the balance amount.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the AMOUNT field of the LINE NUMBER (1-38) sub-field of the CALM/LOG CODE SHEET File
    TRIGGERED by the COLLECTION AMOUNT field of the LINE NUMBER (1-38) sub-field of the CALM/LOG CODE SHEET File
109 BALANCE AMOUNT 2 8;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999999)!(X<-9999999999999)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 08, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN -9999999999999 AND 9999999999999
  • DESCRIPTION:  
    This is the balance amount 2.
110 CP/ALD CODE 8;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  SEP 08, 1986
  • HELP-PROMPT:  ENTER CP NUMBER OR ALD CODE AS APPLICABLE
  • DESCRIPTION:  
    This is the fund control point number or Appropriation Limitation Department (ALD) code.
111 P/S ANALYSIS ACCOUNT 20;0 Multiple #423.17 423.17

  • DESCRIPTION:  
    This is the personal service analysis account.
112 KEYPUNCH CODE KEY;0 WORD-PROCESSING #423.18

  • DESCRIPTION:  
    This is the keypunch code.
  • LAST EDITED:  NOV 25, 1986
113 BLANK FIELD 19;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<1) X
  • LAST EDITED:  DEC 22, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-13 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is a blank field used to hold a space and a CALM \ code sheet.
114 RECEIVING STATION - 920.04 6;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 14, 1987
  • HELP-PROMPT:  ENTER 'OGA' ONLY
  • DESCRIPTION:  
    This is the receiving station.
115 939 YALD CODE 6;30 FREE TEXT

  • INPUT TRANSFORM:  S:X="" X=".." Q:X?.2UN1".".1UN1"." K:$L(X)>3!($L(X)<2)!(X'?2.3UN) X I $D(X) Q:X=".." I $D(X) S X=$E(X,1,2)_"."_$E(X,3)_"."
  • LAST EDITED:  OCT 09, 1989
  • HELP-PROMPT:  Enter applicable YALD code. The "D" portion of the field is always blank. X53 not valid for 939
  • DESCRIPTION:  
    This is the valid YALD code.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
116 COST CENTER #1 21;7 POINTER TO COST CENTER FILE (#420.1) COST CENTER(#420.1)

  • LAST EDITED:  JUL 07, 1992
  • HELP-PROMPT:  Enter 1204 or 1302 as applicable
  • DESCRIPTION:  
    This field contains the 921 analysis account for VACO.
116.1 PERCENT 1 21;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 06, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
116.2 YALD 1 21;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  JUL 06, 1992
  • HELP-PROMPT:  Enter Valid YALD code
116.3 CP 1 21;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2)!'(X?3N) X
  • LAST EDITED:  JUL 06, 1992
  • HELP-PROMPT:  Enter 3 digit CP number
116.4 COST CENTER #2 21;11 POINTER TO COST CENTER FILE (#420.1) COST CENTER(#420.1)

  • LAST EDITED:  JUL 07, 1992
116.5 PERCENT 2 21;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 06, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
116.6 YALD 2 21;17 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  JUL 06, 1992
  • HELP-PROMPT:  Enter valid YALD code
116.7 CP 2 21;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • LAST EDITED:  JUL 06, 1992
  • HELP-PROMPT:  Enter 3 digit CP number
116.8 COST CENTER 3 21;12 POINTER TO COST CENTER FILE (#420.1) COST CENTER(#420.1)
116.9 PERCENT 3 21;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
117 P&R CC (1-7) 23;0 POINTER Multiple #423.0117 423.0117

  • LAST EDITED:  FEB 12, 1992
  • HELP-PROMPT:  Supply Fund must be 000
117.1 YALD 3 21;18 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • HELP-PROMPT:  Enter valid YALD code
117.2 CP 3 21;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • HELP-PROMPT:  Enter 3 digit CP number
117.3 COST CENTER 4 21;13 POINTER TO COST CENTER FILE (#420.1) COST CENTER(#420.1)
117.4 PERCENT 4 21;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
117.5 YALD 4 21;19 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • HELP-PROMPT:  Enter valid YALD code
117.6 CP 4 21;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3N) X
  • HELP-PROMPT:  Enter 3 digit CP number
118 TRANSPORTATION AMOUNT 24;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99999999999, 0 Decimal Digits
119 MARK UP AMOUNT 24;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99999999999, 0 Decimal Digits
120 PAYABLE AMOUNT 24;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 18, 1992
  • HELP-PROMPT:  Type a Number between 0 and 99999999999, 0 Decimal Digits
150 DOCUMENT TYPE 100;1 SET
************************REQUIRED FIELD************************
  • 'C' FOR CERTIFIED INVOICE;

  • LAST EDITED:  JUN 02, 1989
  • DESCRIPTION:  
    This is the document type.
151 DOCUMENT LOCATOR NUMBER 100;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<11)!'(X?11N) X
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  ANSWER MUST BE 11 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the document locator number.
152 DISCOUNT PERCENT 100;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.99)!(X<.01)!(X?.E1"."3N.N) X
  • OUTPUT TRANSFORM:  I '$D(PRCF("OUT")) S Y=Y*100,PRCFLN=4 D LZF^PRCFU
  • LAST EDITED:  APR 02, 1992
  • HELP-PROMPT:  Type a Number between .01 and 99.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the discount percent amount.
153 DISCOUNT DAYS 100;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S PRCFLN=2 D LZF^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of discount days.
154 DISCOUNT TERMS 100;13 SET
************************REQUIRED FIELD************************
  • 'X' FOR STANDARD;
  • 'P' FOR PROX;
  • 'E' FOR EOM;

  • LAST EDITED:  JUL 28, 1989
  • DESCRIPTION:  
    This is the set of codes for discount terms.
155 DISCOUNT AMOUNT 100;27 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) D CAPSDOL^PRCFU
  • LAST EDITED:  JUL 05, 1989
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the discount amount.
156 INVOICE NUMBER 100;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<1) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S PRCFLN=16 D RBF^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-16 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the invoice number.
157 INVOICE DATE 100;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S Y(0)=Y I '$D(PRCF("OUT")) D CAPSDATE^PRCFU
  • LAST EDITED:  FEB 28, 1992
  • DESCRIPTION:  
    This is the date of the invoice.
158 INVOICE AMOUNT 100;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) D CAPSDOL^PRCFU
  • LAST EDITED:  JUL 05, 1989
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the invoice amount.
159 SHIPPING AMOUNT 100;14 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) D CAPSDOL^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the shipping amount.
160 DATE INVOICE RECEIVED 100;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S Y(0)=Y I '$D(PRCF("OUT")) D CAPSDATE^PRCFU
  • LAST EDITED:  FEB 28, 1992
  • DESCRIPTION:  
    This is the date the invoice was received.
161 MEMO 1 100;28 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S PRCFLN=3 D RBF^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the first memo.
162 MEMO 2 100;29 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S PRCFLN=3 D RBF^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the second memo, if applicable.
163 MEMO 3 100;30 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S PRCFLN=3 D RBF^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the third memo, if applicable.
164 INTEREST INDICATOR 100;23 SET
  • 'X' FOR BLANK;
  • 'I' FOR INTEREST ONLY;
  • 'P' FOR PAYMENT ONLY;

  • LAST EDITED:  JUN 02, 1989
  • DESCRIPTION:  
    This is the interest indicator.
165 INVOICE SUFFIX 100;26 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S PRCFLN=4 D LZF^PRCFU
  • LAST EDITED:  JUL 05, 1989
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the invoice suffix.
166 CAPPS LIQUIDATION CODE 100;16 SET
  • 'C' FOR COMPLETE;
  • 'P' FOR PARTIAL;

  • LAST EDITED:  JUN 02, 1989
  • DESCRIPTION:  
    This is the CAPPS liquidation code.
167 CAPPS LIQUIDATION AMT 1 100;19 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) D CAPSDOL^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the CAPPS liquidation amount 1.
168 CAPPS LIQUIDATION AMT 2 100;20 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999.99)!(X<.01) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) D CAPSDOL^PRCFU
  • LAST EDITED:  JUN 02, 1989
  • HELP-PROMPT:  Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the CAPPS liquidation amount 2.
169 DATE SERVICE RECEIVED 100;21 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S Y(0)=Y I '$D(PRCF("OUT")) D CAPSDATE^PRCFU
  • LAST EDITED:  FEB 28, 1992
  • DESCRIPTION:  
    This is the date that the services were performed or completed.
170 MONEY MANAGEMENT EXEMPT 100;22 SET
  • 'B' FOR BLANK;
  • 'X' FOR EXEMPT;

  • LAST EDITED:  JUN 02, 1989
  • DESCRIPTION:  
    This is the indicator for whether funds are money management exempt.
171 CAPPS PRODUCT TYPE 100;6 SET
  • 'X' FOR NORMAL;
  • 'P' FOR PRODUCE;
  • 'M' FOR MEAT;
  • 'F' FOR PROGRESS;
  • 'D' FOR DAIRY;
  • 'C' FOR CONTRACT;
  • 'V' FOR PRIME VENDOR;

  • LAST EDITED:  OCT 07, 1993
  • DESCRIPTION:  
    This is the set of codes for the CAPPS product type.
172 CAPPS SUBACCOUNT 1 100;17 FREE TEXT

  • INPUT TRANSFORM:  I "DPST$"'[X S DIC=420.2,DIC(0)="MNZQE" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S PRCFLN=4 D RBF^PRCFU
  • LAST EDITED:  JUL 05, 1989
  • HELP-PROMPT:  Enter standard CALM Sub-Account, or DPST
  • DESCRIPTION:  
    This is the CAPPS subaccount 1.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
173 CAPPS SUBACCOUNT 2 100;18 FREE TEXT

  • INPUT TRANSFORM:  I "TRDE~DPST"'[X S DIC=420.2,DIC(0)="MNQE" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S PRCFLN=4 D RBF^PRCFU
  • LAST EDITED:  JUL 05, 1989
  • HELP-PROMPT:  ANSWER MUST BE 4 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is CAPPS subaccount 2.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300 LINE ITEM NUMBER 300;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 17, 1987
  • HELP-PROMPT:  Type a Number between 1 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the line item number.
300.1 LOG BATCH NO. 300;25 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<9) X
  • LAST EDITED:  MAR 14, 1989
  • HELP-PROMPT:  Created automatically when new LOG code sheets are created. Made up of Station No._"-"_P.O.No._"."_Partial No. (period & partial no. for receiving only)
  • DESCRIPTION:  
    This is the number that is created automatically upon creation of new log code sheets (i.e., Station Number, Purchase Order Number, (period (.)), and Partial Number (period and partial number are used for receiving only).
  • CROSS-REFERENCE:  423^AN
    1)= S ^PRCF(423,"AN",$E(X,1,30),DA)=""
    2)= K ^PRCF(423,"AN",$E(X,1,30),DA)
    This cross-reference contains the LOG BATCH NO.
301 TOTAL VALUE 300;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y'=" " S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU
  • LAST EDITED:  AUG 30, 1989
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the total value.
302 QUANTITY 300;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1)!'(X?.5N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Z=$S($D(PRCHCS("CANC")):PRCHCS("CANC"),1:"") S:Z="C" Y=" " I Z'="C" S PRCFLN=5 D LZF^PRCFU K Z
  • LAST EDITED:  APR 11, 1989
  • HELP-PROMPT:  Enter Quantity (between 1 and 99999).
  • DESCRIPTION:  
    This is the quantity of invoice items.
303 UNIT OF ISSUE 300;4 POINTER TO UNIT OF ISSUE FILE (#420.5)
************************REQUIRED FIELD************************
UNIT OF ISSUE(#420.5)

  • OUTPUT TRANSFORM:  S PRCHZ(2)=$S($D(^PRCF(423,DA,0)):$P(^(0),U,4),1:""),PRCHZ(1)=$S($D(^PRCD(420.5,+Y,0)):^(0),1:"") S:PRCHZ(1)]"" Y=$S(PRCHZ(2)=100:$P(PRCHZ(1),U,3),1:$P(PRCHZ(1),U,1)) K PRCHZ I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 10, 1989
  • DESCRIPTION:  
    This is the unit of issue for the invoice item(s).
304 FISCAL YEAR OF FUNDING 300;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 11, 1989
  • HELP-PROMPT:  Type a Number between 0 and 9, 0 Decimal Digits
  • DESCRIPTION:  
    This is the fiscal year of funding.
305 FISCAL MONTH 300;6 SET
************************REQUIRED FIELD************************
  • '1' FOR JANUARY;
  • '2' FOR FEBRUARY;
  • '3' FOR MARCH;
  • '4' FOR APRIL;
  • '5' FOR MAY;
  • '6' FOR JUNE;
  • '7' FOR JULY;
  • '8' FOR AUGUST;
  • '9' FOR SEPTEMBER;
  • '0' FOR OCTOBER;
  • 'J' FOR NOVEMBER;
  • 'K' FOR DECEMBER;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 23, 1989
  • DESCRIPTION:  
    This is the month of fiscal funding.
306 DUE-IN DATE 300;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y="" Y=" " S:Y Y=$E("1234567890JK",+$E(Y,4,5))_$E(Y,6,7)_$E(Y,3)
  • LAST EDITED:  MAY 10, 1989
  • DESCRIPTION:  
    This is the due-in date for the invoice item(s).
306.1 DATE OF RECEIPT 300;22 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y]"" Y=$E("1234567890JK",+$E(Y,4,5))_$E(Y,6,7) S:Y="" Y=" "
  • LAST EDITED:  APR 07, 1989
  • HELP-PROMPT:  Enter Partial Receipt Date.
  • DESCRIPTION:  
    This is the partial receipt date.
306.2 DATE 300;23 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  D:Y&'$D(PRCHLOG) DD^%DT I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCH0=$E(Y,3),X1=Y,X2=$E(Y,1,3)_"0101" D ^%DTC S X=X+1,Y=PRCH0_$E("000"_X,$L(X)+1,6) K PRCH0
  • LAST EDITED:  FEB 26, 1998
  • DESCRIPTION:  
    This is the date of item receipt.
307 STOCK NUMBER (NSN) 300;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<9) X
  • OUTPUT TRANSFORM:  I $D(Y),$D(PRCHLOG) S:$L(Y)=9 Y=Y_" " S PRCFLN=13 D LBF^PRCFU
  • LAST EDITED:  MAY 23, 1989
  • HELP-PROMPT:  Enter two question marks for help
  • DESCRIPTION:  DLA ACQUISITIONS code sheets, enter 13 digit NSN.
    UNPOSTED RECEIVING non-drug items, or drug items from Depot,
    enter 3 blanks followed by 9 or 10 digit N.I.I.N. code (National
    Stock number, without leading FSC code.)
    UNPOSTED RECEIVING Drugs from any source other than Depot
    cc 1 'A' if narcotic, 'L' if controlled substance, or 'D' otherwise.
    cc 2-13 NDC
    cc 2-7 labeler code. If not 6 digits, put in 1 leading 0.
    cc 8-11 product code.
    cc 12-13 package code.
    If NDC is not long enough, left justify it and fill end with blanks.
308 N.I.I.N. (STOCK NO.) 300;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<9)!((X'?9N.A)&(X'?9N." ")) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=10 D RBF^PRCFU
  • LAST EDITED:  SEP 26, 1989
  • HELP-PROMPT:  Enter the last 9 Digits of the NSN and the Suffix.
  • DESCRIPTION:  
    This is the last nine digits of the National Stock Number and the Suffix.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
309 NOMENCLATURE (21) 300;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>21!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Z0="",$P(Z0," ",22-$L(Y))="",Y=Y_Z0 K Z0
  • LAST EDITED:  AUG 18, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-21 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the 21 character nomenclature entry.
310 NOMENCLATURE (15) 300;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Z0="",$P(Z0," ",16-$L(Y))="",Y=Y_Z0 K Z0
  • LAST EDITED:  DEC 04, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the fifteen character nomenclature entry.
310.5 NOMENCLATURE (20) 301;32 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=20 D RBF^PRCFU
  • LAST EDITED:  APR 05, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the fifteen character nomenclature entry.
310.6 SERIAL NO./NOMENCLATURE (GSA) 301;33 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y?1"*"4N Y=" "_Y S PRCFLN=9 D RBF^PRCFU
  • LAST EDITED:  APR 18, 1989
  • HELP-PROMPT:  To locally assign serial no., enter asterisk '*' followed by serial no. > 6000. To have computer assign serial no., leave blank or enter nomenclature (up to 9 characters).
  • DESCRIPTION:  
    This is the serial number/nomenclature for GSA.
311 ACTIVITY ADDRESS CODE 300;15 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?6N) X I $D(X),'$O(^PRC(411,+$P(^PRCF(423,DA,0),U,2),5,"B",X,0)) K X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG),Y="" S Y=" "
  • LAST EDITED:  MAY 02, 1989
  • HELP-PROMPT:  Enter the 6 digit activity address for DLA.
  • DESCRIPTION:  
    This is the Activity Address Code.
  • EXECUTABLE HELP:  W !,"Select From: ",! F Z=0:0 S Z=$O(^PRC(411,+$P(^PRCF(423,DA,0),U,2),5,Z)) Q:'Z W:$D(^(Z,0)) $P(^(0),U,1),!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
312 ROUTING IDENTIFIER CODE 300;16 POINTER TO DLA/LOG CODES FILE (#441.4)
************************REQUIRED FIELD************************
DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""R""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y="DLA"
  • LAST EDITED:  MAY 10, 1989
  • DESCRIPTION:  
    This is the routing identifier code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""R"""
  • EXPLANATION:  Enter appropriate DLA Routing Indicator.
313 DOCUMENT IDENTIFIER CODE 300;17 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3UN) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y="A0A"
  • LAST EDITED:  APR 28, 1989
  • HELP-PROMPT:  Enter the 3 character identifier code.
  • DESCRIPTION:  
    This is the document identifier code.
314 FUND CONTROL POINT 300;18 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 19, 1987
  • HELP-PROMPT:  Enter the three digit fund control point or 'OGA','CTN', or 'GPF'.
  • DESCRIPTION:  
    This is the Fund Control Point.
315 COST CENTER NO. 300;19 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6)!'(X?6N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  FEB 25, 1991
  • HELP-PROMPT:  ANSWER MUST BE 6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the cost center number.
325 BLANK (1) 300;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1" ") X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=" "
  • LAST EDITED:  AUG 19, 1987
  • HELP-PROMPT:  Enter one blank space.
  • DESCRIPTION:  
    This field is for entry of a blank space.
326 BLANK (3) 300;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X?3" ") X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=" "
  • LAST EDITED:  AUG 19, 1987
  • HELP-PROMPT:  Enter three blank spaces.
  • DESCRIPTION:  
    This field is for entry of three blank spaces.
327 BLANK (5) 300;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?5" ") X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=" "
  • LAST EDITED:  AUG 19, 1987
  • HELP-PROMPT:  Enter five blank spaces.
  • DESCRIPTION:  
    This field is for entry of five blank spaces.
330 DEPARTMENT NUMBER 301;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<2)!'(X?2N.UN) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=3 D RBF^PRCFU
  • LAST EDITED:  JUN 26, 1989
  • HELP-PROMPT:  ANSWER MUST BE 2-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the department number.
331 DO NOT SUB 301;2 SET
  • '1' FOR NO SUBSTITUTION;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  AUG 19, 1987
  • DESCRIPTION:  
    This is the indicator for whether an item which is not in stock may have a similar item substituted for it.
332 DO NOT B/O 301;3 SET
  • '1' FOR NO BACKORDER;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  DEC 18, 1990
  • DESCRIPTION:  
    This is the indicator for whether an item which is currently out of stock should be backordered.
333 DIETETIC PERIOD 301;4 SET
  • '1' FOR FIRST REPORT (1ST-15TH);
  • '2' FOR SECOND REPORT (16TH-31ST);
  • 'N' FOR NO REPORT-DIETETICS SUPPLIES;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 03, 1989
  • DESCRIPTION:  
    This is the set of codes for first, second, or no report for dietetics supplies.
334 FOOD GROUP 301;5 SET
  • '1' FOR Meat, Fish, Poultry, Eggs & Convenience Entrees;
  • '2' FOR Milk, Milk Products;
  • '3' FOR Fruits, Vegetables;
  • '4' FOR Bread, Flour, Cereal, etc.;
  • '5' FOR Commercial Nutritional Products, Tube feedings & supplements;
  • '6' FOR Miscellaneous, Foods;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  OCT 24, 1989
  • HELP-PROMPT:  Needed only for use on creating LOG codesheets for subsistence items only.
  • DESCRIPTION:  
    This is the set of codes for food groups.
335 CONVERSION FACTOR 301;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU
  • LAST EDITED:  OCT 24, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1-5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the conversion factor.
336 COMMODITY CODE 301;7 SET
  • '1' FOR DRUGS;
  • '2' FOR OTHER MEDICAL;
  • '3' FOR GENERAL;
  • '6' FOR FUEL;
  • '8' FOR SUBSISTENCE;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  DEC 12, 1988
  • DESCRIPTION:  
    This is the commodity code.
337 GROUP SPLIT CIV 301;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Z0="",$P(Z0," ",4-$L(Y))="",Y=Z0_Y K Z0
  • LAST EDITED:  AUG 19, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the three letter CIV code. Items having the same code will be grouped together on the CIV.
338 CONSUMER LEVEL 301;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1)!'(X?1.4N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S Z0="",$P(Z0,0,5-$L(Y))="",Y=Z0_Y K Z0
  • LAST EDITED:  APR 26, 1989
  • HELP-PROMPT:  Enter the established consumer level, one to four digits.
  • DESCRIPTION:  
    This is the consumer level, the normal stock level of an item at an inventory point.
339 CONSUMER LEVEL OVERRIDE 301;10 SET
  • '1' FOR IGNORE CONSUMER LEVEL;
  • 'A' FOR IGNORE FIS ISSURE MULTIPLE AND CONSUMER LEVEL;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  AUG 19, 1987
  • DESCRIPTION:  
    This is the indicator for whether the consumer level for the item can be overriden.
340 REASON CODE 301;11 SET
************************REQUIRED FIELD************************
  • '1' FOR REGULAR;
  • '2' FOR RESUBMISSION OF REJECTS;
  • '3' FOR CALM BYPASS;
  • 'G' FOR ACQUISITIONS DIRECT TO GSA;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 11, 1989
  • DESCRIPTION:  
    This is the reason code for the code sheet.
  • SCREEN:  S DIC("S")="Q:'$D(PRCHTYP) I $S(PRCHTYP=""A"":""G""[Y,1:""123""[Y)"
  • EXPLANATION:  Screen depends on which type of code sheet is being entered
341 SOURCE CODE (LOG) 301;12 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!("012345679AC"'[X) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 11, 1989
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH (i.e. 2=Local Procurement)
  • DESCRIPTION:  
    This is the LOG source code. (See MP-6, Part XIV, Supp 6.1, Para. 1201.04)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
342 SOURCE DEVIATION 302;2 POINTER TO DLA/LOG CODES FILE (#441.4) DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""S""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 22, 1989
  • DESCRIPTION:  
    This is the source deviation code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""S"""
  • EXPLANATION:  Enter appropriate source deviation code or leave blank.
343 COMPLETE INDICATOR 301;14 SET
  • 'P' FOR PARTIAL;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  AUG 19, 1987
  • DESCRIPTION:  
    This is the complete indicator.
344 DOCUMENT IDENTIFIER 301;15 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU
  • LAST EDITED:  APR 07, 1989
  • HELP-PROMPT:  Enter the document or common number used to identify this transaction (Requisition No., P.O.No., etc.) (5 CHARACTERS)
  • DESCRIPTION:  
    This is the document identifier.
345 DEPOT (OR RELEASING FACILITY) 301;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  AUG 20, 1987
  • HELP-PROMPT:  If facility is involved, enter releasing number. Cannot be blank if source code is 1 (DEPOT) or A (Another Facility's long supply) Enter the three digit station number.
  • DESCRIPTION:  
    This is the depot or releasing facility.
346 PAYABLE CODE 301;17 SET
  • 'A' FOR REGULAR POSTED;
  • 'B' FOR IMPREST FUND;
  • 'J' FOR DONATED;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 24, 1989
  • HELP-PROMPT:  Enter appropriate LOG Payable Code if required for this code sheet.
  • DESCRIPTION:  
    This is the payable code.
347 BACKORDER CONTROL 301;18 SET
  • '-' FOR ESTABLISH BACKORDER;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  DEC 07, 1987
  • HELP-PROMPT:  Enter '-' to establish a backorder (source 1).
  • DESCRIPTION:  
    This is the backorder control indicator. Enter '-' to establish a backorder.
348 SUBSTITUTE CONTROL 301;19 SET
  • '-' FOR NO SUBSTITUTION;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  DEC 07, 1987
  • HELP-PROMPT:  Enter '-' if substitution is not authorized.
  • DESCRIPTION:  
    This indicates whether substitution of a supply item is authorized.
349 MAXIMUM OVERRIDE 301;20 SET
  • '1' FOR OVERRIDE THE MAXIMUM ORDER QUANTITY;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  DEC 07, 1987
  • HELP-PROMPT:  Enter '1' if you want to override the maximum order quantity.
  • DESCRIPTION:  
    This permits the requisitioner to override the maximum order quantity for a supply item.
350 MEDIA & STATUS CODE 300;20 POINTER TO DLA/LOG CODES FILE (#441.4)
************************REQUIRED FIELD************************
DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""M""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y="S"
  • LAST EDITED:  MAY 19, 1993
  • DESCRIPTION:  
    This is a pointer to the DLA/LOG Codes File, #441.4. It contains the Defense Logistics Agency (DLA) media and status code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""M"""
  • EXPLANATION:  Enter DLA Media & Status Code
351 DEPT.DESIGNATION (DEMAND CODE) 301;21 POINTER TO DLA/LOG CODES FILE (#441.4) DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""D""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 02, 1989
  • DESCRIPTION:  
    This is a pointer to the DLA/LOG Codes File, #441.4. It contains the Demand Code for Troop Issue or Dietetic Sale.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""D"""
  • EXPLANATION:  Enter Demand Code for Troop Issue or Dietetic Sale, or leave blank.
352 SIGNAL CODE 301;22 SET
************************REQUIRED FIELD************************
  • 'A' FOR Ship to Requisitioner. Bill to Requisitioner (cc 30-35);

  • OUTPUT TRANSFORM:  I $D(PRCHLOG),Y="" S Y="A"
  • LAST EDITED:  OCT 26, 1989
  • HELP-PROMPT:  'A' is the only valid entry for this field.
  • DESCRIPTION:  
    This is the code indicating to send the shipment/billing to the requisitioner.
353 FUND CODE 301;23 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?.UN) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG),Y="" S Y=" "
  • LAST EDITED:  APR 28, 1989
  • HELP-PROMPT:  Facility Defined for DLA code sheets. ANSWER MUST BE 2 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This code is defined by the facility for the Defense Logistics Agency (DLA) code sheets.
354 DISTRIBUTION CODE (OPTIONAL) 301;24 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  DEC 07, 1987
  • HELP-PROMPT:  Facility Defined. ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This code is defined by the facility.
355 PROJECT CODE 301;25 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 25, 1989
  • HELP-PROMPT:  Enter Department Number or leave null. ANSWER MUST BE 3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the Department Number.
356 PRIORITY CODE 301;26 POINTER TO DLA/LOG CODES FILE (#441.4)
************************REQUIRED FIELD************************
DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y=15
  • LAST EDITED:  MAY 02, 1989
  • DESCRIPTION:  
    This is a pointer to the DLA/LOG Codes File, #441.4. It contains the Defense Logistics Agency (DLA) priority code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""P"""
  • EXPLANATION:  Enter DLA Priority Code
357 ADVICE CODE 301;27 POINTER TO DLA/LOG CODES FILE (#441.4)
************************REQUIRED FIELD************************
DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""A""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y="2J"
  • LAST EDITED:  MAY 02, 1989
  • DESCRIPTION:  
    This is a pointer to the DLA/LOG Codes File, #441.4. It contains the Defense Logistics Agency (DLA) advice code.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""A"""
  • EXPLANATION:  Enter appropriate DLA Advice Code.
358 DELIVERY DATE 301;28 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  D:Y&'$D(PRCHLOG) DD^%DT I $D(PRCHLOG) S:Y="" Y=" " I Y S X1=Y,X2=$E(Y,1,3)_"0101" D ^%DTC S X=X+1,Y=$E("000"_X,$L(X)+1,6)
  • LAST EDITED:  FEB 26, 1998
359 SOURCE DEVIATION/SERIAL NUMBER 300;21 FREE TEXT

  • INPUT TRANSFORM:  D EN1^PRCHLCS
  • OUTPUT TRANSFORM:  I $D(PRCHLOG),Y="" S Y=" "
  • LAST EDITED:  SEP 13, 1989
  • EXECUTABLE HELP:  D EN2^PRCHLCS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
360 SPECIAL CODE 301;29 SET
************************REQUIRED FIELD************************
  • 'Y' FOR MUST ENTER 'Y';

  • OUTPUT TRANSFORM:  I $D(PRCHLOG),Y="" S Y="Y"
  • LAST EDITED:  APR 25, 1989
  • HELP-PROMPT:  A 'Y' MUST be entered in this field!
361 CANCEL 301;30 SET
  • 'C' FOR CANCEL DUE-IN;
  • 'A' FOR ADJUST DUE-IN;
  • '*' FOR GSA FOLLOW-UP;
  • 'X' FOR GSA CANCELLATION;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 17, 1989
  • DESCRIPTION:  
    This code indicates whether there should be cancellation or adjustment of due-ins; or GSA cancellation or follow-up.
  • SCREEN:  S DIC("S")="Q:'$D(PRCHCS(""SC"")) Q:'$D(PRCFA(""TT"")) Q:PRCHCS(""SC"")="""" I $S(PRCFA(""TT"")=700:""*C""[Y,PRCHCS(""SC"")=3:""*X""[Y,1:""AC""[Y)"
  • EXPLANATION:  'C' used for cancellation of other than GSA, 'A' to adjust due-in, '*' or 'X' used for GSA follow-up or cancellation.
362 PUSH RELEASE 301;31 FREE TEXT

  • INPUT TRANSFORM:  S X="PUSH RELEASE"
  • LAST EDITED:  DEC 16, 1988
  • HELP-PROMPT:  Must contain the words 'PUSH RELEASE'
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
364 FEDERAL SUPPLY CLASSIFICATION 301;35 POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2)
************************REQUIRED FIELD************************
FEDERAL SUPPLY CLASSIFICATION(#441.2)

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 02, 1989
  • DESCRIPTION:  
    This is a pointer to the Federal Supply Classification (FSC) file, #441.2. It is the FSC of the requisition.
365 SERIAL NO.(FOLLOW-UP/CANCEL) 301;36 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'(X?1"*"4N) X I $D(X) K:$E(X,2,5)'>5000 X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  FEB 04, 1993
  • HELP-PROMPT:  For follow-up or cancellation--enter an asterisk, followed by a 4 digit serial number greater than 5000.
  • DESCRIPTION:  
    This is an indicator to follow-up or cancel a requisition.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
366 SERIAL NO.(DLA) 301;34 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1000)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 25, 1989
  • HELP-PROMPT:  Enter DLA Serial No., if Facility Assigned. Type a Number between 1000 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the Defense Logistics Agency (DLA) serial number for the requisition that is assigned by the facility .
367 DOCUMENT IDENTIFIER (DLA) 301;37 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<6) X
  • LAST EDITED:  OCT 25, 1989
  • HELP-PROMPT:  Enter entire assigned common number, including Fiscal Year (PAT number). Answer must be 6 characters in length.
  • DESCRIPTION:  
    This is the assigned common number, including Fiscal Year (i.e., PAT - Pending Accounting Transaction - number).
368 DEPOT VOUCHER 301;38 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  FEB 12, 1991
  • HELP-PROMPT:  Enter the depot voucher number from the shipping document. 5 characters, cannot be blank.
  • DESCRIPTION:  
    This is the depot voucher (number) found on the shipping document.
369 REQUISITION NO. 301;39 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  MAY 01, 1989
  • HELP-PROMPT:  Enter facility requisition number--3 character sequential number followed by Fiscal Year. (5 characters, cannot be blank).
  • DESCRIPTION:  
    This is the facility requisition number, a three (3) character sequential number, followed by Fiscal Year (e.g.,12391).
370 CANCEL/ADJUST/RELEASE 301;40 SET
************************REQUIRED FIELD************************
  • 'C' FOR CANCEL ALL TRANSACTIONS;
  • 'R' FOR RELEASE ALL/ADJUST SINGLE ITEM;
  • 'P' FOR RELEASE SINGLE ITEM;

  • LAST EDITED:  MAY 01, 1989
  • HELP-PROMPT:  For processing entire requisition, use 'C' to cancel, 'R' to release all line/items. For single line/item, use 'R' to adjust item, 'P' to release item.
  • DESCRIPTION:  
    This code indicates, for processing requisitions, whether there should be cancellation of all transactions (C); release of all or adjustment of a single item (R); or release of a single item (P).
  • SCREEN:  S DIC("S")="I $S($D(PRCHTYP):""CR""[Y,1:""CRP""[Y)"
  • EXPLANATION:  Use C or R for processing entire requisition, R or P for single line/item.
371 VALUE (OLD) 301;41 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU
  • LAST EDITED:  MAY 23, 1989
  • HELP-PROMPT:  Enter value from shipping document. Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is a dollar amount indicating the original value of the shipment.
372 VALUE (NEW) 301;42 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2),PRCFLN=7 D LZF^PRCFU
  • LAST EDITED:  MAY 23, 1989
  • HELP-PROMPT:  Enter new value for change, leave blank for cancellation or for individual release of original value. Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the dollar amount indicating a change from the original value of the shipment.
373 QUANTITY (OLD) 301;43 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=5 D LZF^PRCFU
  • LAST EDITED:  MAY 23, 1989
  • HELP-PROMPT:  Enter quantity from shipping document. Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the original quantity specified on the shipping document.
374 QUANTITY (NEW) 301;44 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=5 D LZF^PRCFU
  • LAST EDITED:  MAY 23, 1989
  • HELP-PROMPT:  Enter new quantity for change, leave blank for cancellation or for individual release of original quantity. Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the new quantity, a change from the original quantity specified on the shipping document.
375 NONISSUABLE 301;45 SET
  • 'N' FOR PICK UP INTO NONISSUABLE;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 22, 1989
  • HELP-PROMPT:  Enter an 'N' to pick up into nonissuable stock, or leave empty for regular.
  • DESCRIPTION:  
    This is the code indicating nonissuable stock(N).
376 ACCOUNT (NONISSUABLE) 301;46 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  MAY 22, 1989
  • HELP-PROMPT:  Enter 1 character nonissuable account code if previous field set to 'N' (Nonissuable), or leave empty for regular.
  • DESCRIPTION:  
    This is the nonissuable account code specified if (N) is placed in the field indicating nonissuable stock.
377 DOCUMENT NUMBER (LOG) 302;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • LAST EDITED:  MAY 11, 1989
  • HELP-PROMPT:  For Posted Receipts--Enter Requisition No. for Source 1 (DEPOT), Common Number otherwise. ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the requisition number for Source 1 (Depot), under Posted Receipts. Otherwise, it is the common number.
378 DOCUMENT IDENTIFIER (DRUGS) 302;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU
  • LAST EDITED:  JUN 08, 1989
  • HELP-PROMPT:  Enter DEPOT drug requisition number. If blank, cc 40-44 (DOCUMENT IDENTIFIER) will be used. ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the Depot drug requisition number.
379 DOCUMENT ID (SUBSISTENCE) 302;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU
  • LAST EDITED:  JUN 08, 1989
  • HELP-PROMPT:  Enter DEPOT subsistence requisition number. If blank, cc 40-44 (DOCUMENT IDENTIFIER) will be used. ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the Depot drug subsistence number.
380 COMMON NUMBER (DRUGS) 302;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU
  • LAST EDITED:  JUN 08, 1989
  • HELP-PROMPT:  Enter common number for DEPOT drugs, or leave blank. If coded, cc 47-51 (DOCUMENT ID (DRUGS)) MUST be coded. ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the common number for Depot drugs.
381 COMMON NUMBER (SUBSISTENCE) 302;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU
  • LAST EDITED:  JUN 08, 1989
  • HELP-PROMPT:  Enter common number for DEPOT subsistence, or leave blank. If coded, cc 54-58 (DOCUMENT ID (SUBSISTENCE)) MUST be coded. ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the common number for Depot subsistence.
382 COMMON NUMBER (DEPOT REGULAR) 302;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU
  • LAST EDITED:  JUN 08, 1989
  • HELP-PROMPT:  Enter common number for DEPOT regular, or leave blank. If coded, CC 40-44 (DOCUMENT IDENTIFIER) must be coded. ANSWER MUST BE 5 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the common number for Depot regular posted stock.
383 EMERGENCY SOURCE 2 PROCUREMENT 302;8 SET
  • '*' FOR YES;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  JAN 18, 1990
  • HELP-PROMPT:  If this code sheet is for Emergency Procurement from Source 2, for either Drugs (commodity code 1) or Other Medical (commodity code 2), enter an asterisk (*).
  • DESCRIPTION:  
    This an emergency procurement for drugs (commodity code 1) or other medical stock (commodity code 2).
384 AMENDMENT NUMBER 302;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  FEB 15, 1990
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Purchase Order Amendment number
385 PURCHASE ORDER DATE 302;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y="" Y=" " S:Y Y=$E(Y,4,7)_$E(Y,2,3)
  • LAST EDITED:  FEB 15, 1990
  • DESCRIPTION:  
    This is the date the purchase order was issued.
    SOURCE OF DATA: Purchase order file #442
386 PURCHASE AUTHORIZATION NUMBER 303;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  FEB 15, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
387 DELIVERY POINT 303;2 SET
************************REQUIRED FIELD************************
  • '793' FOR HINES;
  • '794' FOR SOMMERVILLE;
  • '79A' FOR BELL;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  FEB 15, 1990
  • HELP-PROMPT:  Enter the number of the Depot where delivery is to be made.
  • DESCRIPTION:  
    This is the number of the Depot where delivery is to be made.
388 UNIT COST (LOG) 303;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU
  • LAST EDITED:  FEB 15, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This is the dollar amount of the unit.
    SOURCE OF DATA: Purchase Order file (442)
389 REASON CODE (LOG) 303;4 SET
************************REQUIRED FIELD************************
  • 'R' FOR REGULAR;
  • 'T' FOR TEST;
  • 'C' FOR CORRECTION;
  • ' ' FOR BLANK;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  FEB 28, 1990
  • HELP-PROMPT:  Leave blank to establish a PO Due-in. Enter R to delete a regular Due-in or T to delete a Held for Test Due-in. Enter C to change quantity, unit cost, or scheduled delivery date on a PO Due-in.
  • DESCRIPTION:  
    This is a code indicating whether to establish a Purchase Order (PO) due-in; delete a regular due-in or delete a Held for Test due-in; or change quantity, unit cost, or schedule the delivery on a PO Due-in.
390 CORRECTED QUANTITY 303;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y=0 Y=" " I Y S PRCFLN=5 D LZF^PRCFU
  • LAST EDITED:  FEB 15, 1990
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is a correction to the quantity specified on the requisition.
391 CORRECTED UNIT COST 303;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y=0 Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2),PRCFLN=5 D LZF^PRCFU
  • LAST EDITED:  FEB 15, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 2 Decimal Digits
  • DESCRIPTION:  
    This is a correction to the unit cost on the requisition.
392 CORRECTED DELIVERY DATE 303;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y="" Y="00000" S:Y Y=$E("1234567890JK",+$E(Y,4,5))_$E(Y,6,7)_$E(Y,2,3)
  • LAST EDITED:  FEB 15, 1990
  • DESCRIPTION:  
    This is a correction to the delivery date specified on the requisition.
393 LOG DATE 304;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y]"" Y=$E("1234567890JK",+$E(Y,4,5))_$E(Y,6,7) S:Y="" Y=" "
  • LAST EDITED:  MAR 06, 1990
  • HELP-PROMPT:  Enter the date that the receipt was processed or accepted.
  • DESCRIPTION:  
    Date for LOG transactions on which the receipt was processed or accepted
394 EXPIRATION/DATE OF PACK 304;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(PRCHDEP) D EXP^PRCHREC7
  • OUTPUT TRANSFORM:  X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y]"" Y=$E(Y,3)_$E("1234567890JK",+$E(Y,4,5)) S:Y="" Y=" "
  • LAST EDITED:  AUG 15, 1990
  • HELP-PROMPT:  Food must have Date of Pack, drugs must have Expiration Date.
  • DESCRIPTION:  
    This is mandatory information on the stock, including the date of the pack, or the expiration date of the drug.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
395 COMPLETION CODE (LOG) 304;3 SET
************************REQUIRED FIELD************************
  • '1' FOR COMPLETE;
  • '2' FOR COMP IN 2 LINES;
  • '3' FOR COMP IN 3 LINES;
  • '4' FOR COMP IN 4 LINES;
  • '5' FOR COMP IN 5 LINES;
  • '6' FOR COMP IN 6 LINES;
  • '7' FOR COMP IN 7 LINES;
  • '8' FOR COMP IN 8 LINES;
  • '9' FOR COMP IN 9 LINES;
  • '0' FOR PARTIAL;
  • '-' FOR NO DUE-IN EST.;
  • 'T' FOR TEST;

  • LAST EDITED:  APR 06, 1990
  • HELP-PROMPT:  Enter "0" for a partial; "1, 2, 3, through 9" for a complete receipt, (This indicates the number of trans. submitted for this item). The same number must appear on all input for this receipt
  • DESCRIPTION:  
    This is a code indicating the number of transactions submitted for the item, including 0 for a partial receipt or 1 through 9 for a complete receipt; (-) for No Due-In Est.(estimate); or T for Test.
396 CONDITION CODE (LOG) 304;4 SET
************************REQUIRED FIELD************************
  • '1' FOR ISSUABLE;

  • LAST EDITED:  FEB 08, 1990
  • DESCRIPTION:  
    This is the code indicating whether the stock is ready for issue.
397 PRIORITY CODE (LOG) 304;5 SET
************************REQUIRED FIELD************************
  • 'N' FOR NORMAL;
  • 'P' FOR PRIORITY;
  • 'B' FOR BROKEN;
  • 'L' FOR LOOSE;

  • LAST EDITED:  FEB 08, 1990
  • HELP-PROMPT:  Enter "N" for normal stock, "P" for priority issue, "L" for loose issue or intermediate packs, or "B" for a broken pack on a mandatory issue package. (*IP or *OP)
  • DESCRIPTION:  
    This a code indicating the condition of the stock, including N for normal stock; P for priority issue; L for loose issue; or B for broken pack on a mandatory issue package.
398 WEIGHT 304;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  FEB 14, 1990
  • HELP-PROMPT:  Enter the weight of the original pack for broken or whole O/P's. Enter zero for loose issue or broken I/P's.
  • DESCRIPTION:  
    This is the weight (of the original pack ) used to represent the broken or whole original pack. Loose issue or broken intermediate packs require an entry of zero (0).
399 CUBE 304;7 NUMBER

  • INPUT TRANSFORM:  K:X'?3N X S:$D(X) X=X/10
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=Y+.05*100\10,Y=$E("000",$L(Y)+1,3)_Y
  • LAST EDITED:  JUL 25, 1990
  • HELP-PROMPT:  Enter to the nearest tenth, the cubic feet of the original pack. Do not include decimal point. i.e. 1.4 = 014
  • DESCRIPTION:  
    This is the measurement (in cubic ft.) of the original pack.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
400 FCC SUFFIX 304;8 SET
  • ' ' FOR DEFAULT;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=$E(" ",$L(Y)+1,2)_Y
  • LAST EDITED:  FEB 14, 1990
401 LOCATION 304;9 FREE TEXT

  • INPUT TRANSFORM:  K:'(X?1.2N1U3N!(X?1"R "4N)) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=$E("000000",$L(Y)+1,6)_Y
  • LAST EDITED:  JUL 25, 1990
  • HELP-PROMPT:  Enter storage location of item received (Area, Bay, Row). i.e. 22A333 Enter R nnnn for bulk locations. i.e. R 1234
  • DESCRIPTION:  This is the identification for the storage location (area, bay, or row)
    of the item received (e.g., 22A333 - non-bulk location; R 1234 - bulk location).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
402 UNITS IN O/P 304;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S Y=$E("0000",$L(Y)+1,4)_Y
  • LAST EDITED:  FEB 14, 1990
  • HELP-PROMPT:  Enter the number of units in the original pack. For loose issue, enter 1. For broken O/P's or I/P's this field must be the same as the quantity field.
  • DESCRIPTION:  
    This is the number of units in the original pack. Loose issue requires an entry of 1; broken O/Ps or I/Ps (original packs or intermediate packs) require an entry corresponding with that of the Quantity field.
403 TRANSPORTATION COSTS 304;11 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=5 D LZF^PRCFU K Z
  • LAST EDITED:  FEB 14, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits Enter the transportation cost for this line item, if FOB origin.
  • DESCRIPTION:  
    This is the transportation cost for the line item (if origin is FOB).
404 VALUE (LOG) 304;12 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y'=" " S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=8 D LZF^PRCFU
  • LAST EDITED:  FEB 14, 1990
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
405 QUANTITY (401) 304;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=6 D LZF^PRCFU
  • LAST EDITED:  FEB 15, 1990
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
406 DUE-IN (401) 304;14 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X:'$D(PRCHLOG) ^DD("DD") I $D(PRCHLOG) S:Y="" Y=" " S:Y Y=$E(Y,4,7)_$E(Y,2,3)
  • LAST EDITED:  FEB 15, 1990
407 DEPOT (HINES) 304;15 SET
************************REQUIRED FIELD************************
  • '793' FOR HINES;
  • '794' FOR SOMMERVILLE;
  • '79A' FOR BELL;

  • LAST EDITED:  FEB 23, 1990
  • HELP-PROMPT:  Enter the Depot if this is for Bell or Sommerville.
  • DESCRIPTION:  
    This is the code indicating the Depot (i.e., Hines = 793; Sommerville = 794; and Bell = 79A).
408 DEPOT CODE 304;16 SET
************************REQUIRED FIELD************************
  • '7M1' FOR MEDICAL SUPPLIES;
  • '7M4' FOR SUBSISTENCE;
  • '7M5' FOR DRUGS;

  • LAST EDITED:  MAR 12, 1990
  • HELP-PROMPT:  Enter 7M1, 7M4 or 7M5 to indicate MEDICAL SUPPLIES, SUBSISTENCE OR DRUGS resp.
  • DESCRIPTION:  
    This is the depot code representing medical supplies, subsistence, or drugs (i.e., 7M1, 7M4 , or 7M5, respectively).
409 CONTAINER TYPE 304;17 SET
************************REQUIRED FIELD************************
  • 'CT' FOR CARTON;
  • 'SA' FOR SACK;
  • 'XX' FOR OTHER;

  • LAST EDITED:  JUL 30, 1990
  • HELP-PROMPT:  Enter Carton, Sack or Other for the type of container received.
  • DESCRIPTION:  
    This is the type of container received (i.e., CT = Carton; SA = Sack; and XX = other).
410 SUFFIX (664) 200;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 26, 1991
  • HELP-PROMPT:  Enter department suffix when separate issue book is desired for selected items within a department.
411 TYPE TRANS (664) 200;2 SET
************************REQUIRED FIELD************************
  • 'A' FOR ESTABLISH NEW DEPARTMENT;
  • 'C' FOR CHANGE;
  • 'D' FOR DELETE;
  • 'A' FOR ADD;
  • 'L' FOR LABELS;
  • 'M' FOR REPORT 039;
  • 'P' FOR ISSUE BOOKS AND WORKDECKS;
  • 'X' FOR EXPANDED NOMENCLATURE CATALOG;

  • LAST EDITED:  APR 09, 1991
  • HELP-PROMPT:  ENTER IDENTIFIER FOR THIS TRANSACTION TYPE.
412 LEVEL (664) 200;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5)!'((X?.N)!(X="*****")) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 26, 1991
  • HELP-PROMPT:  Enter assigned consumer level or ***** to delete.
413 SEQUENCE (664) 200;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<4)!'((X?.N)!(X="STKN")!(X="INDX")) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 26, 1991
  • HELP-PROMPT:  Enter specific number if desired or leave blank for alpha sequence. Enter STKN for stock number sequence or INDX to remove previous designation.
414 FREQUENCY (664) 200;5 SET
  • 'M' FOR MONTHLY;
  • 'Q' FOR QUARTERLY;
  • '0' FOR DEFAULT;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 09, 1991
  • HELP-PROMPT:  Enter M to change to monthly print, Q if desired quarterly or 0 change to same 6 month schedule as facility header.
415 COPIES (664) 200;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=3 D LZF^PRCFU
  • LAST EDITED:  APR 09, 1991
  • HELP-PROMPT:  Enter new number of copies or leave blank.
416 DECKS (664) 200;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y S PRCFLN=2 D LZF^PRCFU
  • LAST EDITED:  APR 11, 1991
  • HELP-PROMPT:  Enter new number of decks, or leave blank.
417 SUPPL ID (664) 200;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=20 D RBF^PRCFU
  • LAST EDITED:  APR 09, 1991
  • HELP-PROMPT:  Enter new identification to change, enter a minus (-) to delete.
418 COST CENTER (664) 200;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<100000)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 11, 1991
  • HELP-PROMPT:  Type a Number between 100000 and 999999, 0 Decimal Digits
419 CONTROL POINT (664) 200;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'((X="OGA")!(X="CTN")!(X>16)) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 26, 1991
  • HELP-PROMPT:  Answer must be from 017 to 999 or OGA or CTN.
420 DEPT NO. (664) 200;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'((X>-1)!(X="OGA")!(X="CTN")) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 26, 1991
  • HELP-PROMPT:  Enter the department number as 3 digits (i.e. 003, 017, etc.) or OGA or CTN.
421 NON ADJ REASON CODE 201;1 SET
************************REQUIRED FIELD************************
  • 'A' FOR ISSUABLE TO NONISSUABLE;
  • 'B' FOR NONISSUABLE TO ISSUABLE;
  • 'C' FOR + OR - NONISSUABLE;
  • 'D' FOR RECALL ISSUABLE TO NON;
  • 'E' FOR RELEASE NON TO ISSUABLE;
  • 'F' FOR RECALL, RETURNS, CREDITS;
  • 'G' FOR INVENTORY;
  • 'H' FOR DAMAGE;
  • 'I' FOR ERROR;
  • 'J' FOR SURVEY;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 16, 1991
422 GL ACCOUNT CODE 201;2 POINTER TO DLA/LOG CODES FILE (#441.4) DLA/LOG CODES(#441.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 16, 1991
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""C"""
  • EXPLANATION:  Enter applicable account code. (See MP-6 Part 14 Supp-6.1 Par. 1201.03)
423 + OR - 201;3 SET
  • '+' FOR PLUS;
  • '-' FOR MINUS;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 16, 1991
  • HELP-PROMPT:  Enter "+" (Plus Sign) to increase or "-" (Minus Sign) to decrease.
424 QUANTITY (605) 201;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y]" " S PRCFLN=5 D LZF^PRCFU
  • LAST EDITED:  JUN 19, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
425 VALUE (605) 201;5 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y]" " S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU
  • LAST EDITED:  JUN 19, 1991
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
426 QUAN/VAL ADJ REASON CODE 201;6 SET
************************REQUIRED FIELD************************
  • 'A' FOR WAREHOUSE INVENTORY;
  • 'B' FOR REPORT OF SURVEY;
  • 'C' FOR DAMAGE;
  • 'E' FOR ERRONEOUS INPUT;
  • 'F' FOR RECALLS, RETURNS AND CREDITS;

  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 16, 1991
  • HELP-PROMPT:  Enter the Reason Code for the Quantity and/or Value Adjustment.
427 CHANGE ADJ REASON CODE 201;7 SET
************************REQUIRED FIELD************************
  • 'A' FOR CHANGE OF ISSUE;
  • 'C' FOR CHANGE OF ISSUE TO NONISSUABLE;
  • 'D' FOR CHANGE OF ISSUE-DROP;
  • 'E' FOR CHANGE OF ISSUE-DIETETIC ONLY;

  • LAST EDITED:  APR 24, 1991
  • HELP-PROMPT:  Enter the reason code for the change adjustment.
428 COMMON NUMBER (607D) 201;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>5!($L(X)<5) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU
  • LAST EDITED:  APR 19, 1991
  • HELP-PROMPT:  Enter the common number the quantity is to be dropped on.
429 SELLING COST 201;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"."3N.N) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" " I Y]"" S Y=$J(Y,0,2),Y=$P(Y,".",1)_$P(Y,".",2) S PRCFLN=7 D LZF^PRCFU
  • LAST EDITED:  JUN 19, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99999.99, 2 Decimal Digits
430 ORIGINAL TRANS CODE 201;10 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • OUTPUT TRANSFORM:  I $D(PRCHLOG) S:Y="" Y=" "
  • LAST EDITED:  APR 19, 1991
  • HELP-PROMPT:  Enter the transaction code of the original issue.
500 ISMS IDENTIFIER 50;1 SET
************************REQUIRED FIELD************************
  • 'ISM' FOR ISMS;
  • 'PSM' FOR PRISM;

  • LAST EDITED:  JAN 24, 1992
501 ISMS TRANS DATE 50;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S Z0=$E(Y,1,3),X=Y D JD^PRCFDLN S Y=Z0+1700_$E(Y,1,3) K Z0
  • LAST EDITED:  SEP 04, 1991
502 ISMS TRANS TIME 50;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S Y=$E(Y#1+.0000001,2,7)
  • LAST EDITED:  SEP 11, 1991
503 ISMS REFERENCE NO. 50;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<3) X
  • LAST EDITED:  AUG 30, 1991
  • HELP-PROMPT:  Answer must be 3-11 characters in length.
503.1 ISMS SEQUENCE NUMBER 50;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 22, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
503.2 ISMS TOTAL SEQUENCE 50;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 22, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
504 ISMS TRANS INT VER 50;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 30, 1991
  • HELP-PROMPT:  Type a Number between 1 and 1, 0 Decimal Digits
505 NATIONAL STOCK NUMBER 50;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>16!($L(X)<16)!'(X?4N1"-"2N1"-"3N1"-"4N) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S Y=$TR(Y,"-")
  • LAST EDITED:  SEP 06, 1991
  • HELP-PROMPT:  Answer must be 16 characters in length.i.e. 6505-01-001-0001
506 ISMS SEGMENT TYPE 50;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 31, 1991
  • HELP-PROMPT:  Answer must be 3 characters in length.
507 ISMS TRANS TERMINATOR 50;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  SEP 03, 1991
  • HELP-PROMPT:  Answer must be 2 characters in length.
515.85 ISMS VENDOR STATE 56;22 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  DEC 10, 1991
  • HELP-PROMPT:  Answer must be 2 characters in length.
516 SEGMENT 6 TYPE 50;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3) X
  • LAST EDITED:  AUG 31, 1991
  • HELP-PROMPT:  Answer must be 3 characters in length.
520 LINE COUNT 50;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 01, 1991
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
521 L/C REFERENCE NO. 50;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<3) X
  • LAST EDITED:  SEP 01, 1991
  • HELP-PROMPT:  Answer must be 3-11 characters in length.
530 ISMS LINE ITEM 52;0 Multiple #423.19 423.19

  • LAST EDITED:  NOV 25, 1991
550 NX ITEMS 57;0 Multiple #423.2 423.2
581 ISMS COST CENTER 56;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<100000)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 10, 1991
  • HELP-PROMPT:  Type a Number between 100000 and 999999, 0 Decimal Digits
582 ISMS FCP # 56;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<10)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 10, 1991
  • HELP-PROMPT:  Type a Number between 10 and 9999, 0 Decimal Digits
997 APPROVED BY 0;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  APR 10, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the person appropriation.
998 AUTOMATIC TERMINATOR 1;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  APR 09, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1 CHARACTER IN LENGTH
  • DESCRIPTION:  
    This is the automatic terminator for this code sheet.
999 COMPLETED BY 0;8 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JAN 27, 1993
  • DESCRIPTION:  
    This is the person completing the code sheet.
999.1 COMPLETED BY INITIALS COMPUTED

  • MUMPS CODE:  X ^DD(423,999.1,9.2) S Y(423,999.1,101)=$S($D(^VA(200,D0,0)):^(0),1:"") S X=$P(Y(423,999.1,101),U,2) S D0=Y(423,999.1,80)
    9.2 = S Y(423,999.1,80)=$S($D(D0):D0,1:""),Y(423,999.1,1)=$S($D(^PRCF(423,D0,0)):^(0),1:""),D0=$P(Y(423,999.1,1),U,8) S:'$D(^VA(200,+D0,0)) D0=-1
  • ALGORITHM:  COMPLETED BY:INITIAL
  • LAST EDITED:  APR 20, 1987
  • DESCRIPTION:  
    These are the initials of the person who completes the code sheet.
999.2 USER LOGGED IN TRANS;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 21, 1992
  • DESCRIPTION:  
    This is the user who is logged in at the time the code sheet is created.
    WRITE AUTHORITY: ^
999.3 VALIDATION CODE 8;16 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • OUTPUT TRANSFORM:  S Y(0)=Y S Y="/ES/"_$$DECODE^PRCFES1(D0)
  • LAST EDITED:  JAN 27, 1993
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the electronic signature of the person releasing the code sheet. ---------THIS FIELD USED TO BE CALLED ELECTRONIC SIGNATURE-------
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
    UNEDITABLE
999.5 VALIDATION VERSION 8.1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."6N.N) X
  • OUTPUT TRANSFORM:  S Y="" Q
  • LAST EDITED:  JAN 25, 1993
  • HELP-PROMPT:  Type a Number between 0 and 99999, 5 Decimal Digits
  • DESCRIPTION:  
    THIS IS THE VALIDATION VERSION OF A RECORD WITH A VALIDATION CODE ON IT.
  • TECHNICAL DESCR:  
    THIS IS THE VALIDATION VERSION OF A RECORD WITH A VALIDATION CODE ON IT.
999.7 VALIDATION DATE/TIME 8.1;2 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 27, 1993
  • DESCRIPTION:  
    THIS IS THE TIME THE VALIDATION CODE WAS ENTERED ON THE RECORD.
  • TECHNICAL DESCR:  
    THIS IS THE TIME THE VALIDATION CODE WAS ENTERED ON THE RECORD.
999.8 ESIG CODE 8.1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 10, 1993
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Encoded value used by IFCAP security utilities when confirming the integrity of this record.
1000 PAYMENT TYPE 21;1 SET
************************REQUIRED FIELD************************
  • '0' FOR CHECK REPLENISHMENT;
  • '1' FOR CTP DIRECT DEPOSIT REPLENISHMENT;
  • '2' FOR CCD+ DIRECT DEPOSIT REPLENISHMENT;

  • LAST EDITED:  JUN 07, 1991
  • DESCRIPTION:  
    This is a code indicating the type of payment forms to be replenished (i.e., check or direct deposit).
1001 ACCOUNT TYPE 21;2 SET
************************REQUIRED FIELD************************
  • 'C' FOR CHECKING;
  • 'S' FOR SAVINGS;

  • LAST EDITED:  JUL 11, 1990
  • DESCRIPTION:  
    This is a code indicating the type of account (i.e.,checking or saving).
1002 DEPOSITOR ACCOUNT NO. 21;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<3) X
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Answer must be 3-17 characters in length.
  • DESCRIPTION:  
    This is the depositor account number.
1003 ROUTING NO. 21;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<8)!'(X?8N) X
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Enter first 8 digits of bank routing number.
  • DESCRIPTION:  
    This is the first eight (8) digits of the bank routing number.
1004 CHECK DIGIT 21;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X?1N) X
  • LAST EDITED:  JUL 11, 1990
  • HELP-PROMPT:  Enter 9th digit of bank routing number.
  • DESCRIPTION:  
    This is the ninth (9) digit of the bank routing number.
1005.01 AGENCY CODE 1005;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X="04") X
  • LAST EDITED:  SEP 26, 1990
  • HELP-PROMPT:  Answer must be 04.
  • DESCRIPTION:  
    This is the agency code to be entered as 04.
1005.02 SUBAGENCY CODE 1005;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X=81) X
  • LAST EDITED:  SEP 26, 1990
  • HELP-PROMPT:  Answer must be 81.
  • DESCRIPTION:  
    This is the subagency code to be entered as 81.
1005.03 NAME CONTROL 1005;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<1) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y=Y_$E(" ",1,4-$L(Y))
  • LAST EDITED:  SEP 28, 1990
  • HELP-PROMPT:  Answer must be 1-4 characters in length.
1005.04 SSN 1005;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y=0_Y
  • LAST EDITED:  SEP 28, 1990
  • HELP-PROMPT:  Answer must be 9 numerics in length.
  • DESCRIPTION:  
    This is the Social Security Number.
1005.05 TYPE INDICATOR 1005;5 SET
************************REQUIRED FIELD************************
  • '0' FOR DECREASE OR DELETION IN AMOUNT;

  • LAST EDITED:  SEP 26, 1990
1005.06 FILLER-14 1005;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X=" ") X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y="",$P(Y," ",15)=""
  • LAST EDITED:  SEP 29, 1994
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field places 14 blanks on a code sheet.
1005.07 FILLER-2 1005;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X=" ") X
  • LAST EDITED:  SEP 26, 1990
  • HELP-PROMPT:  Answer must be 2 blanks.
  • DESCRIPTION:  
    This field is reserved for Filler.
1005.08 YEAR OF ORIGINAL OFFSET 1005;8 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X="00") X
  • LAST EDITED:  SEP 26, 1990
  • HELP-PROMPT:  Answer must be 00.
  • DESCRIPTION:  
    This field that is reserved for the original offset year must contain two (2) zeros.
1005.09 DMF PROGRAM YEAR 1005;9 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X) S X=$E(DT,2,3)
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S Y=$S($D(PRC("FY")):PRC("FY"),1:$E(DT,2,3))
  • LAST EDITED:  OCT 02, 1990
  • HELP-PROMPT:  Answer must be 2 numerics in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1005.11 SUBAGENCY PRIORITY CODE 1005;11 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X=0) X
  • LAST EDITED:  SEP 26, 1990
  • HELP-PROMPT:  Answer must be a zero.
  • DESCRIPTION:  
    This is the subagency priority code to be entered as zero (0).
1005.12 LAST NAME 1005;12 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y=Y_$E(" ",1,20-$L(Y))
  • LAST EDITED:  SEP 28, 1990
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    This is the individual's last name.
1005.13 FIRST NAME 1005;13 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y=Y_$E(" ",1,15-$L(Y))
  • LAST EDITED:  SEP 28, 1990
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
  • DESCRIPTION:  
    This is the individual's first name.
1005.14 AMOUNT (IRS) 1005;14 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999999)!(X<0) X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y=$P(Y,".")_$P(Y,".",2)_$E("00",1,2-$L($P(Y,".",2))),Y=$E("000000000000",1,12-$L(Y))_Y
  • LAST EDITED:  NOV 24, 1992
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits
  • DESCRIPTION:  
    This is the dollar amount required by the Internal Revenue Service.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1005.15 AGENCY INFORMATION 1005;15 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2)!'(X=" ") X
  • LAST EDITED:  SEP 26, 1990
  • HELP-PROMPT:  Answer must be 2 blanks.
  • DESCRIPTION:  
    This field that is reserved for agency information must contain two (2) blanks.
1005.16 LOCAL CODE 1005;16 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<3)!'(X="000") X
  • LAST EDITED:  SEP 26, 1990
  • HELP-PROMPT:  Answer must be 3 zeros.
  • DESCRIPTION:  
    This field that is reserved for the local code must contain three (3) zeros.
1005.17 VA IDENT NO. 1005;17 POINTER ***** TO AN UNDEFINED FILE (#412), STORED IN ^PRC(412) *******
************************REQUIRED FIELD************************

  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y=$E("000000000",1,9-$L(Y))_Y
  • LAST EDITED:  OCT 29, 1990
  • DESCRIPTION:  
    This is a pointer to the AR (Accounts Receivable) Debtor File, #412.
1005.18 DELINQUENT DATE 1005;18 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  X:'$D(PRCF("OUT")) ^DD("DD") S:$D(PRCF("OUT")) Y=$E(Y,2,7)
  • LAST EDITED:  OCT 09, 1990
  • DESCRIPTION:  
    This is the date that payment is overdue.
1005.19 JUDGEMENT DEBT INDICATOR 1005;19 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X=" ") X
  • LAST EDITED:  SEP 26, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This indicates whether a judgement on the debt has been made.
1005.2 MASTER FILE CODE 1005;20 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 20, 1994
  • HELP-PROMPT:  Type a Number between 1 and 1, 0 Decimal Digits
  • DESCRIPTION:  
    This will contain a '1' and is used on both the Master and Update codesheets.
1005.21 FILLER-54 1005;21 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>54!($L(X)<54) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S PRCFLN=54 D RBF^PRCFU
  • LAST EDITED:  OCT 02, 1990
  • HELP-PROMPT:  Answer must be 54 characters in length.
  • DESCRIPTION:  
    This field is reserved for fifty-four (54) characters of filler.
1005.22 FILLER-12 1005;22 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X=" ") X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y="",$P(Y," ",13)=""
  • LAST EDITED:  OCT 30, 1990
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is reserved for twelve (12) characters of filler.
1006.01 FILLER-52 1006;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>52!($L(X)<52) X
  • OUTPUT TRANSFORM:  I $D(PRCF("OUT")) S PRCFLN=52 D RBF^PRCFU
  • LAST EDITED:  MAY 20, 1992
  • HELP-PROMPT:  Answer must be 52 characters in length.
  • DESCRIPTION:  
    This field is used to place 52 blanks on a code sheet. Used for the IRS Offset Master Record.
1006.02 FILLER-15 1006;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1)!'(X=" ") X
  • OUTPUT TRANSFORM:  Q:'$D(PRCF("OUT")) S Y="",$P(Y," ",16)=""
  • LAST EDITED:  MAY 20, 1992
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field is used to place 12 blanks on a code sheet. Used for the IRS Offset Weekly Update.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #804
  • Accounts Receivable
    		•
    ICR #7159
  • ENTERPRISE REPORTING TOOL
    		•  ID# (.01).
    Access: Direct Global Read & w/Fileman
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All