Sub-Field: 423.02

Parent File	Name	Number	Package
CALM/LOG CODE SHEET(#423)	LINE NUMBER (1-38)	423.02	IFCAP

Details

Field #	Name	Loc	Type	Details
.01	LINE NUMBER (1-38)	0;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>38)!(X<1)!(X?.E1"."1N.N) X I $D(X) S DINUM=X` LAST EDITED: `AUG 15, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 38` DESCRIPTION: `This is the line number.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	PAT NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6AN) X` LAST EDITED: `APR 11, 1985` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the PAT transaction number.`
2	YALD	0;3	FREE TEXT	INPUT TRANSFORM: `Q:X?.2UN1".".1UN1".".1UN K:$L(X)>4!($L(X)<3) X I $D(X) S X=$E(X,1,2)_"."_$E(X,3)_"."_$E(X,4)` OUTPUT TRANSFORM: `S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)` LAST EDITED: `OCT 09, 1989` HELP-PROMPT: `Enter Standard YALD Code - With or without the DOTS.` DESCRIPTION: `This is the YALD code (year, appropriation, limitation, department).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
3	FUNCTIONAL STATUS CODE	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 11, 1985` HELP-PROMPT: `ANSWER MUST BE 2 CHARACTERS IN LENGTH` DESCRIPTION: `This is the two character functional status code.`
4	COLLECTION AMOUNT	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 04, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the collection amount.` CROSS-REFERENCE: `^^TRIGGER^423^108` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(423.02,4,1,1,1.4)` `1.4)= S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=423,DIG=108 D ^DICR:$N(^DD(DIH,DI` `G,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(423.02,4,1,1,2.4)` `2.4)= S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=423,DIG=108 D ^DICR:$N(^DD(DIH,DI` `G,1,0))>0` `CREATE VALUE)= BALANCE AMOUNT+COLLECTION AMOUNT` `DELETE VALUE)= BALANCE AMOUNT-OLD COLLECTION AMOUNT` `FIELD)= BAL`
5	ACTION CODE	0;6	SET	'1' FOR ADDITIONS; '2' FOR SUBTRACTIONS; '3' FOR DATA OR POSITIVE AMT (OVERLAY); '4' FOR NEGATIVE AMOUNTS (OVERLAY); LAST EDITED: `APR 19, 1988` DESCRIPTION: `This is the 2 character (between 1 and 2) action code.`
6	ACCOUNT CODE	0;7	SET	'01' FOR 01; '02' FOR 02; '03' FOR 03; '04' FOR 04; '05' FOR 05; '06' FOR 06; '07' FOR 07; '08' FOR 08; '09' FOR 09; '10' FOR 10; '11' FOR 11; '12' FOR 12; '13' FOR 13; '14' FOR 14; '15' FOR 15; '16' FOR 16; '17' FOR 17; '18' FOR 18; '19' FOR 19; '20' FOR 20; '21' FOR 21; '22' FOR 22; '23' FOR 23; '99' FOR 99; LAST EDITED: `APR 19, 1988` HELP-PROMPT: `ENTER ACCOUNT CODE. FOR FULL REFERENCE SEE MP 4 PT V PARA 12D.06`
7	SOURCE CODE	0;8	SET	'1' FOR VA SUPPLY FUND - DEPOT; '2' FOR VA SUPPLY FUND - STATION; '3' FOR NON FEDERAL; '4' FOR GSA; '5' FOR OTHER FEDERAL, A/C, OTHER VA; '6' FOR ACCRUED SVCS PAY - FED; '7' FOR ACCRUED SVCS PAY - NON FED; LAST EDITED: `APR 19, 1988` DESCRIPTION: `This is the source code.`
8	INVENTORY AMOUNT	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the inventory amount.`
9	PAYABLE AMOUNT	0;10	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the payable amount.`
10	INTEROFFICE STATION NUMBER	0;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the interoffice station number.`
11	DEBIT G.L. ACCT #	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<3)!'(X?3N!(X?6N)) X` LAST EDITED: `AUG 15, 1986` HELP-PROMPT: `ANSWER MUST BE 3 OR 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the debit G.L. account number.`
12	CREDIT G.L. ACCT #	0;13	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<6)!'(X?6N) X` LAST EDITED: `APR 19, 1985` HELP-PROMPT: `ANSWER MUST BE 6 CHARACTERS IN LENGTH` DESCRIPTION: `This is the credit G.L. account number.`
13	AMOUNT	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 04, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999` DESCRIPTION: `This is the amount of the general ledger credit.` CROSS-REFERENCE: `^^TRIGGER^423^108` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I $D(PRCFA("TRACK")) I X S X=DIV S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(423.02,13,1,1,1.4)` `1.4)= S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=423,DIG=108 D ^DICR:$N(^DD(DIH,DI` `G,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I $D(PRCFA("TRACK")) I X S X=DIV S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(423.02,13,1,1,2.1) X ^DD(423.02,13,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^PRCF(423,D0,3,D1,0)):^(0),1:"") S X=DIU-$P(Y(1),U,14)` `2.4)= S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,16,99)) S DIH=DIH_U" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"":U_%,1:""),DIH=423,DIG=108 D ^DICR:$N(^DD(DIH,DI` `G,1,0))>0` `CREATE CONDITION)= I $D(PRCFA("TRACK"))` `CREATE VALUE)= BALANCE AMOUNT+AMOUNT` `DELETE CONDITION)= I $D(PRCFA("TRACK"))` `DELETE VALUE)= BALANCE AMOUNT-AMOUNT` `DIC)=` `FIELD)= BAL`
14	RECEIVABLE CODE	0;15	SET	'0' FOR CONTING ASSET ACCRU; '1' FOR DUE FROM FED 3011; '2' FOR DUE FROM NON FED 3012; '3' FOR REIMB - FED 1022; '4' FOR REIMB - NON FED 1022; '5' FOR REIMB - Q&L 1022; LAST EDITED: `AUG 15, 1991` DESCRIPTION: `This is the receivable code.`
15	SERVICE CODE	0;16	SET	'01' FOR 01; '02' FOR 02; '03' FOR 03; '04' FOR 04; '05' FOR 05; '06' FOR 06; '07' FOR 07; '08' FOR 08; '09' FOR 09; '10' FOR 10; '11' FOR 11; '12' FOR 12; '13' FOR 13; '14' FOR 14; '15' FOR 15; '16' FOR 16; '17' FOR 17; '18' FOR 18; '19' FOR 19; '20' FOR 20; '21' FOR 21; '22' FOR 22; '40' FOR 40; '41' FOR 41; '42' FOR 42; '43' FOR 43; '44' FOR 44; '45' FOR 45; '46' FOR 46; LAST EDITED: `MAR 01, 1993` HELP-PROMPT: `ENTER SERVICE CODE. FULL REFERENCE FOUND IN MP 4 PT V PARA 12D.06` DESCRIPTION: `This is the service code.`
16	LIMITATION	0;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1)!'(X?1AN) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` DESCRIPTION: `This is the limitation code for this line number.`
17	QUARTER	0;18	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>4)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 4` DESCRIPTION: `This is the FY quarter for this transaction.`
18	AMOUNT OF TRANSFER	0;19	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999999` DESCRIPTION: `This is the amount of the transfer.`
19	TO CONTROL POINT	0;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the Control Point that receives the transferred funds.`
20	FROM CONTROL POINT	0;21	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3)!'(X?3N) X` LAST EDITED: `APR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 3 CHARACTERS IN LENGTH` DESCRIPTION: `This is the control point that is the source of the transferred funds.`

Customize PDF page

Package: IFCAP

CALM/LOG CODE SHEET(#423)-->423.02

Sub-Field: 423.02

Information

Details