Routine: BARCHKLU

Package	Total	Call Graph
IHS Accounts Receivable	4	$$ITT^BARCBC $$SDT^BARDUTL ($$UPC,EOP)^BARUTL $$EN^BARVDF
IHS VA Utilities	4	^XBDBQUE ($$DIC,$$VAL,$$VALI)^XBDIQ1 $$DIR^XBDIR VIEWR^XBLM
VA Fileman	3	YX^%DTC IX^DIC ^DIR
Registration	1	(CLEAR,FULL)^VALM1

Package	Total	Caller Graph
IHS Accounts Receivable	1	BAR CHECK LOOKUP

Entry Points

Name	Comments	DBIA/ICR reference
BARHDR	; Write the Report Header
DEVE
EBARPG	;
PRINT	;**Print
BARPG	;EP PAGE CONTROLLER ; This utility uses variables BARPG("HDR"),BARPG("DT"),BARPG("LINE"),BARPG("PG") ; kill variables by D EBARPG
ONE	;EP
Q	;
HEADER	;
ENDJOB
EXIT	; Exit routine
DETAILS	; ; Collect information on what bills this check applied to
BARHD	;EP ; Write column header / message
ASK
PG	;**page controller

External References

Name	Field # of Occurrence
YX^%DTC	BARHDR+9
$$ITT^BARCBC	ASK+35, ASK+37
$$SDT^BARDUTL	DETAILS+16, DETAILS+17, DETAILS+19
$$UPC^BARUTL	ASK+14
EOP^BARUTL	DETAILS+31, BARPG+7
$$EN^BARVDF	HEADER+2, PRINT+12
IX^DIC	ASK+5
^DIR	ASK+43
CLEAR^VALM1	PRINT+13
FULL^VALM1	PRINT+11
^XBDBQUE	DEVE+7
$$DIC^XBDIQ1	ASK+1
$$VAL^XBDIQ1	ASK+31, ASK+32, DETAILS+13, DETAILS+18
$$VALI^XBDIQ1	DETAILS+14, DETAILS+15
$$DIR^XBDIR	PRINT+3
VIEWR^XBLM	PRINT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ASK+0
Function Call: WRITE	Prompt: !," Must enter a Check Number " Line Location: ASK+6
Function Call: WRITE	Prompt: !,"Couldn't find ITEM for this CHECK NUMBER. Please select again." Line Location: ASK+18
Function Call: WRITE	Prompt: !,"PROBLEM WITH THIS ITEM SET UP CONTACT YOUR SUPPORT PERSONNEL" Line Location: ASK+20
Function Call: WRITE	Prompt: !,"PROBLEM WITH THIS ITEM SET UP CONTACT YOUR SUPPORT PERSONNEL" Line Location: ASK+23
Function Call: WRITE	Prompt: !,"PROBLEM WITH THIS ITEM SET UP CONTACT YOUR SUPPORT PERSONNEL" Line Location: ASK+26
Function Call: WRITE	Prompt: !,"Check No: ",BARCHKNO,?25,"From: ",$E(BARINSNM,1,30),?65,"For: ",$J(BARCKAMT,10,2),! Line Location: ASK+38
Function Call: WRITE	Prompt: !!?40,"Bill Count: ",BARBCNT,?60,"TOTALS:",?68,$J(BARCHKPD,12,2),! Line Location: DETAILS+29
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: PRINT+12
Function Call: WRITE	Prompt: ! Line Location: BARHDR+3
Function Call: WRITE	Prompt: ?(IOM-$L(BARPG("HDR"))/2),BARPG("HDR") Line Location: BARHDR+12
Function Call: WRITE	Prompt: !?(IOM-75),BARPG("DT"),?(IOM-15),"PAGE: ",BARPG("PG") Line Location: BARHDR+13
Function Call: WRITE	Prompt: !,BARPG("LINE") Line Location: BARHDR+14
Function Call: WRITE	Prompt: !?5,"Collection Batch: ",BARCBNM Line Location: BARHD+2
Function Call: WRITE	Prompt: ?50,"Item Number: ",BARITMNO Line Location: BARHD+3
Function Call: WRITE	Prompt: !,"Check Number: ",BARCHKNO Line Location: BARHD+4
Function Call: WRITE	Prompt: ?32,"Issued By: ",BARINSNM Line Location: BARHD+5
Function Call: WRITE	Prompt: !,"Check Amount: ",$J(BARCKAMT,10,2) Line Location: BARHD+6
Function Call: WRITE	Prompt: ?27,"Amount Posted : ",$J(BARITMPD,10,2) Line Location: BARHD+7
Function Call: WRITE	Prompt: ?55,"Balance : ",$J(BARITMBL,10,2),! Line Location: BARHD+8
Function Call: WRITE	Prompt: "Un-Allocated: ",$J(BARITMUA,10,2) Line Location: BARHD+9
Function Call: WRITE	Prompt: ?55,"Refunded: ",$J(BARITMRF,10,2),! Line Location: BARHD+10
Function Call: WRITE	Prompt: !,"Patient Name" Line Location: BARHD+11
Function Call: WRITE	Prompt: ?19,"3P Bill DT" Line Location: BARHD+12
Function Call: WRITE	Prompt: ?30,"Bill Name" Line Location: BARHD+13
Function Call: WRITE	Prompt: ?48,"DOS" Line Location: BARHD+14
Function Call: WRITE	Prompt: ?70,"Paid Amt.",! Line Location: BARHD+15
Routine Call	DIR Line Location: ASK+43
Routine Call	DIC Line Location: ASK+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	DETAILS+19
^BARCOL(	ASK+12, ASK+17, ASK+19, ASK+22, ASK+25, ASK+29, ASK+30, ASK+33
^BARTR(	DETAILS+4, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+10, DETAILS+11, DETAILS+12

Label References

Name	Line Occurrences
ASK	ASK+6, ASK+13, ASK+19, ASK+22, ASK+25, ASK+45
BARHDR	HEADER+14
EBARPG	HEADER+13, DETAILS+30
PG	DETAILS+27
PRINT	ASK+46

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	BARHDR+8*
BAR23	ASK+34*, ASK+36!
>> BAR3PAP	DETAILS+19*, DETAILS+21
>> BARBCNT	DETAILS+2, DETAILS+25, DETAILS+29
>> BARBLDA	DETAILS+8, DETAILS+11, DETAILS+13, DETAILS+14, DETAILS+15, DETAILS+18, DETAILS+19
>> BARBLNM	DETAILS+9, DETAILS+18, DETAILS+22
>> BARBLPT	DETAILS+8, DETAILS+12
>> BARBLPTN	DETAILS+9, DETAILS+13, DETAILS+20
BARCBDA	ONE+1~, ASK+9, ASK+12, ASK+13!, ASK+15, ASK+17, ASK+19, ASK+21!, ASK+22, ASK+24! , ASK+25, ASK+27!, ASK+29, ASK+30, ASK+33, ASK+35, ASK+37, DETAILS+4
>> BARCBNM	ASK+11*, HEADER+3, BARHD+2
BARCHKNO	ONE+1~, ASK+8, ASK+12, ASK+13!, ASK+14, ASK+17, ASK+21!, ASK+24!, ASK+27!, ASK+38 , HEADER+5, BARHD+4
>> BARCHKPD	DETAILS+3, DETAILS+26, DETAILS+29
>> BARCKAMT	ASK+28, ASK+29, ASK+38, HEADER+7, BARHD+6
>> BARDOSB	DETAILS+14*, DETAILS+17
>> BARDOSBF	DETAILS+17*, DETAILS+23
>> BARDOSE	DETAILS+15*, DETAILS+16
>> BARDOSEF	DETAILS+16*, DETAILS+23
>> BARDTTM	DETAILS+3, DETAILS+4, DETAILS+5, DETAILS+6, DETAILS+7, DETAILS+10, DETAILS+11, DETAILS+12
>> BARINSNM	ASK+28, ASK+30, ASK+38, HEADER+6, BARHD+5
BARIOSL	PRINT+8*, DEVE+1, DEVE+2!
>> BARITMBL	ASK+28, ASK+32, HEADER+9, BARHD+8
BARITMNO	ONE+1~, ASK+10, ASK+12, ASK+13!, ASK+16, ASK+17, ASK+18, ASK+19, ASK+21!, ASK+22 , ASK+24!, ASK+25, ASK+27!, ASK+29, ASK+30, ASK+33, ASK+35, ASK+37, HEADER+4, DETAILS+5 , BARHD+3
>> BARITMPD	ASK+28, ASK+31, HEADER+8, BARHD+7
>> BARITMRF	ASK+28, ASK+37, HEADER+11, BARHD+10
>> BARITMUA	ASK+28, ASK+35, HEADER+10, BARHD+9
>> BARITMUD	ASK+28, ASK+33
>> BARPDAMT	DETAILS+8, DETAILS+10, DETAILS+24, DETAILS+26
>> BARPG("DT"	BARHDR+7, BARHDR+10*, BARHDR+13, EBARPG+1!
>> BARPG("HDR"	BARHDR+1*, BARHDR+4, BARHDR+12, EBARPG+1!
>> BARPG("LINE"	BARHDR+5*, BARHDR+14, EBARPG+1!
>> BARPG("PG"	BARPG+5, BARPG+6, BARHDR+6*, BARHDR+13, EBARPG+1!
>> BARQUIT	BARHD+16*
>> D	ASK+3*
DA	PRINT+4!
>> DFOUT	BARPG+4
DIC	ONE+1~, ASK+1*
DIC("A"	ASK+4*
DIC(0	ASK+2*
DIR	ASK+39!, ASK+44!
DIR("A"	ASK+41*
DIR("B"	ASK+42*
DIR(0	ASK+40*
>> DIROUT	DETAILS+4, BARPG+7, Q+1, BARHD+16
>> DIRUT	PRINT+5
>> DOUT	BARPG+4
>> DROUT	DETAILS+4, BARPG+7, Q+1, BARHD+16
>> DTOUT	DETAILS+4, BARPG+7, Q+1, BARHD+16
>> DUOUT	DETAILS+4, BARPG+7, Q+1, BARHD+16
DUZ(2	ASK+12, ASK+17, ASK+19, ASK+22, ASK+25, ASK+29, ASK+30, ASK+33, DETAILS+4, DETAILS+5 , DETAILS+6, DETAILS+7, DETAILS+10, DETAILS+11, DETAILS+12, DETAILS+19
IO	BARHDR+11
IOF	BARHDR+2
IOM	BARHDR+5, BARHDR+12, BARHDR+13
IOSL	HEADER+1, HEADER+14, PRINT+8, PRINT+9, DEVE+1, BARPG+4
IOST	DETAILS+31, BARPG+7
>> IOT	DETAILS+31, BARPG+7
U	ASK+11, DETAILS+10, DETAILS+11, DETAILS+12, DETAILS+19
VALM	PRINT+14!
VALMAR	PRINT+14!
VALMBCK	PRINT+14!
VALMBG	PRINT+14!
VALMCAP	PRINT+14!
VALMCNT	PRINT+14!
VALMCOFF	PRINT+16!
VALMCON	PRINT+15!
VALMDN	PRINT+15!
VALMEVL	PRINT+15!
VALMIOXY	PRINT+15!
VALMKEY	PRINT+14!
VALMLFT	PRINT+15!
VALMLST	PRINT+15!
VALMMENU	PRINT+15!
VALMOFF	PRINT+14!
VALMSGR	PRINT+15!
VALMUP	PRINT+16!
VALMWD	PRINT+16!
VALMY	PRINT+16!
>> X	ASK+6, ASK+8, ASK+14
>> XBFLD("BROWSE"	PRINT+7*
>> XBNS	DEVE+5*
>> XBRP	DEVE+4*
>> XBRX	DEVE+6*
XQORNEST	PRINT+14!
XQORS	PRINT+16!
XQORSPEW	PRINT+16!
>> Y	ASK+7, ASK+9, ASK+11, ASK+15, ASK+45, PRINT+3*, PRINT+6, BARHDR+10

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARCHKLU

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: