Routine: RCHRFS

Package	Total	Call Graph
Kernel	6	HOME^%ZIS ^%ZISC $$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$CJ^XLFSTR EN^XUTMDEVQ
VA FileMan	4	^DIC WAIT^DICD RECALL^DILFD ^DIR
Accounts Receivable	2	(OUTPRPT,RUNRPT)^RCHRFS1 ($$HASHRFS,$$HRFSDATE,$$HRFSINFO)^RCHRFSUT
Registration	2	$$GETFLAG^DGPFAPIU $$SITE^VASITE

Package	Total	Caller Graph
Accounts Receivable	2	PRCA HRFS RECONCILIATION RPT RCHRFS1

Name	Comments	DBIA/ICR reference
MAIN	; Initial Interactive Processing
PRMPT	;
START	; compile and print report
REPORT(RCSORT)	;
HEADER	;Display header for the report
ASKCONT(FLAG)	; display "press <Enter> to continue" prompt
EXIT	;
YESNO(PROMPT,DFLANSW)	;
ASKDATE(RCPROMPT,RCMINDT,RCMAXDT,RCDFLANS,RCHELP)	;
ANSWER(RCDIRA,RCDIRB,RCDIR0,RCDIRH)	; ; Input ; RCDIR0 - DIR(0) string ; RCDIRA - DIR("A") string ; RCDIRB - DIR("B") string ; RCDIRH - DIR("?") string ; Output ; Function Value - Internal value returned from ^DIR or -1 if user ; up-arrows, double up-arrows or the read times out.
HELP(RCSEL,RCFRDT)	; ; Input: RCSEL - prompt var for help text word selection ; Output: none
HELP1	;
HELP2	;
HELP3	;
SELCOTYP(DFLT)	;
SELIBST(DFLT)	;
PROMPTPT(RCSORT)	;
SELPAT(RCSORT)	;prompt for veteran's name
COLHEAD	;report column header

Name	Field # of Occurrence
HOME^%ZIS	PRMPT+6, EXIT+5
^%ZISC	EXIT+5
$$S^%ZTLOAD	HEADER+2
$$GETFLAG^DGPFAPIU	REPORT+6
^DIC	SELPAT+7
WAIT^DICD	START+1
RECALL^DILFD	MAIN+20
^DIR	YESNO+7, ANSWER+14, SELCOTYP+16, SELIBST+18
OUTPRPT^RCHRFS1	REPORT+25
RUNRPT^RCHRFS1	REPORT+11, REPORT+13
$$HASHRFS^RCHRFSUT	MAIN+36
$$HRFSDATE^RCHRFSUT	HEADER+5
$$HRFSINFO^RCHRFSUT	PROMPTPT+8
$$SITE^VASITE	START+2
$$FMTE^XLFDT	HEADER+7, HEADER+8, HEADER+9, ASKDATE+5
$$NOW^XLFDT	HEADER+8
$$CJ^XLFSTR	ASKCONT+2
EN^XUTMDEVQ	PRMPT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: MAIN+3
Function Call: WRITE	Prompt: "* CPAC High Risk Veteran Reconciliation Report * " Line Location: MAIN+6
Function Call: WRITE	Prompt: !!,"This report captures detailed 1st party bill information for Veterans" Line Location: MAIN+7
Function Call: WRITE	Prompt: !,"with a High Risk for Suicide flag (HRfS) within a user specified range of" Line Location: MAIN+8
Function Call: WRITE	Prompt: !,"dates of service. This report can be run for a single Veteran or all Veterans." Line Location: MAIN+9
Function Call: WRITE	Prompt: !,"This report output requires screen size of 256 characters wide." Line Location: MAIN+10
Function Call: WRITE	Prompt: ! Line Location: MAIN+11
Function Call: WRITE	Prompt: !!,"Veteran's HRfS flag was not active during the selected date range.",!,"Please enter a new date range.",! Line Location: MAIN+37
Function Call: WRITE	Prompt: !!,"The number of characters per row should be set to 256.",! Line Location: MAIN+51
Function Call: WRITE	Prompt: !,"Please use the following path to modify the display settings:" Line Location: MAIN+52
Function Call: WRITE	Prompt: !,"In Reflections. File >>> Terminal Configuration >>> " Line Location: MAIN+53
Function Call: WRITE	Prompt: !,"Setup Display Setting >>> Number of characters per row.",! Line Location: MAIN+54
Function Call: WRITE	Prompt: !,"To capture as a spreadsheet format, it is recommended that you" Line Location: MAIN+55
Function Call: WRITE	Prompt: !,"enter the following at the DEVICE prompt: 0;256;99999." Line Location: MAIN+56
Function Call: WRITE	Prompt: !,"This should help avoid wrapping problems.",! Line Location: MAIN+57
Function Call: WRITE	Prompt: !,"For pagination, please use "";256;"" for the device value instead of the default.",! Line Location: MAIN+58
Function Call: WRITE	Prompt: !!!," >>> No records were found in the selected date range.",!! Line Location: REPORT+18
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+3
Function Call: WRITE	Prompt: !,$G(ZTDESC) Line Location: HEADER+6
Function Call: WRITE	Prompt: !,"Legislation Date: "_$S(RCHRFSDT="":"TBD",1:$$FMTE^XLFDT(RCHRFSDT,"5Z")) Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"Run date: ",$$FMTE^XLFDT($$NOW^XLFDT,"MP") Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"Service Dates From ",?12,$$FMTE^XLFDT(RCSORT("RCBEG"),"5Z")_" To "_$$FMTE^XLFDT(RCSORT("RCEND"),"5Z") Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"Copay Type Selected: "_$P(RCSORT("COPAYTYPE"),U,2) Line Location: HEADER+10
Function Call: WRITE	Prompt: !,"IB Status Selected: "_$P(RCSORT("IBSTATUS"),U,2) Line Location: HEADER+11
Function Call: WRITE	Prompt: ! Line Location: HEADER+12
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Press <Enter> to "_$S(FLAG=1:"continue.",1:"exit."),20) Line Location: ASKCONT+2
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+3
Function Call: WRITE	Prompt: !," Enter the FROM date" Line Location: HELP+5
Function Call: WRITE	Prompt: !," Enter the TO date" Line Location: HELP+8
Function Call: WRITE	Prompt: !," Invalid Date" Line Location: HELP1+1
Function Call: WRITE	Prompt: !," Date cannot be a future date." Line Location: HELP2+1
Function Call: WRITE	Prompt: !," Date cannot be earlier than the From date." Line Location: HELP3+1
Function Call: WRITE	Prompt: !!,"Which type of copayment do you wish to see?" Line Location: SELCOTYP+7
Function Call: WRITE	Prompt: !!,"Which IB status for the selected copayment(s) do you wish to see?" Line Location: SELIBST+7
Function Call: WRITE	Prompt: !!," The Veteran does not have a HRfS flag on file." Line Location: PROMPTPT+10
Function Call: WRITE	Prompt: !," Please enter another Veteran.",!! Line Location: PROMPTPT+11
Function Call: WRITE	Prompt: ! Line Location: COLHEAD+1
Function Call: WRITE	Prompt: "Veteran Name" Line Location: COLHEAD+2
Function Call: WRITE	Prompt: ?26,"^SSN" Line Location: COLHEAD+3
Function Call: WRITE	Prompt: ?36,"^HRfS Active Date" Line Location: COLHEAD+4
Function Call: WRITE	Prompt: ?53,"^HRfS Inactive Date" Line Location: COLHEAD+5
Function Call: WRITE	Prompt: ?72,"^HRfS Active" Line Location: COLHEAD+6
Function Call: WRITE	Prompt: ?84,"^Bill Number" Line Location: COLHEAD+7
Function Call: WRITE	Prompt: ?96,"^Category" Line Location: COLHEAD+8
Function Call: WRITE	Prompt: ?123,"^Medical DOS" Line Location: COLHEAD+9
Function Call: WRITE	Prompt: ?135,"^Rx Fill Date" Line Location: COLHEAD+10
Function Call: WRITE	Prompt: ?148,"^Rx Release Date" Line Location: COLHEAD+11
Function Call: WRITE	Prompt: ?164,"^Rx Number" Line Location: COLHEAD+12
Function Call: WRITE	Prompt: ?177,"^Rx Name" Line Location: COLHEAD+13
Function Call: WRITE	Prompt: ?194,"^Charge" Line Location: COLHEAD+14
Function Call: WRITE	Prompt: ?206,"^Unit" Line Location: COLHEAD+15
Function Call: WRITE	Prompt: ?211,"^IB Status" Line Location: COLHEAD+16
Function Call: WRITE	Prompt: ?225,"^AR Status" Line Location: COLHEAD+17
Function Call: WRITE	Prompt: ! Line Location: COLHEAD+18
Function Call: WRITE	Prompt: "" Line Location: COLHEAD+19
Function Call: WRITE	Prompt: ?26,"^" Line Location: COLHEAD+20
Function Call: WRITE	Prompt: ?36,"^" Line Location: COLHEAD+21
Function Call: WRITE	Prompt: ?53,"^" Line Location: COLHEAD+22
Function Call: WRITE	Prompt: ?72,"^On DOS" Line Location: COLHEAD+23
Function Call: WRITE	Prompt: ?84,"^" Line Location: COLHEAD+24
Function Call: WRITE	Prompt: ?96,"^" Line Location: COLHEAD+25
Function Call: WRITE	Prompt: ?123,"^" Line Location: COLHEAD+26
Function Call: WRITE	Prompt: ?135,"^" Line Location: COLHEAD+27
Function Call: WRITE	Prompt: ?148,"^" Line Location: COLHEAD+28
Function Call: WRITE	Prompt: ?164,"^" Line Location: COLHEAD+29
Function Call: WRITE	Prompt: ?177,"^" Line Location: COLHEAD+30
Function Call: WRITE	Prompt: ?194,"^Amount" Line Location: COLHEAD+31
Function Call: WRITE	Prompt: ?206,"^Day" Line Location: COLHEAD+32
Function Call: WRITE	Prompt: ?211,"^" Line Location: COLHEAD+33
Function Call: WRITE	Prompt: ?225,"^" Line Location: COLHEAD+34
Routine Call	%ZIS Line Location: PRMPT+6 EXIT+5
Routine Call	DIC Line Location: SELPAT+7
Routine Call	DIR Line Location: YESNO+7 ANSWER+14 SELCOTYP+16 SELIBST+18

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

Name	Line Occurrences (* Changed, ! Killed)
^DGPF(26.13 - [#26.13]	REPORT+8, REPORT+10
^TMP($J	REPORT+16

Name	Line Occurrences
$$ANSWER	ASKDATE+7
$$ASKDATE	MAIN+26, MAIN+30
$$PROMPTPT	MAIN+20
$$SELCOTYP	MAIN+43
$$SELIBST	MAIN+47
$$SELPAT	PROMPTPT+6
$$YESNO	MAIN+14
ASKCONT	START+5
COLHEAD	REPORT+17, REPORT+24
EXIT	START+6
HEADER	REPORT+17, REPORT+24
HELP1	HELP+10
HELP2	HELP+11
HELP3	HELP+12
REPORT	START+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	MAIN+4~, PRMPT+1*, PRMPT+5, EXIT+4!
%ZIS("B"	PRMPT+2*
DATA	REPORT+1~
DDASH	REPORT+1~, REPORT+2*
DFLANSW	YESNO~, YESNO+5
DFLT	SELCOTYP~, SELCOTYP+10, SELIBST~, SELIBST+10
DIC	SELPAT+2~, SELPAT+3*, SELPAT+7!
DIC("?PARAM"	SELPAT+5*
DIC("A"	SELPAT+4*
DIC(0	SELPAT+3*
DIR	YESNO+1~, ANSWER+9~, ANSWER+14!, SELCOTYP+6~, SELIBST+6~
DIR("?"	YESNO+6, ANSWER+13
DIR("??"	ANSWER+13*
DIR("A"	YESNO+4, ANSWER+11, SELCOTYP+9, SELIBST+9
DIR("B"	YESNO+5, ANSWER+12, SELCOTYP+10, SELIBST+10
DIR("L"	SELCOTYP+11, SELCOTYP+12, SELCOTYP+13, SELCOTYP+14, SELCOTYP+15, SELIBST+11, SELIBST+12, SELIBST+13, SELIBST+14, SELIBST+15 , SELIBST+16, SELIBST+17
DIR(0	YESNO+3, ANSWER+10, SELCOTYP+8, SELIBST+8
DIROUT	YESNO+2~, ANSWER+9~, ANSWER+15, ANSWER+17
DIRUT	YESNO+2~, ANSWER+9~, SELCOTYP+6~, SELIBST+6~
DT	MAIN+26, MAIN+30, HELP+11
DTIME	ASKCONT+3
DTOUT	YESNO+2~, ANSWER+9~, ANSWER+15, ANSWER+17, SELCOTYP+6~, SELCOTYP+17, SELIBST+6~, SELIBST+19, SELPAT+2~
DUOUT	YESNO+2~, YESNO+8, ANSWER+9~, ANSWER+15, ANSWER+17, SELCOTYP+6~, SELCOTYP+17, SELIBST+6~, SELIBST+19, SELPAT+2~
DUZ	MAIN+20
FLAG	ASKCONT~, ASKCONT+2
HERE	START+2~*
>> IBQUIT	START+5, REPORT+22*
IOF	MAIN+3, HEADER+3, EXIT+3
IOST	START+1, START+3
POP	REPORT+16*, EXIT+4!
PROMPT	YESNO~, YESNO+4
RCASK	ASKDATE+1~, ASKDATE+7*, ASKDATE+8
RCDFLANS	ASKDATE~, ASKDATE+4, ASKDATE+5, ASKDATE+7
RCDFN	REPORT+1~, REPORT+7, REPORT+8, REPORT+10, REPORT+11
RCDIR0	ANSWER~, ANSWER+10
RCDIRA	ANSWER~, ANSWER+11
RCDIRB	ANSWER~, ANSWER+12
RCDIRH	ANSWER~, ANSWER+13
RCDIRO	ASKDATE+1~, ASKDATE+6*, ASKDATE+7
RCEXLOOP	MAIN+1~, MAIN+22, MAIN+23, MAIN+27, MAIN+31, MAIN+34, MAIN+38*
RCEXPRG	MAIN+1~, MAIN+22, MAIN+27, MAIN+31*, MAIN+41
RCFL	REPORT+1~, REPORT+9, REPORT+10
RCFRDT	HELP~, HELP+12
RCHELP	ASKDATE~, ASKDATE+7
RCHRFSDT	HEADER+1~, HEADER+5*, HEADER+7
RCHRFSFL	PROMPTPT+1~, PROMPTPT+8*, PROMPTPT+9
RCLOOP	PROMPTPT+1~, PROMPTPT+2, PROMPTPT+4, PROMPTPT+7, PROMPTPT+12*, PROMPTPT+13
RCMAXDT	ASKDATE~, ASKDATE+3*, ASKDATE+6
RCMINDT	ASKDATE~, ASKDATE+2*, ASKDATE+5, ASKDATE+6
RCPAGE	REPORT+1~, REPORT+3, HEADER+3, HEADER+4
RCPATMOD	MAIN+1~, MAIN+14*, MAIN+16, MAIN+18, MAIN+20
RCPROMPT	ASKDATE~, ASKDATE+7
RCPTNM	PROMPTPT+1~, PROMPTPT+6*
RCREF	REPORT+1~, REPORT+6*, REPORT+10
RCSEL	HELP~, HELP+4, HELP+7
RCSORT	MAIN+2~, MAIN+13, MAIN+18, MAIN+20, MAIN+34, MAIN+36, START+4, REPORT~, REPORT+5, REPORT+13 , PROMPTPT~, PROMPTPT+6, PROMPTPT+7, PROMPTPT+8, SELPAT~, SELPAT+9, SELPAT+11, SELPAT+12
RCSORT("COPAYTYPE"	MAIN+45*, REPORT+11, REPORT+13, HEADER+10
RCSORT("IBSTATUS"	MAIN+49*, REPORT+11, REPORT+13, HEADER+11
RCSORT("RCBEG"	MAIN+28*, MAIN+30, MAIN+36, REPORT+11, REPORT+13, HEADER+9
RCSORT("RCEND"	MAIN+32*, MAIN+36, REPORT+11, REPORT+13, HEADER+9
RCSORT(0	SELPAT+13*
RCZ	MAIN+24~, MAIN+26, MAIN+27, MAIN+28, MAIN+30, MAIN+31, MAIN+32
RCZ2	MAIN+24~, MAIN+36*, MAIN+37
RCZZ	MAIN+1~, MAIN+43, MAIN+44, MAIN+45, MAIN+47, MAIN+48, MAIN+49
SORTENCBY	REPORT+1~, REPORT+3*
TRM	START+3~, REPORT+21, HEADER+3, EXIT+3
U	HEADER+10, HEADER+11, ANSWER+16, ANSWER+18, SELCOTYP+19, SELIBST+21
X	PRMPT+4*, PRMPT+5, ANSWER+9~, ANSWER+16, ANSWER+18, HELP+3, SELCOTYP+6~, SELIBST+6~, SELPAT+2~
Y	YESNO+8, ANSWER+9~, ANSWER+16, ANSWER+18, HELP+6!, HELP+9!, HELP+10!, HELP+11!, HELP+12!, SELCOTYP+6~ , SELCOTYP+17, SELCOTYP+18, SELCOTYP+19, SELIBST+6~, SELIBST+19, SELIBST+20, SELIBST+21, SELPAT+2~, SELPAT+9, SELPAT+12
Y(0	SELCOTYP+19, SELIBST+21, SELPAT+11, SELPAT+13
Z	ASKCONT+1~, ASKCONT+3, ANSWER+9~, ANSWER+15, ANSWER+16*
ZTDESC	MAIN+4~, HEADER+6
ZTQUEUED	MAIN+4~, HEADER+2, EXIT+1, EXIT+2
ZTREQ	MAIN+4~, EXIT+1*
ZTSAVE	MAIN+4~, PRMPT+5
ZTSAVE("RCSORT("	PRMPT+3*
ZTSTOP	MAIN+4~, HEADER+2*

Customize PDF page

Package: Accounts Receivable

Routine: RCHRFS

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: