Routine: BAR50P07

Information

BAR50P07 ; IHS/SD/LSL - IMPORT CLAIM REPORTS ;

Source Information

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VALI,ENP,ENPM)^XBDIQ1 $$DIR^XBDIR VIEWR^XBLM
IHS Accounts Receivable	2	EOP^BARUTL $$EN^BARVDF
VA Fileman	2	YX^%DTC ^DIR
Registration	1	(CLEAR,FULL)^VALM1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR50P00

Entry Points

Name	Comments	DBIA/ICR reference
INDEX	; EP
FINISH	; EP
END	;
DEVE
HEADER	; EP
BARPG	;EP ; PAGE CONTROLLER ; this utility uses variables BARPG("HDR"),BARPG("DT"),BARPG("LINE"),BARPG("PG") ; kill variables by D EBARPG
TOTADJ	;EP ; for summary gather adj type totals
BARHDR	; EP ; write page header
Q	;
PRT	; EP
ENDJOB	;
EN	; EP
EXIT	; EP
BARHD	; EP ; Write column header / message
CLAIM	;EP ; WORK THE CLAIM
PRINT	; EP ; print Claim info
ARINFO	; EP ; PRINT A/R INFO
EBARPG	;
LOOP	;EP CLAIMS

External References

Name	Field # of Occurrence
YX^%DTC	BARHDR+9
EOP^BARUTL	BARPG+8
$$EN^BARVDF	PRT+12
^DIR	EN+12, EN+31, DEVE+10
CLEAR^VALM1	PRT+13
FULL^VALM1	PRT+11
^XBDBQUE	DEVE+6
$$VALI^XBDIQ1	ARINFO+2
ENP^XBDIQ1	EN+2, CLAIM+3, ARINFO+4
ENPM^XBDIQ1	TOTADJ+3, PRINT+10
$$DIR^XBDIR	PRT+3
VIEWR^XBLM	PRT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,@IOF,!,"Reports for : ",?20,IMP(.01) Line Location: EN+3
Function Call: WRITE	Prompt: !,?20,IMP(.05) Line Location: EN+4
Function Call: WRITE	Prompt: !!,"Enter the list of Claim Status(s) you desire to print," Line Location: EN+5
Function Call: WRITE	Prompt: !,"and in the sequence to be printed out.",! Line Location: EN+6
Function Call: WRITE	Prompt: !,"C - Claim Unmatched",?25,"R - Reason Unmatched",?50,"N - Not to Post" Line Location: EN+7
Function Call: WRITE	Prompt: !,"M - Matched",?25,"P - Posted",?50,"X - Claim & Reason Unmatched" Line Location: EN+8
Function Call: WRITE	Prompt: !,"A - All Categories",!,?5,"Example: CRXN",! Line Location: EN+9
Function Call: WRITE	Prompt: !!,"NONE SELECTED - EXITING",! Line Location: EN+14
Function Call: WRITE	Prompt: !!,">>>BAD ENTRY<<<>>> ",Y Line Location: EN+19
Function Call: WRITE	Prompt: ! Line Location: EN+27
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: PRT+12
Function Call: WRITE	Prompt: !!,?3,"Grand Totals",?50,$J(CNT,6,0),?65,"$ ",$J(TOT,9,2)," <P>" Line Location: FINISH+1
Function Call: WRITE	Prompt: !!,?10,"ADJUSTMENT totals: " Line Location: FINISH+3
Function Call: WRITE	Prompt: !,?15,ADJ,?65,"$ ",$J(ADJTOT(ADJ),9,2) Line Location: FINISH+6
Function Call: WRITE	Prompt: !,?67,"==========" Line Location: FINISH+8
Function Call: WRITE	Prompt: !,?65,"$ ",$J(TOT,9,2),! Line Location: FINISH+9
Function Call: WRITE	Prompt: !,"E-Claim",?20,"Pat",?50,"DOSB",?65,"<P>ay" Line Location: HEADER+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+4
Function Call: WRITE	Prompt: !!,?3,BARZ(IND) Line Location: INDEX+1
Function Call: WRITE	Prompt: !,?3,BARZ(IND),?35,"TOTALS",?50,$J(INDCNT(IND),6,0),?65,"$ ",$J(INDTOT(IND),9,2)," <P>" Line Location: INDEX+6
Function Call: WRITE	Prompt: !,CLM(.01),?20,$E(CLM(.06),1,25),?50,$E(CLM(.08),1,12),?65,"$ ",$J(CLM(.04),9,2)," <P>" Line Location: PRINT+5
Function Call: WRITE	Prompt: !,?20,CLM(.07),?50,CLM(.09),?63,?65,"$ ",$J(CLM(.05),9,2)," <B>" Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?9,"$",$J(ADJ(ADJ,.02),8,2),?20,ADJ(ADJ,.03) Line Location: PRINT+12
Function Call: WRITE	Prompt: !,?20,ADJ(ADJ,.04),?50,ADJ(ADJ,.05) Line Location: PRINT+14
Function Call: WRITE	Prompt: !,?15,"AR",?20,$E(CLM(1.03),1,25),?50,$E(CLM(1.05),1,12),?65,"$ ",$J(CLM(1.07),9,2)," <O>" Line Location: ARINFO+5
Function Call: WRITE	Prompt: !,?20,CLM(1.04),?50,$E(CLM(1.06),1,12),?65,"$ ",$J(CLM(1.02),9,2)," <B>" Line Location: ARINFO+6
Function Call: WRITE	Prompt: ! Line Location: BARHDR+3
Function Call: WRITE	Prompt: ?(IOM-40-$L(BARPG("HDR"))/2),BARPG("HDR") Line Location: BARHDR+12
Function Call: WRITE	Prompt: ?(IOM-40),BARPG("DT") Line Location: BARHDR+13
Function Call: WRITE	Prompt: ?(IOM-10),"PAGE: ",BARPG("PG") Line Location: BARHDR+14
Function Call: WRITE	Prompt: !,BARPG("LINE") Line Location: BARHDR+15
Function Call: WRITE	Prompt: !,"E-Claim",?20,"Pat",?50,"DOSB",?65,"$ <P>ay" Line Location: BARHD+3
Routine Call	DIR Line Location: EN+12 EN+31 DEVE+10

