Routine: RCDPEMAP

Information

RCDPEMAP ;AITC/FA - LIST ALL AUTO-POSTED RECEIPTS REPORT ;Nov 17, 2016

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

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 MARKED AUTO-POST REPORT RCDPEMA1

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_MAP",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman
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
SELUSER()	; Ask the user if they only want to all users or only selected ones ; Input: None ; Returns: 0 - User up-arrowed or timed out ; 1 - Show all users ; 2 - Show selected user
SELUSER2(PARAM)	; Allows the user to enter the selected users to filter by ; Input: None ; Output: ^TMP($J,"SELUSER",IEN)="" Where IEN - IEN for file 200 ; Returns: 1 - Success, -1 - Abort
ASKUSER()	; Prompt for a User from file 200 ; Input: None ; Output: ^TMP($J,"SELUSER",IEN)="" - Selected User ; Returns: 1 - User selected ; 0 - No User selected ; -1 - user typed '^' or timed out
SECSORT()	; Ask the user if they want the secondary sort by User or Payer Name ; Input: None ; Returns: 0 - User up-arrowed or timed out ; 1 - Sort by User ; 2 - Sort by Payer Name
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
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 - B1\|B2 - Where: ; B1 - Auto-Post Start Date ; B2 - Auto-Post End Date ; A3 - 'M' - Medical Payers only ; 'P' - Pharmacy Payers only ; 'T' - Tricare Payers only ; 'C' - CHAMPVA Payers only ;PRCA4.5432 Add CHAMPVA ; 'A' - All Payers ; A4 - 'S' - Specific Payers ; 'R' - Range of Payers ; 'A' - All Payers ; A5 - 1 - Display all users ; 2 - Display selected users ; A6 - 1 - Sort by User ; 2 - Sort by Payer Name ; 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 ; RCVAUTD - Array of selected Divisions ; Only passed if A1=2 ; IO - Interface device ; JOB - $J (optional, only passed in when report is queued) ; ^TMP($J,"RCSELPAY") - Global Array of selected insurance companies ; ^TMP($J,"SELUSER") - Global Array of selected users ; Output: ^TMP("RCDPEMAP",$J,CTR)=Line - Array of display lines (no headers) ; for output to Listman ; Only set when A7-1
ASKSTOP()	;EP from RCDPEMA1 ; Ask to continue ; Input: IOST - Device Type ; Returns: 1 - User wants to quit, 0 otherwise

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+7
HOME^%ZIS	EN+52
^%ZISC	LMOUT+17, REPORT+98
^%ZTLOAD	EN+49
^DIC	ASKUSER+13
$$GET1^DIQ	REPORT+58, REPORT+59, REPORT+72, REPORT+74, REPORT+79, REPORT+80, REPORT+81, REPORT+82, REPORT+85
^DIR	SELUSER+11, SECSORT+11, DTRNG+12, ENDDT+6, EXCEL+10, ASKSTOP+7
$$ASKLM^RCDPEARL	EN+29
LMRPT^RCDPEARL	LMOUT+15
$$CHKDIV^RCDPEDAR	REPORT+57
INFO^RCDPEM6	EN+35
$$HDRLN2^RCDPEMA1	LMOUT+10
$$HDRLN3^RCDPEMA1	LMOUT+11
$$HDRLN4^RCDPEMA1	LMOUT+12
RPTOUT^RCDPEMA1	REPORT+92
$$ISSEL^RCDPEU1	REPORT+64
$$ISTYPE^RCDPEU1	REPORT+66
$$PAYRNG^RCDPEU1	EN+11
$$RTYPE^RCDPEU1	EN+9
$$SELPAY^RCDPEU1	EN+19
DIVISION^VAUTOMA	STADIV+7
$$FMTE^XLFDT	ENDDT+9, REPORT+88
$$UP^XLFSTR	REPORT+60, REPORT+75

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Task number "_ZTSK_" was queued.",1:"Unable to queue this task.") Line Location: EN+50
Function Call: WRITE	Prompt: !!,"You must select at least one user",*7,! Line Location: SELUSER2+13
Function Call: WRITE	Prompt: !,*7,"Enter an End date that is not less than "_XX Line Location: ENDDT+10
Function Call: WRITE	Prompt: ! Line Location: ASKSTOP+7
Routine Call	%ZIS Line Location: DEVICE+7
Routine Call	%ZIS Line Location: EN+52
Routine Call	DIC Line Location: ASKUSER+13
Routine Call	DIR Line Location: SELUSER+11 SECSORT+11 DTRNG+12 ENDDT+6 EXCEL+10 ASKSTOP+7

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^RCY(344.4 - [#344.4]	GET1^DIQ
344.41	GET1^DIQ
^IBM(361.1 - [#361.1]	GET1^DIQ
^PRCA(430 - [#430]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^RCY(344.4 - [#344.4]	REPORT+50, REPORT+55, REPORT+69
^TMP("RCDPEU1"	REPORT+102!
^TMP("RCDPE_MAP"	EN+2!, LMOUT+15, LMOUT+18!, REPORT+36!, REPORT+100!
^TMP("RCSELPAY"	EN+3!, EN+45, LMOUT+19!, REPORT+101!
^TMP($J	EN+2!, EN+3!, LMOUT+18!, LMOUT+19!, SELUSER2+5!, SELUSER2+11, SELUSER2+14!, SELUSER2+15, ASKUSER+16, REPORT+36! , REPORT+76, REPORT+88, REPORT+89, REPORT+90, REPORT+100!, REPORT+101!

Label References

Name	Line Occurrences
$$ASKUSER	SELUSER2+8
$$DEVICE	EN+36
$$DTRNG	EN+7
$$EXCEL	EN+33
$$SECSORT	EN+27
$$SELUSER	EN+21
$$SELUSER2	EN+25
$$STADIV	EN+5
ENDDT	ENDDT+8
LMOUT	EN+32
REPORT	EN+54, LMOUT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DEVICE+5~, DEVICE+6*
CURDT	REPORT+34~, REPORT+48, REPORT+49, REPORT+50, REPORT+51, REPORT+52, REPORT+55, REPORT+69, REPORT+88, REPORT+89 , REPORT+90
DIC	ASKUSER+7~, ASKUSER+10*
DIC("A"	ASKUSER+11*
DIC("S"	ASKUSER+12*
DIC(0	ASKUSER+10*
DIR	STADIV+6~, SELUSER+5~, ASKUSER+7~, SECSORT+5~, DTRNG+8~, ENDDT+1!, EXCEL+5~, ASKSTOP+4~
DIR("?"	SELUSER+8, SELUSER+9, SECSORT+8, SECSORT+9, DTRNG+11, ENDDT+5, EXCEL+9*
DIR("A"	SELUSER+6, SECSORT+6, DTRNG+10, ENDDT+4, EXCEL+7*
DIR("B"	SELUSER+10, SECSORT+10, ENDDT+2, EXCEL+8
DIR(0	SELUSER+7, SECSORT+7, DTRNG+9, ENDDT+3, EXCEL+6, ASKSTOP+6
DIROUT	STADIV+6~, SELUSER+5~, ASKUSER+7~, SECSORT+5~, DTRNG+8~, EXCEL+5~, ASKSTOP+4~
DIRUT	STADIV+6~, SELUSER+5~, ASKUSER+7~, SECSORT+5~, DTRNG+8~, EXCEL+5~, ASKSTOP+4~, ASKSTOP+8
DIVFLT	REPORT+34~, REPORT+39*, REPORT+57
DT	DTRNG+9, ENDDT+3
DTEND	REPORT+34~, REPORT+41*, REPORT+49, REPORT+52
DTOUT	STADIV+6~, SELUSER+5~, SELUSER+12, ASKUSER+7~, ASKUSER+14, SECSORT+5~, SECSORT+12, DTRNG+8~, DTRNG+13, ENDDT+7 , EXCEL+5~, ASKSTOP+4~
DTSTART	REPORT+34~, REPORT+42*, REPORT+48
DUOUT	STADIV+6~, SELUSER+5~, SELUSER+12, ASKUSER+7~, ASKUSER+14, SECSORT+5~, SECSORT+12, DTRNG+8~, DTRNG+13, ENDDT+7 , EXCEL+5~, EXCEL+11, ASKSTOP+4~, ASKSTOP+8
EXCEL	DEVICE~, DEVICE+9
HDR	LMOUT+6~, LMOUT+15
HDR("TITLE"	LMOUT+9*
HDR(1	LMOUT+10*
HDR(2	LMOUT+11*
HDR(3	LMOUT+12*
HDR(4	LMOUT+13*
IEN3444	REPORT+34~, REPORT+53, REPORT+54, REPORT+55, REPORT+56, REPORT+57, REPORT+58, REPORT+59, REPORT+64, REPORT+66 , REPORT+69, REPORT+71, REPORT+79, REPORT+90
IEN34441	REPORT+34~, REPORT+67, REPORT+68, REPORT+69, REPORT+70, REPORT+71, REPORT+79, REPORT+90
IENS	REPORT+34~, REPORT+71*, REPORT+72, REPORT+80
INPUT	EN+1~, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+13, EN+16, EN+21* , EN+22, EN+24, EN+27, EN+28, EN+29, EN+30, EN+31, EN+32, EN+33, EN+34 , EN+35, EN+36, EN+37, EN+54, LMOUT~, LMOUT+7*, LMOUT+8, LMOUT+10, LMOUT+11, LMOUT+12 , REPORT~, REPORT+39, REPORT+40, REPORT+41, REPORT+42, REPORT+43, REPORT+44, REPORT+45, REPORT+92, REPORT+95
IO	EN+32, EN+36, EN+54, LMOUT~, LMOUT+8, DEVICE~, REPORT~, REPORT+38
IO("Q"	EN+40, EN+51!
IOST	ASKSTOP+5
JOB	EN+41~*, REPORT~
PARAM	SELUSER2~
PAYER	REPORT+34~, REPORT+58, REPORT+60, REPORT+61, REPORT+78, REPORT+89
PAYERU	REPORT+34~, REPORT+60*, REPORT+77
POP	DEVICE+5~, DEVICE+8
QUIT	SELUSER2+4~, SELUSER2+6, SELUSER2+7, SELUSER2+9, SELUSER2+11*
RANGE	DTRNG+8~, ENDDT+11*, ENDDT+12
RCA	SELUSER2+4~
RCPAR	EN+1~, EN+19
RCPAR("DICA"	EN+18*
RCPAR("FILE"	EN+17*
RCPAR("SELC"	EN+11*, EN+12, EN+13, EN+15
RCPAR("TYPE"	EN+16*
RCPAYS	REPORT+35~, REPORT+44*, REPORT+63
RCPYRSEL	EN+45*, DEVICE+5~
RCTEMP	LMOUT+6~, LMOUT+14*, LMOUT+15
RCTYPE	REPORT+35~, REPORT+43*, REPORT+65, REPORT+66
RCVAUTD	EN+1~, EN+5, EN+32, EN+54, LMOUT~, LMOUT+8, STADIV~, STADIV+10*, REPORT~, REPORT+57
RET	SELUSER2+4~, SELUSER2+8*, SELUSER2+9, SELUSER2+10
RETURN	SELUSER2+4~, SELUSER2+6, SELUSER2+9, SELUSER2+14, SELUSER2+15, SELUSER2+16, ASKUSER+8
SORT	REPORT+35~, REPORT+40*, REPORT+77, REPORT+89
START	DTRNG+8~, DTRNG+14*, ENDDT+3, ENDDT+8, ENDDT+9, ENDDT+11
SVAL	REPORT+35~, REPORT+77*, REPORT+89, REPORT+90
TIN	REPORT+35~, REPORT+59*, REPORT+61
UIEN	REPORT+35~, REPORT+72*, REPORT+73, REPORT+74, REPORT+76
USER	REPORT+35~, REPORT+74*, REPORT+75, REPORT+78, REPORT+89
USERF	REPORT+35~, REPORT+45*, REPORT+76
USERU	REPORT+35~, REPORT+75*, REPORT+77
VAUTD	STADIV+6~, STADIV+9, STADIV+10
WHICH	DTRNG~
X	STADIV+6~, SELUSER+5~, ASKUSER+7~, SECSORT+5~, DTRNG+8~, EXCEL+5~
XX	EN+1~, EN+15, EN+19, EN+24, EN+25, DTRNG+8~, ENDDT+9, ENDDT+10, REPORT+35~, REPORT+62 , REPORT+63, REPORT+64, REPORT+65, REPORT+66, REPORT+78, REPORT+79, REPORT+84, REPORT+85, REPORT+90
Y	STADIV+6~, STADIV+8, SELUSER+5~, SELUSER+12, SELUSER+13, ASKUSER+7~, ASKUSER+15, ASKUSER+16, SECSORT+5~, SECSORT+12 , SECSORT+13, DTRNG+8~, DTRNG+13, DTRNG+14, ENDDT+7, ENDDT+8, ENDDT+11, EXCEL+5~, EXCEL+12
Y(0	ENDDT+2
YY	EN+1~, REPORT+35~, REPORT+80*, REPORT+81, REPORT+85
ZTDESC	EN+42~, EN+44*
ZTQUEUED	REPORT+98, REPORT+99, REPORT+103!
>> ZTREQ	REPORT+99*
ZTRTN	EN+42~, EN+43*
ZTSAVE	EN+42~
ZTSAVE("INPUT"	EN+47*
ZTSAVE("IO*"	EN+46*
ZTSAVE("JOB"	EN+47*
ZTSAVE("RC*"	EN+46*
ZTSAVE("VAUTD"	EN+46*
ZTSAVE("^TMP(""RCDPEU1"",$J,"	EN+48*
ZTSK	EN+42~, EN+50, EN+51!
ZZ	REPORT+35~, REPORT+81, REPORT+82, REPORT+83*, REPORT+84

Customize PDF page

Package: Accounts Receivable