Routine: BAR50P10

Package	Total	Call Graph
IHS Accounts Receivable	5	^BARDBQUE PAZ^BARRUTL $$UPC^BARUTL $$EN^BARVDF ^BARVKL0
IHS VA Utilities	3	ENP^XBDIQ1 $$DIR^XBDIR VIEWR^XBLM
VA Fileman	2	$$GET1^DIQ ^DIR
Registration	1	(CLEAR,FULL)^VALM1

Package	Total	Caller Graph
IHS Accounts Receivable	2	BAR50P00 BAR50PCS

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; ; Display File and Check Choices for report
STATUS	; ; Select claim status for reports
EN	; EP
XIT	;
BROWSE	; ; Browse report to screen ; GET DEVICE (QUEUEING ALLOWED)
PRINT	; ; Print report to device. Queuing allowed.
INIT	;
RPTYP	; ; Select Report Type
ASK	; ; Ask Browse or Print
PAD	; ; Fixed undefined error in detail report. ; (Reported previously in IM17021.)
SETHDR	; ; Set up Report Header lines

External References

Name	Field # of Occurrence
^BARDBQUE	PRINT+7
PAZ^BARRUTL	EN+12
$$UPC^BARUTL	STATUS+14
$$EN^BARVDF	BROWSE+8
^BARVKL0	XIT+1
$$GET1^DIQ	SETHDR+33
^DIR	STATUS+12, RPTYP+6
CLEAR^VALM1	BROWSE+9
FULL^VALM1	BROWSE+7
ENP^XBDIQ1	DISP+3
$$DIR^XBDIR	ASK+3
VIEWR^XBLM	BROWSE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,@IOF,!,"Reports for : ",?20,IMP(.01) Line Location: DISP+4
Function Call: WRITE	Prompt: !,?20,IMP(.05),?50,"CHK/EFT #: ",$E(BARCHK,1,23) Line Location: DISP+5
Function Call: WRITE	Prompt: !!,"Enter the list of Claim Status(s) you desire to print," Line Location: STATUS+2
Function Call: WRITE	Prompt: !,"and in the sequence to be printed out.",! Line Location: STATUS+3
Function Call: WRITE	Prompt: !,"C - Claim Unmatched",?25,"R - Reason Unmatched",?50,"N - Not to Post" Line Location: STATUS+4
Function Call: WRITE	Prompt: !,"M - Matched",?25,"P - Posted",?50,"X - Claim & Reason Unmatched" Line Location: STATUS+5
Function Call: WRITE	Prompt: !,"A - All Categories",?25,"E - Exception",!,?5,"Example: CRXN",! Line Location: STATUS+7
Function Call: WRITE	Prompt: !!,"NONE SELECTED - EXITING",! Line Location: STATUS+16
Function Call: WRITE	Prompt: !!,">>>BAD ENTRY<<<>>> ",Y Line Location: STATUS+25
Function Call: WRITE	Prompt: ! Line Location: RPTYP+2
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: BROWSE+8
Routine Call	DIR Line Location: STATUS+12 RPTYP+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARECHK - [#90056.22]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTNINS - [#9999999.18]	SETHDR+15, SETHDR+17
^BARAC(	SETHDR+13
^BARCOL(	SETHDR+11
^BARECHK - [#90056.22]	INIT+6, SETHDR+6, SETHDR+7

Label References

Name	Line Occurrences
ASK	EN+10
BROWSE	EN+15
DISP	EN+1
INIT	EN+2
PAD	SETHDR+21, SETHDR+26, SETHDR+35, SETHDR+40, SETHDR+43, SETHDR+49, SETHDR+54, SETHDR+73
PRINT	EN+16
RPTYP	EN+7
SETHDR	EN+14
STATUS	EN+4
XIT	EN+13, EN+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BAR("HD"	SETHDR+19, SETHDR+23, SETHDR+28, SETHDR+29, SETHDR+31, SETHDR+32, SETHDR+36, SETHDR+37, SETHDR+41, SETHDR+44 , SETHDR+50, SETHDR+55, SETHDR+59, SETHDR+71, SETHDR+74, SETHDR+75*
>> BAR("LVL"	SETHDR+56, SETHDR+76
>> BAR("PRIVACY"	INIT+3*
BARAIEN	SETHDR+2!, SETHDR+11*, SETHDR+12, SETHDR+13
>> BARBAD	STATUS+8, STATUS+26, STATUS+27
>> BARCHK	DISP+5, SETHDR+23
>> BARCHK(	INIT+6*
>> BARCHK(0	SETHDR+9, SETHDR+10, SETHDR+11, SETHDR+27, SETHDR+28, SETHDR+29, SETHDR+31, SETHDR+36
>> BARCHK(2	SETHDR+39, SETHDR+42, SETHDR+46, SETHDR+48, SETHDR+52*, SETHDR+53
>> BARCKIEN	INIT+6, SETHDR+6, SETHDR+7, SETHDR+33
>> BARCTYP	SETHDR+65*, SETHDR+68, SETHDR+75
>> BARDASH	INIT+4*, SETHDR+32, SETHDR+37
>> BARDONE	EN+3, INIT+2, STATUS+17, STATUS+18*
BARIIEN	SETHDR+2!, SETHDR+13*, SETHDR+14, SETHDR+15, SETHDR+17
BARINDX	EN+3, EN+5, EN+11, STATUS+9!, STATUS+28*
>> BARIOSL	BROWSE+4*, BROWSE+13
>> BARLCNT	SETHDR+45, SETHDR+47, SETHDR+50, SETHDR+51, SETHDR+55, SETHDR+56, SETHDR+62, SETHDR+63, SETHDR+64*, SETHDR+71 , SETHDR+74, SETHDR+75, SETHDR+76
>> BARMEDIA	EN+3, EN+6, EN+9, EN+11, EN+15, ASK+6*
>> BARMEDIA("NAME"	ASK+7*
BARPC	SETHDR+2!, SETHDR+8
BARPC(	SETHDR+7, SETHDR+58, SETHDR+59, SETHDR+63, SETHDR+65, SETHDR+66, SETHDR+67, SETHDR+69, SETHDR+70, SETHDR+75
BARPC(0	SETHDR+57
BARPC(1	SETHDR+9, SETHDR+10, SETHDR+12, SETHDR+14, SETHDR+15, SETHDR+16, SETHDR+17*
BARPCIEN	SETHDR+2!, SETHDR+5, SETHDR+6, SETHDR+7
>> BARQ("NS"	PRINT+4*
>> BARQ("RC"	PRINT+2*
>> BARQ("RP"	PRINT+3*
>> BARQ("RX"	PRINT+6*
>> BARSTAR	INIT+5*
>> BARTMP	SETHDR+20, SETHDR+23, SETHDR+25, SETHDR+28, SETHDR+29, SETHDR+33, SETHDR+34, SETHDR+36, SETHDR+39, SETHDR+41 , SETHDR+42, SETHDR+44, SETHDR+48, SETHDR+50, SETHDR+53, SETHDR+55, SETHDR+67, SETHDR+69, SETHDR+70, SETHDR+72 , SETHDR+74, PAD+5, PAD+7*
BARTYP	EN+3, EN+6, EN+8, EN+11, RPTYP+3!, RPTYP+10*
BARTYP("NAME"	RPTYP+11*, SETHDR+19
>> BARZ("C"	INIT+7, INIT+8
>> BARZ("E"	INIT+20, INIT+21
>> BARZ("M"	INIT+11, INIT+12
>> BARZ("N"	INIT+13, INIT+14
>> BARZ("P"	INIT+9, INIT+10
>> BARZ("R"	INIT+17, INIT+18
>> BARZ("W"	INIT+24, INIT+25
>> BARZ("X"	INIT+15, INIT+16
DA	ASK+4!
DIR	STATUS+9!, STATUS+13!, RPTYP+3!, RPTYP+7!, ASK+2!
DIR("A"	RPTYP+5*
DIR(0	STATUS+11, RPTYP+4
DIRUT	EN+9, ASK+2!, ASK+5
>> DTOUT	RPTYP+8
>> DUOUT	RPTYP+8
DUZ(2	SETHDR+11, SETHDR+13
I	INIT+6, STATUS+24, SETHDR+57, SETHDR+58, SETHDR+59, SETHDR+60!, SETHDR+61, SETHDR+63, SETHDR+65, SETHDR+66 , SETHDR+67, SETHDR+69, SETHDR+70, SETHDR+75, PAD+4~, PAD+7
IMP	DISP+2!
IMP(	DISP+4, DISP+5, SETHDR+20, SETHDR+31
>> IMPDA	DISP+3
IOF	DISP+4
IOSL	BROWSE+4, BROWSE+5, BROWSE+13
J	SETHDR+60!
K	SETHDR+60!
L	PAD+4~, PAD+5*, PAD+7
U	SETHDR+9, SETHDR+10, SETHDR+11, SETHDR+13, SETHDR+15, SETHDR+17, SETHDR+27, SETHDR+28, SETHDR+29, SETHDR+31 , SETHDR+36, SETHDR+39, SETHDR+42, SETHDR+46, SETHDR+48, SETHDR+52, SETHDR+53, SETHDR+59, SETHDR+65, SETHDR+66 , SETHDR+67, SETHDR+69, SETHDR+70, SETHDR+75
VALM	BROWSE+10!
VALMAR	BROWSE+10!
VALMBCK	BROWSE+10!
VALMBG	BROWSE+10!
VALMCAP	BROWSE+10!
VALMCNT	BROWSE+10!
VALMCOFF	BROWSE+12!
VALMCON	BROWSE+11!
VALMDN	BROWSE+11!
VALMEVL	BROWSE+11!
VALMIOXY	BROWSE+11!
VALMKEY	BROWSE+10!
VALMLFT	BROWSE+11!
VALMLST	BROWSE+11!
VALMMENU	BROWSE+11!
VALMOFF	BROWSE+10!
VALMSGR	BROWSE+11!
VALMUP	BROWSE+11!
VALMY	BROWSE+12!
>> XBFLD("BROWSE"	BROWSE+3*
XQORNEST	BROWSE+10!
XQORS	BROWSE+12!
XQORSPEW	BROWSE+12!
Y	STATUS+14, STATUS+15, STATUS+18, STATUS+21, STATUS+24, STATUS+25, STATUS+28, RPTYP+9, RPTYP+10, ASK+2! , ASK+3*, ASK+6
Y(0	RPTYP+11, ASK+7
>> Z	STATUS+20, STATUS+21, STATUS+23, STATUS+24
>> ZTSAVE("IMPDA"	PRINT+5*

Customize PDF page

Package: IHS Accounts Receivable

Routine: BAR50P10

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

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: