Routine: RCVCR1

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

Package	Total	Caller Graph
Accounts Receivable	1	PRCA FP VETERAN CHRG RPT

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

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

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

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!

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*

Customize PDF page

Package: Accounts Receivable

Routine: RCVCR1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items