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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: RCDPEM4

Package: Accounts Receivable

Routine: RCDPEM4


Information

RCDPEM4 ;OIFO-BAYPINES/PJH - EPAYMENTS AUDIT REPORTS ;Nov 17, 2014@17:00:41

Source Information

Source file <RCDPEM4.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Accounts Receivable 4 ($$ASKLM,$$ENDORPRT,$$NOW,$$PAD,HDRLST,LMRPT,SL)^RCDPEARL  (SVEOB,SVERA)^RCDPEM41  INFO^RCDPEM6  ($$ISTYPE,$$RTYPE)^RCDPEU1  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 $$EXTERNAL^DILFD  ^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: 9

Package Total Caller Graph
Accounts Receivable 9 RCDPE EEOB MOVE/COPY/RMOVE RPT  RCDPE ERA W/PAPER EOB REPORT  RCDPE8NZ  RCDPEAR1  RCDPEAR2  RCDPEM3  RCDPEM6  RCDPEOP  
RCDPPLB  

Entry Points

Name Comments DBIA/ICR reference
EOB ; EEOB Move/Copy/Rmove Audit Report [RCDPE EEOB MOVE/COPY/RMOVE RPT]
POST ; ERAs Posted with Paper EOB Audit Report [RCDPE ERA W/PAPER EOB REPORT]
ASKUSR ;collect filter and device options
RPRTCMPL ;Compile and print report
EXIT ;
CMPLERA ;Generate the ERA posted with paper EOB report ^TMP array
; ^RCY(344.4,0) = ELECTRONIC REMITTANCE ADVICE^344.4I^
CMPLEOB ;Generate the EOB Moved/Copy/Remove report ^TMP array
DISP ; Format the display for screen/printer or MS Excel
LINE(VAUTD) ;List selected stations
SELDIV(VAUTD,Z) ;Devisions are organized as Z(1)="DIV1,DIV2,..., Z(2)="DIVN,DIVN+1,... etc.
; Input:
; VAUTD (required/pass-by-ref) - Division(s) array; result of call to DIVISION^VAUTOMA
; Output:
; Z (required/pass-by-ref) - reformatted array of divisions
HDRBLD ; create the report header
; returns RCHDR, RCPGNUM, RCSTOP
; RCHDR(0) = header text line count
; RCHDR("XECUTE") = M code for page number
; RCHDR("RUNDATE") = date/time report generated, external format
; RCPGNUM - page counter
; RCSTOP - flag to exit
; INPUT:
; RCDISPTY - Display/print/Excel flag
; RCDTRNG - date range
; RCRTYP - Report Type (EOB or ERA)
; VAUTD
HDRLM ; create the Listman header
; returns RCHDR
; RCHDR(0) = header text line count
; INPUT:
; RCDTRNG - date range
; VAUTD - Division filter value(s)
HDREOB() ; extrinsic variable, header for EOB report
HDRERA() ; extrinsic variable, header for ERA report
HDRXEC(TYP) ; create xecute code for header
DTRNG() ; function, return date range for a report
DATES(BDATE,EDATE) ;Get a date range.
STADIV ;Division/Station Filter/Sort
ACTION() ; Get action type
DISPTY() ; Get display/output type
ERASTA(ERAIEN,STA,STNUM,STNAM) ; Get the station for this ERA
; read allowed on BILL/CLAIMS file (#399) via IA 3820
; returns STA: station IEN, STNAM: station name, STNUM: station number
EOBSTA(EOBIEN,STA,STNUM,STNAM) ; Get the station for this EOB
DTPRB() ; Get the Start Date type
WP(JC) ; format justification comments
; JC - Justification Comment

External References

Name Field # of Occurrence
^%ZIS ASKUSR+45
HOME^%ZIS ASKUSR+54
^%ZISC DISP+54
^%ZTLOAD ASKUSR+52
$$EXTERNAL^DILFD ERASTA+11, EOBSTA+9
^DIR DATES+3, DATES+8, ACTION+5, DISPTY+5, DTPRB+4
$$ASKLM^RCDPEARL ASKUSR+32
$$ENDORPRT^RCDPEARL DISP+47
$$NOW^RCDPEARL HDRBLD+12
$$PAD^RCDPEARL DISP+19, DISP+20, DISP+21, DISP+22, DISP+29, DISP+32, DISP+33, DISP+34, DISP+35, DISP+39
HDRLST^RCDPEARL DISP+11, DISP+18, DISP+28
LMRPT^RCDPEARL ASKUSR+42
SL^RCDPEARL DISP+24, DISP+25, DISP+31, DISP+37, DISP+41, DISP+44, DISP+47, DISP+50, DISP+51, WP+13
SVEOB^RCDPEM41 CMPLEOB+17
SVERA^RCDPEM41 CMPLERA+18
INFO^RCDPEM6 ASKUSR+31
$$ISTYPE^RCDPEU1 CMPLERA+16, CMPLEOB+14
$$RTYPE^RCDPEU1 ASKUSR+26
DIVISION^VAUTOMA STADIV+8
$$FMTE^XLFDT HDRBLD+20, HDRLM+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,RCNTRY
  • Line Location: DISP+16
Routine Call
  • %ZIS
  • Line Location:
    • ASKUSR+45
Routine Call
  • %ZIS
  • Line Location:
    • ASKUSR+54
Routine Call
  • DIR
  • Line Location:
    • DATES+3
    • DATES+8
    • ACTION+5
    • DISPTY+5
    • DTPRB+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] ERASTA+12, EOBSTA+10
^DGCR(399 - [#399] ERASTA+9, EOBSTA+7
^IBM(361.1 - [#361.1] CMPLEOB+6, CMPLEOB+8, CMPLEOB+10, ERASTA+8, EOBSTA+6
^RCY(344.4 - [#344.4] CMPLERA+8, CMPLERA+10, CMPLERA+12, ERASTA+7
^TMP( RPRTCMPL+1!, EXIT+2!, DISP+14, DISP+15, DISP+49
^TMP($J ASKUSR+34!, ASKUSR+40*, ASKUSR+42, RPRTCMPL+1!, EXIT+2!

Label References

Name Line Occurrences
$$ACTION ASKUSR+22
$$DISPTY ASKUSR+29
$$DTRNG ASKUSR+20
$$LINE DISP+3
ASKUSR EOB+2, POST+2
CMPLEOB RPRTCMPL+5
CMPLERA RPRTCMPL+3
DATES DTRNG+2
DISP RPRTCMPL+7
EOBSTA CMPLEOB+12
ERASTA CMPLERA+14
EXIT ASKUSR+20, ASKUSR+22, ASKUSR+24, ASKUSR+26, ASKUSR+29, ASKUSR+32, ASKUSR+33
HDRBLD DISP+4
HDRLM DISP+5
HDRXEC HDRBLD+26, HDRBLD+43, HDRLM+12, HDRLM+28
RPRTCMPL ASKUSR+35, ASKUSR+57
STADIV ASKUSR+24
WP DISP+43

Naked Globals

Name Field # of Occurrence
^( DISP+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASKUSR+2~, ASKUSR+45*
BDATE DATES~, DATES+1*, DATES+4*, DATES+5*, DATES+8, DATES+9*
BILL EOBSTA+2~, EOBSTA+3*, EOBSTA+6*, EOBSTA+7
CMNT WP+3~
CMNT( WP+7*, WP+10*, WP+11*, WP+13
CNT SELDIV+6~, SELDIV+7*, SELDIV+9, SELDIV+10, SELDIV+14, SELDIV+15, SELDIV+16*, SELDIV+18, SELDIV+19
CNTR WP+3~, WP+7*, WP+10*, WP+11, WP+13
DATE HDRBLD+19~, HDRLM+6~
DIR DTRNG+1~, DATES+3!, DATES+8!, STADIV+3~, ACTION+1~, DISPTY+1~, DTPRB+1~, DTPRB+4!
DIR("?" DATES+2*, DATES+6*
DIR("A" DATES+3*, DATES+8*, ACTION+2*, DISPTY+3*, DTPRB+3*
DIR("B" DATES+7*, ACTION+3*, DISPTY+4*
DIR(0 DATES+3*, DATES+8*, ACTION+4*, DISPTY+2*, DTPRB+2*
DIROUT ACTION+1~, ACTION+5, DTPRB+1~
DIRUT DTPRB+1~
DIV HDRBLD+19~, HDRLM+6~
DT DATES+3, DATES+8
DTOUT DATES+4, DATES+9, DISPTY+1~, DTPRB+1~, DTPRB+5
DTSUB CMPLEOB+1~
DUOUT DTRNG+1~, DATES+4, DATES+9, STADIV+3~, ACTION+1~, ACTION+5, DISPTY+1~, DISPTY+5, DTPRB+1~, DTPRB+5
DVFLTR DISP+1~, DISP+3*, HDRBLD+29, HDRBLD+46, HDRLM+14, HDRLM+29
EDATE DATES~, DATES+1*, DATES+10*
END CMPLERA+2~, CMPLERA+4*, CMPLERA+5*, CMPLERA+8, CMPLEOB+1~, CMPLEOB+3*, CMPLEOB+6, HDRBLD+19~, HDRBLD+20*, HDRBLD+31
HDRBLD+48, HDRLM+6~, HDRLM+7*, HDRLM+20, HDRLM+34
EOBIEN CMPLEOB+1~, CMPLEOB+7*, CMPLEOB+8*, CMPLEOB+10, CMPLEOB+12, CMPLEOB+14, CMPLEOB+17, EOBSTA~, EOBSTA+6
ERABILL ERASTA+3~, ERASTA+4*, ERASTA+8*, ERASTA+9
ERAEOB ERASTA+3~, ERASTA+4*, ERASTA+7*, ERASTA+8
ERAIEN CMPLERA+2~, CMPLERA+9*, CMPLERA+10*, CMPLERA+12, CMPLERA+14, CMPLERA+16, CMPLERA+18, ERASTA~, ERASTA+7
H ASKUSR+36~, ASKUSR+38*, ASKUSR+40*
HCNT HDRBLD+19~, HDRBLD+20*, HDRBLD+23*, HDRBLD+28*, HDRBLD+30*, HDRBLD+32*, HDRBLD+36*, HDRBLD+37*, HDRBLD+38*, HDRBLD+39*
HDRBLD+40, HDRBLD+45*, HDRBLD+47*, HDRBLD+49*, HDRBLD+53*, HDRBLD+55*, HDRBLD+56*, HDRBLD+57*, HDRBLD+58*, HDRBLD+59*
HDRBLD+60, HDRLM+6~, HDRLM+7*, HDRLM+13*, HDRLM+18*, HDRLM+19*, HDRLM+21*, HDRLM+22*, HDRLM+23*, HDRLM+24*
HDRLM+25, HDRLM+33*, HDRLM+35*, HDRLM+37*, HDRLM+38*, HDRLM+39*, HDRLM+40*, HDRLM+41*, HDRLM+42
HDR ASKUSR+36~, ASKUSR+42
HDR( ASKUSR+38*
I WP+3~, WP+8*, WP+9, WP+13*
IEN DISP+1~, DISP+15*
IEN101 CMPLEOB+1~, CMPLEOB+10*, CMPLEOB+17
IO DISP+8
IO("Q" ASKUSR+47, ASKUSR+54!
IOSL DISP+18, DISP+28
J HDRBLD+19~, HDRLM+6~
JC WP~, WP+2, WP+7, WP+9
L ASKUSR+36~*, ASKUSR+38*, ASKUSR+39, ASKUSR+40
LINE LINE+1~, LINE+2*, LINE+4*, LINE+5
MSG HDRBLD+19~, HDRLM+6~
N ASKUSR+40~*
PCS WP+3~, WP+7*, WP+8
POP ASKUSR+2~, ASKUSR+45
RCACT ASKUSR+2~, ASKUSR+17*, ASKUSR+22*, HDRBLD+54, HDRLM+36
RCDISPTY ASKUSR+2~, ASKUSR+29*, ASKUSR+31, ASKUSR+47, DISP+16, HDRBLD+14
RCDIV ASKUSR+2~, ASKUSR+24, CMPLERA+15, CMPLEOB+13, DISP+3, STADIV+4*, STADIV+11*, STADIV+13*
RCDTRNG ASKUSR+2~, ASKUSR+20*, CMPLERA+5, CMPLEOB+3, HDRBLD+20, HDRLM+7
RCEND DTRNG+1~, DTRNG+2, DTRNG+4
RCHDR ASKUSR+2~, DISP+11, DISP+18, DISP+28, HDRBLD+12!
RCHDR( ASKUSR+38, ASKUSR+39, ASKUSR+40, HDRBLD+28*, HDRBLD+30*, HDRBLD+32*, HDRBLD+36*, HDRBLD+37*, HDRBLD+38*, HDRBLD+39*
HDRBLD+45*, HDRBLD+47*, HDRBLD+49*, HDRBLD+53*, HDRBLD+55*, HDRBLD+56*, HDRBLD+57*, HDRBLD+58*, HDRBLD+59*, HDRBLD+63*
HDRLM+13*, HDRLM+18*, HDRLM+19*, HDRLM+21*, HDRLM+22*, HDRLM+23*, HDRLM+24*, HDRLM+33*, HDRLM+35*, HDRLM+37*
HDRLM+38*, HDRLM+39*, HDRLM+40*, HDRLM+41*, HDRLM+45*
RCHDR("RUNDATE" HDRBLD+12*, HDRBLD+27, HDRBLD+44
RCHDR("XECUTE" HDRBLD+15*, HDRXEC+1*
RCHDR(0 DISP+18, DISP+28, HDRBLD+15*, HDRBLD+22*, HDRBLD+40*, HDRBLD+60*, HDRBLD+63*, HDRLM+9*, HDRLM+25*, HDRLM+42*
HDRLM+45*
RCHDR(1 HDRBLD+15*, HDRBLD+16*, HDRBLD+17*
RCLNCNT ASKUSR+2~, ASKUSR+17*, DISP+24, DISP+25, DISP+31, DISP+37, DISP+41, DISP+44, DISP+47, DISP+50
DISP+51, WP+13
RCLSTMGR ASKUSR+2~, ASKUSR+17*, ASKUSR+31*, ASKUSR+32*, ASKUSR+33, DISP+4, DISP+5, DISP+11, DISP+18, DISP+28
DISP+54, HDRLM+45
RCNTRY DISP+1~, DISP+15*, DISP+16, DISP+19, DISP+20, DISP+21, DISP+22, DISP+23, DISP+25, DISP+29
DISP+30, DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+38, DISP+39, DISP+40, DISP+43
RCPGNUM ASKUSR+2~, HDRBLD+12*, HDRBLD+15*
RCPROG ASKUSR+2~, ASKUSR+17*, RPRTCMPL+1, EXIT+2, DISP+14, DISP+15, DISP+49
RCRTYP EOB+1~*, POST+1~*, ASKUSR+1, ASKUSR+22, ASKUSR+34, ASKUSR+37, RPRTCMPL+3, RPRTCMPL+5, DISP+3, DISP+17
DISP+27, HDRBLD+16, HDRBLD+17, HDRBLD+23, HDRBLD+25, HDRBLD+26, HDRBLD+42, HDRBLD+43, HDRLM+10, HDRLM+11
HDRLM+12, HDRLM+27, HDRLM+28
RCSTA ASKUSR+2~
RCSTART DTRNG+1~, DTRNG+2, DTRNG+3, DTRNG+4, DTRNG+5
RCSTOP ASKUSR+2~, ASKUSR+17*, DISP+11, DISP+13*, DISP+14, DISP+15, DISP+18, DISP+28, DISP+47, HDRBLD+12*
RCTMPND ASKUSR+3~, ASKUSR+17*, ASKUSR+34, ASKUSR+40, ASKUSR+42, DISP+24, DISP+25, DISP+31, DISP+37, DISP+41
DISP+44, DISP+47, DISP+50, DISP+51, WP+13
RCTYPE ASKUSR+3~, ASKUSR+26*, CMPLERA+16, CMPLEOB+14, HDRBLD+35, HDRBLD+52, HDRLM+17, HDRLM+32
STA CMPLERA+2~, CMPLERA+14, CMPLERA+15, CMPLERA+18, CMPLEOB+1~, CMPLEOB+12, CMPLEOB+13, CMPLEOB+17, ERASTA~, ERASTA+5*
, ERASTA+10*, ERASTA+11, EOBSTA~, EOBSTA+4*, EOBSTA+8*, EOBSTA+9
STAIEN ERASTA+3~, ERASTA+9*, ERASTA+10, ERASTA+12, EOBSTA+2~, EOBSTA+7*, EOBSTA+8, EOBSTA+10
START CMPLERA+2~, CMPLERA+4*, CMPLERA+5*, CMPLERA+8*, CMPLERA+10, CMPLEOB+1~, CMPLEOB+3*, CMPLEOB+6*, CMPLEOB+8, CMPLEOB+10
HDRBLD+19~, HDRBLD+20*, HDRBLD+31, HDRBLD+48, HDRLM+6~, HDRLM+7*, HDRLM+20, HDRLM+34
STNAM CMPLERA+2~, CMPLERA+14, CMPLERA+18, CMPLEOB+1~, CMPLEOB+12, CMPLEOB+17, ERASTA~, ERASTA+5*, ERASTA+11*, EOBSTA~
, EOBSTA+4*, EOBSTA+9*
STNUM CMPLERA+2~, CMPLERA+14, CMPLERA+18, CMPLEOB+1~, CMPLEOB+12, CMPLEOB+17, ERASTA~, ERASTA+5*, ERASTA+12*, EOBSTA~
, EOBSTA+4*, EOBSTA+10*
SUB CMPLERA+4*, DISP+1~, DISP+13*, DISP+14*, DISP+15, LINE+1~, LINE+2*, LINE+3*, LINE+4, SELDIV+6~
, SELDIV+12*, SELDIV+13*, SELDIV+14, SELDIV+15
TYP HDRXEC~, HDRXEC+1
U CMPLERA+5, CMPLEOB+3, DISP+19, DISP+20, DISP+21, DISP+22, DISP+23, DISP+25, DISP+29, DISP+30
DISP+32, DISP+33, DISP+34, DISP+35, DISP+36, DISP+38, DISP+39, DISP+40, DISP+43, HDRBLD+20
HDRLM+7, ERASTA+7, ERASTA+8, ERASTA+9, ERASTA+12, EOBSTA+6, EOBSTA+7, EOBSTA+10
VAUTD ASKUSR+3~, DISP+3, LINE~, SELDIV~, SELDIV+8, SELDIV+11, SELDIV+12, HDRBLD+29, HDRBLD+46, HDRLM+14
HDRLM+29, STADIV+11
VAUTD( CMPLERA+15, CMPLEOB+13, LINE+3, LINE+4, SELDIV+13, SELDIV+14, SELDIV+15
X ASKUSR+3~, DTRNG+1~, ACTION+1~, DISPTY+1~, DTPRB+1~
Y ASKUSR+3~, DISP+1~, DISP+19*, DISP+20*, DISP+21*, DISP+22*, DISP+23*, DISP+24, DISP+29*, DISP+30*
DISP+31, DISP+32*, DISP+33*, DISP+34*, DISP+35*, DISP+36*, DISP+37, DISP+39*, DISP+40*, DISP+41
HDRBLD+19~, HDRBLD+27*, HDRBLD+28, HDRBLD+29*, HDRBLD+30, HDRBLD+31*, HDRBLD+32, HDRBLD+34*, HDRBLD+35*, HDRBLD+36
HDRBLD+44*, HDRBLD+45, HDRBLD+46*, HDRBLD+47, HDRBLD+48*, HDRBLD+49, HDRBLD+51*, HDRBLD+52*, HDRBLD+53, HDRBLD+54*
HDRBLD+55, HDRBLD+63*, HDRLM+6~, HDRLM+14*, HDRLM+16*, HDRLM+17*, HDRLM+18, HDRLM+20*, HDRLM+21, HDRLM+29*
HDRLM+31*, HDRLM+32*, HDRLM+33, HDRLM+34*, HDRLM+35, HDRLM+36*, HDRLM+37, HDRLM+45*, DTRNG+1~, DATES+4
, DATES+5, DATES+9, DATES+10, STADIV+3~, STADIV+8, ACTION+1~, ACTION+7, DISPTY+1~, DISPTY+6, DTPRB+1~
, DTPRB+5*, DTPRB+6, WP+3~, WP+9*, WP+10, WP+11
Y(0 DATES+7
Z SELDIV~
Z( SELDIV+7*, SELDIV+9*, SELDIV+10*, SELDIV+14*, SELDIV+15*, SELDIV+16*, SELDIV+18*, SELDIV+19!
ZTDESC ASKUSR+48~, ASKUSR+50*
ZTQUEUED ASKUSR+48~, DISP+54, DISP+55
>> ZTREQ DISP+55*
ZTRTN ASKUSR+48~, ASKUSR+49*
ZTSAVE ASKUSR+48~
ZTSAVE("RC*" ASKUSR+51*
ZTSAVE("VAUTD" ASKUSR+51*
ZTSK ASKUSR+48~, ASKUSR+53, ASKUSR+54!

Marked Items

Name Field # of Occurrence
$T( ASKUSR+17, HDRXEC+1
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 |  Naked Globals |  Local Variables |  Marked Items  | All