Name	Line Occurrences (* Changed, ! Killed)
^BAREDI("I"	INDEX+4

Name	Line Occurrences
ARINFO	PRINT+15
BARHDR	LOOP+2
BARPG	PRINT+3, PRINT+9
CLAIM	INDEX+4
EN	EN+19, DEVE+12
EXIT	LOOP+6, LOOP+8
FINISH	LOOP+7
INDEX	LOOP+5
PRINT	CLAIM+5
TOTADJ	CLAIM+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	BARHDR+8*
ADJ	FINISH+4, FINISH+5, FINISH+6, FINISH+7, EXIT+1!, CLAIM+2!, TOTADJ+2!, PRINT+8!, PRINT+11*, PRINT+12 , PRINT+14
ADJ(	TOTADJ+6, TOTADJ+7, TOTADJ+8, PRINT+11, PRINT+12, PRINT+14
ADJTOT	LOOP+4!
ADJTOT(	FINISH+5, FINISH+6, FINISH+7, TOTADJ+10*
>> BARINDX	EN+20*, LOOP+5
BARIOSL	PRT+8*, DEVE+1, DEVE+2!
>> BARPG("DT"	BARHDR+7, BARHDR+10*, BARHDR+13, EBARPG+1!
>> BARPG("HDR"	LOOP+1*, BARHDR+4, BARHDR+12, EBARPG+1!
>> BARPG("LINE"	BARHDR+5*, BARHDR+15, EBARPG+1!
>> BARPG("PG"	BARPG+6, BARPG+7, BARHDR+6*, BARHDR+14, EBARPG+1!
>> BARQUIT	LOOP+5, LOOP+6, INDEX+2, INDEX+4, INDEX+5, PRINT+4, PRINT+9, BARPG+9, BARHD+8*
>> BARTYP	EN+34*, FINISH+2, HEADER+1, HEADER+3, INDEX+1, CLAIM+6, CLAIM+7, PRINT+2, PRINT+6, PRINT+13 , BARHD+2, BARHD+4
>> BARZ(	INDEX+1, INDEX+6
>> BARZ("C"	EN+21*
>> BARZ("M"	EN+23*
>> BARZ("N"	EN+24*
>> BARZ("P"	EN+22*
>> BARZ("R"	EN+26*
>> BARZ("X"	EN+25*
CLM	CLAIM+2!
CLM(	CLAIM+4, PRINT+5, PRINT+7, ARINFO+5, ARINFO+6
>> CLMDA	INDEX+3, INDEX+4
CNT	LOOP+3, FINISH+1, EXIT+1!, INDEX+8
DA	PRT+4!
>> DFN	ARINFO+2*, ARINFO+3
>> DFOUT	BARPG+5
DIR	EN+10!, EN+13!, EN+28!, EN+32!, DEVE+7!, DEVE+11!
DIR("A"	EN+30, DEVE+9
DIR(0	EN+11, EN+29, DEVE+8*
>> DIROUT	BARPG+9, Q+1, BARHD+8
>> DIRUT	PRT+5
>> DOUT	BARPG+5
>> DROUT	BARPG+9, Q+1, BARHD+8
>> DTOUT	BARPG+9, Q+1, BARHD+8
>> DUOUT	BARPG+9, Q+1, BARHD+8
DUZ(2	INDEX+4
>> I	EN+19, TOTADJ+5, TOTADJ+6*, TOTADJ+7, TOTADJ+8
IMP	EN+1!
IMP(	EN+3, EN+4, LOOP+1
>> IMPDA	EN+2, INDEX+4
IND	LOOP+5*, EXIT+1!, INDEX+1, INDEX+2, INDEX+4, INDEX+6, INDEX+7, INDEX+8, CLAIM+4, PRINT+15
INDCNT	LOOP+4!, EXIT+1!
INDCNT(	INDEX+2, INDEX+6, INDEX+8, CLAIM+4
INDTOT	LOOP+4!, EXIT+1!
INDTOT(	INDEX+2, INDEX+6, INDEX+7, CLAIM+4
IO	BARHDR+11
IOF	EN+3, BARHDR+2
IOM	BARHDR+5, BARHDR+12, BARHDR+13, BARHDR+14
IOSL	PRT+8, PRT+9, DEVE+1, BARPG+5
IOST	BARPG+8
>> IOT	BARPG+8
TOT	LOOP+3, FINISH+1, FINISH+4, FINISH+7, FINISH+9, EXIT+1!, INDEX+7
VALM	PRT+14!
VALMAR	PRT+14!
VALMBCK	PRT+14!
VALMBG	PRT+14!
VALMCAP	PRT+14!
VALMCNT	PRT+14!
VALMCOFF	PRT+16!
VALMCON	PRT+15!
VALMDN	PRT+15!
VALMEVL	PRT+15!
VALMIOXY	PRT+15!
VALMKEY	PRT+14!
VALMLFT	PRT+15!
VALMLST	PRT+15!
VALMMENU	PRT+15!
VALMOFF	PRT+14!
VALMSGR	PRT+15!
VALMUP	PRT+15!
VALMY	PRT+16!
X	TOTADJ+4~, TOTADJ+7*, TOTADJ+10
>> XBFLD("BROWSE"	PRT+7*
>> XBNS	DEVE+4*
>> XBRP	DEVE+3*
>> XBRX	DEVE+5*
>> XI	LOOP+5*
XQORNEST	PRT+14!
XQORS	PRT+16!
XQORSPEW	PRT+16!
Y	EN+14, EN+15, EN+17, EN+19, EN+20, EN+33, EN+34, PRT+3, PRT+6, TOTADJ+4~ , TOTADJ+8, TOTADJ+9, TOTADJ+10, BARHDR+10
>> Z	EN+16, EN+17, EN+18, EN+19

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50P07

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: