Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls