Routine: RCDPEFA3

Information

RCDPEFA3 ;AITC/CJE - 1ST PARTY AUTO DECREASE VS MANUAL DECREASE REPORT;Jun 06, 2014@19:11:19 ; 7/3/19 8:41am

Package	Total	Call Graph
Accounts Receivable	7	ASK^RCDPEADP ($$ASKLM,$$ENDORPRT)^RCDPEARL (ASK,DIV)^RCDPEFA1 ($$DETSUM,$$DEVICE,$$DISPTY,$$DTRNG,$$SORTORD,$$STADIV)^RCDPEFA2 LMOUT^RCDPEFA4 $$ASKSTOP^RCDPELAR INFO^RCDPEM6
Kernel	4	HOME^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE,$$NOW)^XLFDT
VA FileMan	2	EN^DDIOL $$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Accounts Receivable	2	RCDPE 1ST PARTY AUTO VS MAN RCDPEFA4

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for Manual vs Auto-Decrease Adjustment Report [RCDPE FIRST PARTY MANUAL VS AUTO]
REPORT(INPUTS,RCVAUTD,IO)	; Compile and print report ; Input: INPUTS - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected, 2 - Selected divisions ; A2 - D - Detail Report, S - Summary Report ; A3 - F - sort First to Last, L - sort Last to First ; A4 - B1\|B2 ; B1 - Decrease Transaction Date Entered Start ; B2 - Decrease Transaction Date Entered End ; A5 - 1 - Output to List Manager, else 0 ; A6 - 1 - Output to Excel, else 0 ; RCVAUTD - Array of selected Divisions, Only passed if A1=2 ; IO - Output Device
COMPILE(INPUTS,RCVAUTD)	; Compile Report Data
CHKBILL(RCBILL,BEG,END,RCTR)	; Check date of last decrease transaction, store if inside date range. ; Input: RCBILL - Internal entry number to file 430. ; BEG - Beginning date range -1 day, FileMan format ; END - Ending date range, FileMan format ; RCTR - Record counter passed by reference
SAVE(RCBILL,RCBILL3,RCDTI,RCCOPAY,RELEASE,RCTOT,RCTR)	; Put data into ^TMP ; Input: RCBILL - Copay Claim # ; RCBILL3 - 3rd Party Claim # ; RCDTI - Auto-decrease date (internal) ; RCCOPAY - Copay Amount ; RELEASE - 1 charge was auto-released from hold, 0 otherwise ; RCTOT - Decrease totals in an array passed by reference ; RCTOT("A") - Auto-decrease total ; RCTOT("M") - Manual decrease total ; RCTOT("T") - Total decrease ; Output: DTOTAL() - RCTR - Record Counter passed by reference ; ^TMP("RCDPEFADP3",$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, ; A3 - Record Counter ; B1 - External Station Name ; B2 - External Station Number ; B3 - Copay Bill Number ; B4 - 3rd Party Bill Number ; B5 - Auto-Decrease Date ; B6 - Copay Amount ; B7 - Auto-Decrease Amount ; B8 - Manual Decrease Amount ; B9 - Total decrease Amount ; B10 - Auto-release from hold flag
TOTAL(RCTOTAL,RCCOPAY,RELEASE,RCTOT)	; Increment daily or overall totals ; Input : RCTOTAL - old total ; : RCCOPAY - COPAY amount ; : RELEASE - Flag 0, 1 if bill was created by auto-releasing a charge from hold ; : RCTOTAL - Array passed by reference of manual, auto and total decreases for this bill
DISP(INPUTS)	; Format the display for screen/printer or MS Excel ; Input: INPUTS - See REPORT for details ; ^TMP("RCDPEFADP",$J) - See SAVE for description
LINE(DIV)	; List selected stations ; Input: DIV() - Array of selected divisions ; Returns: Comma delimited list of selected divisions
TOTALG(LMAN,HDRINFO,PAGE,STOP,LCNT)	; ; Input: LMAN - 1 if output to Listman, 0 otherwise ; HDRINFO - Array of header info ; PAGE - Current Page Number ; LCNT - Current line count (only passedif LMAN=1) ; Output: PAGE - Updated Page Number (if new header is displayed) ; LCNT - Updated line count (only passedif LMAN=1)
TOTALD(LMAN,HDRINFO,PAGE,STOP,DAY,LCNT)	; Totals for a single day ; Input: LMAN - 1 if output to List Template, 0 otherwise ; HDRINFO - Array of header information ; PAGE - Page Number ; DAY - FileMan date to display totals for ; LCNT - Current line count (only passedif LMAN=1) ; Output: PAGE - Updated Page Number (if a new header is displayed) ; STOP - 1 if user indiacted to stop ; LCNT - Updated line count (only passedif LMAN=1)
TOTALS(LABLE,DATA)	; Build Daily or Grand Total string ; Input: LABLE - Text to prepend to totals line ; DATA - Delimited totals data ; Returns: Line of text for output to report
PERCENTS(LABLE,DATA)	; Build Daily or Grand Total percentage line ; Input: LABLE - Text to prepend to totals line ; DATA - Delimited totals data ; Returns: Line of text for output to report
FMT(VALUE,PLACES,JUST)	; Format a % value for output ; Input: VALUE - Value to be formated ; PLACES - Number of decimal places for number ; JUST - Length in which to $JUSTIFY (optional defaults to 7) ; Returns: Formated value
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)

External References

Name	Field # of Occurrence
HOME^%ZIS	EN+33
^%ZISC	REPORT+17, DISP+81
^%ZTLOAD	EN+31
EN^DDIOL	HDR+30
$$GET1^DIQ	COMPILE+23, COMPILE+25, COMPILE+30, COMPILE+32, CHKBILL+10, CHKBILL+11, CHKBILL+20, CHKBILL+22, CHKBILL+23, CHKBILL+24 , CHKBILL+30, CHKBILL+31, CHKBILL+34, SAVE+41
ASK^RCDPEADP	TOTALG+18, TOTALD+22
$$ASKLM^RCDPEARL	EN+15
$$ENDORPRT^RCDPEARL	DISP+65, DISP+72, DISP+79
ASK^RCDPEFA1	DISP+28, DISP+43, DISP+66
DIV^RCDPEFA1	CHKBILL+19
$$DETSUM^RCDPEFA2	EN+4
$$DEVICE^RCDPEFA2	EN+23
$$DISPTY^RCDPEFA2	EN+20
$$DTRNG^RCDPEFA2	EN+12
$$SORTORD^RCDPEFA2	EN+8
$$STADIV^RCDPEFA2	EN+2
LMOUT^RCDPEFA4	EN+18
$$ASKSTOP^RCDPELAR	DISP+73
INFO^RCDPEM6	EN+22
$$FMADD^XLFDT	COMPILE+5
$$FMTE^XLFDT	SAVE+29, DISP+9, DISP+10, DISP+11, TOTALD+10
$$NOW^XLFDT	DISP+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Include first party bills where the latest decrease falls within the following" Line Location: EN+10
Function Call: WRITE	Prompt: !,"date range",! Line Location: EN+11
Function Call: WRITE	Prompt: !!,$S($G(ZTSK):"Task number "_ZTSK_" has been queued.",1:"Unable to queue this job.") Line Location: EN+32
Function Call: WRITE	Prompt: !,DATA Line Location: DISP+41
Function Call: WRITE	Prompt: !,Y Line Location: DISP+57
Function Call: WRITE	Prompt: !,$$ENDORPRT^RCDPEARL,! Line Location: DISP+65
Function Call: WRITE	Prompt: !!,?26,"* No Records to Print *",! Line Location: DISP+71
Function Call: WRITE	Prompt: !,$$ENDORPRT^RCDPEARL Line Location: DISP+72
Function Call: WRITE	Prompt: !!,LN1 Line Location: TOTALG+22
Function Call: WRITE	Prompt: !,LN2,! Line Location: TOTALG+23
Function Call: WRITE	Prompt: !!,LN1 Line Location: TOTALD+26
Function Call: WRITE	Prompt: !,LN2 Line Location: TOTALD+27
Function Call: WRITE	Prompt: !,"STATION^STATION NUMBER^COPAY BILL #^3RD PARTY BILL #^DATE^COPAY AMOUNT^AUTO-DECREASE AMOUNT^" Line Location: HDR+10
Function Call: WRITE	Prompt: "MANUAL DECREASE AMOUNT^TOTAL DECREASE AMOUNT^AUTO RELEASE HOLD" Line Location: HDR+11
Function Call: WRITE	Prompt: @IOF Line Location: HDR+14
Routine Call	%ZIS Line Location: EN+33

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IB("ABIL"	CHKBILL+21
^PRCA(430.3 - [#430.3]	COMPILE+14
^PRCA(433 - [#433]	COMPILE+18, COMPILE+22, CHKBILL+9
^TMP("RCDPEFADP3"	EN+36!, REPORT+14!, COMPILE+33, CHKBILL+40, SAVE+32, SAVE+33, SAVE+43, SAVE+46, SAVE+47, SAVE+50 , SAVE+51*, DISP+25, DISP+32, DISP+38, DISP+40, DISP+60, TOTALG+8, TOTALD+11
^TMP("RCDPE_ADP3"	EN+36!, REPORT+14!, DISP+55, DISP+77, DISP+78, DISP+79, TOTALG+13, TOTALG+14, TOTALG+15, TOTALD+16 , TOTALD+17, TOTALD+18, TOTALD+19*

Label References

Name	Line Occurrences
$$FMT	PERCENTS+8, PERCENTS+10, PERCENTS+12, PERCENTS+14
$$LINE	DISP+19
$$PERCENTS	TOTALG+10, TOTALD+13
$$TOTAL	SAVE+47, SAVE+51
$$TOTALS	TOTALG+9, TOTALD+12
CHKBILL	COMPILE+35
COMPILE	REPORT+15
DISP	REPORT+16
HDR	DISP+22, DISP+29, DISP+45, DISP+70, TOTALG+20, TOTALD+24
REPORT	EN+34
SAVE	CHKBILL+39
TOTALD	DISP+33
TOTALG	DISP+63

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A1	SAVE+26~, SAVE+32, SAVE+33, SAVE+37, SAVE+43, DISP+3~, DISP+21, DISP+24, DISP+25, DISP+26 , DISP+32, DISP+33, DISP+38, DISP+40
A2	SAVE+26~, SAVE+32, SAVE+33, SAVE+38, SAVE+43, DISP+3~, DISP+30, DISP+31, DISP+32, DISP+33 , DISP+34, DISP+38, DISP+40
A3	DISP+3~, DISP+36, DISP+37, DISP+38, DISP+39, DISP+40
BEG	COMPILE+1~, COMPILE+5*, COMPILE+17, COMPILE+35, CHKBILL~, CHKBILL+16
CNT	SAVE+26~
DAIEN	COMPILE+1~, COMPILE+14*, COMPILE+18, COMPILE+22
DAMT	TOTALD+9~
DATA	DISP+3~, DISP+40, DISP+41, DISP+46, DISP+47, DISP+48, DISP+49, DISP+50, DISP+51, DISP+52 , DISP+53, TOTALG+7~, TOTALG+8, TOTALG+9, TOTALG+10, TOTALD+11*, TOTALD+12, TOTALD+13, TOTALS~, TOTALS+6 , TOTALS+7, TOTALS+8, TOTALS+9, TOTALS+10, PERCENTS~, PERCENTS+6, PERCENTS+7, PERCENTS+9, PERCENTS+11, PERCENTS+13
DAY	TOTALD~, TOTALD+10, TOTALD+11
DCNT	TOTALD+9~
DISP	DISP+3~, DISP+5*, DISP+15, DISP+22, DISP+27, DISP+35, HDR+24, HDR+27
DIV	LINE~, HDR+7~
DIV(	LINE+5
END	COMPILE+1~, COMPILE+6*, COMPILE+18, COMPILE+35, CHKBILL~, CHKBILL+16
EXCEL	COMPILE+1~, COMPILE+8, SAVE+31, SAVE+36, DISP+3~, DISP+5, DISP+22, DISP+29, DISP+33, DISP+41 , DISP+45, DISP+62, DISP+64, DISP+70, TOTALG+20, TOTALD+24, HDR~, HDR+9
GTOTAL	DISP+3~, DISP+60*, DISP+61, DISP+69
HDRINFO	DISP+3~, DISP+22, DISP+29, DISP+33, DISP+45, DISP+63, DISP+70, TOTALG~, TOTALG+20, TOTALD~ , TOTALD+24, HDR~
HDRINFO("DISP"	DISP+15*, HDR+23
HDRINFO("DIVISIONS"	DISP+19*, HDR+19
HDRINFO("END"	DISP+10*, HDR+22
HDRINFO("RUNDATE"	DISP+11*, HDR+18
HDRINFO("SORT"	DISP+12, DISP+14, HDR+23
HDRINFO("START"	DISP+9*, HDR+22
INPUT	EN+1~, EN+2, EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+12* , EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+19, EN+20*, EN+21, EN+22 , EN+26, EN+34
INPUTS	REPORT~, REPORT+13, REPORT+15, REPORT+16, COMPILE~, COMPILE+4, COMPILE+8, COMPILE+9, COMPILE+29, DISP~ , DISP+4, DISP+5, DISP+8, DISP+13, DISP+18, DISP+23
IO	EN+18, EN+23, EN+34, REPORT~, REPORT+13, DISP+4
IO("Q"	EN+26, EN+33!
IOF	HDR+14
IOSL	DISP+42, TOTALG+17, TOTALD+21
JUST	FMT~, FMT+7*, FMT+12
LABLE	TOTALS~, TOTALS+5, PERCENTS~, PERCENTS+5
LCNT	DISP+3~, DISP+21, DISP+33, DISP+55, DISP+63, DISP+77, DISP+78, DISP+79, TOTALG~, TOTALG+13* , TOTALG+14, TOTALG+15, TOTALD~, TOTALD+16, TOTALD+17, TOTALD+18, TOTALD+19
LINE	LINE+3~, LINE+4, LINE+5, LINE+6
LMAN	DISP+3~, DISP+5*, DISP+22, DISP+27, DISP+33, DISP+42, DISP+54, DISP+63, DISP+64, DISP+66 , DISP+69, DISP+76, TOTALG~, TOTALG+12, TOTALD~, TOTALD+15
LN	PERCENTS+4~, PERCENTS+5, PERCENTS+8, PERCENTS+10, PERCENTS+12, PERCENTS+14*, PERCENTS+15
LN1	TOTALG+7~, TOTALG+9, TOTALG+14, TOTALG+22, TOTALD+9~, TOTALD+12, TOTALD+17, TOTALD+26
LN2	TOTALG+7~, TOTALG+10, TOTALG+15, TOTALG+23, TOTALD+9~, TOTALD+13, TOTALD+18, TOTALD+27
MODE	DISP+3~, DISP+23*, DISP+32
MSG	HDR+7~, HDR+30
MSG(1	HDR+15, HDR+16, HDR+17*
MSG(2	HDR+18*
MSG(3	HDR+20*
MSG(4	HDR+22*
MSG(5	HDR+23*
MSG(6	HDR+24, HDR+25
MSG(7	HDR+27, HDR+28
MSG(8	HDR+29*
NOLINE	HDR~, HDR+8*, HDR+26
P	LINE+3~, LINE+4, LINE+5
PAGE	DISP+3~, DISP+21, DISP+22, DISP+28, DISP+29, DISP+33, DISP+45, DISP+63, DISP+70, TOTALG~ , TOTALG+20, TOTALD~, TOTALD+24, HDR~, HDR+13, HDR+17
PLACES	FMT~, FMT+10
RC430IEN	COMPILE+1~, COMPILE+23*, COMPILE+24, COMPILE+25, COMPILE+32
RCAMT	COMPILE+1~, CHKBILL+6~, CHKBILL+34*, CHKBILL+35, CHKBILL+36
RCBILL	COMPILE+1~, COMPILE+30*, COMPILE+33, COMPILE+35, CHKBILL~, CHKBILL+9, CHKBILL+19, CHKBILL+20, CHKBILL+24, CHKBILL+39 , CHKBILL+40, SAVE~, SAVE+38, SAVE+41
RCBILL3	COMPILE+1~, CHKBILL+6~, CHKBILL+18, CHKBILL+32, CHKBILL+39, SAVE~, SAVE+42
RCCOPAY	COMPILE+1~, CHKBILL+6~, CHKBILL+23, CHKBILL+39, SAVE~, SAVE+42, SAVE+47, SAVE+51, TOTAL~, TOTAL+5 , TOTALD+9~, PERCENTS+4~, PERCENTS+6, PERCENTS+7, PERCENTS+9, PERCENTS+11
RCDT	COMPILE+1~, SAVE+26~, SAVE+29, SAVE+42, TOTALD+9~, TOTALD+10, TOTALD+12, TOTALD+13
RCDTI	CHKBILL+6~, CHKBILL+7, CHKBILL+12, CHKBILL+16, CHKBILL+39, SAVE~, SAVE+29, SAVE+37, SAVE+46, SAVE+47
RCPROC	CHKBILL+6~, CHKBILL+24*, CHKBILL+25
RCRDNUM	DISP+3~
RCSITE	COMPILE+2~, COMPILE+25*, COMPILE+26, COMPILE+29
RCSORT	COMPILE+2~, COMPILE+9*
RCTLIS	CHKBILL+6~
RCTLIS(	CHKBILL+13*, CHKBILL+29
RCTOT	CHKBILL+6~, CHKBILL+39, SAVE~, SAVE+47, SAVE+51, TOTAL~
RCTOT(	CHKBILL+8, CHKBILL+35
RCTOT("A"	SAVE+42, TOTAL+6
RCTOT("M"	SAVE+42, TOTAL+7
RCTOT("T"	CHKBILL+36*, SAVE+42, TOTAL+8
RCTOTAL	REPORT+12~, SAVE+26~, SAVE+46, SAVE+47, SAVE+50, SAVE+51, TOTAL~, TOTAL+5, TOTAL+6, TOTAL+7* , TOTAL+8, TOTAL+9, TOTAL+10*, TOTAL+11
RCTR	COMPILE+2~, COMPILE+7, COMPILE+35, CHKBILL~, CHKBILL+39, SAVE~, SAVE+27, SAVE+43
RCTRAND	COMPILE+2~, COMPILE+17, COMPILE+18, COMPILE+22
RCUSER	COMPILE+2~, CHKBILL+6~, CHKBILL+30*, CHKBILL+33
RCVAUTD	EN+1~, EN+2, EN+18, EN+34, REPORT~, REPORT+15, COMPILE~, DISP+19
RCVAUTD(	COMPILE+29
RELEASE	CHKBILL+6~, CHKBILL+25*, CHKBILL+39, SAVE~, SAVE+42, SAVE+47, SAVE+51, TOTAL~, TOTAL+9
RETURN	FMT+5~, FMT+6, FMT+9, FMT+10, FMT+11, FMT+12
STNAM	COMPILE+2~, CHKBILL+19, SAVE+41
STNAME	CHKBILL+6~
STNUM	COMPILE+2~, CHKBILL+6~, CHKBILL+19, SAVE+41
STOP	DISP+3~, DISP+21*, DISP+24, DISP+27, DISP+28, DISP+31, DISP+33, DISP+37, DISP+42, DISP+43 , DISP+44, DISP+62, DISP+63, DISP+66, TOTALG~, TOTALG+18, TOTALG+19, TOTALG+21, TOTALD~, TOTALD+22 , TOTALD+23, TOTALD+25
SUB	LINE+3~, LINE+4, LINE+5, HDR+7~
TRANDA	COMPILE+2~, COMPILE+21, COMPILE+22, COMPILE+23, COMPILE+30, CHKBILL+6~, CHKBILL+7, CHKBILL+9, CHKBILL+10, CHKBILL+11 , CHKBILL+13, CHKBILL+28, CHKBILL+29, CHKBILL+30, CHKBILL+31, CHKBILL+34
U	EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+12, EN+13, EN+14, EN+15 , EN+16, EN+17, EN+19, EN+20, EN+21, EN+22, EN+26, COMPILE+4, COMPILE+8, COMPILE+9 , COMPILE+29, SAVE+41, SAVE+42, TOTAL+5, TOTAL+6, TOTAL+7, TOTAL+8, TOTAL+9, TOTAL+10, DISP+5 , DISP+8, DISP+13, DISP+18, DISP+23, DISP+46, DISP+47, DISP+48, DISP+49, DISP+50, DISP+51 , DISP+52, DISP+53, TOTALS+6, TOTALS+7, TOTALS+8, TOTALS+9, TOTALS+10, PERCENTS+6, PERCENTS+7, PERCENTS+9 , PERCENTS+11, PERCENTS+13
VALUE	FMT~, FMT+8, FMT+9, FMT+10
X	COMPILE+2~, CHKBILL+6~, CHKBILL+8, CHKBILL+11, CHKBILL+12, CHKBILL+20, CHKBILL+21, CHKBILL+33, CHKBILL+35, DISP+3~ , DISP+73*
XX	REPORT+12~, COMPILE+2~, COMPILE+4, COMPILE+5, COMPILE+6, CHKBILL+21, CHKBILL+22, CHKBILL+23, SAVE+26~, SAVE+41* , SAVE+42, SAVE+43, DISP+8, DISP+9, DISP+10, DISP+13, DISP+14, DISP+18, DISP+19, HDR+7~ , HDR+21*, HDR+22
Y	CHKBILL+6~, CHKBILL+31, CHKBILL+32, CHKBILL+33, DISP+3~, DISP+46, DISP+47, DISP+48, DISP+49, DISP+50 , DISP+51, DISP+52, DISP+53, DISP+55, DISP+57, TOTALD+9~, TOTALS+4~, TOTALS+5, TOTALS+6, TOTALS+7 , TOTALS+8, TOTALS+9, TOTALS+10, TOTALS+11, PERCENTS+4~, PERCENTS+7, PERCENTS+8, PERCENTS+9, PERCENTS+10, PERCENTS+11 , PERCENTS+12, PERCENTS+13*, PERCENTS+14, HDR+7~
Z0	HDR+7~, HDR+19*, HDR+20
Z1	HDR+7~
ZTDESC	EN+27~, EN+29*
ZTQUEUED	EN+27~, DISP+73, DISP+81, DISP+82
ZTREQ	REPORT+12~, DISP+82*
ZTRTN	EN+27~, EN+28*
ZTSAVE	EN+27~
ZTSAVE("INPUT"	EN+30*
ZTSAVE("IO*"	EN+30*
ZTSAVE("RC*"	EN+30*
ZTSK	EN+27~, EN+32

Customize PDF page

Package: Accounts Receivable