Routine: BARBAD5

Package	Total	Call Graph
IHS Accounts Receivable	3	$$SDT^BARDUTL EOP^BARUTL $$EN^BARVDF
IHS VA Utilities	2	ENP^XBDIQ1 $$DIC^XBSFGBL
VA Fileman	2	COMMA^%DTC $$GET1^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
GETPT	;
EN(BARBLDA)	; EP - Display bill history
EN1	;
GETTX	;
CHKLINE()	; ; Q 0 = CONTINUE ; Q 1 = STOP

External References

Name	Field # of Occurrence
COMMA^%DTC	GETTX+49, GETTX+68
$$SDT^BARDUTL	GETTX+31
EOP^BARUTL	GETTX+99, CHKLINE+7
$$EN^BARVDF	HEAD+1
$$GET1^DIQ	EN1+6, GETTX+13, GETTX+14, GETTX+15, GETTX+16, GETTX+17, GETTX+18, GETTX+20, GETTX+21, GETTX+22 , GETTX+23, GETTX+79, GETTX+83, GETTX+87
ENP^XBDIQ1	EN1+5, GETPT+6, GETTX+12
$$DIC^XBSFGBL	EN1+4, GETTX+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETTX+24
Function Call: WRITE	Prompt: ?11,$P($G(^VA(200,BARTRX(BARTRDA,13),0)),U,2) Line Location: GETTX+32
Function Call: WRITE	Prompt: ?45,BARTRX(BARTRDA,107) Line Location: GETTX+44
Function Call: WRITE	Prompt: ?45,BARTRX(BARTRDA,108) Line Location: GETTX+45
Function Call: WRITE	Prompt: ?68,X Line Location: GETTX+69
Function Call: WRITE	Prompt: !?15,$E(BARMKDSC,1,40) Line Location: GETTX+84
Function Call: WRITE	Prompt: !?15,$E(BARMKDSC,41,80) Line Location: GETTX+85
Function Call: WRITE	Prompt: !?15,$E(BARNCPDP,1,40) Line Location: GETTX+88
Function Call: WRITE	Prompt: !?15,$E(BARNCPDP,41,80) Line Location: GETTX+89
Function Call: WRITE	Prompt: !?15,BARTRX(BARTRDA,112) Line Location: GETTX+94
Function Call: WRITE	Prompt: !?15,"PAYMENT CREDIT APPLIED TO: ",BARTRX(BARTRDA,501) Line Location: GETTX+95
Function Call: WRITE	Prompt: !?15,"PAYMENT CREDIT APPLIED FROM: ",BARTRX(BARTRDA,502) Line Location: GETTX+96
Function Call: WRITE	Prompt: !?15,BARTRDA Line Location: GETTX+97
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF"),! Line Location: HEAD+1
Function Call: WRITE	Prompt: ?80-$L(X)\2,X Line Location: HEAD+3
Function Call: WRITE	Prompt: !!,"Patient: "_BARBL(101),?45,"Beg DOS : "_BARBL(102) Line Location: HEAD+4
Function Call: WRITE	Prompt: !,"Address: "_$G(BARPTA(.111)),?45,"End DOS : "_BARBL(103) Line Location: HEAD+5
Function Call: WRITE	Prompt: !,$G(BARPTA(.114))_", "_$G(BARPTA(.115))_" "_$G(BARPTA(.116)) Line Location: HEAD+6
Function Call: WRITE	Prompt: ?45,"LST STMT: " Line Location: HEAD+7
Function Call: WRITE	Prompt: !!,"Phone #: "_$G(BARPTA(.131)),?45,"Insurer: "_$G(BARBL(3)) Line Location: HEAD+8
Function Call: WRITE	Prompt: !?45,"Balance: "_$J(BARBL(15),0,2) Line Location: HEAD+9
Function Call: WRITE	Prompt: !!,"Trans Dt",?11,"By",?15,"Trans Type",?57,"Amount",?70,"Balance" Line Location: HEAD+10
Function Call: WRITE	Prompt: !?15,"A/R Account",?45,"Batch",?67,"Item",! Line Location: HEAD+11
Function Call: WRITE	Prompt: !?15,"Transaction #",! Line Location: HEAD+12
Function Call: WRITE	Prompt: BARDSH Line Location: HEAD+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ
90051.1101	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARTR(	GETTX+6, GETTX+7!, GETTX+8
^DD("DD"	GETTX+91
^VA(200 - [#200]	GETTX+32

Label References

Name	Line Occurrences
$$CHKLINE	GETTX+28
GETTX	GETPT+2
HEAD	GETTX+25, CHKLINE+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BARBAL	EN1+2~, GETTX+26, GETTX+67, GETTX+68
>> BARBATCH	GETTX+33*, GETTX+73
BARBL	EN1+2~
BARBL(	HEAD+2
BARBL(101	EN1+6, GETPT+1, GETPT+2, GETPT+6, HEAD+4
BARBL(102	HEAD+4
BARBL(103	HEAD+5
BARBL(15	HEAD+9
BARBL(3	HEAD+8
BARBLDA	EN~, EN1+5, EN1+6, GETTX+6, GETTX+7
BARCL	EN1+1~
BARCLIT	EN1+1~
BARCLV	EN1+1~
>> BARDSH	HEAD+13*
BAREOV	EN1+2~
BARHLP	EN1+1~
>> BARITEM	GETTX+34*, GETTX+74
BARITV	EN1+1~
>> BARJ	GETPT+3*
>> BARMKDSC	GETTX+83*, GETTX+84, GETTX+85
>> BARNCPDP	GETTX+87*, GETTX+88, GETTX+89
>> BARPAT	GETPT+1
>> BARPRE	GETTX+38, GETTX+39, GETTX+40, GETTX+41, GETTX+42
BARPSAT	EN1+1~
BARPTA	EN1+2~
BARPTA(	GETPT+3*, HEAD+5, HEAD+6, HEAD+8
BARQ	EN1+2~, GETTX+26, GETTX+27, GETTX+28, GETTX+29, GETTX+98
BARSITE	EN1+1~
BARSPAR	EN1+1~
>> BARTEST	GETTX+8*, GETTX+9, GETTX+10
BARTR	EN1+2~
BARTRDA	EN1+2~, GETTX+5, GETTX+6, GETTX+7, GETTX+8, GETTX+12, GETTX+13, GETTX+14, GETTX+15, GETTX+16 , GETTX+17, GETTX+18, GETTX+20, GETTX+21, GETTX+22, GETTX+23, GETTX+26, GETTX+27, GETTX+31, GETTX+32 , GETTX+33, GETTX+34, GETTX+36, GETTX+37, GETTX+39, GETTX+41, GETTX+44, GETTX+45, GETTX+46, GETTX+72 , GETTX+76, GETTX+78, GETTX+83, GETTX+87, GETTX+90, GETTX+91, GETTX+93, GETTX+94, GETTX+95, GETTX+96 , GETTX+97
BARTRX	EN1+2~
BARTRX(	GETTX+13, GETTX+14, GETTX+15, GETTX+16, GETTX+17, GETTX+18, GETTX+20, GETTX+21, GETTX+22, GETTX+23 , GETTX+27, GETTX+31, GETTX+32, GETTX+33, GETTX+34, GETTX+36*, GETTX+37, GETTX+39, GETTX+41, GETTX+44 , GETTX+45, GETTX+46, GETTX+72, GETTX+76, GETTX+78, GETTX+90, GETTX+91, GETTX+93, GETTX+94, GETTX+95 , GETTX+96
>> BARTT	GETTX+37, GETTX+40, GETTX+41, GETTX+42, GETTX+43, GETTX+44, GETTX+45, GETTX+50, GETTX+60, GETTX+82 , GETTX+86
BARUSR	EN1+1~
BARVSIT	EN1+2~
BARX	EN1+2~, GETTX+46*, GETTX+67
DIC	EN1+1~, EN1+4, EN1+5, GETPT+4, GETPT+6, GETTX+4*, GETTX+12
DR	EN1+1~, EN1+3, EN1+5, GETPT+5, GETPT+6, GETTX+2*, GETTX+12
DUZ(2	GETTX+6, GETTX+7, GETTX+8
IENS	GETTX+77~, GETTX+78*, GETTX+79, GETTX+80!
IOM	HEAD+13, CHKLINE+6
IOSL	CHKLINE+4
IOST	CHKLINE+5
U	GETTX+8, GETTX+32
X	GETTX+46, GETTX+50, GETTX+57, GETTX+58~, GETTX+68, GETTX+69, HEAD+2, HEAD+3, CHKLINE+3~
>> X2	GETTX+47, GETTX+68
>> X3	GETTX+48, GETTX+68
>> Y	GETTX+91*, GETTX+92, CHKLINE+5

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARBAD5

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: