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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 HOME^%ZIS  ($$FMTE,$$NOW)^XLFDT  ($$CJ,$$STRIP)^XLFSTR  EN^XUTMDEVQ  
VA FileMan 4 ^DIC  D^DIQ  EN^DIQ1  ^DIR  
Accounts Receivable 1 GET399^RCVCR2  
Outpatient Pharmacy 1 RX^PSO52API  
Registration 1 DEM^VADPT  

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 PRCA FP VETERAN CHRG RPT  

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

External References

Name Field # of Occurrence
HOME^%ZIS START+19
^DIC INIT+9
D^DIQ INIT+27
EN^DIQ1 GET350+11, GET350+40, GET350+72
^DIR INIT+21, INIT+29, INIT+41, INIT+54, INIT+67, PAUSE+1
RX^PSO52API GETDTS+18
GET399^RCVCR2 RUNRPT+2
DEM^VADPT INIT+14
$$FMTE^XLFDT DISPHEAD+4, DISPHEAD+5, GET350+56, GET350+57, GET350+58, GET350+61, GET350+77
$$NOW^XLFDT DISPHEAD+4
$$CJ^XLFSTR ASKCONT+2
$$STRIP^XLFSTR GET350+56, GET350+57, GET350+58, GET350+61, GET350+77
EN^XUTMDEVQ START+18

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
Routine Call
  • %ZIS
  • Line Location:
    • START+19
Routine Call
  • DIC
  • Line Location:
    • INIT+9
