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

Package: Accounts Receivable

Routine: RCDMCR6A


Information

RCDMCR6A ;ALB/YG - 50-100 Percent SC Exempt Charge Reconciliation Report - Input/output; Apr 9, 2019@21:06

Source Information

Source file <RCDMCR6A.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^RCDMCR6A  COLLECT^RCDMCR6B  ($$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 RCDMCR6 50-100SC EXMPT RPT  RCDMCR6A  

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+22
HOME^%ZIS MAIN+35
^%ZISC RUN+13
^%ZTLOAD MAIN+33
RUN^RCDMCR6A MAIN+38
COLLECT^RCDMCR6B 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+23, WRLINE+25, WRLINE+26, WRLINE2+7, WRLINE2+9, WRLINE2+10
$$NOW^XLFDT REPORT+3
$$STRIP^XLFSTR WRLINE+23, WRLINE+25, WRLINE+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the 50-100 Percent SC Exempt Charge Reconciliation 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+22
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+13
Function Call: WRITE
  • Prompt: $E(NAME,1,23)
  • Line Location: WRLINE+17
Function Call: WRITE
  • Prompt: ?24,SSN
  • Line Location: WRLINE+18
Function Call: WRITE
  • Prompt: ?35,ELIG
  • Line Location: WRLINE+20
Function Call: WRITE
  • Prompt: ?47,$P(BILLNO,"/",1)
  • Line Location: WRLINE+21
Function Call: WRITE
  • Prompt: ?59,EXEMPTDT
  • Line Location: WRLINE+22
Function Call: WRITE
  • Prompt: ?59,$$STRIP^XLFSTR($$FMTE^XLFDT(EXEMPTDT,"8D")," ")
  • Line Location: WRLINE+23
Function Call: WRITE
  • Prompt: ?89,RXNUM
  • Line Location: WRLINE+27
Function Call: WRITE
  • Prompt: ?99,$E(RXNAM,1,22)
  • Line Location: WRLINE+28
Function Call: WRITE
  • Prompt: ?122,$E(STATUS,1,9)
  • Line Location: WRLINE+29
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: ELIG,U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: $P(BILLNO,"/",1),U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: EXEMPTDT
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(EXEMPTDT,"9D")
  • Condition for execution: EXEMPTDT
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SERVDT,"9D")
  • Condition for execution: SERVDT
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RXDT,"9D")
  • Condition for execution: RXDT
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: RXNUM,U
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: RXNAM,U
  • Line Location: WRLINE2+12
Function Call: WRITE
  • Prompt: STATUS,U
  • Line Location: WRLINE2+13
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"SSN",U,"Eligibility",U,"Bill #",U,"EXMPTDT",U,"Med Care Date",U,"RXFillDT",U,"RX #",U,"RX Name",U,"Status"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: @IOF,"50-100 Percent SC 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,"Eligibility",?47,"Bill #",?59,"EXMPTDT",?67,"Med Care Date",?81,"RXFillDT",?90,"RX #",?99,"RX Name",?122,"Status"
  • Line Location: HDR+8
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+22
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+35

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
CHKP WRLINE+12
HDR REPORT+4, CHKP+4
REPORT RUN+11
WRLINE REPORT+34
WRLINE2 REPORT+35

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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