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

Package: Accounts Receivable

Routine: RCDMCR8A


Information

RCDMCR8A ;ALB/YG - Pension Report Exempt Charge Reconciliation Report - Input/output; Jun 16, 2021@14:23

Source Information

Source file <RCDMCR8A.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$STRIP^XLFSTR  
Accounts Receivable 3 RUN^RCDMCR8A  COLLECT^RCDMCR8B  ($$EXCEL,EXMSG,PAUSE,PAUSE2,ULINE)^RCDMCUT2  
VA FileMan 1 ^DIR  

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 RC PENSION REPORT  RCDMCR8A  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive 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
ARSTAT(STOPIT) ;Chose AR status
MENU ;

External References

Name Field # of Occurrence
^%ZIS MAIN+31
HOME^%ZIS MAIN+45
^%ZISC RUN+13
^%ZTLOAD MAIN+43
^DIR MAIN+17, MENU+12
RUN^RCDMCR8A MAIN+48
COLLECT^RCDMCR8B RUN+7
$$EXCEL^RCDMCUT2 MAIN+21
EXMSG^RCDMCUT2 MAIN+24
PAUSE^RCDMCUT2 CHKP+4
PAUSE2^RCDMCUT2 MAIN+49
ULINE^RCDMCUT2 HDR+9
$$FMTE^XLFDT REPORT+3, WRLINE+20, WRLINE+21, WRLINE+22, WRLINE+23, WRLINE+24, WRLINE2+7, WRLINE2+8, WRLINE2+9, WRLINE2+10
, WRLINE2+11
$$NOW^XLFDT REPORT+3
$$STRIP^XLFSTR WRLINE+20, WRLINE+21, WRLINE+22, WRLINE+23, WRLINE+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the Pension Exempt Charge Recon Report ***",!
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+15
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that"
  • Line Location: MAIN+26
Function Call: WRITE
  • Prompt: !,"you Queue this report to a device that is 132 characters wide."
  • Line Location: MAIN+27
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+31
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued. TASK = "_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: MAIN+44
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+15
Function Call: WRITE
  • Prompt: $E(NAME,1,23)
  • Line Location: WRLINE+16
Function Call: WRITE
  • Prompt: ?24,$E(NAME,1)_$E(SSN,$L(SSN)-3,$L(SSN))
  • Line Location: WRLINE+17
Function Call: WRITE
  • Prompt: ?31,$P(BILLNO,"/",1)
  • Line Location: WRLINE+18
Function Call: WRITE
  • Prompt: ?43,EXEMPTDT
  • Line Location: WRLINE+19
Function Call: WRITE
  • Prompt: ?43,$$STRIP^XLFSTR($$FMTE^XLFDT(EXEMPTDT,"8D")," ")
  • Line Location: WRLINE+20
Function Call: WRITE
  • Prompt: ?89,RXNUM
  • Line Location: WRLINE+25
Function Call: WRITE
  • Prompt: ?99,$E(RXNAM,1,22)
  • Line Location: WRLINE+26
Function Call: WRITE
  • Prompt: ?122,$E(STATUS,1,9)
  • Line Location: WRLINE+27
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE2+2
Function Call: WRITE
  • Prompt: NAME,U
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: $E(NAME,1)_$E(SSN,$L(SSN)-3,$L(SSN)),U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: $P(BILLNO,"/",1),U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: EXEMPTDT,U,U,U,U,U,U,U
  • 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(PNTERMDT,"9D")
  • Condition for execution: PNTERMDT
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+8
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(DISCHDT,"9D")
  • Condition for execution: DISCHDT
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RXDT,"9D")
  • Condition for execution: RXDT
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: RXNUM,U
  • Line Location: WRLINE2+12
Function Call: WRITE
  • Prompt: RXNAM,U
  • Line Location: WRLINE2+13
Function Call: WRITE
  • Prompt: STATUS,U
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"Pat/ID",U
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: "Bill #",U,"EXMPTDT",U,"PenTermDt",U,"Med Care Date",U,"D/C Date",U,"RXFillDT",U,"RX #",U,"RX Name",U,"Status"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: @IOF,"Pension Exempt Charge Reconciliation Report -- Run Date: ",RUNDATE," --"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?122,"Page "_RCPAGE
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,"Veteran Name",?24,"Pat/ID",?31,"Bill #",?43,"EXMPTDT",?52,"PenTermDt",?62,"MedC DT",?70,"D/C Date",?80,"RXFillDT",?89,"RX #",?99,"RX Name",?122,"Status"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,?5,"1 - Active"
  • Line Location: MENU+1
Function Call: WRITE
  • Prompt: !,?5,"2 - Open"
  • Line Location: MENU+2
Function Call: WRITE
  • Prompt: !,?5,"3 - Suspended"
  • Line Location: MENU+3
Function Call: WRITE
  • Prompt: !,?5,"4 - Collected/Closed"
  • Line Location: MENU+4
Function Call: WRITE
  • Prompt: !,?5,"5 - IB On-Hold"
  • Line Location: MENU+5
Function Call: WRITE
  • Prompt: !,?5,"6 - Write-Off"
  • Line Location: MENU+6
Function Call: WRITE
  • Prompt: !,?5,"7 - ALL (Includes 1-6 and AR CANCELLATIONS)",!
  • Line Location: MENU+7
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+31
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+45
Routine Call
  • DIR
  • Line Location:
    • MAIN+17
    • MENU+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J RUN+4!, RUN+14!, REPORT+5, REPORT+8, REPORT+10, REPORT+12, REPORT+14, REPORT+17

Label References