Routine Call
  • DIR
  • Line Location:
    • INIT+21
    • INIT+29
    • INIT+41
    • INIT+54
    • INIT+67
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IB("C" GET350+9
^PRCA(430 - [#430] GET350+37, GET350+68, GET350+69, GET350+80
^TMP($J GET350+8!, GET350+47, GET350+82*, OUTPRPT+3, OUTPRPT+4, OUTPRPT+5, OUTPRPT+6, OUTPRPT+8, OUTPRPT+12!, GETDTS+14!
, GETDTS+19, GETDTS+21, GETDTS+23, GETDTS+24, GETDTS+26, GETDTS+27, GETDTS+31, GETDTS+32, CLEAN+1!

Label References

Name Line Occurrences
$$GETDTS GET350+13
ASKCONT DISPHEAD+14
CLEAN START+20
GET350 RUNRPT+1
INIT START+4
OUTPRPT DISPHEAD+12
PAUSE OUTPRPT+7
PRTCOLHD DISPHEAD+10, OUTPRPT+7
RUNRPT DISPHEAD+11
WRITEREC OUTPRPT+10, OUTPRPT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS START+2~, START+13*, START+18
%ZIS("B" START+14*
ARAPPR GET350+4~, GET350+38*, GET350+42*, GET350+43*, GET350+64, CLEAN+3!
ARFLDS GET350+4~, GET350+71!
ARFLDS(430 GET350+41, GET350+42, GET350+44, GET350+76
ARIEN GET350+4~, GET350+34*, GET350+37*, GET350+39, GET350+40, GET350+41, GET350+42, GET350+44
ARRSC GET350+4~, GET350+38*, GET350+44*, GET350+45*, GET350+65, CLEAN+3!
ARSTAT GET350+4~, GET350+38*, GET350+41*, GET350+60, CLEAN+3!
BILLNUM GET350+2~, GET350+35*, GET350+36*, GET350+37, GET350+39, GET350+47, GET350+53, GET350+82, OUTPRPT+1~, OUTPRPT+2*
, OUTPRPT+4*, OUTPRPT+5, OUTPRPT+6, OUTPRPT+8
CNAME PRTCOLHD+2~, PRTCOLHD+8*, PRTCOLHD+10, PRTCOLHD+12, PRTCOLHD+20*, PRTCOLHD+22, PRTCOLHD+25
CNT PRTCOLHD+2~, PRTCOLHD+7*, PRTCOLHD+11, PRTCOLHD+14, PRTCOLHD+15, PRTCOLHD+19*, PRTCOLHD+23, PRTCOLHD+26, PRTCOLHD+27, GET350+2~
, GET350+5*, GET350+34*, GET350+47*, GET350+82, OUTPRPT+1~, OUTPRPT+2*, OUTPRPT+6*, OUTPRPT+8
COL PRTCOLHD+2~, PRTCOLHD+3*, PRTCOLHD+10, PRTCOLHD+13*, PRTCOLHD+14*, PRTCOLHD+15, PRTCOLHD+18*, PRTCOLHD+22, PRTCOLHD+24*, PRTCOLHD+26*
, PRTCOLHD+27
DA GET350+3~, GET350+11*, GET350+40*, GET350+72*
DATEINFO GET350+3~, GET350+13*, GET350+14, GET350+18*, GET350+19, GET350+20, GET350+59
DATES GETDTS+6~
DFN START+1~, INIT+12*, GET350+9, GETDTS+18, GETDTS+21, GETDTS+23, GETDTS+24, GETDTS+26, GETDTS+27, GETDTS+31
, GETDTS+32
DGPAGE START+1~, START+3*, PRTCOLHD+6*, PAUSE+1
DIC INIT+8*, INIT+10!, INIT+11!, GET350+3~, GET350+11*, GET350+40*, GET350+72*
DIC("A" INIT+8*
DIC(0 INIT+8*
DIQ GET350+3~, GET350+11*, GET350+40*, GET350+72*
DIQ(0 GET350+11*, GET350+40*, GET350+72*
DIR INIT+18~, INIT+22!, INIT+23!, INIT+30!, INIT+31!, INIT+42!, INIT+43!, INIT+55!, INIT+56!, INIT+69!
, INIT+70!, PAUSE+1!
DIR("A" INIT+20*, INIT+28*, INIT+40*, INIT+53*, INIT+60*
DIR("B" INIT+27*, INIT+39*, INIT+52*, INIT+66*
DIR("L" INIT+35*, INIT+36*, INIT+37*, INIT+38*, INIT+47*, INIT+48*, INIT+49*, INIT+50*, INIT+51*, INIT+62*
, INIT+63*, INIT+64*, INIT+65*
DIR(0 INIT+19*, INIT+26*, INIT+34*, INIT+46*, INIT+61*, PAUSE+1*
DIRUT START+2~, START+3*, INIT+68
DPTDFN CLEAN+2!
DR GET350+3~, GET350+11*, GET350+40*, GET350+72*
DT INIT+26, INIT+27
DTIME ASKCONT+3
END PRTCOLHD+2~, PRTCOLHD+3*, PRTCOLHD+5*
FBILLNUM GET350+3~, GET350+35*, GET350+36, GET350+67, GET350+68, GET350+69
FLAG ASKCONT~, ASKCONT+2
FRMDT START+1~, INIT+24*
FRMDTINT START+1~, INIT+24*, INIT+26, DISPHEAD+5, GET350+21
IB0 GET350+2~
IBBG GETDTS+6~
IBCANCLB GET350+4~, GET350+5*, GET350+29*, GET350+63
IBCANCLD GET350+4~, GET350+28*, GET350+61
IBCANCLR GET350+4~, GET350+5*, GET350+27*, GET350+61, GET350+62, GET350+63
IBCAT GETDTS+6~, GETDTS+8*, GETDTS+10*, GETDTS+37, GETDTS+46
IBDTENT GETDTS+6~, GETDTS+8*, GETDTS+38*, GETDTS+39*, GETDTS+41, GETDTS+42
IBDTFRM GETDTS+7~, GETDTS+8*, GETDTS+40*, GETDTS+41*, GETDTS+42
IBFLDS GET350+10!, CLEAN+2!
IBFLDS(350 GET350+12, GET350+15, GET350+16, GET350+23, GET350+24, GET350+25, GET350+27, GET350+28, GET350+29, GET350+35
, GET350+46, GET350+48, GET350+49, GET350+50, GET350+51, GET350+52, GET350+54, GET350+56, GET350+57, GETDTS+10
, GETDTS+11, GETDTS+38, GETDTS+39, GETDTS+40, GETDTS+48, GETDTS+51
IBIEN GET350+2~, GET350+5*, GET350+9*, GET350+11, GET350+12, GET350+15, GET350+16, GET350+23, GET350+24, GET350+25
, GET350+27, GET350+28, GET350+29, GET350+35, GET350+46, GET350+48, GET350+49, GET350+50, GET350+51, GET350+52
, GET350+54, GET350+56, GET350+57, GETDTS+10, GETDTS+11, GETDTS+38, GETDTS+39, GETDTS+40, GETDTS+48, GETDTS+51
IBQUIT START+1~, START+3*, DISPHEAD+13, OUTPRPT+4, OUTPRPT+5, OUTPRPT+6, OUTPRPT+7, PAUSE~, PAUSE+1*
IBRXFILL CLEAN+2!
IBRXNAM START+2~, CLEAN+2!
IBRXNUM CLEAN+2!
IBSTAT START+2~, INIT+57*, RUNRPT+2, GET350+7
IBSTATNM START+2~, INIT+57*, DISPHEAD+7, GET350+2~, GET350+46*, GET350+51
IBSVCNM START+1~, INIT+44*, DISPHEAD+6
IBSVCTYP START+1~, INIT+44*, GET350+24, GET350+25
IBTYPE GETDTS+6~, GETDTS+11*, GETDTS+13, GETDTS+15
IBTYPINT GETDTS+6~
ICANCLD GET350+5*, CLEAN+2!
IOF INIT+2, DISPHEAD+2, OUTPRPT+7
IOSL OUTPRPT+7
IOST DISPHEAD+8
JUNK OUTPRPT+1~, OUTPRPT+2*
LCNT GET350+3~, GET350+73*, GET350+75*
LENGTH PRTCOLHD+2~, PRTCOLHD+9*, PRTCOLHD+10, PRTCOLHD+13, PRTCOLHD+21*, PRTCOLHD+22, PRTCOLHD+24
LETTER START+2~, INIT+71*, PRTCOLHD+5, PRTCOLHD+16, PRTCOLHD+28, GET350+70, GET350+79, WRITEREC+6, WRITEREC+7
LINE GET350+2~, OUTPRPT+1~, OUTPRPT+2*, OUTPRPT+8*, OUTPRPT+9*, OUTPRPT+10, OUTPRPT+11, WRITEREC~, WRITEREC+2, WRITEREC+3
, WRITEREC+4, WRITEREC+5, WRITEREC+6, WRITEREC+9, WRITEREC+10, WRITEREC+11
LOC PRTCOLHD+2~, PRTCOLHD+10*, PRTCOLHD+11*, PRTCOLHD+12, PRTCOLHD+22*, PRTCOLHD+23*, PRTCOLHD+25
LTR1 CLEAN+2!
LTR2 CLEAN+2!
LTR3 CLEAN+2!
LTR4 CLEAN+2!
LTRFLD GET350+3~, GET350+74*, GET350+76
POP START+2~, START+3*, START+5, INIT+11*, INIT+22*, INIT+30*, INIT+43*, INIT+56*, INIT+68*, INIT+70*
, GET350+2~, OUTPRPT+2*, OUTPRPT+3*, OUTPRPT+4, OUTPRPT+5
RC430IEN GET350+3~, GET350+69*, GET350+72, GET350+76, GET350+80
RC430TPR GET350+4~, GET350+5*, GET350+80*, GET350+81
RCTPRARY OUTPRPT+1~, OUTPRPT+12!
RCTPRARY( WRITEREC+10, WRITEREC+11*
RESPONSE GETDTS+6~, GETDTS+8*, GETDTS+19*, GETDTS+20, GETDTS+33*, GETDTS+34, GETDTS+42*, GETDTS+43, GETDTS+48*, GETDTS+49
, GETDTS+51*, GETDTS+52
RESULT GET350+2~, GET350+23*
RXDATE GET350+15*, GET350+18, GETDTS+7~, GETDTS+23*, GETDTS+24*, GETDTS+29*, GETDTS+30*, GETDTS+33
RXFILDT GETDTS+7~, GETDTS+26*, GETDTS+27*, GETDTS+29
RXFLDS GETDTS+6~, CLEAN+2!
RXIEN GETDTS+7~, GETDTS+15*, GETDTS+18, GETDTS+19, GETDTS+21, GETDTS+23, GETDTS+24, GETDTS+26, GETDTS+27, GETDTS+31
, GETDTS+32
RXNAME GET350+17*, GET350+18, GETDTS+6~, GETDTS+32*, GETDTS+33
RXNODE GETDTS+7~, GETDTS+16*, GETDTS+17*, GETDTS+18
RXNUM GET350+16*, GET350+18, GETDTS+6~, GETDTS+31*, GETDTS+33
RXRFILL GETDTS+6~, GETDTS+8*, GETDTS+13*, GETDTS+17, GETDTS+21, GETDTS+23, GETDTS+26
SCOL PRTCOLHD+2~, PRTCOLHD+3*, PRTCOLHD+5*, PRTCOLHD+7, PRTCOLHD+15, PRTCOLHD+19, PRTCOLHD+27
SSN START+2~, INIT+15*, WRITEREC+2
STAT START+2~, GET350+12*, GET350+21
STATLST GET350+2~, GET350+7*, GET350+21
SVCDT GET350+3~, GET350+20*, GET350+47, GET350+56, GET350+57, GET350+58, GET350+82, OUTPRPT+5*, OUTPRPT+6, OUTPRPT+8
SVCTYP GET350+2~, GET350+23*, GET350+24, GET350+25, GET350+55, GET350+58, GET350+59, GETDTS+6~, GETDTS+11*, GETDTS+12
, GETDTS+36
TLTR GET350+4~, GET350+75*, GET350+76, GET350+77, GET350+78
TODT START+1~, INIT+32*
TODTINT START+1~, INIT+32*, DISPHEAD+5, GET350+21
TRIGDT GET350+3~, GET350+19*, GET350+21, CLEAN+2!
TRM DISPHEAD+8~*, PAUSE+1
U INIT+12, INIT+13, INIT+15, PRTCOLHD+8, PRTCOLHD+9, PRTCOLHD+20, PRTCOLHD+21, GET350+48, GET350+49, GET350+50
, GET350+51, GET350+52, GET350+53, GET350+54, GET350+56, GET350+57, GET350+58, GET350+59, GET350+60, GET350+61
, GET350+62, GET350+63, GET350+64, GET350+65, GET350+77, GET350+78, GET350+81, OUTPRPT+9, OUTPRPT+10, OUTPRPT+11
, WRITEREC+2, WRITEREC+3, WRITEREC+4, WRITEREC+5, WRITEREC+6, WRITEREC+8, WRITEREC+9, WRITEREC+10, WRITEREC+11, GETDTS+19
, GETDTS+21, GETDTS+23, GETDTS+24, GETDTS+26, GETDTS+27, GETDTS+32
VADM CLEAN+2!
VADM(2 INIT+15
VETNM START+1~, INIT+13*, WRITEREC+2
X START+2~, START+17*, START+18, INIT+24, INIT+32
XTEMP GET350+3~, GET350+48*, GET350+49*, GET350+50*, GET350+51*, GET350+52*, GET350+53*, GET350+54*, GET350+56*, GET350+57*
, GET350+58*, GET350+59*, GET350+60*, GET350+61*, GET350+62*, GET350+63*, GET350+64*, GET350+65*, GET350+77*, GET350+78*
, GET350+81*, GET350+82, GET350+83!
Y START+2~, INIT+11, INIT+12, INIT+13, INIT+22, INIT+24, INIT+27*, INIT+30, INIT+32, INIT+43
, INIT+44, INIT+56, INIT+57, INIT+70, INIT+71, PAUSE+1
Y(0 INIT+44, INIT+57
Z ASKCONT+1~, ASKCONT+3*
ZTSAVE START+2~, START+18
ZTSAVE("FRMDTINT" START+15*
ZTSAVE("LETTER" START+16*

Marked Items

Name Field # of Occurrence
$T(COLHD+CNT PRTCOLHD+8, PRTCOLHD+9, PRTCOLHD+20, PRTCOLHD+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All