Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDPELAR

Package: Accounts Receivable

Routine: RCDPELAR


Information

RCDPELAR ;EDE/FA - LIST ALL AUTO-POSTED RECEIPTS REPORT ;Nov 17, 2016

Source Information

Source file <RCDPELAR.m>

Call Graph

Call Graph

Call Graph Total: 13

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Accounts Receivable 2 RCDPEADP  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/A = Medical/Pharmacy/Tricare/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

External References

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

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+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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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*

Label References

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All