Name Line Occurrences
$$ARSTAT MAIN+8
CHKP WRLINE+13
HDR REPORT+4, CHKP+4
MENU ARSTAT+5
REPORT RUN+11
WRLINE REPORT+28
WRLINE2 REPORT+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MAIN+29~, MAIN+30*
ARTYPE MAIN+3~, MAIN+8*, MAIN+9, RUN+7
BILLNO REPORT+1~, REPORT+11*, REPORT+12*, REPORT+14, REPORT+17, WRLINE+18, WRLINE2+5
C ARSTAT+1~, ARSTAT+9*, ARSTAT+10
DIR MAIN+14!, MAIN+19!, MENU+8~
DIR("A" MAIN+16*
DIR("B" MAIN+15*, MENU+11*
DIR("T" MAIN+15*
DIR(0 MAIN+15*, MENU+10*
DIROUT MAIN+14!, MAIN+18, MAIN+19!
DIRUT MAIN+14!, MAIN+18, MAIN+19!
DISCHDT REPORT+1~, REPORT+27*, WRLINE+23, WRLINE2+10
DTIME MAIN+15
DTOUT MAIN+14!, MAIN+18, MAIN+19!
DUOUT MAIN+14!, MAIN+18, MAIN+19!
ELIG REPORT+15~, REPORT+20*
ELIGTYP REPORT+15~, REPORT+25*
EXCEL MAIN+3~, MAIN+21*, MAIN+23, MAIN+24, MAIN+25, RUN+15!, REPORT+28, REPORT+29, HDR+1
EXEMPTDT REPORT+15~, REPORT+21*, WRLINE+14, WRLINE+19, WRLINE+20, WRLINE2+1, WRLINE2+6, WRLINE2+7
FOOTER CHKP~, CHKP+3*, CHKP+4
IBIEN REPORT+1~, REPORT+13*, REPORT+14*, REPORT+17
IO RUN+9
IO("Q" MAIN+35
IOF RUN+12, HDR+5
IOM HDR+9
ION MAIN+37
IOSL CHKP+4
IOST MAIN+33
J ARSTAT+1~, ARSTAT+3*
NAME REPORT+1~, REPORT+7*, REPORT+8*, REPORT+10, REPORT+12, REPORT+14, REPORT+17, WRLINE+16, WRLINE+17, WRLINE2+3
, WRLINE2+4
NDTFLAG MAIN+3~, MAIN+11*, MAIN+12, MAIN+17*, MAIN+18*, WRLINE+14, WRLINE2+1
NODE REPORT+15~, REPORT+17*, REPORT+18, REPORT+19, REPORT+20, REPORT+21, REPORT+22, REPORT+23, REPORT+24, REPORT+25
, REPORT+26, REPORT+27
PNTERMDT REPORT+15~, REPORT+26*, WRLINE+21, WRLINE2+8
POP MAIN+29~, MAIN+32
RCPAGE RUN+3~, RUN+5*, HDR+4*, HDR+6
RCSCR MAIN+3~, MAIN+33*, RUN+12, RUN+15!, CHKP+4
RUNDATE REPORT+1~, REPORT+3*, HDR+5
RXDT REPORT+15~, REPORT+19*, WRLINE+24, WRLINE2+11
RXNAM REPORT+15~, REPORT+23*, WRLINE+26, WRLINE2+13
RXNUM REPORT+15~, REPORT+22*, WRLINE+25, WRLINE2+12
SERVDT REPORT+15~, REPORT+18*, WRLINE+22, WRLINE2+9
SKIP REPORT+1~, REPORT+6!, CHKP+4!
SL ARSTAT+1~, ARSTAT+2*, ARSTAT+3, ARSTAT+4*, ARSTAT+9, ARSTAT+11*
SSN REPORT+1~, REPORT+9*, REPORT+10*, REPORT+12, REPORT+14, REPORT+17, WRLINE+17, WRLINE2+4
STATUS REPORT+1~, REPORT+15~, REPORT+24*, WRLINE+27, WRLINE2+14
STOPIT MAIN+3~, MAIN+5*, MAIN+8, MAIN+9, MAIN+32*, MAIN+35*, MAIN+47, MAIN+49, RUN+5*, RUN+7
, RUN+8, REPORT+8, REPORT+10, REPORT+12, REPORT+14, WRLINE+13, CHKP+4, ARSTAT~, ARSTAT+7*
TEMP ARSTAT+1~, ARSTAT+10*, ARSTAT+11, ARSTAT+12
TESTDATE RUN+15!
U MAIN+2*, REPORT+18, REPORT+19, REPORT+20, REPORT+21, REPORT+22, REPORT+23, REPORT+24, REPORT+25, REPORT+26
, REPORT+27, WRLINE2+3, WRLINE2+4, WRLINE2+5, WRLINE2+6, WRLINE2+7, WRLINE2+8, WRLINE2+9, WRLINE2+10, WRLINE2+11
, WRLINE2+12, WRLINE2+13, WRLINE2+14, HDR+2, HDR+3
X MENU+9!
Y MAIN+13~, MAIN+17, MAIN+19!, ARSTAT+6, ARSTAT+7, ARSTAT+8*, ARSTAT+9, ARSTAT+10, ARSTAT+12*, ARSTAT+13
, MENU+9!
ZTDESC MAIN+29~, MAIN+42*
ZTIO MAIN+29~, MAIN+37*
ZTQUEUED MAIN+1~, MAIN+47, RUN+2
ZTREQ MAIN+1~, RUN+2*
ZTRTN MAIN+29~, MAIN+36*
ZTSAVE MAIN+29~
ZTSAVE("ARTYPE" MAIN+39*
ZTSAVE("EXCEL" MAIN+40*
ZTSAVE("NDTFLAG" MAIN+41*
ZTSAVE("RCSCR" MAIN+38*
ZTSK MAIN+29~, MAIN+44
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All