Global: ^RCPS(349.2

FileMan FileNo	FileMan Filename	Package
349.2	AR CCPC STATEMENTS	Accounts Receivable

Package	Total	Routines
Accounts Receivable	9	RCCPC INQUIRE STATEMENT RCCPCBJ RCCPCFN RCCPCML RCCPCPS RCCPCSE ^RCPS(349.2 RCCPCSV1 RCCPCT

Package	Total	Routines
Accounts Receivable	1	RCCPCPS

Package	Total	FileMan Files
Accounts Receivable	3	AR DEBTOR(#340)[.01] CCPC STATEMENT ERRORS(#349.7)[.12] AR TRANSMISSION RECORDS(#349)[.11]

Fields, Total: 31

Field #	Name	Loc	Type	Details
.01	PATIENT	0;1	POINTER TO AR DEBTOR FILE (#340)	**********************REQUIRED FIELD********************** AR DEBTOR(#340) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `FEB 21, 1996` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.02	SSN	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>10!($L(X)<9) X S X=$$SSN^RCFN01(+DA)` OUTPUT TRANSFORM: `S Y=Y` LAST EDITED: `SEP 24, 1996` HELP-PROMPT: `Answer must be 9-10 characters in length.` DESCRIPTION: `This is the SSN for the patient.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `349.2^AKEY1^MUMPS` `1)= I $P(^RCPS(349.2,+DA,0),"^",3)]"" S ^RCPS(349.2,"AKEY",$E(X,1,9)_$TR($E($P($P(^RCPS(349.2,+DA,0),"^",3),","),1,5)," ",""),DA)=""` `2)= K ^RCPS(349.2,"AKEY",$E(X,1,9)_$TR($E($P($P(^RCPS(349.2,+DA,0),"^",3),","),1,5)," ",""))` `This cross-reference is used to key the statements for CCPC.`
.03	PATIENT NAME	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>44!($L(X)<3) X S X=$$NAM^RCFN01(+DA)` LAST EDITED: `SEP 24, 1996` HELP-PROMPT: `Answer must be 3-44 characters in length.` DESCRIPTION: `This is the patient name as it appears on the statement.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `349.2^AKEY2^MUMPS` `1)= I $$KEY^RCCPCFN(+DA)]"" S ^RCPS(349.2,"AKEY",$$KEY^RCCPCFN(+DA),DA)=""` `2)= I $P(^RCPS(349.2,+DA,0),"^",2)>1 K ^RCPS(349.2,"AKEY",$E($P(^RCPS(349.2,+DA,0),"^",2),1,9)_$TR($E($P(X,","),1,5)," ",""))` `This cross-reference is used to key the statements for CCPC.`
.04	AMOUNT DUE	0;4	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999999.99) X` LAST EDITED: `JUN 04, 1996` HELP-PROMPT: `Type a Dollar Amount between -999999999.99 and 999999999, 2 Decimal Digits` DESCRIPTION: `This is the total amount due for that statement period.`
.05	PREV BAL	0;5	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>9999999999)!(X<-999999999.99) X` LAST EDITED: `JUN 04, 1996` HELP-PROMPT: `Type a Dollar Amount between -999999999.99 and 9999999999, 2 Decimal Digits` DESCRIPTION: `This is the amount of the previous balance on the previous statement.`
.06	TOTAL CHARGES	0;6	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999999)!(X<0) X` LAST EDITED: `FEB 16, 1996` HELP-PROMPT: `Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits` DESCRIPTION: `This is the total amount of charges for this statement.`
.07	TOTAL CREDITS	0;7	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-9999999.99) X` LAST EDITED: `JAN 14, 1997` HELP-PROMPT: `Type a Dollar Amount between -9999999.99 and 999999999, 2 Decimal Digits` DESCRIPTION: `This is the total amount of charges for this patient statement.`
.08	NEW BALANCE	0;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-9999999.99) X` LAST EDITED: `JAN 14, 1997` HELP-PROMPT: `Type a Dollar Amount between -9999999.99 and 999999999, 2 Decimal Digits` DESCRIPTION: `This is the total credits to the patient account for this statement period.`
.09	PROCESS#	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 01, 1996` HELP-PROMPT: `Type a Number between 1 and 100, 0 Decimal Digits` DESCRIPTION: `This is the process number for that patient statement.`
.1	PROCESS END TIME	0;10	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 16, 1996` DESCRIPTION: `This is the time that the process that sets the entries ended.`
.11	PS SEGMENT	0;11	POINTER TO AR TRANSMISSION RECORDS FILE (#349)	AR TRANSMISSION RECORDS(#349) LAST EDITED: `JAN 09, 1997` DESCRIPTION: `This is the PS SEGMENT that contains this PH segment.`
.12	INVALID STATEMENT ERROR	0;12	POINTER TO CCPC STATEMENT ERRORS FILE (#349.7)	CCPC STATEMENT ERRORS(#349.7) LAST EDITED: `APR 11, 1996` DESCRIPTION: `This is the error code for the record that was not accepted by CCPC.`
.13	PRINCIPAL	0;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` LAST EDITED: `APR 04, 1996` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This is the principal amount recorded as the balance of the last statement.`
.14	INTEREST	0;14	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` LAST EDITED: `APR 04, 1996` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This is the interest amount recorded as the balance of the last statement.`
.15	ADMIN	0;15	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` LAST EDITED: `APR 04, 1996` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This is the administrative charges total as recorded with the last statement.`
.16	MARSHAL FEES	0;16	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` LAST EDITED: `APR 04, 1996` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This is the administrative fees total as recorded with the last statement.`
.17	COURT COSTS	0;17	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X` LAST EDITED: `APR 04, 1996` HELP-PROMPT: `Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits` DESCRIPTION: `This is the total of marshal fees recorded as of the last statement.`
.18	CCPC FILE BUILT	0;18	SET	'0' FOR NOT BUILT; '1' FOR BUILT; LAST EDITED: `JUL 16, 1996` DESCRIPTION: `This field will store a marker that the CCPC PATIENT STATEMENTS file (349.2) is a complete file for that statement day.`
11	ADDRESS 1	1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 09, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: `This is the first address line for the patient.`
12	ADDRESS 2	1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` LAST EDITED: `APR 09, 1996` HELP-PROMPT: `Answer must be 3-40 characters in length.` DESCRIPTION: `This is the second address line for the patient.`
13	ADDRESS 3	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 09, 1996` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This is the street address line 3 for the patient.`
14	CITY	1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 09, 1996` HELP-PROMPT: `Answer must be 1-40 characters in length.` DESCRIPTION: `This is the city name for the patient address.`
15	STATE	1;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<2) X` LAST EDITED: `APR 09, 1996` HELP-PROMPT: `Answer must be 2 characters in length.` DESCRIPTION: `This is the state name abbreviation for the patient address.`
16	ZIP CODE	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<5) X` LAST EDITED: `JAN 14, 1997` HELP-PROMPT: `Answer must be 5-9 characters in length.` DESCRIPTION: `This is the zip code for the patient address.`
17	FOREIGN COUNTRY	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `AUG 01, 1996` HELP-PROMPT: `Answer must be 2-30 characters in length.` DESCRIPTION: `This is the country code field for the patient address.`
20	PD LINE	2;0	Multiple #349.21	349.21 DESCRIPTION: `This is the PD segment level of the individual patient statement.`
30	SPECIAL NOTICES	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>160!($L(X)<1) X` LAST EDITED: `APR 04, 1996` HELP-PROMPT: `Answer must be 1-160 characters in length.` DESCRIPTION: `This is the special notice information that prints on the patient statement.`
40	PARAGRAPH CODES	4;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<2) X` LAST EDITED: `APR 04, 1996` HELP-PROMPT: `Answer must be 2-40 characters in length.` DESCRIPTION: `This is the paragraph codes indicating what paragraphs will print on the patient statement.`
51	ERROR CODE(S)	5;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<5) X` LAST EDITED: `MAY 23, 1996` HELP-PROMPT: `Answer must be 5-30 characters in length.` DESCRIPTION: `These are the error codes sent back by CCPC when a statement cannot be printed.` CROSS-REFERENCE: `349.2^AD^MUMPS` `1)= S ^RCPS(349.2,"AD","E",DA)=""` `2)= K ^RCPS(349.2,"AD","E",DA)` `This is the cross-reference to find patient statement errors that are returned from CCPC.`
61	CCPC PRINTED	6;1	SET	'1' FOR Y; '0' FOR N; LAST EDITED: `JUN 06, 1996` DESCRIPTION: `This field indicates whether the patient statement for this patient printed at the CCPC or not.`
62	LARGE PRINT NEEDED ON STMT	7;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 01, 2005` DESCRIPTION: `This field will identify 1st party debtors requiring statements with large print.` `This is the same field in file 340 field 111.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.1+1*
>> DA	.02+1, .02(XREF 1S), .02(XREF 1K), .03+1, .03(XREF 1S), .03(XREF 1K), 51(XREF 1S), 51(XREF 1K)
>> DINUM	.01+1*
X	.01+1, .02+1!, .02(XREF 1S), .02(XREF 1K), .03+1!, .03(XREF 1K), .04+1!, .05+1!, .06+1!, .07+1! , .08+1!, .09+1!, .1+1!, .13+1!, .14+1!, .15+1!, .16+1!, .17+1*!, 11+1!, 12+1! , 13+1!, 14+1!, 15+1!, 16+1!, 17+1!, 30+1!, 40+1!, 51+1!
>> Y	.02OT+1*, .1+1
>> Y(0	.02OT+1*

Customize PDF page

Package: Accounts Receivable

Global: ^RCPS(349.2

Information

Description

Directly Accessed By Routines, Total: 11

Accessed By FileMan Db Calls, Total: 1

Pointer To FileMan Files, Total: 3

Fields, Total: 31

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	.1+1
$$KEY^RCCPCFN	.03(XREF 1S)
$$NAM^RCFN01	.03+1
$$SSN^RCFN01	.02+1