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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RCVCR1

Package: Accounts Receivable

Routine: RCVCR1


Information

RCVCR1 ;SLC/LLB/JC - First Party Veterans Charge Report ; SEP 9,2020@16:17

Source Information

Source file <RCVCR1.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
INIT ;
DISPHEAD ; Write report header
ASKCONT(FLAG) ; display "press <Enter> to continue" prompt
PRTCOLHD ;
COLHD ; $T target. Format: Column #^1st row data^2nd row data^Field Width
RUNRPT ;Gather data for Report
GET350 ; Collect data originating from the INTEGRATED BILLING ACTION file (#350)
OUTPRPT ; Loop through ^TMP to write report lines.
WRITEREC(LINE) ; Write one line of report
; display date as DDmmmYY $$STRIP^XLFSTR($$FMTE^XLFDT(3070308,"8D")," ")
GETDTS() ; Get appropriate selection trigger dates by type of service
PAUSE(IBQUIT) ;
CLEAN ; KILL ALL REMAINING VARIABLES BEFORE EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The number of characters per row should be set to 256."
  • Line Location: START+6
Function Call: WRITE
  • Prompt: !,"Please use the following path to modify the display settings:"
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !,"In Reflections. File >>> Settings >>> Terminal Configuration"
  • Line Location: START+8
Function Call: WRITE
  • Prompt: !," >>> Set Up Display Settings >>> Number of characters per row",!
  • Line Location: START+9
Function Call: WRITE
  • Prompt: !,"To capture as a spreadsheet format, at the DEVICE prompt, please accept the"
  • Line Location: START+10
Function Call: WRITE
  • Prompt: !,"default value of 0;256;99999. This should help avoid wrapping problems.",!
  • Line Location: START+11
Function Call: WRITE
  • Prompt: !,"For pagination, please use "";256;"" for the device value instead of the default.",!
  • Line Location: START+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: INIT+2
Function Call: WRITE
  • Prompt: !,"*** Print the First Party Veteran Charge Report ***",!
  • Line Location: INIT+3
Function Call: WRITE
  • Prompt: !,"This report captures detailed 1st party bill information for a specific "
  • Line Location: INIT+4
Function Call: WRITE
  • Prompt: !,"Veteran, within a user specified range of dates of service."
  • Line Location: INIT+5
Function Call: WRITE
  • Prompt: !,"This report output requires screen size of 256 characters wide.",!
  • Line Location: INIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+59
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISPHEAD+2
Function Call: WRITE
  • Prompt: !,"First Party Veteran Charge Report",!
  • Line Location: DISPHEAD+3
Function Call: WRITE
  • Prompt: !,"Run date: ",$$FMTE^XLFDT($$NOW^XLFDT,"MP")
  • Line Location: DISPHEAD+4
Function Call: WRITE
  • Prompt: !,"Service Dates From ",$$FMTE^XLFDT(FRMDTINT,"5D")," To ",$$FMTE^XLFDT(TODTINT,"5D")
  • Line Location: DISPHEAD+5
Function Call: WRITE
  • Prompt: !,"Copayment Type Selected: ",IBSVCNM
  • Line Location: DISPHEAD+6
Function Call: WRITE
  • Prompt: !,"IB Status Selected: ",IBSTATNM
  • Line Location: DISPHEAD+7
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISPHEAD+9
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Press <Enter> to "_$S(FLAG=1:"continue.",1:"exit."),20)
  • Line Location: ASKCONT+2
Function Call: WRITE
  • Prompt: ?LOC,CNAME
  • Line Location: PRTCOLHD+12
Function Call: WRITE
  • Prompt: ?COL,"^"
  • Line Location: PRTCOLHD+15
Function Call: WRITE
  • Prompt: ?223,"^Total Principal"
  • Line Location: PRTCOLHD+16
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTCOLHD+17
Function Call: WRITE
  • Prompt: ?LOC,CNAME
  • Line Location: PRTCOLHD+25
Function Call: WRITE
  • Prompt: ?COL,"^"
  • Line Location: PRTCOLHD+27
Function Call: WRITE
  • Prompt: ?223,"^Paid on Bill Number"
  • Line Location: PRTCOLHD+28
Function Call: WRITE
  • Prompt: !,"NO DATA FOUND"
  • Line Location: OUTPRPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPRPT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OUTPRPT+7
Function Call: WRITE
  • Prompt: !,$E(VETNM,1,26),?26,U,SSN,?36,U,$P(LINE,U,9),?48,U,$P(LINE,U,10),?75,U,$J($P(LINE,U,8),8,2)
  • Line Location: WRITEREC+2
Function Call: WRITE
  • Prompt: ?84,U,$P(LINE,U,7),?89,U,$P(LINE,U,11),?97,U,$P(LINE,U,12),?105,U,$P(LINE,U,13),?118,U,$P(LINE,U,14)
  • Line Location: WRITEREC+3
Function Call: WRITE
  • Prompt: ?135,U,$P(LINE,U,6),?149,U,$P(LINE,U,15),?171,U,$P(LINE,U,16),?179,U,$P(LINE,U,17),?194,U,$P(LINE,U,18)
  • Line Location: WRITEREC+4
Function Call: WRITE
  • Prompt: ?211,U,$P(LINE,U,19),?218,U,$P(LINE,U,20)
  • Line Location: WRITEREC+5
Function Call: WRITE
  • Prompt: ?223,U,$P(LINE,U,21),?231,U,$P(LINE,U,22),?239,U,$P(LINE,U,23),?247,U,$P(LINE,U,24)
  • Line Location: WRITEREC+6
Function Call: WRITE
  • Prompt: ?223,U
  • Line Location: WRITEREC+8
Function Call: WRITE
  • Prompt: $J($P(LINE,U,21),11,2)
  • Line Location: WRITEREC+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call