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

Package: Accounts Receivable

Routine: RCDMCR4A


Information

RCDMCR4A ;ALB/YG - 0 - 40 Percent SC Change Reconciliation Report - Input/output; Apr 9, 2019@21:06

Source Information

Source file <RCDMCR4A.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^RCDMCR4A  COLLECT^RCDMCR4B  ($$DATE2,$$EXCEL,$$GETTYPE2,EXMSG,PAUSE,PAUSE2,ULINE)^RCDMCUT2  
Registration 1 RDCHG^DGENRDUA  

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

Package Total Caller Graph
Accounts Receivable 3 RCDMCR4 0-40 PERC SC CHNG RPT  RCDMCR4A  RCDMCR5A  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Initial Interactive Processing
QUERPT ; Initial Taskman Scheduled Queued processing
; Set up parameters
; Run report
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
EXOUT(DATA) ; Format data so Excel won't mess it up.
; Note - there are other ways Excel mangles data, but they are not expected in this report
HDR ;Print Report Header
; See WRLINE for header positions
RDINFO ;

External References

Name Field # of Occurrence
^%ZIS MAIN+43
HOME^%ZIS MAIN+63
^%ZISC RUN+14
^%ZTLOAD MAIN+61
RDCHG^DGENRDUA RDINFO+11
RUN^RCDMCR4A MAIN+66, QUERPT+3
COLLECT^RCDMCR4B RUN+8
$$DATE2^RCDMCUT2 MAIN+7, MAIN+14, MAIN+21, RDINFO+9
$$EXCEL^RCDMCUT2 MAIN+32
$$GETTYPE2^RCDMCUT2 MAIN+28
EXMSG^RCDMCUT2 MAIN+35
PAUSE^RCDMCUT2 CHKP+4
PAUSE2^RCDMCUT2 MAIN+67
ULINE^RCDMCUT2 REPORT+49, HDR+21
$$FMTE^XLFDT REPORT+3, WRLINE+10, WRLINE+13, WRLINE+17, WRLINE+18, WRLINE+19, WRLINE2+5, WRLINE2+9, WRLINE2+12, WRLINE2+13
, WRLINE2+15, HDR+9, HDR+10, HDR+11
$$NOW^XLFDT REPORT+3
$$STRIP^XLFSTR WRLINE+10, WRLINE+13, WRLINE+17, WRLINE+18, WRLINE+19

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Print the 0-40 Percent SC Change Reconciliation Report ***",!
  • Line Location: MAIN+3
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+20
Function Call: WRITE
  • Prompt: !!,"This report may take a while to process. It is recommended that"
  • Line Location: MAIN+37
Function Call: WRITE
  • Prompt: !,"you Queue this report to a device that is 132 characters wide."
  • Line Location: MAIN+38
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+43
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request Queued. TASK = "_ZTSK,1:"REQUEST CANCELLED")
  • Line Location: MAIN+62
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: REPORT+11
Function Call: WRITE
  • Prompt: NAME,U,SSN,U,+SCPER
  • Line Location: REPORT+13
Function Call: WRITE
  • Prompt: $E(NAME,1,25)
  • Line Location: REPORT+14
Function Call: WRITE
  • Prompt: ?27,SSN
  • Line Location: REPORT+15
Function Call: WRITE
  • Prompt: ?41,$J(+SCPER,2)
  • Line Location: REPORT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE+2
Function Call: WRITE
  • Prompt: $E(NAME,1,13)
  • Line Location: WRLINE+5
Function Call: WRITE
  • Prompt: ?14,SSN
  • Line Location: WRLINE+6
Function Call: WRITE
  • Prompt: ?24,$J(+SCPER,2)
  • Line Location: WRLINE+7
Function Call: WRITE
  • Prompt: ?27,$$STRIP^XLFSTR($$FMTE^XLFDT(VLSDT,"8D")," ")
  • Line Location: WRLINE+10
Function Call: WRITE
  • Prompt: ?35,$E(RDNAME,1,13)
  • Line Location: WRLINE+11
Function Call: WRITE
  • Prompt: ?49,$E(RDSEXTRE,1,2)
  • Line Location: WRLINE+12
Function Call: WRITE
  • Prompt: ?52,$S(RDORGDT="NODATE":RDORGDT,1:$$STRIP^XLFSTR($$FMTE^XLFDT(RDORGDT,"8D")," "))
  • Line Location: WRLINE+13
Function Call: WRITE
  • Prompt: ?60,$P(BILLNO,"/",1)
  • Line Location: WRLINE+14
Function Call: WRITE
  • Prompt: ?100,RXNUM
  • Line Location: WRLINE+20
Function Call: WRITE
  • Prompt: ?109,$E(RXNAM,1,12)
  • Line Location: WRLINE+21
Function Call: WRITE
  • Prompt: ?123,$E(STATUS,1,9)
  • Line Location: WRLINE+22
Function Call: WRITE
  • Prompt: !
  • Line Location: WRLINE2+1
Function Call: WRITE
  • Prompt: $$EXOUT(NAME),U
  • Line Location: WRLINE2+2
Function Call: WRITE
  • Prompt: $$EXOUT(SSN),U
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: +SCPER,U
  • Line Location: WRLINE2+4
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(VLSDT,"9D"),U
  • Line Location: WRLINE2+5
Function Call: WRITE
  • Prompt: RDNAME,U
  • Line Location: WRLINE2+6
Function Call: WRITE
  • Prompt: RDSEXTRE,U
  • Line Location: WRLINE2+7
Function Call: WRITE
  • Prompt: "NODATE",U
  • Line Location: WRLINE2+8
Function Call: WRITE
  • Prompt: $S(RDORGDT="NODATE":"NODATE",1:$$FMTE^XLFDT(RDORGDT,"9D")),U
  • Line Location: WRLINE2+9
Function Call: WRITE
  • Prompt: $P(BILLNO,"/",1),U
  • Line Location: WRLINE2+10
Function Call: WRITE
  • Prompt: "$",$FN(CHGAMT,",",2),U
  • Line Location: WRLINE2+11
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(DISCHDT,"9D")
  • Line Location: WRLINE2+12
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(OPTDT,"9D")
  • Line Location: WRLINE2+13
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+14
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(RXDT,"9D")
  • Line Location: WRLINE2+15
Function Call: WRITE
  • Prompt: U
  • Line Location: WRLINE2+16
Function Call: WRITE
  • Prompt: RXNUM,U
  • Line Location: WRLINE2+17
Function Call: WRITE
  • Prompt: RXNAM,U
  • Line Location: WRLINE2+18
Function Call: WRITE
  • Prompt: STATUS
  • Line Location: WRLINE2+19
Function Call: WRITE
  • Prompt: !,"Veteran Name",U,"SSN",U,"Comb SC %"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: U,"VistA Chd Date",U,"RD Name",U,"Ext",U,"RD Orig Date",U,"Bill Number",U,"Charge Amount",U,"Medical Care Date",U,"RXFillDT",U,"RX #",U,"RX Name",U,"Status"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: @IOF,"0-40 Percent SC Change Reconciliation ",$S(RPTTYPE="D":"Detailed",1:"Summary")," Report -- Run Date: ",RUNDATE," --"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: ?122,"Page "_RCPAGE
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !?6,"RD Change Dates from ",$$FMTE^XLFDT(RCBEGDT,"9D")," to ",$$FMTE^XLFDT(RCENDDT,"9D")
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: ?57,"VistA Change Dates from ",$$FMTE^XLFDT(VLSBEGDT,"9D")," to ",$$FMTE^XLFDT(VLSENDDT,"9D")
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,?6,"Episode of Care Dates from ",$$FMTE^XLFDT(EOCBEGDT,"9D")," to ",$$FMTE^XLFDT(EOCENDDT,"9D")
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,?40,"Comb"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: !,?5,"Veteran Name",?30,"SSN",?40,"SC %"
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !," Medical"
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !," Comb VistA RD Orig Charge Care"
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !," Veteran Name SSN SC % Chd Date RD Name Ext Date Bill Number Amount Date RXFillDT RX # RX Name Status"
  • Line Location: HDR+20
Function Call: READ
  • Formatting: !
  • Prompt: "Patient Name or SSN: "
  • Variable: PN
  • Timeout: 99999
  • Line Location: RDINFO+4
Function Call: WRITE
  • Prompt: !,"Patient ",PN
  • Line Location: RDINFO+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RDINFO+9
Function Call: WRITE
  • Prompt: !!,"Patient ",DFN," ",$P(^DPT(DFN,0),U)
  • Line Location: RDINFO+13
Function Call: WRITE
  • Prompt: " Vista Chg DT: "
  • Line Location: RDINFO+14
Function Call: WRITE
  • Prompt: $E(D,4,5),"/",$E(D,6,7),"/",$E(D,1,3)+1700
  • Line Location: RDINFO+14
Function Call: WRITE
  • Prompt: !," COMB SC%: ",$P($G(^DPT(DFN,.3)),U,2)
  • Line Location: RDINFO+15
Function Call: WRITE
  • Prompt: " EFF. DATE: ",$E(D,4,5),"/",$E(D,6,7),"/",$E(D,1,3)+1700
  • Line Location: RDINFO+17
Function Call: WRITE
  • Prompt: !
  • Line Location: RDINFO+18
Function Call: WRITE
  • Prompt: !,OCC,?5,"RD Change: "
  • Line Location: RDINFO+21
Function Call: WRITE
  • Prompt: $E(D,4,5),"/",$E(D,6,7),"/",$E(D,1,3)+1700
  • Line Location: RDINFO+21
Function Call: WRITE
  • Prompt: " RD Name: ",$E($P(ND,U,3),1,30)
  • Line Location: RDINFO+22
Function Call: WRITE
  • Prompt: " RD %: ",$P(ND,U,4)
  • Line Location: RDINFO+23
Function Call: WRITE
  • Prompt: !,?5
  • Line Location: RDINFO+24
Function Call: WRITE
  • Prompt: " RD Extremity: ",$P(ND,U,6)
  • Line Location: RDINFO+25
Function Call: WRITE
  • Prompt: " RD Orig: ",$E(D,4,5),"/",$E(D,6,7),"/",$E(D,1,3)+1700
  • Line Location: RDINFO+27
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+43
Routine Call
  • %ZIS
  • Line Location:
    • MAIN+63

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] RDINFO+13, RDINFO+14, RDINFO+15, RDINFO+16
^DPT("B" RDINFO+7, RDINFO+8
^DPT("SSN" RDINFO+6
^TMP($J RUN+5!, RUN+15!, REPORT+5, REPORT+8, REPORT+10, REPORT+12, REPORT+19, REPORT+21, REPORT+23, REPORT+25
, REPORT+27, REPORT+29, REPORT+31, REPORT+34, RDINFO+2!, RDINFO+12, RDINFO+19

Label References

Name Line Occurrences
$$EXOUT WRLINE2+2, WRLINE2+3
CHKP WRLINE+1
HDR REPORT+4, CHKP+4
REPORT RUN+12
WRLINE REPORT+45
WRLINE2 REPORT+46

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS MAIN+41~, MAIN+42*
BILLNO REPORT+1~, REPORT+28*, REPORT+29*, REPORT+31, REPORT+34, WRLINE+14, WRLINE2+10
CHGAMT REPORT+33~, REPORT+42*, WRLINE+15, WRLINE2+11
CHGDT REPORT+1~, REPORT+22*, REPORT+23*, REPORT+25, REPORT+27, REPORT+29, REPORT+31, REPORT+34
D RDINFO+1~, RDINFO+14*, RDINFO+16*, RDINFO+17, RDINFO+20*, RDINFO+21, RDINFO+26*, RDINFO+27
DATA EXOUT~, EXOUT+2*, EXOUT+3*, EXOUT+4*, EXOUT+5
DFN RDINFO+1~, RDINFO+3*, RDINFO+6*, RDINFO+7*, RDINFO+8*, RDINFO+11, RDINFO+12*, RDINFO+13, RDINFO+14, RDINFO+15
, RDINFO+16, RDINFO+19
DISCHDT REPORT+33~, REPORT+38*, WRLINE+17, WRLINE2+12
DR RDINFO+1~, RDINFO+9*, RDINFO+10, RDINFO+11
EOCBEGDT MAIN+2~, MAIN+24*, RUN+8, HDR+11
EOCDATE MAIN+2~, MAIN+21*, MAIN+23, MAIN+24
EOCENDDT MAIN+2~, MAIN+24*, RUN+8, HDR+11
EXCEL MAIN+2~, MAIN+32*, MAIN+34, MAIN+35, MAIN+36, RUN+16!, REPORT+13, REPORT+45, REPORT+46, REPORT+49
, HDR+2
FOOTER CHKP~, CHKP+3*, CHKP+4
IBCNT REPORT+2~, REPORT+30*, REPORT+31*, REPORT+34
IO RUN+10
IO("Q" MAIN+48
IOF RUN+13, HDR+7
IOM HDR+21
ION MAIN+50
IOSL CHKP+4
IOST MAIN+46
NAME REPORT+1~, REPORT+7*, REPORT+8*, REPORT+10, REPORT+12, REPORT+13, REPORT+14, REPORT+18*, REPORT+19*, REPORT+21
, REPORT+23, REPORT+25, REPORT+27, REPORT+29, REPORT+31, REPORT+34, WRLINE+4, WRLINE+5, WRLINE+9, WRLINE2+2
ND RDINFO+1~, RDINFO+19*, RDINFO+20, RDINFO+22, RDINFO+23, RDINFO+25, RDINFO+26
NODE REPORT+33~, REPORT+34*, REPORT+35, REPORT+36, REPORT+37, REPORT+38, REPORT+39, REPORT+40, REPORT+41, REPORT+42
, REPORT+43, REPORT+44
OCC RDINFO+1~, RDINFO+19*, RDINFO+21
OPTDT REPORT+33~, REPORT+37*, WRLINE+17, WRLINE+18, WRLINE2+12, WRLINE2+13
PN RDINFO+1~, RDINFO+4*, RDINFO+5, RDINFO+6, RDINFO+7, RDINFO+8*
POP MAIN+41~, MAIN+44
RCBEGDT MAIN+2~, MAIN+10*, MAIN+14, RUN+8, HDR+9
RCENDDT MAIN+2~, MAIN+10*, MAIN+14, RUN+8, HDR+9
RCPAGE RUN+3~, RUN+6*, HDR+6*, HDR+8
RCSCR MAIN+2~, MAIN+46*, RUN+13, RUN+16!, CHKP+4
RDDATE MAIN+2~, MAIN+7*, MAIN+9, MAIN+10
RDNAME REPORT+1~, REPORT+24*, REPORT+25*, REPORT+27, REPORT+29, REPORT+31, REPORT+34, WRLINE+11, WRLINE2+6
RDORGDT REPORT+33~, REPORT+35*, WRLINE+13, WRLINE+15, WRLINE2+8, WRLINE2+9
RDSEXTRE REPORT+1~, REPORT+26*, REPORT+27*, REPORT+29, REPORT+31, REPORT+34, WRLINE+12, WRLINE2+7
RPTTYPE MAIN+2~, MAIN+28*, MAIN+29, RUN+8, REPORT+6, REPORT+17, HDR+4, HDR+7, HDR+14, HDR+17
RUNDATE REPORT+1~, REPORT+3*, HDR+7
RXDT REPORT+33~, REPORT+36*, WRLINE+19, WRLINE2+15
RXNAM REPORT+33~, REPORT+44*, WRLINE+21, WRLINE2+18
RXNUM REPORT+33~, REPORT+43*, WRLINE+20, WRLINE2+17
SCPER REPORT+2~, REPORT+12*, REPORT+13, REPORT+16, REPORT+33~, REPORT+40*, WRLINE+4, WRLINE+7, WRLINE+9, WRLINE2+4
SKIP REPORT+2~, CHKP+4!
SKIP(1 WRLINE+4, WRLINE+9*
SKIP(2 WRLINE+8!, WRLINE+10*
SKIP(3 WRLINE+8!, WRLINE+11*
SSN REPORT+1~, REPORT+9*, REPORT+10*, REPORT+12, REPORT+13, REPORT+15, REPORT+20*, REPORT+21*, REPORT+23, REPORT+25
, REPORT+27, REPORT+29, REPORT+31, REPORT+34, WRLINE+4, WRLINE+6, WRLINE+9, WRLINE2+3
STATUS REPORT+1~, REPORT+33~, REPORT+39*, WRLINE+22, WRLINE2+19
STOPIT MAIN+2~, MAIN+5*, MAIN+27*, MAIN+28, MAIN+29, MAIN+44*, MAIN+65, MAIN+67, RUN+4*, RUN+8
, RUN+9, REPORT+8, REPORT+10, REPORT+19, REPORT+21, REPORT+23, REPORT+25, REPORT+27, REPORT+29, REPORT+31
, REPORT+48, WRLINE+1, CHKP+4
U MAIN+1*, MAIN+10, MAIN+17, MAIN+24, REPORT+13, REPORT+35, REPORT+36, REPORT+37, REPORT+38, REPORT+39
, REPORT+40, REPORT+41, REPORT+42, REPORT+43, REPORT+44, WRLINE2+2, WRLINE2+3, WRLINE2+4, WRLINE2+5, WRLINE2+6
, WRLINE2+7, WRLINE2+8, WRLINE2+9, WRLINE2+10, WRLINE2+11, WRLINE2+14, WRLINE2+16, WRLINE2+17, WRLINE2+18, HDR+3
, HDR+5, RDINFO+11, RDINFO+13, RDINFO+14, RDINFO+15, RDINFO+16, RDINFO+20, RDINFO+22, RDINFO+23, RDINFO+25
, RDINFO+26
VLSBEGDT MAIN+2~, MAIN+17*, RUN+8, HDR+10
VLSDATE MAIN+2~, MAIN+14*, MAIN+16, MAIN+17
VLSDT REPORT+33~, REPORT+41*, WRLINE+10, WRLINE2+5
VLSENDDT MAIN+2~, MAIN+17*, RUN+8, HDR+10
ZTDESC MAIN+41~, MAIN+60*
ZTIO MAIN+41~, MAIN+50*
>> ZTQUEUED MAIN+65, RUN+2
>> ZTREQ RUN+2*
ZTRTN MAIN+41~, MAIN+49*
ZTSAVE MAIN+41~
ZTSAVE("EOCBEGDT" MAIN+53*
ZTSAVE("EOCENDDT" MAIN+54*
ZTSAVE("EXCEL" MAIN+59*
ZTSAVE("RCBEGDT" MAIN+51*
ZTSAVE("RCENDDT" MAIN+52*
ZTSAVE("RCSCR" MAIN+58*
ZTSAVE("RPTTYPE" MAIN+57*
ZTSAVE("VLSBEGDT" MAIN+55*
ZTSAVE("VLSENDDT" MAIN+56*
ZTSK MAIN+41~, MAIN+62
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All