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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: RCDMCR7A

Package: Accounts Receivable

Routine: RCDMCR7A


Information

RCDMCR7A ;ALB/YG - 10-40% SC Medical Care Copayment Exempt Charge Reconciliation Report - Input/output; Apr 9, 2019@21:06

Source Information

Source file <RCDMCR7A.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$STRIP^XLFSTR  
Accounts Receivable 3 RUN^RCDMCR7A  COLLECT^RCDMCR7B  ($$ARSTAT,$$EXCEL,EXMSG,PAUSE,PAUSE2,ULINE)^RCDMCUT2  

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 RCDMCR7 10-40% COPAY RPT  RCDMCR7A  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
QUERPT ; Initial Taskman Scheduled Queued processing
RUN ;Get data and Print it out
REPORT ;Print report
WRLINE ; Write the data formated report line
; Columns are - position, width, spacing (offset header by)
WRLINE2 ; Write the Excel report line
CHKP(FOOTER) ;Check for End of Page
HDR ;Print Report Header

External References

Name Field # of Occurrence
^%ZIS MAIN+21
HOME^%ZIS MAIN+35
^%ZISC RUN+13
^%ZTLOAD MAIN+33
RUN^RCDMCR7A MAIN+38
COLLECT^RCDMCR7B RUN+7
$$ARSTAT^RCDMCUT2 MAIN+8
$$EXCEL^RCDMCUT2 MAIN+12
EXMSG^RCDMCUT2 MAIN+15
PAUSE^RCDMCUT2 CHKP+4
PAUSE2^RCDMCUT2 MAIN+39
ULINE^RCDMCUT2 HDR+9
$$FMTE^XLFDT REPORT+3, WRLINE+19, WRLINE+21, WRLINE2+6, WRLINE2+8
$$NOW^XLFDT REPORT+3
$$STRIP^XLFSTR WRLINE+19, WRLINE+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the 10-40% SC Medical Care Copayment Exempt Charge Recon Report ***",!
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that"
  • Line Location: MAIN+17
Function Call: WRITE
  • Prompt: !,"you Queue this report to a device that is 132 characters wide."
  • Line Location: MAIN+18
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+21
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued. TASK = "_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: MAIN+34
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+12
Function Call: WRITE
  • Prompt: !,"No data meets the criteria."
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE+10
Function Call: WRITE
  • Prompt: $E(NAME,1,23)
  • Line Location: WRLINE+14
Function Call: WRITE
  • Prompt: ?24,SSN
  • Line Location: WRLINE+15
Function Call: WRITE
  • Prompt: ?38,SCPER,"%"
  • Line Location: WRLINE+17
Function Call: WRITE
  • Prompt: ?47,$P(BILLNO,"/",1)
  • Line Location: WRLINE+18
Function Call: WRITE
  • Prompt: ?59,$$STRIP^XLFSTR($$FMTE^XLFDT(EXEMPTDT,"8D")," ")
  • Line Location: WRLINE+19
Function Call: WRITE
  • Prompt: ?81,$E(STATUS,1,9)
  • Line Location: WRLINE+22
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE2+1
Function Call: WRITE
  • Prompt: NAME,U
  • Line Location: WRLINE2+2
Function Call: WRITE
  • Prompt: SSN,U
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: SCPER,"%",U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: $P(BILLNO,"/",1),U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(EXEMPTDT,"9D"),U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SERVDT,"9D"),U
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: STATUS,U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"SSN",U,"SC Percent",U,"Bill #",U,"EXMPTDT",U,"Med Care Date",U,"Status"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF,"10-40% SC Medical Care Copayment Exempt Charge Reconciliation Report -- Run Date: ",RUNDATE," --"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?122,"Page "_RCPAGE
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Veteran Name",?24,"SSN",?35,"SC Percent",?47,"Bill #",?59,"EXMPTDT",?67,"Med Care Date",?81,"Status"
  • Line Location: HDR+8
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+21
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+35

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB - [#350] REPORT+21, REPORT+24
^IB("ABIL" REPORT+20
^TMP($J RUN+4!, RUN+14!, REPORT+5, REPORT+8, REPORT+10, REPORT+12, REPORT+14, REPORT+17

Label References

Name Line Occurrences
CHKP WRLINE+9
HDR REPORT+4, CHKP+4
REPORT RUN+11
WRLINE REPORT+32
WRLINE2 REPORT+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MAIN+19~, MAIN+20*
ARTYPE MAIN+3~, MAIN+8*, MAIN+9, RUN+7
BILLNO REPORT+1~, REPORT+11*, REPORT+12*, REPORT+14, REPORT+17, REPORT+19, REPORT+20, WRLINE+18, WRLINE2+5
ELIG REPORT+15~
EXCEL MAIN+3~, MAIN+12*, MAIN+14, MAIN+15, MAIN+16, RUN+15!, REPORT+32, REPORT+33, HDR+1
EXEMPTDT REPORT+15~, REPORT+30*, WRLINE+19, WRLINE2+6
FOOTER CHKP~, CHKP+3*, CHKP+4
IBIEN REPORT+1~, REPORT+13*, REPORT+14*, REPORT+17
IO RUN+9
IO("Q" MAIN+25
IOF RUN+12, HDR+4
IOM HDR+9
ION MAIN+27
IOSL CHKP+4
IOST MAIN+23
NAME REPORT+1~, REPORT+7*, REPORT+8*, REPORT+10, REPORT+12, REPORT+14, REPORT+17, WRLINE+13, WRLINE+14, WRLINE+16
, WRLINE2+2
NODE REPORT+15~, REPORT+17*, REPORT+19, REPORT+28, REPORT+29, REPORT+30, REPORT+31
POP MAIN+19~, MAIN+22
RCDADMIT REPORT+1~, REPORT+18*, REPORT+26*, WRLINE+20, WRLINE2+7
RCDEND REPORT+1~, REPORT+14*, REPORT+19, REPORT+25*, REPORT+27
RCDIBPNT REPORT+1~, REPORT+15~, REPORT+23*, REPORT+24
RCDIBRC1 REPORT+1~, REPORT+18*!, REPORT+24*, REPORT+26
RCDIBREC REPORT+1~, REPORT+15~, REPORT+21*, REPORT+22, REPORT+23, REPORT+25
RCDIEN REPORT+1~, REPORT+15~, REPORT+20*, REPORT+21
RCPAGE RUN+3~, RUN+5*, HDR+3*, HDR+5
RCSCR MAIN+3~, MAIN+23*, RUN+12, RUN+15!, CHKP+4
RUNDATE REPORT+1~, REPORT+3*, HDR+4
RXNAM REPORT+15~
RXNUM REPORT+15~
SCPER REPORT+1~, REPORT+29*, WRLINE+17, WRLINE2+4
SERVDT REPORT+15~, REPORT+19*, REPORT+28*, WRLINE+20*, WRLINE+21, WRLINE2+7*, WRLINE2+8
SKIP REPORT+1~, REPORT+6!, CHKP+4!
SKIP(1 WRLINE+13, WRLINE+16*
SSN REPORT+1~, REPORT+9*, REPORT+10*, REPORT+12, REPORT+14, REPORT+17, WRLINE+13, WRLINE+15, WRLINE+16, WRLINE2+3
STATUS REPORT+1~, REPORT+15~, REPORT+31*, WRLINE+22, WRLINE2+9
STOPIT MAIN+3~, MAIN+6*, MAIN+8, MAIN+9, MAIN+22*, MAIN+25*, MAIN+37, MAIN+39, RUN+5*, RUN+7
, RUN+8, REPORT+8, REPORT+10, REPORT+12, REPORT+14, WRLINE+9, CHKP+4
TESTDATE RUN+15!
U MAIN+1*, REPORT+19, REPORT+22, REPORT+23, REPORT+25, REPORT+26, REPORT+28, REPORT+29, REPORT+30, REPORT+31
, WRLINE2+2, WRLINE2+3, WRLINE2+4, WRLINE2+5, WRLINE2+6, WRLINE2+8, WRLINE2+9, HDR+2
ZTDESC MAIN+19~, MAIN+32*
ZTIO MAIN+19~, MAIN+27*
>> ZTQUEUED MAIN+37, RUN+2
>> ZTREQ RUN+2*
ZTRTN MAIN+19~, MAIN+26*
ZTSAVE MAIN+19~
ZTSAVE("ARTYPE" MAIN+29*
ZTSAVE("EXCEL" MAIN+30*
ZTSAVE("RCSCR" MAIN+28*
ZTSAVE("STOPIT" MAIN+31*
ZTSK MAIN+19~, MAIN+34
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All