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

Package: Accounts Receivable

Routine: RCDMCR5A


Information

RCDMCR5A ;HAF/ASF - First Party Charge IB Cancellation Reconciliation Report - Input/output; Apr 9, 2019@21:06

Source Information

Source file <RCDMCR5A.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$STRIP^XLFSTR  
Accounts Receivable 4 $$EXOUT^RCDMCR4A  RUN^RCDMCR5A  COLLECT^RCDMCR5B  ($$BILLPAYS,$$DATE2,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: 1

Package Total Caller Graph
Accounts Receivable 1 RCDMCR5A  

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
WRLINE2 ; Write the Excel report line
CHKP(FOOTER) ;Check for End of Page
HDR ;Print Report Header
EXCEL() ; - Returns whether to capture data for Excel report.
EXMSG ;message if sending to excel

External References

Name Field # of Occurrence
^%ZIS MAIN+25
HOME^%ZIS MAIN+40
^%ZISC RUN+14
^%ZTLOAD MAIN+38
^DIR EXCEL+13
$$EXOUT^RCDMCR4A WRLINE2+2, WRLINE2+3, WRLINE2+16
RUN^RCDMCR5A MAIN+43
COLLECT^RCDMCR5B RUN+8
$$BILLPAYS^RCDMCUT2 MAIN+10
$$DATE2^RCDMCUT2 MAIN+5
PAUSE^RCDMCUT2 CHKP+4
PAUSE2^RCDMCUT2 MAIN+44
ULINE^RCDMCUT2 HDR+14
$$FMTE^XLFDT REPORT+3, WRLINE+28, WRLINE+29, WRLINE+32, WRLINE2+8, WRLINE2+10, WRLINE2+14, HDR+9
$$NOW^XLFDT REPORT+3
$$STRIP^XLFSTR WRLINE+28, WRLINE+29, WRLINE+32

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the First Party Charge IB Cancellation Reconciliation Report ***",!
  • Line Location: MAIN+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to be uploaded to an Excel spreadsheet format"
  • Line Location: MAIN+18
Function Call: WRITE
  • Prompt: !,"but you have chosen non-Excel format. Therefore, it is recommended that you"
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !,"adjust your screen display size and terminal settings to at least 150 characters"
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued. TASK = "_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: MAIN+39
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RUN+13
Function Call: WRITE
  • Prompt: !,"No data meets the criteria."
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE+19
Function Call: WRITE
  • Prompt: $E(NAME,1,13)
  • Line Location: WRLINE+21
Function Call: WRITE
  • Prompt: ?14,SSN
  • Line Location: WRLINE+22
Function Call: WRITE
  • Prompt: ?25,BILLNO
  • Line Location: WRLINE+24
Function Call: WRITE
  • Prompt: ?37,$J("$"_$FN(CHGAMT,",",2),11)
  • Line Location: WRLINE+25
Function Call: WRITE
  • Prompt: ?49,APPR
  • Line Location: WRLINE+26
Function Call: WRITE
  • Prompt: ?56,RSC
  • Line Location: WRLINE+27
Function Call: WRITE
  • Prompt: ?82,RXNUM
  • Line Location: WRLINE+30
Function Call: WRITE
  • Prompt: ?92,$E(RXNAM,1,14)
  • Line Location: WRLINE+31
Function Call: WRITE
  • Prompt: ?107,$$STRIP^XLFSTR($$FMTE^XLFDT(CANCDT,"8D")," ")
  • Line Location: WRLINE+32
Function Call: WRITE
  • Prompt: ?115,$E(CANCREAS,1,16)
  • Line Location: WRLINE+33
Function Call: WRITE
  • Prompt: ?132,$E(CANCUSER,1,14)
  • Line Location: WRLINE+34
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE2+1
Function Call: WRITE
  • Prompt: $$EXOUT^RCDMCR4A(NAME),U
  • Line Location: WRLINE2+2
Function Call: WRITE
  • Prompt: $$EXOUT^RCDMCR4A(SSN),U
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: BILLNO,U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: "$",$FN(CHGAMT,",",2),U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: APPR,U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: RSC,U
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(SERVDT,"9D")
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RXDT,"9D")
  • Line Location: WRLINE2+10
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: $$FMTE^XLFDT(CANCDT,"9D"),U
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: CANCREAS,U
  • Line Location: WRLINE2+15
Function Call: WRITE
  • Prompt: $$EXOUT^RCDMCR4A(CANCUSER)
  • Line Location: WRLINE2+16
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"SSN",U,"Bill Number",U,"Charge Amount",U,"APPR",U,"RSC",U,"Medical Care Date",U,"RXFillDT",U
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "RX #",U,"RX Name",U,"IBCXLDT",U,"IB Cancellation Reason",U,"Cancelled By"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: @IOF,"First Party Charge IB Cancellation Reconciliation Report -- Run Date: ",RUNDATE," --"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?140,"Page "_RCPAGE
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?6,"Cancellation Dates from ",$$FMTE^XLFDT(CANBEGDT,"9D")," to ",$$FMTE^XLFDT(CANENDDT,"9D")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?42,"Charge",?63,"Medical",?115,"IB Cancellation"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !," Veteran Name",?17,"SSN",?25,"Bill Number",?42,"Amount",?50,"APPR",?56,"RSC",?62,"Care Date",?72,"RXFillDT",?84,"RX #",?95,"RX Name",?107,"IBCXLDT",?120,"Reason",?132,"Cancelled By"
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EXCEL+10
Function Call: WRITE
  • Prompt: !!,"This report may take a while to run. It is recommended that you Queue it."
  • Line Location: EXMSG+1
Function Call: WRITE
  • Prompt: !,"To capture as an Excel format, it is recommended that you queue this"
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !,"report to a spool device with margins of 256 and page length of 99999"
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !,"(e.g. spoolname;256;99999). This should help avoid wrapping problems."
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !,"Another method would be to set up your terminal to capture the detail"
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !,"report data. On some terminals, this can be done by clicking on the"
  • Line Location: EXMSG+7
Function Call: WRITE
  • Prompt: !,"'Tools' menu above, then click on 'Capture Incoming Data' to save to"
  • Line Location: EXMSG+8
Function Call: WRITE
  • Prompt: !,"Desktop. To avoid undesired wrapping of the data saved to the file,"
  • Line Location: EXMSG+9
Function Call: WRITE
  • Prompt: !,"please enter '0;256;99999' at the 'DEVICE:' prompt."
  • Line Location: EXMSG+10
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+25
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+40
Routine Call
  • DIR
  • Line Location:
    • EXCEL+13

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$EXCEL MAIN+13
CHKP WRLINE+17
EXMSG MAIN+16
HDR REPORT+4, CHKP+4
REPORT RUN+12
WRLINE REPORT+28
WRLINE2 REPORT+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MAIN+23~, MAIN+24*
APPR REPORT+15~, REPORT+26*, WRLINE+26, WRLINE2+6
BILLNO REPORT+1~, REPORT+11*, REPORT+12*, REPORT+14, REPORT+17, WRLINE+24, WRLINE2+4
BILLPAYS MAIN+1~, MAIN+10*, MAIN+11, RUN+8
CANBEGDT MAIN+1~, MAIN+8*, RUN+8, HDR+9
CANCDT REPORT+15~, REPORT+23*, WRLINE+32, WRLINE2+14
CANCREAS REPORT+15~, REPORT+24*, WRLINE+33, WRLINE2+15
CANCUSER REPORT+15~, REPORT+25*, WRLINE+34, WRLINE2+16
CANDATE MAIN+1~, MAIN+5*, MAIN+7, MAIN+8
CANENDDT MAIN+1~, MAIN+8*, RUN+8, HDR+9
CHGAMT REPORT+15~, REPORT+20*, WRLINE+25, WRLINE2+5
DIR EXCEL+7~
DIR("?" EXCEL+12*
DIR("A" EXCEL+11*
DIR("B" EXCEL+10*
DIR("T" EXCEL+10*
DIR(0 EXCEL+10*
DIROUT EXCEL+7~, EXCEL+14
DIRUT EXCEL+7~, EXCEL+14
DTIME EXCEL+10
DTOUT EXCEL+7~, EXCEL+14
DUOUT EXCEL+7~, EXCEL+14
EXCEL MAIN+1~, MAIN+13*, MAIN+15, MAIN+16, MAIN+17, RUN+16!, REPORT+28, REPORT+29, HDR+2, EXCEL+7~
, EXCEL+9*, EXCEL+14*, EXCEL+15*, EXCEL+17
FOOTER CHKP~, CHKP+3*, CHKP+4
IBIEN REPORT+1~, REPORT+13*, REPORT+14*, REPORT+17
IO RUN+10
>> IO("Q" MAIN+29
IOF RUN+13, HDR+7
IOM HDR+14
ION MAIN+31
IOSL CHKP+4
IOST MAIN+27
NAME REPORT+1~, REPORT+7*, REPORT+8*, REPORT+10, REPORT+12, REPORT+14, REPORT+17, WRLINE+20, WRLINE+21, WRLINE+23
WRLINE2+2
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
POP MAIN+23~, MAIN+26
RCPAGE RUN+3~, RUN+6*, HDR+6*, HDR+8
RCSCR MAIN+1~, MAIN+27*, RUN+13, RUN+16!, CHKP+4
RSC REPORT+15~, REPORT+27*, WRLINE+27, WRLINE2+7
RUNDATE REPORT+1~, REPORT+3*, HDR+7
RXDT REPORT+15~, REPORT+19*, WRLINE+29, WRLINE2+10
RXNAM REPORT+15~, REPORT+22*, WRLINE+31, WRLINE2+13
RXNUM REPORT+15~, REPORT+21*, WRLINE+30, WRLINE2+12
SERVDT REPORT+15~, REPORT+18*, WRLINE+28, WRLINE2+8
SKIP REPORT+1~, REPORT+6!, HDR+6!
SKIP(1 WRLINE+20, WRLINE+23*
SSN REPORT+1~, REPORT+9*, REPORT+10*, REPORT+12, REPORT+14, REPORT+17, WRLINE+20, WRLINE+22, WRLINE+23, WRLINE2+3
STOPIT MAIN+1~, MAIN+3*, MAIN+29*, MAIN+42, MAIN+44, RUN+4*, RUN+8, RUN+9, REPORT+8, REPORT+10
REPORT+12, REPORT+14, WRLINE+17, CHKP+4
U MAIN+8, REPORT+18, REPORT+19, REPORT+20, REPORT+21, REPORT+22, REPORT+23, REPORT+24, REPORT+25, REPORT+26
REPORT+27, WRLINE2+2, WRLINE2+3, WRLINE2+4, WRLINE2+5, WRLINE2+6, WRLINE2+7, WRLINE2+9, WRLINE2+11, WRLINE2+12
WRLINE2+13, WRLINE2+14, WRLINE2+15, HDR+4, HDR+5
X EXCEL+7~
Y EXCEL+7~, EXCEL+15
ZTDESC MAIN+23~, MAIN+37*
ZTDESK MAIN+23~
ZTIO MAIN+23~, MAIN+31*
>> ZTQUEUED MAIN+42, RUN+2
>> ZTREQ RUN+2*
ZTRTN MAIN+23~, MAIN+30*
ZTSAVE MAIN+23~
ZTSAVE("BILLPAYS" MAIN+35*
ZTSAVE("CANBEGDT" MAIN+33*
ZTSAVE("CANENDDT" MAIN+34*
ZTSAVE("EXCEL" MAIN+36*
ZTSAVE("RCSCR" MAIN+32*
ZTSK MAIN+23~, MAIN+39
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All