Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^RCPS(349.2

Package: Accounts Receivable

Global: ^RCPS(349.2


Information

FileMan FileNo FileMan Filename Package
349.2 AR CCPC STATEMENTS Accounts Receivable

Description

Directly Accessed By Routines, Total: 11

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

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Accounts Receivable 1 RCCPCPS    

Pointer To FileMan Files, Total: 3

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.

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RCPS(349.2 - [#349.2] .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), 51(XREF 1S), 51(XREF 1K)

Local Variables

Legend:

>> 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*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All