STANDARD DATA DICTIONARY #349.2 -- AR CCPC STATEMENTS FILE 9/29/25 PAGE 1
STORED IN ^RCPS(349.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 4.5)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores the patient statement information that is sent from AR to CCPC.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
CROSS
REFERENCED BY: ERROR CODE(S)(AD), SSN(AKEY1), PATIENT NAME(AKEY2)
349.2,.01 PATIENT 0;1 POINTER TO AR DEBTOR FILE (#340) (Required)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: FEB 21, 1996
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
349.2,.02 SSN 0;2 FREE TEXT (Required)
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.
349.2,.03 PATIENT NAME 0;3 FREE TEXT (Required)
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.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,.11 PS SEGMENT 0;11 POINTER TO AR TRANSMISSION RECORDS FILE (#349)
LAST EDITED: JAN 09, 1997
DESCRIPTION:
This is the PS SEGMENT that contains this PH segment.
349.2,.12 INVALID STATEMENT ERROR 0;12 POINTER TO CCPC STATEMENT ERRORS FILE (#349.7)
LAST EDITED: APR 11, 1996
DESCRIPTION:
This is the error code for the record that was not accepted by CCPC.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,.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.
349.2,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.
349.2,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.
349.2,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.
349.2,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.
349.2,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.
349.2,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.
349.2,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.
349.2,20 PD LINE 2;0 Multiple #349.21 (Add New Entry without Asking)
DESCRIPTION:
This is the PD segment level of the individual patient statement.
349.21,.01 DATE POSTED 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>14!($L(X)<1) X
LAST EDITED: FEB 18, 1997
HELP-PROMPT: Answer must be 1-14 characters in length.
DESCRIPTION:
This is the patient statement line of activity.
349.21,1 TRANSACTION DESCRIPTION 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>50!($L(X)<3) X
LAST EDITED: APR 09, 1996
HELP-PROMPT: Answer must be 3-50 characters in length.
DESCRIPTION:
This is the type of activity that occurred.
349.21,2 TRANSACTION AMOUNT 0;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999999)!(X<-999999.99) X
LAST EDITED: FEB 13, 1997
HELP-PROMPT: Type a Dollar Amount between -999999.99 and 999999999, 2 Decimal Digits
DESCRIPTION:
This is the amount of the transaction.
349.21,3 BILL REF. NO. 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<9) X
LAST EDITED: MAY 29, 1996
HELP-PROMPT: Answer must be 9-12 characters in length.
DESCRIPTION:
This is the bill number as it appears in file 430.
349.2,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.
349.2,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.
349.2,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.
349.2,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.
349.2,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.
FILES POINTED TO FIELDS
AR DEBTOR (#340) PATIENT (#.01)
AR TRANSMISSION RECORDS (#349) PS SEGMENT (#.11)
CCPC STATEMENT ERRORS (#349.7) INVALID STATEMENT ERROR (#.12)
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
RCCPC INQUIRE STATEMENT MAR 13, 1998@13:58 USER #0 @
SORT TEMPLATE(S):
RCCPC INQUIRE STATEMENT JUL 09, 1996@15:12 USER #0
SORT BY: #PATIENT NAME// (User is asked range)
This sort template will allow you to sort by patient name.
FORM(S)/BLOCK(S):