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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RCDPEAC

Package: Accounts Receivable

Routine: RCDPEAC


Information

RCDPEAC ;ALB/TMK/PJH - ACTIVE BILLS WITH EEOB ON FILE ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEAC.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Accounts Receivable 4 ($$ASKLM,$$ENDORPRT,$$NOW,ASK,HDRLST,LMRPT,SL)^RCDPEARL  $$DISPTY^RCDPEM3  INFO^RCDPEM6  ($$EOBERA,$$GETNAME,$$ISSEL,$$ISTYPE,$$PAYRNG,$$RTYPE,$$SELPAY)^RCDPEU1  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Registration 1 DIVISION^VAUTOMA  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for Active Bills With EEOB Report [RCDPE ACTIVE WITH EEOB REPORT]
ENQ ; Queued entry point for the report
; RCSORT and array RCINS must exist
; RCINS = "A" for all ins co, "R" for range, "S" for selected individual
; for RCINS="R" ("FR")=from payer name and ("TR")=to payer name
; for RCINS="S" ("S",INS CO IEN IN FILE 36)=""
; RCSORT = "PN" for sort by patient name followed by ;- if reverse order
; "L4" for sort by patient SSN followed by ;- if reverse order
ENOUT
OUTPUT(RCZ,RCZ0,RCSORT,RCSTOP,RCINS,RCNEW) ; Output the data
; RCZ, RCZ0 are the first 2 sort levels for the array
; RCINS = insurance co info array
; RCSTOP passed by ref - returned if user chooses to stop
; RCNEW = 1 if the header should be forced to print
INCLUDE(RCZ,EOBIEN,RCTYPE) ; PRCA*4.5*326 change parameters
; Function returns 1 if record should be included based on ins co
; RCINS = array containing insurance co information
; RCZ = ien of the entry in file 430
INCQ
INSNM(RCZ,EOBIEN) ; Returns the name of payer from the ERA associated with the EOB
; If that is null, return the insurance co for bill ien RCZ file 430
; Input: RCZ = Point to bill, file #430
; EOBIEN = Pointer to EOB file 361.1
; Returns: NM = Free text name of Payer from ERA or insurance on bill if ERA not found.
INS(RCZ) ; Returns ien of insurance co for bill ien RCZ from file 430
NEWPG(RCINS,RCNEW,RCLINES) ; Check for new page needed, output header
; RCINS = ins co selection criteria
; RCNEW = 1 to force new page
; RCLINES = Number of lines before IOSL to force new page
; Function returns 1 if user chooses to stop output
EEOB(RCZ,RCEOB,RCZRO) ; Find all non-MRA EEOBs for bill ien RCZ
; Function returns 1 if any valid EEOBs found, 0 if none
; RCEOB(eob ien)=date posted returned for valid EEOBs found -
; pass by reference
SL1(RCSORT,RCZ) ; Function returns 1st sort level data from ien RCZ in file 430
; RCSORT = "PN" for patient name sort = "L4" for SSN last 4 sort
SELECT(RCINS,RCSORT,RCZRO,RCTYPE) ; Select insurance co, sort criteria, Zero Payment, Bill type (Med/RX) and if output for EXCEL format is selected
; Function returns values selected for RCSORT and RCINS - passed by ref
SELQ ;
LIST(DIR,RCINS) ; Sets up help array for ins co selected in DIR("?")
HDRBLD ; create the report header
; returns RCHDR,RCPGNUM,RCSTOP
; RCHDR(0) = header text line count
; RCHDR("PGNUM") = page number
; RCHDR("XECUTE") = M code for page number
; RCHDR("RUNDATE") = date/time report generated
; RCPGNUM - page counter
; RCSTOP - flag to stop listing
; INPUT:
; RCDTRNG - date range filter value to be printed as part of the header
; RCPAY - Payer filter value(s)
; RCLSTMGR
HDRLM ; create the list manager version of the report header
; returns RCHDR,RCPGNUM,RCSTOP
; RCHDR(0) = header text line count
; RCHDR("PGNUM") = page number
; RCHDR("XECUTE") = M code for page number
; RCHDR("RUNDATE") = date/time report generated
; RCPGNUM - page counter
; RCSTOP - flag to stop listing
HDRNM()

External References

Name Field # of Occurrence
^%ZIS EN+18
HOME^%ZIS EN+25
^%ZISC ENOUT+1
^%ZTLOAD EN+23
$$S^%ZTLOAD OUTPUT+7
$$GET1^DIQ OUTPUT+14
^DIR SELECT+21, SELECT+25, SELECT+28, SELECT+35, SELECT+41
$$ASKLM^RCDPEARL SELECT+51
$$ENDORPRT^RCDPEARL ENQ+46
$$NOW^RCDPEARL HDRBLD+15
ASK^RCDPEARL ENQ+48
HDRLST^RCDPEARL ENQ+18, NEWPG+7
LMRPT^RCDPEARL EN+14
SL^RCDPEARL ENQ+45, ENQ+46, OUTPUT+20, OUTPUT+27, OUTPUT+37, OUTPUT+38
$$DISPTY^RCDPEM3 SELECT+47
INFO^RCDPEM6 SELECT+48
$$EOBERA^RCDPEU1 INSNM+8
$$GETNAME^RCDPEU1 INSNM+9
$$ISSEL^RCDPEU1 INCLUDE+12
$$ISTYPE^RCDPEU1 INCLUDE+14
$$PAYRNG^RCDPEU1 SELECT+8
$$RTYPE^RCDPEU1 SELECT+5
$$SELPAY^RCDPEU1 SELECT+15
DIVISION^VAUTOMA EN+4
$$FMTE^XLFDT OUTPUT+34, OUTPUT+36, HDRBLD+36, HDRLM+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !!,"***TASK STOPPED BY USER***"
  • Line Location: OUTPUT+7
Function Call: WRITE
  • Prompt: !,RCEX_"^"_$P(RC0,U,7)_"^"_$$FMTE^XLFDT($P(RC0,U,5),"2D")_"^"_$S(RCZ1:$$FMTE^XLFDT(+RCZ1,"2D"),1:"")_"^"_RCEPD
  • Line Location: OUTPUT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+21
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+25
Routine Call
  • %ZIS
  • Line Location:
    • EN+18
Routine Call
  • %ZIS
  • Line Location:
    • EN+25
