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: RCDPENR1

Package: Accounts Receivable

Routine: RCDPENR1


Information

RCDPENR1 ;ALB/SAB - EPay National Reports ;12/10/14

Source Information

Source file <RCDPENR1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Accounts Receivable 6 ASK^RCDPEADP  $$ENDORPRT^RCDPEARL  ($$GETEDATE,$$GETRPT,$$GETSDATE)^RCDPENR2  ($$GETDIV,$$PRINTRP,DIV)^RCDPENR4  ($$GETPAY,$$INSCHK,$$XM,PYRARY)^RCDPENRU  $$PHARM^RCDPEWLP  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$FMTH,$$NOW)^XLFDT  
VA FileMan 2 UPDATE^DIE  $$GET1^DIQ  
Integrated Billing 1 $$DIV^IBJDF2  

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

Package Total Caller Graph
Accounts Receivable 7 PRCABJ2  RCDPE EDI VOLUME STATISTICS  RCDPENR2  RCDPENR3  RCDPENR4  RCDPENR5  RCDPENRU  

Entry Points

Name Comments DBIA/ICR reference
835837()
AUTO(RCDISP,RCBGDT,RCENDDT,RCPYRLST,RCRQDIV,RCSUMFLG) ;
; RCDISP - Display results to screen or archive file flag
; RCBGDT - begin date of the report
; RCENDDT - End date of the report
; RCPYRLST - Payers to report on (All, range, or single payer)
; RCRQDIV - Division to report on - (A)ll or a single division
; RCSUMFLG - (S)ummary or (G)rand Total Report
REPORT
COMPILE(RCSUMFLG) ;
PRINT(RCSUMFLG) ;Print the results
HEADER ;Print the results
RPTHDR ;
DIVTXT() ;
PAYERTXT(RCFILE) ;
SUMMARY(RCTFLG) ;Print the Payer Summary portion of the report
GRAND(RCTFLG) ;
GET835(RCSDATE,RCEDATE,RCSUMFLG) ;
BILLIEN(RCEOB)
GET837(RCSDATE,RCEDATE,RCSUMFLG) ;
UPDTMPB(RCSEND,RCTOTFLG,RCMP,RCCLAIM,RCSUMFLG,RCPAYER) ;
; RCSEND - Date 837 or NCPDP sent from site.
; RCTOTFLG - Add to the total count or not (1 yes, 837 sent this period, 0 if 837 sent in prior period
; RCMP - Is this a (P)harmacy or (M)edical
; RCCLAIM - The IEN for the Bill/Claim
; RCSUMFLG - If this flag is 1, add payer level entry for the Payer Summary report, otherwise send 0 for Grand Total only
; RCPAYER - Payer for the claim (if generating a Payer Summary Report
UPDTMP8(RCRCVD,RCMP,RCCLAIM,RCSUMFLG,RCPAYER,RCEOB) ;
; RCRCVD - Date 835 is received.
; RCMP - Is this a (P)harmacy or (M)edical
; RCCLAIM - The IEN for the Bill/Claim
; RCSUMFLG - If this flag is 1, add payer level entry for the Payer Summary report, otherwise send 0 for Grand Total only
; RCPAYER - Payer for the claim (if generating a Payer Summary Report
; RCEOB - EOB IEN for the 361.1 file.
GETNCPDP(RCSDATE,RCEDATE,RCSUMFLG) ;
GETECME(RCIEN) ;
; Used by:
; Routine RCDPENR1
; Routine PRCABJ1
SAVEDATA(RCDATA,IEN) ;
INITARCH(RPT) ;
REPRINT(RCHDR,RCDATA) ;

External References

Name Field # of Occurrence
^%ZIS AUTO+9
HOME^%ZIS AUTO+19
^%ZISC PRINT+39
^%ZTLOAD AUTO+16
UPDATE^DIE SAVEDATA+6, INITARCH+14
$$GET1^DIQ PAYERTXT+10, GET835+24, GET835+25, BILLIEN+3, GET837+13, GET837+14, UPDTMP8+16, UPDTMP8+18, GETNCPDP+12, GETNCPDP+13
, GETECME+4
$$DIV^IBJDF2 GET835+32, GET837+25
ASK^RCDPEADP PRINT+34
$$ENDORPRT^RCDPEARL PRINT+35
$$GETEDATE^RCDPENR2 835837+25
$$GETRPT^RCDPENR2 835837+15
$$GETSDATE^RCDPENR2 835837+21
$$GETDIV^RCDPENR4 835837+8
$$PRINTRP^RCDPENR4 SUMMARY+7, GRAND+5, REPRINT+17
DIV^RCDPENR4 REPORT+8
$$GETPAY^RCDPENRU 835837+11
$$INSCHK^RCDPENRU GET835+29, GET837+18, GETNCPDP+14
$$XM^RCDPENRU PRINT+30
PYRARY^RCDPENRU REPORT+11
$$PHARM^RCDPEWLP GET835+38
$$FMTE^XLFDT PRINT+10, HEADER+8, REPRINT+11
$$FMTH^XLFDT COMPILE+25
$$NOW^XLFDT PRINT+10, INITARCH+4, REPRINT+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Task number "_ZTSK_" has been queued."
  • Line Location: AUTO+17
Function Call: WRITE
  • Prompt: !!,"Unable to queue this job."
  • Line Location: AUTO+18
Function Call: WRITE
  • Prompt: !!,"There was no data available for the requested report. Please try again."
  • Line Location: REPORT+21
Function Call: WRITE
  • Prompt: !,$$ENDORPRT^RCDPEARL
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+36
Function Call: WRITE
  • Prompt: @IOF,?15,"EDI VOLUME STATISTICS REPORT"
  • Line Location: RPTHDR+3
Function Call: WRITE
  • Prompt: ?70,"PAGE ",$J(RCPAGE,3),!
  • Line Location: RPTHDR+4
Function Call: WRITE
  • Prompt: ?5,RCDIVTXT,?41,RCPYRTXT,!
  • Line Location: RPTHDR+5
Function Call: WRITE
  • Prompt: ?5,RCDATE,?52,"RUN DATE: ",RCRUNDT,!
  • Line Location: RPTHDR+6
Function Call: WRITE
  • Prompt: RCLINE,!
  • Line Location: RPTHDR+7
Routine Call
  • %ZIS
  • Line Location:
    • AUTO+9
Routine Call
  • %ZIS
  • Line Location:
    • AUTO+19
Routine Call
  • DIE
  • Line Location:
    • SAVEDATA+6
    • INITARCH+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBM(361.1 - [#361.1] GET1^DIQ
^IBA(364.1 - [#364.1] GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] GETNCPDP+7, GETNCPDP+9, GETNCPDP+12
^IBA(364 - [#364] GET837+21, GET837+22
^IBA(364.1 - [#364.1] GET837+10, GET837+12
^RCY(344.4 - [#344.4] GET835+6, GET835+8, GET835+9, GET835+13, GET835+14
^TMP("RCDPEADP" REPORT+5!, PAYERTXT+5, PAYERTXT+9
^TMP("RCDPENR1" REPORT+5!, REPORT+20, COMPILE+7, COMPILE+9, COMPILE+11, COMPILE+12, COMPILE+17*, COMPILE+18*, COMPILE+21*, COMPILE+22*
, COMPILE+28*, COMPILE+29*, COMPILE+33*, COMPILE+34*, COMPILE+39, COMPILE+40, COMPILE+44, COMPILE+45, COMPILE+46, COMPILE+47
, COMPILE+48, COMPILE+49, COMPILE+50, COMPILE+51, COMPILE+52*, COMPILE+60, COMPILE+62, COMPILE+64, COMPILE+67*, COMPILE+71
, COMPILE+73, COMPILE+75*, SUMMARY+5, SUMMARY+6, GRAND+4, UPDTMPB+9*, UPDTMPB+12*, UPDTMPB+15*, UPDTMP8+11*, UPDTMP8+15
, UPDTMP8+22*, UPDTMP8+25*
^TMP("RCDPENR2" REPORT+5!, DIVTXT+4, DIVTXT+9, GET835+35, GET837+28

Label References

Name Line Occurrences
$$BILLIEN GET835+20
$$DIVTXT HEADER+6
$$GETECME GETNCPDP+10
$$INITARCH PRINT+16
$$PAYERTXT HEADER+7
$$SUMMARY PRINT+22
AUTO 835837+27
COMPILE REPORT+24
GET835 REPORT+17
GET837 REPORT+15
GETNCPDP REPORT+16
GRAND PRINT+26
HEADER PRINT+19, PRINT+34
PRINT REPORT+27
REPORT AUTO+22
RPTHDR REPRINT+14
SAVEDATA RPTHDR+10
UPDTMP8 GET835+40
UPDTMPB GET837+29, UPDTMP8+19, GETNCPDP+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS AUTO+9*
DT INITARCH+2~, INITARCH+4*, INITARCH+5, INITARCH+11
DT1 INITARCH+2~, INITARCH+5*, INITARCH+9
FDA INITARCH+2~
FDA( INITARCH+8*, INITARCH+9*, INITARCH+10*, INITARCH+11*
FDAIEN INITARCH+2~
FDAIEN(1 INITARCH+16
IEN SAVEDATA~, SAVEDATA+4
IENS SAVEDATA+2~, SAVEDATA+4*, SAVEDATA+5
IO PRINT+13
IO("Q" AUTO+11, AUTO+19!
IOF RPTHDR+3
IOM PRINT+4, REPRINT+3
IOSL PRINT+34
>> POP AUTO+9
RC835 SUMMARY+2~
RC837 SUMMARY+2~
RCARY SAVEDATA+2~
RCARY( SAVEDATA+5*
RCBATCH REPORT+2~, GET837+5~, GET837+11*, GET837+12*, GET837+13, GET837+14, GET837+21, UPDTMP8+8~, UPDTMP8+16*, UPDTMP8+17
, UPDTMP8+18
RCBDIV GET835+2~, GET835+32*, GET835+35, GET837+5~, GET837+25*, GET837+28
RCBGDT 835837+2~, 835837+21*, 835837+22, 835837+25, 835837+27, AUTO~, REPORT+15, REPORT+16, REPORT+17, PRINT+30
, HEADER+8
RCBILL GET835+2~, GET835+20*, GET835+21, GET835+32, GET835+40, GET837+5~, GET837+23*, GET837+24, GET837+25, GET837+29
, GETNCPDP+2~
RCBILLNO REPORT+2~
RCCLAIM COMPILE+3~, COMPILE+10*, COMPILE+11*, COMPILE+12, UPDTMPB~, UPDTMPB+12, UPDTMP8~, UPDTMP8+15, UPDTMP8+19, UPDTMP8+22
RCDATA REPORT+2~, COMPILE+3~, COMPILE+12*, COMPILE+13, COMPILE+14, COMPILE+43*, COMPILE+44*, COMPILE+45*, COMPILE+46*, COMPILE+47*
, COMPILE+48*, COMPILE+49*, COMPILE+50*, COMPILE+51*, COMPILE+52, GRAND+2~, GRAND+4*, GRAND+5, GET835+2~, GET835+9*
, GET835+10, GET835+11, GET837+5~, GET837+22*, GET837+23, SAVEDATA~, SAVEDATA+5, REPRINT~, REPRINT+17
RCDATE HEADER+2~, HEADER+8*, RPTHDR+6, RPTHDR+9, REPRINT+2~, REPRINT+10*
RCDAYS COMPILE+3~, COMPILE+25*, COMPILE+28, COMPILE+34
RCDISP 835837+2~, 835837+5*, 835837+27, AUTO~, AUTO+9, AUTO+11, PRINT+13, PRINT+15, PRINT+29, PRINT+34
, PRINT+35, RPTHDR+2, RPTHDR+8, SUMMARY+7, GRAND+5, REPRINT+17
RCDIV 835837+2~, 835837+8, REPORT+8, DIVTXT+2~, DIVTXT+8*, DIVTXT+9*, DIVTXT+10
RCDIVTXT HEADER+2~, HEADER+6*, RPTHDR+5, RPTHDR+9, REPRINT+2~, REPRINT+8*
RCDTLDT REPORT+2~, GET835+2~, GET835+14*, GET835+15, GET835+16
RCDTLIEN REPORT+2~
RCDTPCT SUMMARY+2~
RCEDATE COMPILE+3~, COMPILE+14*, COMPILE+15, COMPILE+20, COMPILE+24, COMPILE+25, GET835~, GET835+6, GET837~, GET837+10
, GETNCPDP~, GETNCPDP+7
RCENDDT 835837+2~, 835837+25*, 835837+26, 835837+27, AUTO~, REPORT+15, REPORT+16, REPORT+17, PRINT+30, HEADER+8
RCEOB REPORT+2~, GET835+2~, GET835+16*, GET835+17, GET835+20, GET835+24, GET835+25, GET835+40, BILLIEN~, BILLIEN+3
, UPDTMP8~, UPDTMP8+16
RCEX 835837+2~, 835837+11*
RCFILE PAYERTXT~, PAYERTXT+10
RCFLAG GETNCPDP+2~, GETNCPDP+10*, GETNCPDP+11
RCFLG PRINT+2~, PRINT+4*, PRINT+22*, PRINT+23, SUMMARY+2~, SUMMARY+4*, SUMMARY+5, SUMMARY+7*, SUMMARY+8, GRAND+2~
, GRAND+5*, REPRINT+2~, REPRINT+17*
RCHDR REPRINT~, REPRINT+8, REPRINT+9, REPRINT+10
RCIDX COMPILE+3~, COMPILE+65*, COMPILE+66*, COMPILE+67, COMPILE+74*, COMPILE+75
RCIEN REPORT+2~, GET835+2~, GET835+7*, GET835+8*, GET835+9, GET835+13, GET835+14, GET835+38, GET837+5~, GET837+20*
, GET837+21*, GET837+22, GETNCPDP+2~, GETNCPDP+8*, GETNCPDP+9*, GETNCPDP+10, GETNCPDP+12, GETNCPDP+13, GETNCPDP+15, GETECME~
, GETECME+4
RCINS REPORT+2~, PAYERTXT+2~, PAYERTXT+8*, PAYERTXT+9*, PAYERTXT+10, SUMMARY+2~, SUMMARY+4*, SUMMARY+5*, SUMMARY+6, SUMMARY+7
, GET835+24*, GET835+29, GET837+5~, GET837+13*, GET837+18, GETNCPDP+2~, GETNCPDP+13*, GETNCPDP+14
RCLDATE GET835+2~, GET835+4*, GET835+6*, GET835+8, GET835+40, GET837+5~, GET837+8*, GET837+10*, GET837+12, GET837+29
, GETNCPDP+2~, GETNCPDP+5*, GETNCPDP+7*, GETNCPDP+9, GETNCPDP+15
RCLIEN GET835+2~, GET835+12*, GET835+13*, GET835+14
RCLINE PRINT+2~, PRINT+4*, RPTHDR+7, REPRINT+2~, REPRINT+3*
RCLPDATA SUMMARY+2~, SUMMARY+6*, SUMMARY+7
RCMCT COMPILE+3~, COMPILE+39*, COMPILE+50
RCMP COMPILE+3~, COMPILE+6*, COMPILE+7*, COMPILE+9, COMPILE+11, COMPILE+12, COMPILE+17, COMPILE+18, COMPILE+21, COMPILE+22
, COMPILE+28, COMPILE+29, COMPILE+33, COMPILE+34, COMPILE+61*, COMPILE+62*, COMPILE+64, COMPILE+66, COMPILE+67, COMPILE+70*
, COMPILE+71*, COMPILE+73, COMPILE+74, COMPILE+75, GET835+2~, GET835+38*, GET835+40, UPDTMPB~, UPDTMPB+9, UPDTMPB+12
, UPDTMPB+15, UPDTMP8~, UPDTMP8+15, UPDTMP8+19, UPDTMP8+22, UPDTMP8+25
RCPAGE PRINT+2~, PRINT+7*, RPTHDR+1*, RPTHDR+4
RCPAYER COMPILE+3~, COMPILE+8*, COMPILE+9*, COMPILE+11, COMPILE+12, COMPILE+18, COMPILE+22, COMPILE+33, COMPILE+34, COMPILE+63*
, COMPILE+64*, COMPILE+67, COMPILE+72*, COMPILE+73*, COMPILE+75, GET835+25*, GET835+26, GET835+40, GET837+5~, GET837+14*
, GET837+15, GET837+29, UPDTMPB~, UPDTMPB+12, UPDTMPB+15, UPDTMP8~, UPDTMP8+15, UPDTMP8+19, UPDTMP8+22, UPDTMP8+25
, GETNCPDP+2~, GETNCPDP+12*, GETNCPDP+15
RCPAYR 835837+2~, 835837+11
RCPAYR("END" 835837+12
RCPAYR("START" 835837+12
RCPCT COMPILE+3~, COMPILE+40*, COMPILE+51
RCPHARM REPORT+2~
RCPYRLST 835837+2~, 835837+27, AUTO~
RCPYRLST("END" 835837+12*, REPORT+11
RCPYRLST("START" 835837+12*, REPORT+11
RCPYRS REPORT+2~
RCPYRTXT HEADER+2~, HEADER+7*, RPTHDR+5, RPTHDR+9, REPRINT+2~, REPRINT+9*
RCRCVD UPDTMP8~, UPDTMP8+22
RCRPIEN PRINT+2~, PRINT+4*, PRINT+15, PRINT+16*, PRINT+30, RPTHDR+10, SUMMARY+7, GRAND+5
RCRPT 835837+2~, 835837+15*, 835837+16, 835837+18
RCRQDIV 835837+2~, 835837+8*, 835837+9, 835837+27, AUTO~
RCRUNDT PRINT+2~, PRINT+10*, RPTHDR+6, REPRINT+2~, REPRINT+11*
RCSDATE COMPILE+3~, COMPILE+14*, COMPILE+15, COMPILE+16, COMPILE+24, COMPILE+25, GET835~, GET835+4, GET837~, GET837+8
, GETNCPDP~, GETNCPDP+5
RCSEND UPDTMPB~, UPDTMPB+12, UPDTMP8+8~, UPDTMP8+18*, UPDTMP8+19
RCSPACE HEADER+2~, HEADER+4*, HEADER+5*, REPRINT+2~, REPRINT+6*, REPRINT+7*
RCSTOP PRINT+2~, PRINT+7*, PRINT+33, PRINT+34, PRINT+35
RCSTR HEADER+2~, RPTHDR+9*, RPTHDR+10, REPRINT+2~
RCSUMFLG 835837+2~, 835837+18*, 835837+27, AUTO~, REPORT+15, REPORT+16, REPORT+17, REPORT+24, REPORT+27, COMPILE~
, COMPILE+18, COMPILE+22, COMPILE+32, COMPILE+55, PRINT~, PRINT+22, GET835~, GET835+40, GET837~, GET837+29
, UPDTMPB~, UPDTMPB+15, UPDTMP8~, UPDTMP8+19, UPDTMP8+25, GETNCPDP~, GETNCPDP+15
RCTDAYS COMPILE+3~
RCTFLG PRINT+2~, PRINT+4*, PRINT+22*, PRINT+26, SUMMARY~, SUMMARY+7, GRAND~, GRAND+5
RCTOT COMPILE+3~
RCTOTFLG UPDTMPB~, UPDTMPB+9, UPDTMPB+15
RCTXT DIVTXT+2~, DIVTXT+8*, DIVTXT+10*, DIVTXT+13*, DIVTXT+14*, DIVTXT+16, PAYERTXT+2~, PAYERTXT+8*, PAYERTXT+10*, PAYERTXT+13*
, PAYERTXT+16
RCTYPE REPORT+2~, COMPILE+3~, COMPILE+59*, COMPILE+60*, COMPILE+62, COMPILE+64, COMPILE+65, COMPILE+67
RCXMZ PRINT+2~, PRINT+30*
RPT INITARCH~, INITARCH+8
U 835837+12, COMPILE+14, COMPILE+44, COMPILE+45, COMPILE+46, COMPILE+47, COMPILE+48, COMPILE+49, COMPILE+50, COMPILE+51
, COMPILE+67, COMPILE+75, RPTHDR+9, GET835+11, GET835+16, GET837+23, UPDTMPB+9, UPDTMPB+15, UPDTMP8+22, UPDTMP8+25
, GETNCPDP+12, REPRINT+8, REPRINT+9, REPRINT+10
ZTDESC AUTO+12~, AUTO+14*
ZTQUEUED AUTO+12~, PRINT+39, PRINT+40
>> ZTREQ PRINT+40*
ZTRTN AUTO+12~, AUTO+13*
ZTSAVE AUTO+12~
ZTSAVE("RC*" AUTO+15*
ZTSK AUTO+12~, AUTO+17, AUTO+19!
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