Routine: RCDPELAR

Package	Total	Call Graph
Accounts Receivable	5	($$ASKLM,LMRPT)^RCDPEARL $$CHKDIV^RCDPEDAR ($$ERAHDR2,$$HDRLN2,$$HDRLN3,RPTOUT)^RCDPELA1 INFO^RCDPEM6 ($$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$UP^XLFSTR
VA FileMan	2	$$GET1^DIQ ^DIR
Registration	1	DIVISION^VAUTOMA

Package	Total	Caller Graph
Accounts Receivable	5	RCDPE AUTO-POST RECEIPT REPORT RCDPEADP RCDPEFA1 RCDPEFA3 RCDPELA1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main entry point
LMOUT(INPUT,RCVAUTD,IO)	; Output report to Listman ; Input: INPUT - See REPORT for a complete description ; RCVAUTD - Array of selected Divisions ; Only passed if A1=2 ; Output: ^TMP("RCDPE_LAR",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1
STADIV(RCVAUTD)	; Division/Station Filter ; Input: None ; Output: RCVAUTD - Array of selected divisions, if 1 is returned ; Returns: 0 - User up-arrowed or timed out ; 1 - All divisions selected ; 2 - Selected Divisions
APORERA()	; Ask the user if they want to filter by Auto-Post Date or ERA Date ; received ; Input: None ; Returns: 0 - User up-arrowed or timed out ; 1 - Filter by Auto-Post date range ; 2 - Filter by ERA Date Received
DTRNG(WHICH)	; Allows the user to select the Auto-Post OR ERA Received ; date range to be used ; Input: WHICH - 0 - Auto-Post Date Range ; 1 - ERA Date Received Date Range ; Returns: 0 - User up-arrowed or timed out, 1 otherwise ; A1^A2 - Where: ; A1 - Aut-Post Start Date ; A2 - Auto-Post End Date
ENDDT	; Prompt for end date
SELERA()	; Ask the user which types of ERA the want to see on the report ; Input: None ; Returns: 0 - User up-arrowed or timed out ; 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts
RPTSORT(WHICH,ERASEL)	; Ask the user how they want to sort the data ; Input: WHICH - 1- Filtering by Auto-Post Date ; 2 - Filtering by ERA Date Received ; ERASEL - ERA Filter ; 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; Returns: 0 - User up-arrowed or timed out ; 1 - Auto-Post Date sort ; 2 - Missing Receipts
EXCEL()	; Ask the user if they want to export to Excel ; Input: None ; Returns: -1 - User up-arrowed or timed out ; 0 - Output to paper ; 1 - Output to Excel
DEVICE(EXCEL,IO)	; Select the output device ; Input: EXCEL - 1 - Ouput to Excel, 0 otherwise ; Output: %ZIS - Selected device ; IO - Array of selected output info ; Returns: 0 - No device selected, 1 otherwise
REPORT(INPUT,RCVAUTD,IO,JOB)	; Compile and run the report ; Expects ZTQUEUED to be defined already if queued ; Input: INPUT - A1^A2^A3^...^An Where: ; A1 - 1 - All divisions selected ; 2 - Selected divisions ; A2 - 1 - Filter by Auto-Post date range ; 2 - Filter by ERA Date Received date range ; A3 - B1\|B2 - Where: ; B1 - ERA Date Received Start Date if A2=2 ; Auto-Post Start Date of A2=1 ; B2 - ERA Date Received End Date if A2=2 ; Auto-Post End Date of A2=1 ; A4 - 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; A5 - 1 - All insurance companies selected ; 2 - Selected insurance companies chosen ; A6 - 1 - Auto-Post Date/ERA Date Received Sort ; 2 - Payer sort ; 3 - Missing Receipts ; A7 - 0 - Do not display in a listman template ; 1 - Display in a listman template ; A8 - 0 - Output to paper ; 1 - Output to Excel ; A9 - Line counter for Listman output ; A10 - M/P/T/C/A = Medical/Pharmacy/Tricare/CHAMPVA/All ; RCVAUTD - Array of selected Divisions ; Only passed if A1=2 ; IO - Interface device ; JOB - $J (optional, only passed in when report is queued) ; ^TMP("RCSELPAY",$J)- Global Array of selected insurance companies ; Output: ^TMP("RCDPE_LAR",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1
PAYERS(JOB)	; Rearrange payer global for easier use ; Input: ^TMP("RCSELPAY",$J,nn)=Payer Name - Global Array of selected ; insurance companies ; Output ^TMP($J,"SELPAYER",Payer Name)="" - Global Array of selected ; insurance rearranged for easier checks
RPTE(DIVFLT,CURDT,SORT,ERAFILT,VAUTD,RCTYPE,RCPAYS)	; Use the ERA Date Received index and filter out ; divisions, payers that weren't selected ; Input: DIVFLT - 1 - All Divisions selected, 2 otherwise ; CURDT - Date being processed ; SORT - 1 - Auto-Post Date Sort ; 2 - Missing Receipts ; ERAFILT - 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; VAUTD - Array of selected divisions ; RCTYPE - Type of payer - M/P/T/A ; RCPAYS - A - All payers, S - Selected Payers, R - Range of Payers ; ^TMP("RCSELPAY",$J) - Global Array of selected insurance companies ; Output: ^TMP($J,A1,"SEL",A2,A3,A4,A5)="" - if record passed filters Where: ; A1 - "RCDPE_LAR" ; A2 - Uppercased Payer Name (primary sort) ; A3 - Secondary Sort Value ; A4 - Internal IEN for file 344.4 ; A5 - Internal IEN for sub file 344.41
RPTA(DIVFLT,CURDT,SORT,ERAFILT,VAUTD,RCTYPE,RCPAYS)	; Use the Auto-Post Date index and filter out ; divisions, payers that weren't selected ; Input: DIVFLT - 1 - All Divisions selected, 2 otherwise ; CURDT - Date being processed ; SORT - 1 - Auto-Post Date Sort ; 2 - Missing Receipts ; ERAFILT - 1 - Posted/Completed Receipts ; 2 - Only ERAs with Missing Receipts ; 3 - Both Posted/Completed and Missing Receipts ; VAUTD - Array of selected divisions ; RCTYPE - Type of payer - M/P/T/A ; RCPAYS - A - All payers, S - Selected Payers, R - Range of Payers ; ^TMP("RCSELPAY",$J) - Global Array of selected insurance companies ; ^TMP($J,"RCDPE_LAR","ERA") - see output for definition ; Output: ^TMP($J,A1,"SEL",A2,A3,A4,A5)="" - if record passed filters Where: ; A1 - "RCDPE_LAR" ; A2 - Uppercased Payer Name (primary sort) ; A3 - Secondary Sort Value ; A4 - Internal IEN for file 344.4 ; A5 - Internal IEN for sub file 344.41 ; ^TMP($J,A1,"ERA",A2)="" - List of ERAs that were already pulled Where: ; A1 - "RCDPE_LAR" ; A2 - IEN of #344.4 (ERA #)
COMPLETE(IEN3444)	; Checks an ERA for missing receipts ; Input: IEN3444 - ERA to be checked ; Returns: 0 if at least one detail line of the ERA has a missing receipt ; 1 otherwise
ASKSTOP()	; Ask to continue ; Input: IOST - Device Type ; Returns: 1 - User wants to quit, 0 otherwise

Name	Field # of Occurrence
^%ZIS	DEVICE+7
HOME^%ZIS	EN+54
^%ZISC	LMOUT+20, REPORT+64
^%ZTLOAD	EN+51
$$GET1^DIQ	RPTE+24, RPTE+32, RPTA+33, COMPLETE+5
^DIR	APORERA+12, DTRNG+14, ENDDT+8, SELERA+13, RPTSORT+21, EXCEL+10, ASKSTOP+6
$$ASKLM^RCDPEARL	EN+31
LMRPT^RCDPEARL	LMOUT+18
$$CHKDIV^RCDPEDAR	RPTE+31, RPTA+29
$$ERAHDR2^RCDPELA1	LMOUT+17
$$HDRLN2^RCDPELA1	LMOUT+11
$$HDRLN3^RCDPELA1	LMOUT+12
RPTOUT^RCDPELA1	REPORT+58
INFO^RCDPEM6	EN+37
$$ISSEL^RCDPEU1	RPTE+28, RPTA+38
$$ISTYPE^RCDPEU1	RPTE+30, RPTA+40
$$PAYRNG^RCDPEU1	EN+18
$$RTYPE^RCDPEU1	EN+15
$$SELPAY^RCDPEU1	EN+26
DIVISION^VAUTOMA	STADIV+7
$$FMTE^XLFDT	ENDDT+11
$$UP^XLFSTR	PAYERS+12, RPTE+25, RPTA+34

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.") Line Location: EN+52
Function Call: WRITE	Prompt: !,*7,"Enter an End date that is not less than "_XX Line Location: ENDDT+12
Function Call: WRITE	Prompt: ! Line Location: ASKSTOP+6
Routine Call	%ZIS Line Location: DEVICE+7
Routine Call	%ZIS Line Location: EN+54
Routine Call	DIR Line Location: APORERA+12 DTRNG+14 ENDDT+8 SELERA+13 RPTSORT+21 EXCEL+10 ASKSTOP+6

FileNo	Call Tags
^RCY(344.4 - [#344.4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.4 - [#344.4]	REPORT+51, REPORT+52, RPTE+22, RPTE+42, RPTA+27, RPTA+46
^TMP("RCDPEU1"	REPORT+68!
^TMP("RCDPE_LAR"	EN+2!, LMOUT+18, LMOUT+21!, REPORT+35!, REPORT+66!
^TMP("RCSELPAY"	EN+3!, EN+47, LMOUT+22!, REPORT+67!, PAYERS+10, PAYERS+12, PAYERS+14!
^TMP($J	EN+2!, EN+3!, LMOUT+21!, LMOUT+22!, REPORT+35!, REPORT+66!, REPORT+67!, PAYERS+7!, PAYERS+13, RPTE+46 , RPTA+41, RPTA+43, RPTA+49

Name	Line Occurrences
$$APORERA	EN+7
$$COMPLETE	RPTE+34, RPTA+30
$$DEVICE	EN+38
$$DTRNG	EN+9
$$EXCEL	EN+35
$$RPTSORT	EN+29
$$SELERA	EN+11
$$STADIV	EN+5
ENDDT	ENDDT+10
LMOUT	EN+34
REPORT	EN+56, LMOUT+9
RPTA	REPORT+56
RPTE	REPORT+55

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+5~, DEVICE+6*
COMPLETE	RPTE+19~, RPTE+34, RPTE+35, RPTE+36, RPTE+39, RPTE+45, RPTA+24~, RPTA+30, RPTA+31, RPTA+32 , RPTA+48
CURDT	REPORT+34~, REPORT+49, REPORT+50, REPORT+51, REPORT+52*, REPORT+53, REPORT+54, REPORT+55, REPORT+56, RPTE~ , RPTE+22, RPTE+45, RPTA~, RPTA+27, RPTA+48
DIR	STADIV+6~, APORERA+6~, DTRNG+8~, ENDDT+1!, SELERA+6~, RPTSORT+10~, EXCEL+5~, ASKSTOP+3~
DIR("?"	APORERA+9, APORERA+10, DTRNG+13, ENDDT+7, SELERA+10, SELERA+11, SELERA+12, RPTSORT+19, RPTSORT+20, EXCEL+9
DIR("A"	APORERA+7, DTRNG+10, ENDDT+4, SELERA+7, RPTSORT+15, EXCEL+7
DIR("B"	APORERA+11, ENDDT+2, SELERA+9, RPTSORT+17, EXCEL+8*
DIR(0	APORERA+8, DTRNG+9, ENDDT+3, SELERA+8, RPTSORT+16, EXCEL+6, ASKSTOP+5*
DIROUT	STADIV+6~, APORERA+6~, DTRNG+8~, SELERA+6~, RPTSORT+10~, EXCEL+5~, ASKSTOP+3~
DIRUT	STADIV+6~, APORERA+6~, DTRNG+8~, SELERA+6~, RPTSORT+10~, EXCEL+5~, ASKSTOP+3~, ASKSTOP+7
DIVFLT	REPORT+34~, REPORT+39*, REPORT+55, REPORT+56, RPTE~, RPTE+31, RPTA~, RPTA+29
DT	DTRNG+9, ENDDT+3
DTEND	REPORT+34~, REPORT+42*, REPORT+50, REPORT+54
DTOUT	STADIV+6~, APORERA+6~, APORERA+13, DTRNG+8~, DTRNG+15, ENDDT+9, SELERA+6~, SELERA+14, RPTSORT+10~, RPTSORT+22 , EXCEL+5~, ASKSTOP+3~
DTSTART	REPORT+34~, REPORT+43*, REPORT+49
DUOUT	STADIV+6~, APORERA+6~, APORERA+13, DTRNG+8~, DTRNG+15, ENDDT+9, SELERA+6~, SELERA+14, RPTSORT+10~, RPTSORT+22 , EXCEL+5~, EXCEL+11, ASKSTOP+3~, ASKSTOP+7
ERAFILT	REPORT+34~, REPORT+44*, REPORT+55, REPORT+56, RPTE~, RPTE+35, RPTE+36, RPTE+39, RPTA~, RPTA+31 , RPTA+32
ERASEL	RPTSORT~, RPTSORT+14
EXCEL	DEVICE~, DEVICE+9
HDR	LMOUT+7~, LMOUT+18
HDR("TITLE"	LMOUT+10*
HDR(1	LMOUT+11*
HDR(2	LMOUT+12*
HDR(3	LMOUT+13*
HDR(4	LMOUT+14*
HDR(5	LMOUT+15*
HDR(6	LMOUT+16*
HDR(7	LMOUT+17*
IEN3441	RPTA+24~
IEN3444	RPTE+19~, RPTE+20, RPTE+21, RPTE+22, RPTE+23, RPTE+24, RPTE+28, RPTE+30, RPTE+31, RPTE+32 , RPTE+34, RPTE+42, RPTE+44, RPTE+46, RPTA+24~, RPTA+25, RPTA+26, RPTA+27, RPTA+28, RPTA+29 , RPTA+30, RPTA+33, RPTA+38, RPTA+40, RPTA+41, RPTA+43, RPTA+46, RPTA+49, COMPLETE~, COMPLETE+5
IEN34441	RPTE+19~, RPTE+40, RPTE+41, RPTE+42, RPTE+43, RPTE+44, RPTE+46, RPTA+44, RPTA+45, RPTA+46 , RPTA+47, RPTA+49
IENS	RPTE+19~, RPTE+44*
INPUT	EN+1~, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+12, EN+15* , EN+16, EN+20, EN+23, EN+28, EN+29, EN+30, EN+31, EN+32, EN+33, EN+34 , EN+35, EN+36, EN+37, EN+38, EN+39, EN+56, LMOUT~, LMOUT+8, LMOUT+9, LMOUT+11 , LMOUT+12, REPORT~, REPORT+39, REPORT+40, REPORT+41, REPORT+42, REPORT+43, REPORT+44, REPORT+45, REPORT+46 , REPORT+58, REPORT+61
IO	EN+34, EN+38, EN+56, LMOUT~, LMOUT+9, DEVICE~, REPORT~, REPORT+37
IO("Q"	EN+42, EN+53!
IOST	ASKSTOP+4
JOB	EN+43~, REPORT~, PAYERS~, PAYERS+5, PAYERS+10, PAYERS+12, PAYERS+14
PAYER	PAYERS+6~, PAYERS+12, PAYERS+13, RPTE+19~, RPTE+24, RPTE+25, RPTE+46, RPTA+24~, RPTA+33, RPTA+34* , RPTA+49
POP	DEVICE+5~, DEVICE+8
RANGE	DTRNG+8~, ENDDT+13*, ENDDT+14
RCPAR	EN+1~, EN+26
RCPAR("DICA"	EN+25*
RCPAR("FILE"	EN+24*
RCPAR("SELC"	EN+18*, EN+19, EN+20, EN+22
RCPAR("TYPE"	EN+23*
RCPAYS	REPORT+34~, REPORT+46*, REPORT+55, REPORT+56, RPTE~, RPTE+27, RPTA~, RPTA+37
RCPYRSEL	EN+47*, DEVICE+5~
RCTYPE	REPORT+34~, REPORT+45*, REPORT+55, REPORT+56, RPTE~, RPTE+29, RPTE+30, RPTA~, RPTA+39, RPTA+40
RCVAUTD	EN+1~, EN+5, EN+34, EN+56, LMOUT~, LMOUT+9, STADIV~, STADIV+10*, REPORT~, REPORT+55 , REPORT+56
RECEIPT	RPTE+19~
SORT	REPORT+34~, REPORT+41*, REPORT+55, REPORT+56, RPTE~, RPTE+45, RPTA~, RPTA+48
START	DTRNG+8~, DTRNG+16*, ENDDT+3, ENDDT+10, ENDDT+11, ENDDT+13
STOP	REPORT+34~
SVAL	RPTE+19~, RPTE+45, RPTE+46, RPTA+24~, RPTA+48, RPTA+49
TIN	RPTE+19~
VAUTD	STADIV+6~, STADIV+9, STADIV+10, RPTE~, RPTE+31, RPTA~, RPTA+29
WHICH	DTRNG~, DTRNG+11, ENDDT+5, RPTSORT~, RPTSORT+18, REPORT+34~, REPORT+40*, REPORT+51, REPORT+52, REPORT+55
X	STADIV+6~, APORERA+6~, DTRNG+8~, SELERA+6~, RPTSORT+10~, EXCEL+5~
XX	EN+1~, EN+22, EN+26, EN+28, EN+29, DTRNG+8~, DTRNG+11, DTRNG+12, DTRNG+13, ENDDT+5* , ENDDT+6, ENDDT+7, ENDDT+11, ENDDT+12, RPTSORT+10~, RPTSORT+18, RPTSORT+19, RPTSORT+23, RPTSORT+24, REPORT+34~ , PAYERS+6~, PAYERS+8, PAYERS+9, PAYERS+10, PAYERS+11, PAYERS+12, RPTE+19~, RPTE+26, RPTE+27, RPTE+28 , RPTE+29, RPTE+30, RPTE+32, RPTE+33, RPTA+36, RPTA+37, RPTA+38, RPTA+39, RPTA+40, COMPLETE+4~ , COMPLETE+5, COMPLETE+6
Y	STADIV+6~, STADIV+8, APORERA+6~, APORERA+13, APORERA+14, DTRNG+8~, DTRNG+15, DTRNG+16, ENDDT+9, ENDDT+10 , ENDDT+13, SELERA+6~, SELERA+14, SELERA+15, RPTSORT+10~, RPTSORT+22, RPTSORT+23, EXCEL+5~, EXCEL+12
Y(0	ENDDT+2
YY	EN+1~, EN+28*, EN+29
ZTDESC	EN+44~, EN+46*
ZTQUEUED	REPORT+64, REPORT+65, REPORT+69!
>> ZTREQ	REPORT+65*
ZTRTN	EN+44~, EN+45*
ZTSAVE	EN+44~
ZTSAVE("INPUT"	EN+49*
ZTSAVE("IO*"	EN+48*
ZTSAVE("JOB"	EN+49*
ZTSAVE("RC*"	EN+48*
ZTSAVE("VAUTD"	EN+48*
ZTSAVE("^TMP(""RCDPEU1"",$J,"	EN+50*
ZTSK	EN+44~, EN+52, EN+53!

Customize PDF page

Package: Accounts Receivable

Routine: RCDPELAR

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: