Routine: PRCAACC

Information

PRCAACC ;WASH-ISC@ALTOONA,PA/CMS-AR ACCRUAL TOTALS ;10/19/10 1:36pm

Source file <PRCAACC.m>

Package	Total	Caller Graph
Accounts Receivable	31	PRCAEIN PRCAEOL PRCAFBD PRCAFBDM PRCARFD1 PRCAUDT PRCAWREA RCBEUTR1 RCDPE215 RCDPEM0 RCDPR215 RCDPRPLM RCFMOBR1 RCNRIG RCRCRT RCRJRBD RCRJRCOC RCRJRCOL RCRJRCOU RCRJRDEP RCRJROIG RCWROFF RCWROFF1 RCXFMSC1 RCXFMSCR RCXFMSSV RCXFMST1 RCXFMSUF RCXFMSUR RCXFMSUV RCXFMSW1

Name	Comments	DBIA/ICR reference
DQ	;
RPT
Q
ACCK(BN)	;Check BILLN to see if Accrual	ICR #5630 Status: Active Usage: Private
COM	;Find Accrual common numbering series
PTACCT(FUND)	;Determines whether Point Accounts are accrued
ADDPTEDT()	;Effective date of additional point accounts ; (528705 - 528708 and 528710)

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!!,?23,"Accrual Totals Report",!?20,"As of: " Line Location: RPT+0
Function Call: WRITE	Prompt: Y,! Line Location: RPT+0
Function Call: WRITE	Prompt: X Line Location: RPT+1
Function Call: WRITE	Prompt: !!!,"RX CO-PAYMENT Accrual Amount: $",$FN(TOT,",",2) Line Location: RPT+3
Function Call: WRITE	Prompt: !!!,"C (MEANS TEST) Accrual Amount: $",$FN(TOT(",18,"),",",2) Line Location: RPT+4
Function Call: WRITE	Prompt: !!!!,"Includes Common Numbering Series:",! Line Location: RPT+5
Function Call: WRITE	Prompt: !,COM,?20,COM(COM) Line Location: RPT+5
Routine Call	%ZIS Line Location: Q

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	RPT
^DIC(49 - [#49]	COM+2
^PRCA(430 - [#430]	DQ+5, DQ+6, DQ+7, ACCK+2, ACCK+7, ACCK+12, ACCK+13, ACCK+19
^PRCA(430.2 - [#430.2]	ACCK+4
^PRCA(430.4	COM+2
^RCD(340 - [#340]	ACCK+12

Name	Field # of Occurrence
^(0	COM+2

Name	Field # of Occurrence
>> %	RPT
ACC	ACCK+1~, ACCK+4, ACCK+6, ACCK+8, ACCK+9, ACCK+11, ACCK+13, ACCK+20, ACCK+25, ACCK+27
ACTDATE	ACCK+1~, ACCK+19*, ACCK+20, ACCK+25
BILLN	DQ+2~, DQ+3, DQ+5, DQ+6, DQ+7
BN	ACCK~, ACCK+2, ACCK+7, ACCK+12, ACCK+13, ACCK+19
CAT	ACCK+1~, ACCK+2*, ACCK+4, ACCK+11, ACCK+18, ACCK+25
COM	DQ+2~, RPT+5, COM+1, COM+2*
COM(	RPT+5, COM+2*
COM(""	DQ+4, RPT+2
DB	ACCK+1~, ACCK+12*, ACCK+13
DT	ACCK+19
FUND	ACCK+1~, ACCK+7*, ACCK+8, ACCK+9, ACCK+11, PTACCT~, PTACCT+5, PTACCT+6
IO	DQ+1
IO("Q"	PRCAACC+5, Q!
IO(0	Q
IOF	RPT
IOP	Q*!
PRCA	PRCAACC+3~
PRCA("MESS"	PRCAACC+4*
PRCADEV	PRCAACC+3~
PRCAQUE	PRCAACC+3~, PRCAACC+4
STAT	DQ+2~, DQ+5*
TOT	DQ+2~, RPT+3*
TOT(	DQ+7*
TOT(",18,"	RPT+4
TOT(",22,"	RPT+3
TOT(",23,"	RPT+3
U	ACCK+12, ACCK+13
X	DQ+2~, DQ+6, DQ+7, RPT+1, PTACCT+6*, PTACCT+7
Y	DQ+2~, RPT*
>> ZTDESC	PRCAACC+5*
>> ZTRTN	PRCAACC+5*
ZTSK	PRCAACC+3~