Routine Call
  • DIR
  • Line Location:
    • SELECT+21
    • SELECT+25
    • SELECT+28
    • SELECT+35
    • SELECT+41

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] OUTPUT+9
^DIC(36 - [#36] INSNM+10, LIST+5, HDRBLD+30, HDRLM+25
^DPT - [#2] OUTPUT+16, OUTPUT+17, OUTPUT+19, SL1+3, SL1+4
^IBM(361.1 - [#361.1] ENQ+23, ENQ+24, ENQ+25, ENQ+30, OUTPUT+32, EEOB+9
^PRCA(430 - [#430] ENQ+27, OUTPUT+9, INS+2, SL1+3, SL1+4
^PRCA(430.3 - [#430.3] ENQ+15
^RCD(340 - [#340] INS+3
^RCY(344.4 - [#344.4] EEOB+12, EEOB+14, EEOB+21
^TMP($J EN+11!, EN+14, EN+15!, ENQ+10!, ENQ+34*, ENQ+35*, ENQ+39, ENQ+41, ENQ+43, ENQ+45
ENQ+46, ENOUT+2!, OUTPUT+6, OUTPUT+22, OUTPUT+29

Label References

Name Line Occurrences
$$EEOB ENQ+27
$$HDRNM HDRBLD+22, HDRLM+18
$$INCLUDE ENQ+26
$$INS INCLUDE+6, INSNM+10
$$INSNM ENQ+32
$$NEWPG OUTPUT+13, OUTPUT+30
$$SELECT EN+7
$$SL1 ENQ+33
ENOUT EN+10, ENQ+16
ENQ EN+12
HDRBLD ENQ+13
HDRLM ENQ+14
INCQ INCLUDE+8
OUTPUT ENQ+41, ENQ+43
SELQ SELECT+6, SELECT+9, SELECT+11, SELECT+22, SELECT+26, SELECT+29, SELECT+36, SELECT+42, SELECT+47, SELECT+48
, SELECT+51

Naked Globals

Name Field # of Occurrence
^(0 INS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT SELECT+2~
%ZIS EN+1~, EN+18*
CHAM EN+1~
CT LIST+1~, LIST+2*, LIST+5*
DAT SL1+2~, SL1+3*, SL1+4*, SL1+5
DATE HDRBLD+21~, HDRLM+15~
DET EEOB+4~, EEOB+11*, EEOB+12*, EEOB+14
DIR SELECT+2~, SELECT+21!, SELECT+25!, SELECT+28!, SELECT+33!, SELECT+35!, SELECT+38!, SELECT+41!, LIST~
DIR("?" SELECT+34*, SELECT+39*, LIST+3*, LIST+4*, LIST+5*, LIST+6*
DIR("A" SELECT+20*, SELECT+25*, SELECT+28*, SELECT+35*, SELECT+41*
DIR("B" SELECT+20*, SELECT+25*, SELECT+28*, SELECT+35*, SELECT+40*
DIR(0 SELECT+19*, SELECT+25*, SELECT+28*, SELECT+35*, SELECT+41*
DIV HDRBLD+21~, HDRLM+15~
DONE SELECT+2~, SELECT+3*, SELECT+48*, SELECT+53*, SELQ+1
DT SELECT+35, SELECT+41
DTOUT EN+1~, SELECT+22, SELECT+26, SELECT+29, SELECT+36, SELECT+42
DUOUT EN+1~, SELECT+22, SELECT+26, SELECT+29, SELECT+36, SELECT+42
END EN+1~, ENQ+23, SELECT+43*, HDRBLD+36, HDRLM+19
EOBIEN INCLUDE~, INCLUDE+12, INCLUDE+14, INSNM~, INSNM+8
ERAIEN INSNM+6~, INSNM+8*, INSNM+9
FILE INSNM+6~
HCNT HDRBLD+21~, HDRBLD+22*, HDRBLD+25*, HDRBLD+29*, HDRBLD+34*, HDRBLD+40*, HDRBLD+42*, HDRBLD+43*, HDRBLD+44*, HDRBLD+45*
HDRBLD+46*, HDRBLD+47, HDRLM+15~, HDRLM+17*, HDRLM+24*, HDRLM+29*, HDRLM+30*, HDRLM+32*, HDRLM+33*, HDRLM+34*
HDRLM+35
HDR EN+1~, EN+13*, EN+14
IO EN+26
IO("Q" EN+19, EN+25!
IOM HDRBLD+46
IOSL NEWPG+6
MSG HDRBLD+21~, HDRLM+15~
NM INSNM+6~, INSNM+7*, INSNM+9*, INSNM+10*, INSNM+11
OK INCLUDE+4~, INCLUDE+5*, INCLUDE+8*, INCLUDE+12*, INCLUDE+14*, INCQ, EEOB+4~, EEOB+7*, EEOB+21*, EEOB+23
POP EN+1~, EN+18
POSTDT ENQ+8~
RC INS+1~, INS+2*, INS+3
RC0 ENQ+8~, OUTPUT+32*, OUTPUT+34, OUTPUT+36
RC399 ENQ+8~, OUTPUT+9*, OUTPUT+11
RC399M1 ENQ+8~, OUTPUT+9*
RC430 ENQ+8~, OUTPUT+9*, OUTPUT+17, OUTPUT+19, OUTPUT+23, OUTPUT+26
RCACT ENQ+8~, ENQ+15*, ENQ+16, ENQ+27
RCAINP INCLUDE+4~
RCBILL ENQ+8~, ENQ+19*, ENQ+25*, ENQ+26, ENQ+27, ENQ+32, ENQ+33, ENQ+34, ENQ+35, OUTPUT+6*
, OUTPUT+9, OUTPUT+14, OUTPUT+22, OUTPUT+29
RCCT EN+1~, ENQ+11*, ENQ+45, ENQ+46, OUTPUT+20, OUTPUT+27, OUTPUT+37, OUTPUT+38
RCDISPTY EN+1~, OUTPUT+17, OUTPUT+23, OUTPUT+34, OUTPUT+38, NEWPG+7, SELECT+47*, SELECT+48, HDRBLD+17
RCDT ENQ+19*, ENQ+23*, ENQ+24, ENOUT+2!
RCEIEN ENQ+8~, ENQ+24*, ENQ+25, ENQ+26, ENQ+32
RCEOB ENQ+8~, ENQ+27, ENQ+28*, ENQ+29*, ENQ+30, ENQ+33, ENQ+34, OUTPUT+29*, OUTPUT+32, EEOB~
, EEOB+5!
RCEOB( ENQ+29, ENQ+33, ENQ+34, EEOB+21*
RCEOB(0 ENQ+35
RCEPD OUTPUT+5~, OUTPUT+29*, OUTPUT+34, OUTPUT+36
RCEX ENQ+8~, OUTPUT+17*, OUTPUT+23*, OUTPUT+34
RCEXT ENQ+8~, ENQ+12*
RCHDR EN+1~, EN+13, ENQ+18, NEWPG+7, HDRBLD+15!, HDRLM+14!
RCHDR( HDRBLD+25*, HDRBLD+29*, HDRBLD+34*, HDRBLD+40*, HDRBLD+42*, HDRBLD+43*, HDRBLD+44*, HDRBLD+45*, HDRBLD+46*, HDRLM+24*
HDRLM+29*, HDRLM+30*, HDRLM+32*, HDRLM+33*, HDRLM+34*
RCHDR("RUNDATE" HDRBLD+15*, HDRBLD+25
RCHDR("TITLE" HDRLM+18*
RCHDR("XECUTE" HDRBLD+18*, HDRBLD+23*, HDRLM+18*
RCHDR(0 HDRBLD+18*, HDRBLD+47*, HDRLM+35*
RCHDR(1 HDRBLD+19*, HDRBLD+22*, HDRLM+19*, HDRLM+20*
RCI INCLUDE+4~, INCLUDE+6*, INCLUDE+8
RCINC ENQ+8~, ENQ+26*, ENQ+27
RCINM INCLUDE+4~
RCINS EN+1~, EN+7, ENQ+39, ENQ+41, ENQ+43, OUTPUT~, OUTPUT+13, OUTPUT+30, INCLUDE+11, NEWPG~
, SELECT~, SELECT+8*, SELECT+9, SELECT+11, SELECT+13, LIST~, HDRBLD+30, HDRBLD+32, HDRLM+25, HDRLM+26
HDRLM+30
RCINS("S" LIST+3, LIST+5, HDRBLD+30, HDRLM+25
RCKEY2 ENQ+8~, ENQ+33*, ENQ+34, ENQ+35
RCKEY4 ENQ+8~, ENQ+33*, ENQ+34
RCLINES NEWPG~, NEWPG+5*, NEWPG+6
RCLSTMGR EN+1~, EN+10, ENQ+13, ENQ+14, ENQ+18, ENQ+48, SELECT+3*, SELECT+51*
RCNEW ENQ+8~, ENQ+38*, ENQ+39*, ENQ+41*, ENQ+43*, OUTPUT~, OUTPUT+13*, OUTPUT+30, NEWPG~, NEWPG+6
RCPAR EN+1~, SELECT+15
RCPAR("DICA" SELECT+14*
RCPAR("SELC" SELECT+13*
RCPAR("TYPE" SELECT+12*
RCPAYNAM ENQ+9~, ENQ+32*, ENQ+34, ENQ+35
RCPGNUM EN+1~, EN+9*, ENQ+39, HDRBLD+15*, HDRBLD+18*, HDRLM+14*
RCPT ENQ+9~, OUTPUT+9*, OUTPUT+16, OUTPUT+17, OUTPUT+19
RCQUIT SELECT+2~, SELECT+3*
RCSORT EN+1~, EN+7, ENQ+33, ENQ+40, ENQ+41, ENQ+42, ENQ+43, OUTPUT~, SL1~, SL1+3
, SL1+4, SELECT~, SELECT+27*, SELECT+28, SELECT+30*
RCSSN ENQ+9~, OUTPUT+16*, OUTPUT+17, OUTPUT+19
RCSTOP EN+1~, EN+9*, ENQ+9~, ENQ+38*, ENQ+39, ENQ+41, ENQ+43, ENQ+46, ENQ+48, OUTPUT~
, OUTPUT+6, OUTPUT+7*, OUTPUT+13*, OUTPUT+29, OUTPUT+30*, OUTPUT+31, NEWPG+7, NEWPG+8, HDRBLD+15*, HDRLM+14*
RCTMPND EN+1~, EN+9*, EN+11*, EN+14, EN+15, ENQ+45, ENQ+46, OUTPUT+20, OUTPUT+27, OUTPUT+37
, OUTPUT+38
RCTOT ENQ+9~, ENQ+28*, ENQ+30*, ENQ+35
RCTYPE EN+7, ENQ+26, INCLUDE~, INCLUDE+13, INCLUDE+14, SELECT~, SELECT+5*, SELECT+6, SELECT+12, HDRBLD+33
HDRLM+27
RCZ ENQ+9~, ENQ+38*, ENQ+39*, ENQ+41, ENQ+43, OUTPUT~, OUTPUT+6, OUTPUT+22, OUTPUT+23, OUTPUT+26
, OUTPUT+29, INCLUDE~, INCLUDE+6, INSNM~, INSNM+10, INS~, INS+2, EEOB~, EEOB+9, SL1~
, SL1+3, SL1+4
RCZ0 ENQ+9~, ENQ+41*, ENQ+43*, OUTPUT~, OUTPUT+6, OUTPUT+22, OUTPUT+29
RCZ1 ENQ+9~, OUTPUT+6*, OUTPUT+29, OUTPUT+34, OUTPUT+36
RCZRO EN+1~, EN+7, ENQ+27, EEOB~, EEOB+15, EEOB+16, EEOB+17, SELECT~, SELECT+23*, HDRBLD+37
HDRLM+20
SN ENQ+9~, ENQ+28*, ENQ+29*, ENQ+33, ENQ+34, EEOB+4~, EEOB+7*, EEOB+21*
START EN+2~, ENQ+19, SELECT+37*, SELECT+41, HDRBLD+36, HDRLM+19
TRIC EN+2~
U ENQ+25, ENQ+27, ENQ+34, OUTPUT+9, OUTPUT+11, OUTPUT+16, OUTPUT+17, OUTPUT+19, OUTPUT+23, OUTPUT+26
, OUTPUT+34, OUTPUT+36, INSNM+10, INS+2, INS+3, EEOB+9, EEOB+14, EEOB+21, SL1+3, SL1+4
, LIST+5, HDRBLD+30, HDRLM+25
VAUTD EN+2~, EN+5, OUTPUT+11, HDRBLD+26, HDRBLD+27, HDRLM+21, HDRLM+22
VAUTD( OUTPUT+11, HDRBLD+28, HDRLM+23
X EN+2~, ENQ+9~, OUTPUT+14*, OUTPUT+23, OUTPUT+26, SELECT+2~, HDRBLD+28*, HDRLM+23*
XX INCLUDE+4~, SELECT+11, SELECT+15*
Y EN+2~, ENQ+9~, OUTPUT+22*, OUTPUT+23, OUTPUT+26, SELECT+2~, SELECT+23, SELECT+27, SELECT+30, SELECT+36
, SELECT+37, SELECT+42, SELECT+43, HDRBLD+21~, HDRBLD+25*, HDRBLD+26*, HDRBLD+28*, HDRBLD+29, HDRBLD+43*, HDRBLD+44*
HDRBLD+45*, HDRBLD+46*, HDRLM+15~, HDRLM+21*, HDRLM+23*, HDRLM+24, HDRLM+32*, HDRLM+33*, HDRLM+34*
Z ENQ+9~, ENQ+45*, OUTPUT+19*, OUTPUT+20, OUTPUT+26*, OUTPUT+27, OUTPUT+36*, OUTPUT+37, OUTPUT+38*, EEOB+4~
, EEOB+7*, EEOB+9*, EEOB+12, EEOB+21, LIST+1~, LIST+5*, HDRBLD+30*, HDRLM+25*
Z0 ENQ+9~, EEOB+4~, EEOB+11*, EEOB+12*, EEOB+14, EEOB+21, HDRBLD+13~, HDRBLD+14*, HDRBLD+28*, HDRBLD+30*
HDRBLD+32*, HDRBLD+33*, HDRBLD+34*, HDRBLD+36*, HDRBLD+37*, HDRBLD+40, HDRLM+13~*, HDRLM+23*, HDRLM+25*, HDRLM+26*
HDRLM+27*, HDRLM+29
Z00 EEOB+4~
ZINC EEOB+4~, EEOB+7*, EEOB+14*, EEOB+15*, EEOB+16*, EEOB+17*, EEOB+21
ZPD EEOB+4~, EEOB+14*, EEOB+16, EEOB+17, EEOB+21
ZTDESC EN+20~, EN+21*
>> ZTQUEUED ENQ+48, ENOUTENOUT+1, OUTPUT+7
ZTREQ ENOUT*, OUTPUT+7!
ZTRTN EN+20~, EN+21*
ZTSAVE EN+20~
ZTSAVE("*" EN+22*
ZTSK EN+20~, EN+24
>> ZTSTOP OUTPUT+7*
ZZ OUTPUT+5~

Marked Items

Name Field # of Occurrence
$T( EN+11, HDRBLD+23
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All