Routine: RCDPEFA1

Package	Total	Call Graph
Accounts Receivable	4	($$ASKLM,$$ENDORPRT,LMRPT)^RCDPEARL ($$ASKPAT,$$ASKSORT,$$DETSUM,$$DEVICE,$$DISPTY,$$DTRNG,$$SORTORD,$$STADIV,LMAN,TOTALD,TOTALG)^RCDPEFA2 $$ASKSTOP^RCDPELAR INFO^RCDPEM6
Kernel	4	HOME^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
VA FileMan	3	EN^DDIOL $$GET1^DIQ ^DIR

Package	Total	Caller Graph
Accounts Receivable	3	RCDPE AUTO-DECREASE 1ST PARTY RCDPEFA2 RCDPEFA3

Entry Points

Name	Comments	DBIA/ICR reference
EN	; entry point for Auto-Decrease Adjustment report [RCDPE FIRST PARTY AUTO-DECREASE]
REPORT(INPUTS,RCVAUTD,IO)	;EP Compile and print report ; Input: INPUTS - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected, 2 - Selected divisions ; A2 - C - Sort by Claim, N - Sort by Patient Name ; A3 - F - sort First to Last, L - sort Last to First ; A4 - B1\|B2 ; B1 - Auto-Post Start Date ; B2 - Auto-Post End Date ; A5 - 1 - Output to Excel, else 0 ; A6 - 1 - Output to List Manager, else 0 ; A7 - C1\|C2 ; C1 - P - Filter list by Patient ; A - Show all 1st Party Auto-Decreases" ; C2 - IEN into file #2 (if C1=P, null otherwise) ; RCVAUTD - Array of selected Divisions, Only passed if A1=2 ; IO - Output Device
COMPILE(INPUTS,RCVAUTD,DTOTAL,GTOTAL)	;EP Generate the Auto-Decrease report ^TMP array ; Input: INPUTS - See REPORT for details ; RCVAUTD - Array of Divisions ; Only passed if A1=2 ; Output: DTOTAL - Array of totals by Auto-Post Date ; GTOTAL - Grand totals ; ^TMP("RCDPEFADP",$J)- Array of report data, See SAVE for a full description
SAVE(RCDEBTOR,RCAMT,RCBILL,RCBILL3,RCOPAY,RCDTI,RCDT,EXCEL,RCSORT,RCTR,STNAM,STNUM,RCCMT)	; Put data into ^TMP ; Input: RCDEBTOR - Patient Name ; RCAMT - Auto-Decrease amount ; RCBILL - Copay Claim # ; RCBILL3 - 3rd Party Claim # ; RCCOPAY - Copay Amount ; RCDTI - Auto-decrease date (internal) ; RCDT - Auto-decrease date (external) ; EXCEL - 1 output to Excel, 0 otherwise ; RCSORT - C - Sort by Claim, N - Sort by Patient Name ; DTOTAL() - Current array of totals by Auto-Decrease Date ; GTOTAL - Current Grand total ; RCTR - Record Counter ; STNAM - Station name ; STNUM - Station number ; RCCMT - PRCA4.5349 - Comments ; ^TMP("RCDPEFADP",$J)- Current report data ; See below for a full description ; Output: DTOTAL() - Updated array of totals by Auto-Post Date ; GTOTAL - Updated Grand totals ; RCTR - Record Counter ; ^TMP("RCDPEFADP",$J,A1,A2,A3) = B1^B2^B3^...^Bn Where: ; A1 - "EXCEL" if report to excel, fileman date if not ; A2 - Excel Line Counter if to excel, Claim # if sort by claim, ; Patient Name if sort by Name ; A3 - Record Counter ; B1 - External Station Name ; B2 - External Station Number ; B3 - External Patient Name/SSN ; B4 - Copay Amount ; B5 - Auto-Decrease Amount ; B6 - Copay Bill Number ; B7 - 3rd Party Bill Number ; B8 - Auto-Decrease Date ; ^TMP("RCDPEFADP",$J,A1,A2,A3,"CMT") = Multi-line comment added for PRCA4.5349
DISP(INPUTS,DTOTAL,GTOTAL)	; Format the display for screen/printer or MS Excel ; Input: INPUTS - See REPORT for details ; DTOTAL()- Array of totals by Internal Auto-Post date ; GTOTAL - Grand Totals for the selected date period ; ^TMP("RCDPEFADP",$J) - See SAVE for description
ASK(STOP,TYP)	; Ask to continue, if TYP=1 then prompt to finish ; Input: TYP - 1 - Prompt to finish, 0 Otherwise ; Output: STOP - 1 abort print, 0 otherwise
DIV(STAIEN,STNUM,STNAM)	; Get the station for this ERA ; Input: DAIEN - AR ACCOUNT IEN ; Output: STNUM - Station Number ; STNAM - Station Name
HDR(EXCEL,HDRINFO,PAGE,NOLINE)	; Print the report header ; Input: EXCEL - 1 if output to Excel, 0 otherwise ; HDRINFO() - Array of Header information ; PAGE - Current Page Number ; NOLINE - 1 to not display Claim line header ; Optional, defaults to 0 ; Output: PAGE - Updated Page Number (if EXCEL=0)
HINFO(INPUTS,HDRINFO)	; Get header information ; Input: INPUTS - See REPORT for description ; HDRINFO - Header array for ListMan, passed by ref.
LINE(DIV)	; List selected stations ; Input: DIV() - Array of selected divisions ; Returns: Comma delimited list of selected divisions
LMOUT(INPUT,RCVAUTD,IO)	; Output report to Listman ; Input: INPUT - see REPORT for description ; RCVAUTD - Array of selected Divisions ; IO - Device array ; Output: ^TMP("RCDPE_LAR",$J,nn) - Array of display lines (no headers)
PCENT(AMNT,COPAY)	; Return percentage of dollars auto-decreased

Name	Field # of Occurrence
HOME^%ZIS	EN+38
^%ZISC	REPORT+22, DISP+91
^%ZTLOAD	EN+36
EN^DDIOL	HDR+27
$$GET1^DIQ	COMPILE+32, COMPILE+34, COMPILE+39, COMPILE+41, COMPILE+42, COMPILE+45, COMPILE+48, COMPILE+49, COMPILE+50, COMPILE+51 , COMPILE+53, COMPILE+54, COMPILE+55, COMPILE+57, COMPILE+59, DIV+6, DIV+7
^DIR	ASK+8
$$ASKLM^RCDPEARL	EN+21
$$ENDORPRT^RCDPEARL	DISP+75, DISP+82, DISP+89
LMRPT^RCDPEARL	LMOUT+17
$$ASKPAT^RCDPEFA2	EN+9
$$ASKSORT^RCDPEFA2	EN+12
$$DETSUM^RCDPEFA2	EN+4
$$DEVICE^RCDPEFA2	EN+28
$$DISPTY^RCDPEFA2	EN+25
$$DTRNG^RCDPEFA2	EN+18
$$SORTORD^RCDPEFA2	EN+16
$$STADIV^RCDPEFA2	EN+2
LMAN^RCDPEFA2	DISP+50
TOTALD^RCDPEFA2	DISP+38
TOTALG^RCDPEFA2	DISP+73
$$ASKSTOP^RCDPELAR	DISP+83
INFO^RCDPEM6	EN+27
$$FMADD^XLFDT	COMPILE+12
$$FMTE^XLFDT	COMPILE+56, DISP+13, DISP+14, DISP+15, HINFO+5, HINFO+6, HINFO+7
$$NOW^XLFDT	DISP+15, HINFO+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" has been queued.",1:"Unable to queue this job.") Line Location: EN+37
Function Call: WRITE	Prompt: !,DATA Line Location: DISP+46
Function Call: WRITE	Prompt: !,Y Line Location: DISP+61
Function Call: WRITE	Prompt: !,?6,"Comment: " Line Location: DISP+64
Function Call: WRITE	Prompt: ^TMP("RCDPEFADP",$J,A1,A2,A3,"CMT",CNT),!,?11 Line Location: DISP+67
Function Call: WRITE	Prompt: !,$$ENDORPRT^RCDPEARL,! Line Location: DISP+75
Function Call: WRITE	Prompt: !!,?26,"* No Records to Print *",! Line Location: DISP+81
Function Call: WRITE	Prompt: !,$$ENDORPRT^RCDPEARL Line Location: DISP+82
Function Call: WRITE	Prompt: ! Line Location: ASK+7
Function Call: WRITE	Prompt: !,"STATION^STATION NUMBER^PATIENT^COPAY AMOUNT^DECREASE AMOUNT^" Line Location: HDR+10
Function Call: WRITE	Prompt: "COPAY BILL #^3RD PARTY BILL #^AUTO DECREASE DATE" Line Location: HDR+11
Function Call: WRITE	Prompt: @IOF Line Location: HDR+14
Routine Call	%ZIS Line Location: EN+38
Routine Call	DIR Line Location: ASK+8

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^RCD(340 - [#340]	GET1^DIQ
^IB - [#350]	GET1^DIQ
^PRCA(430 - [#430]	GET1^DIQ
^PRCA(433 - [#433]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^IB("ABIL"	COMPILE+44
^PRCA(430.3 - [#430.3]	COMPILE+23
^PRCA(433 - [#433]	COMPILE+27, COMPILE+31
^TMP("RCDPEFADP"	REPORT+18!, REPORT+21!, SAVE+40, SAVE+41, SAVE+50, SAVE+55*, DISP+30, DISP+37, DISP+43, DISP+45 , DISP+49, DISP+66, DISP+67, LMOUT+18!
^TMP("RCDPE_ADP"	REPORT+18!, DISP+87, DISP+88, DISP+89*, LMOUT+17, LMOUT+18!
^TMP("RCDPE_FAD"	COMPILE+20*
^TMP("RCSELPAY"	REPORT+21!
^TMP($J	LMOUT+18!

Name	Line Occurrences
$$LINE	DISP+24, HINFO+16
ASK	DISP+33, DISP+52, DISP+76
COMPILE	REPORT+19
DISP	REPORT+20
DIV	COMPILE+58
HDR	DISP+27, DISP+34, DISP+54, DISP+80
HINFO	LMOUT+7
LMOUT	EN+24
REPORT	EN+39, LMOUT+6
SAVE	COMPILE+60

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A1	SAVE+35~, SAVE+40, SAVE+41, SAVE+45, SAVE+50, SAVE+55, DISP+5~, DISP+26, DISP+29, DISP+30 , DISP+31, DISP+37, DISP+38, DISP+43, DISP+45, DISP+49, DISP+66, DISP+67
A2	SAVE+35~, SAVE+40, SAVE+41, SAVE+46, SAVE+50, SAVE+55, DISP+5~, DISP+35, DISP+36, DISP+37 , DISP+38, DISP+39, DISP+43, DISP+45, DISP+49, DISP+66, DISP+67
A3	DISP+5~, DISP+41, DISP+42, DISP+43, DISP+44, DISP+45, DISP+49, DISP+66, DISP+67
AMNT	PCENT~, PCENT+2
AMT	COMPILE+7~
BEG	COMPILE+7~, COMPILE+12*, COMPILE+26
CNT	SAVE+35~, SAVE+53, SAVE+54, SAVE+55, DISP+65~, DISP+66*, DISP+67
COPAY	PCENT~, PCENT+1, PCENT+2
DAIEN	COMPILE+7~, COMPILE+23*, COMPILE+27, COMPILE+31
DATA	DISP+5~, DISP+45*, DISP+46, DISP+50, DISP+55, DISP+56, DISP+57, DISP+58, DISP+59, DISP+60
DIR	ASK+3~
DIR("A"	ASK+5*
DIR(0	ASK+6*
DIROUT	ASK+3~
DIRUT	ASK+3~, ASK+9
DISP	EN+1~, EN+4, EN+5, EN+6, EN+8, EN+12, EN+15, EN+25, DISP+5~, DISP+9 , DISP+20, DISP+27, DISP+32, DISP+40
DIV	HDR+7~, LINE~
DIV(	LINE+5
DTOTAL	REPORT+16~, REPORT+19, REPORT+20, COMPILE~, DISP~, DISP+38
DTOTAL(	SAVE+59, SAVE+60, SAVE+61*
DTOUT	ASK+3~
DUOUT	ASK+3~, ASK+9
END	COMPILE+7~, COMPILE+13*, COMPILE+27
EXCEL	COMPILE+7~, COMPILE+15, COMPILE+60, SAVE~, SAVE+39, SAVE+44, DISP+5~, DISP+7, DISP+27, DISP+34 , DISP+38, DISP+46, DISP+54, DISP+72, DISP+74, DISP+80, HDR~, HDR+9
GTOTAL	REPORT+16~, REPORT+19, REPORT+20, COMPILE~, SAVE+64, SAVE+65, SAVE+66*, DISP~, DISP+71, DISP+73 , DISP+79
HDR	LMOUT+5~, LMOUT+17
HDR("TITLE"	LMOUT+8*
HDR(1	LMOUT+9*
HDR(2	LMOUT+11*
HDR(3	LMOUT+12*
HDR(4	LMOUT+13*
HDR(5	LMOUT+14*
HDR(6	LMOUT+15*
HDR(7	LMOUT+16*
HDRINFO	DISP+5~, DISP+27, DISP+34, DISP+38, DISP+54, DISP+73, DISP+80, HDR~, HINFO~, LMOUT+5~ , LMOUT+7
HDRINFO("DISP"	DISP+20*, HDR+22
HDRINFO("DIVISIONS"	DISP+24, HDR+18, HINFO+16, LMOUT+10
HDRINFO("END"	DISP+14, HDR+21, HINFO+6, LMOUT+12
HDRINFO("RUNDATE"	DISP+15, HDR+17, HINFO+7, LMOUT+9
HDRINFO("SORT"	DISP+17, DISP+19, HDR+22, HINFO+9, HINFO+11, HINFO+12*, LMOUT+13
HDRINFO("START"	DISP+13, HDR+21, HINFO+5, LMOUT+12
INPUT	EN+1~, EN+2, EN+3, EN+6, EN+7, EN+9, EN+10, EN+11, EN+12, EN+13 , EN+14, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+24 , EN+25, EN+26, EN+27, EN+31, EN+39, DISP+50, LMOUT~, LMOUT+6, LMOUT+7
INPUTS	REPORT~, REPORT+19, REPORT+20, COMPILE~, COMPILE+10, COMPILE+11, COMPILE+15, COMPILE+16, COMPILE+38, DISP~ , DISP+7, DISP+8, DISP+9, DISP+12, DISP+16, DISP+18, DISP+23, DISP+28, DISP+63, HINFO~ , HINFO+4, HINFO+8, HINFO+10, HINFO+12, HINFO+15
IO	EN+24, EN+28, EN+39, REPORT~, REPORT+17, DISP+6, LMOUT~, LMOUT+6
IO("Q"	EN+31, EN+38!
IOF	HDR+14
IOSL	DISP+51
IOST	ASK+4
LCNT	DISP+5~, DISP+26, DISP+38, DISP+50, DISP+73, DISP+87, DISP+88*, DISP+89
LINE	LINE+3~, LINE+4, LINE+5, LINE+6
LMAN	DISP+5~, DISP+8*, DISP+27, DISP+32, DISP+38, DISP+47, DISP+73, DISP+74, DISP+79, DISP+86
MODE	DISP+5~, DISP+28*, DISP+37
MSG	HDR+7~, HDR+27
MSG(1	HDR+15, HDR+16
MSG(2	HDR+17*
MSG(3	HDR+19*
MSG(4	HDR+21*
MSG(5	HDR+22*
MSG(6	HDR+23*
MSG(7	HDR+25*
MSG(8	HDR+26*
NOLINE	HDR~, HDR+8*, HDR+24
P	LINE+3~, LINE+4, LINE+5
PAGE	DISP+5~, DISP+26, DISP+27, DISP+33, DISP+34, DISP+38, DISP+54, DISP+73, DISP+80, HDR~ , HDR+13, HDR+16
PIEN	COMPILE+7~, COMPILE+11*, COMPILE+52
RC430IEN	COMPILE+8~, COMPILE+32*, COMPILE+33, COMPILE+34, COMPILE+48, COMPILE+49, COMPILE+50, COMPILE+58
RCAMT	COMPILE+57*, COMPILE+60, SAVE~, SAVE+49, SAVE+60, SAVE+65
RCBILL	COMPILE+7~, COMPILE+41*, COMPILE+44, COMPILE+60, SAVE~, SAVE+46, SAVE+49
RCBILL3	COMPILE+7~, COMPILE+42*, COMPILE+43, COMPILE+60, SAVE~, SAVE+49
RCCMT	COMPILE+7~, COMPILE+59, COMPILE+60, SAVE~, SAVE+52, DISP+48~, DISP+49, DISP+50
RCCMT(	SAVE+53, SAVE+55
RCCOPAY	COMPILE+7~, COMPILE+45*, COMPILE+60
RCDEBTOR	COMPILE+7~, COMPILE+49, COMPILE+53, COMPILE+54*, COMPILE+60, SAVE~, SAVE+46, SAVE+49
RCDIEN	COMPILE+7~, COMPILE+50, COMPILE+51, COMPILE+52, COMPILE+53, COMPILE+54
RCDT	COMPILE+7~, COMPILE+56*, COMPILE+60, SAVE~, SAVE+49
RCDTI	COMPILE+7~, COMPILE+55*, COMPILE+56, COMPILE+60, SAVE~, SAVE+45, SAVE+59, SAVE+60, SAVE+61
RCOPAY	SAVE~, SAVE+49, SAVE+61, SAVE+66
RCRDNUM	DISP+5~
RCSITE	COMPILE+8~, COMPILE+34*, COMPILE+35, COMPILE+38
RCSORT	COMPILE+8~, COMPILE+16*, COMPILE+60, SAVE~, SAVE+46
RCTR	COMPILE+8~, COMPILE+14, COMPILE+60, SAVE~, SAVE+36, SAVE+50, SAVE+55
RCTRAND	COMPILE+8~, COMPILE+26, COMPILE+27, COMPILE+31
RCTYPE	COMPILE+8~
RCUSER	COMPILE+8~, COMPILE+39*, COMPILE+40
RCVAUTD	EN+1~, EN+2, EN+24, EN+39, REPORT~, REPORT+19, COMPILE~, DISP+24, HINFO+16, LMOUT~ , LMOUT+6
RCVAUTD(	COMPILE+38
STA	COMPILE+8~
STAIEN	DIV~, DIV+5, DIV+6, DIV+7
STNAM	COMPILE+8~, COMPILE+58, COMPILE+60, SAVE~, SAVE+49, DIV~, DIV+4, DIV+6
STNUM	COMPILE+8~, COMPILE+58, COMPILE+60, SAVE~, SAVE+49, DIV~, DIV+4, DIV+7
STOP	DISP+5~, DISP+26, DISP+29, DISP+32, DISP+33, DISP+36, DISP+38, DISP+42, DISP+51, DISP+52 , DISP+53, DISP+72, DISP+73, DISP+76, ASK~, ASK+9
SUB	HDR+7~, LINE+3~, LINE+4, LINE+5
TRANDA	COMPILE+8~, COMPILE+30, COMPILE+31, COMPILE+32, COMPILE+39, COMPILE+41, COMPILE+42, COMPILE+55, COMPILE+57, COMPILE+59
TYP	ASK~, ASK+5
U	EN+6, EN+7, EN+9, EN+10, EN+11, EN+12, EN+13, EN+14, EN+16, EN+17 , EN+18, EN+19, EN+20, EN+21, EN+22, EN+23, EN+25, EN+26, EN+27, EN+31 , COMPILE+10, COMPILE+11, COMPILE+15, COMPILE+16, COMPILE+38, SAVE+49, SAVE+59, SAVE+60, SAVE+61, SAVE+64 , SAVE+65, SAVE+66, DISP+7, DISP+8, DISP+9, DISP+12, DISP+16, DISP+18, DISP+23, DISP+28 , DISP+55, DISP+56, DISP+57, DISP+58, DISP+59, DISP+60, DISP+63, HINFO+4, HINFO+8, HINFO+10 , HINFO+12, HINFO+15
X	DISP+5~, DISP+83*
XX	REPORT+16~, COMPILE+8~, COMPILE+10, COMPILE+12, COMPILE+13, COMPILE+44, COMPILE+45, SAVE+35~, SAVE+49, SAVE+50 , SAVE+53, SAVE+55, DISP+12, DISP+13, DISP+14, DISP+16, DISP+17, DISP+18, DISP+19, DISP+23 , DISP+24, HDR+7~, HDR+20, HDR+21, HINFO+3~, HINFO+4, HINFO+5, HINFO+6, HINFO+8, HINFO+9 , HINFO+10, HINFO+11, HINFO+15*, HINFO+16
Y	DISP+5~, DISP+55, DISP+56, DISP+57, DISP+58, DISP+59, DISP+60, DISP+61, HDR+7~
Z0	HDR+7~, HDR+18, HDR+19, LMOUT+5~, LMOUT+10, LMOUT+11
Z1	HDR+7~
ZTDESC	EN+32~, EN+34*
ZTQUEUED	EN+32~, DISP+83, DISP+91, DISP+92
ZTREQ	REPORT+16~, DISP+92*
ZTRTN	EN+32~, EN+33*
ZTSAVE	EN+32~
ZTSAVE("INPUT"	EN+35*
ZTSAVE("IO*"	EN+35*
ZTSAVE("RC*"	EN+35*
ZTSK	EN+32~, EN+37

Customize PDF page

Package: Accounts Receivable

Routine: RCDPEFA1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: