Routine: BARPST5

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

Package	Total	Caller Graph
IHS Accounts Receivable	4	BAR50P04 BARBAD3 BARBLSUM BAREDP04
Pharmacy Point of Sale	1	ABSPOSRA

Entry Points

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

External References

Name	Field # of Occurrence
COMMA^%DTC	GETTX+57, GETTX+63
$$SDT^BARDUTL	GETTX+40, MESSAGE+6
EOP^BARUTL	GETTX+92, CHKLINE+7
$$EN^BARVDF	HEAD+1
$$GET1^DIQ	EN1+7, GETTX+20, GETTX+21, GETTX+22, GETTX+23, GETTX+24, GETTX+25, GETTX+26, GETTX+27, GETTX+28 , GETTX+29, GETTX+72, GETTX+75, GETTX+79
ENP^XBDIQ1	EN1+6, GETPT+6, GETTX+19
$$DIC^XBSFGBL	EN1+5, GETTX+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETTX+39
Function Call: WRITE	Prompt: $$SDT^BARDUTL($G(BARTRX(BARTRDA,12))) Line Location: GETTX+40
Function Call: WRITE	Prompt: ?11,$P($G(^VA(200,BARTRX(BARTRDA,13),0)),U,2) Line Location: GETTX+41
Function Call: WRITE	Prompt: ?45,BARTRX(BARTRDA,107) Line Location: GETTX+52
Function Call: WRITE	Prompt: ?45,BARTRX(BARTRDA,108) Line Location: GETTX+53
Function Call: WRITE	Prompt: ?54,X Line Location: GETTX+59
Function Call: WRITE	Prompt: ?68,X Line Location: GETTX+64
Function Call: WRITE	Prompt: ! Line Location: GETTX+65
Function Call: WRITE	Prompt: ?15,BARTRX(BARTRDA,6) Line Location: GETTX+66
Function Call: WRITE	Prompt: ?45,BARBATCH Line Location: GETTX+67
Function Call: WRITE	Prompt: ?67,$J(BARITEM,3,0) Line Location: GETTX+68
Function Call: WRITE	Prompt: !?15,$E(BARMKDSC,1,40) Line Location: GETTX+76
Function Call: WRITE	Prompt: !?15,$E(BARMKDSC,41,80) Line Location: GETTX+77
Function Call: WRITE	Prompt: !?15,$E(BARNCPDP,1,40) Line Location: GETTX+80
Function Call: WRITE	Prompt: !?15,$E(BARNCPDP,41,80) Line Location: GETTX+81
Function Call: WRITE	Prompt: !?5,"REVERSAL DATE: ",Y Line Location: GETTX+84
Function Call: WRITE	Prompt: !?5,"REV TREASURY DEPOSIT NUMBER/IPAC: ",$G(BARTRX(BARTRDA,111)) Line Location: GETTX+85
Function Call: WRITE	Prompt: !?15,BARTRX(BARTRDA,112) Line Location: GETTX+86
Function Call: WRITE	Prompt: !?15,"PAYMENT CREDIT APPLIED TO: ",BARTRX(BARTRDA,501) Line Location: GETTX+87
Function Call: WRITE	Prompt: !?15,"PAYMENT CREDIT APPLIED FROM: ",BARTRX(BARTRDA,502) Line Location: GETTX+88
Function Call: WRITE	Prompt: !,?15,BARTRDA Line Location: GETTX+89
Function Call: WRITE	Prompt: !!!,"NO MESSAGES FOUND.",!! Line Location: GETTX+91
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
Function Call: WRITE	Prompt: ! Line Location: MESSAGE+17
Function Call: WRITE	Prompt: BARINIT Line Location: MESSAGE+19
Function Call: WRITE	Prompt: ?11,$$INITIALS(BARTRDA) Line Location: MESSAGE+20
Function Call: WRITE	Prompt: ?15,BARLINE Line Location: MESSAGE+22
Function Call: WRITE	Prompt: !?15,BARTRDA Line Location: MESSAGE+23

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+4, GETTX+5!, GETTX+6, GETTX+9, GETTX+17, MESSAGE+7, MESSAGE+10, INITIALS+2
^DD("DD"	GETTX+83
^VA(200 - [#200]	GETTX+41, INITIALS+4

Label References

Name	Line Occurrences
$$CHKLINE	GETTX+34
$$INITIALS	MESSAGE+20
GETTX	GETPT+2
HEAD	GETTX+31, CHKLINE+8
MESSAGE	GETTX+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BARBAL	EN1+2~, GETTX+32, GETTX+62, GETTX+63
>> BARBATCH	GETTX+42*, GETTX+67
BARBL	EN1+2~
BARBL(	HEAD+2
BARBL(101	EN1+7, 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+6, EN1+7, GETTX+4, GETTX+5, GETTX+6
BARCL	EN1+1~
BARCLIT	EN1+1~
BARCLV	EN1+1~
>> BARDSH	HEAD+13*
BAREOV	EN1+2~
>> BARFLGRP	EN1+3*, GETTX+6, GETTX+36, GETTX+38, GETTX+89, GETTX+91, HEAD+12, MESSAGE+23
BARHLP	EN1+1~
BARINIT	MESSAGE+4~, MESSAGE+6, MESSAGE+19, INITIALS+1~, INITIALS+2, INITIALS+4
>> BARITEM	GETTX+43*, GETTX+68
BARITV	EN1+1~
>> BARJ	GETPT+3*
BARLINE	MESSAGE+4~, MESSAGE+10, MESSAGE+11, MESSAGE+15, MESSAGE+16, MESSAGE+22
>> BARMCNT	GETTX+32, GETTX+36, GETTX+91
>> BARMKDSC	GETTX+75*, GETTX+76, GETTX+77
BARMSG	EN1+2~
BARMSG(	GETTX+7*, GETTX+36
BARMSG1	MESSAGE+4~, MESSAGE+7*, MESSAGE+9
BARMSG2	MESSAGE+4~
>> BARNCPDP	GETTX+79*, GETTX+80, GETTX+81
BAROK	MESSAGE+4~, MESSAGE+13, MESSAGE+14, MESSAGE+16
>> BARPAT	GETPT+1
>> BARPRE	GETTX+46, GETTX+47, GETTX+48, GETTX+49, GETTX+50
BARPSAT	EN1+1~
BARPTA	EN1+2~
BARPTA(	GETPT+3*, HEAD+5, HEAD+6, HEAD+8
BARQ	EN1+2~, GETTX+32, GETTX+33, GETTX+34, GETTX+35, GETTX+90
BARSITE	EN1+1~
BARSPAR	EN1+1~
BARST	MESSAGE+4~, MESSAGE+5, MESSAGE+15, MESSAGE+21
>> BARTEST	GETTX+9*, GETTX+16
BARTMP	INITIALS+1~, INITIALS+2*
BARTMP2	INITIALS+1~, INITIALS+3, INITIALS+4, INITIALS+5
BARTR	EN1+2~
BARTRDA	EN1+2~, GETTX+3, GETTX+4, GETTX+5, GETTX+6, GETTX+7, GETTX+8, GETTX+9, GETTX+17, GETTX+19 , GETTX+20, GETTX+21, GETTX+22, GETTX+23, GETTX+24, GETTX+25, GETTX+26, GETTX+27, GETTX+28, GETTX+29 , GETTX+32, GETTX+33, GETTX+36, GETTX+37, GETTX+40, GETTX+41, GETTX+42, GETTX+43, GETTX+44, GETTX+45 , GETTX+47, GETTX+49, GETTX+52, GETTX+53, GETTX+54, GETTX+66, GETTX+69, GETTX+71, GETTX+75, GETTX+79 , GETTX+82, GETTX+83, GETTX+85, GETTX+86, GETTX+87, GETTX+88, GETTX+89, MESSAGE~, MESSAGE+6, MESSAGE+7 , MESSAGE+10, MESSAGE+20, MESSAGE+23, INITIALS~, INITIALS+2
BARTRX	EN1+2~
BARTRX(	GETTX+8, GETTX+20, GETTX+21, GETTX+22, GETTX+23, GETTX+24, GETTX+25, GETTX+26, GETTX+27, GETTX+28 , GETTX+29, GETTX+33, GETTX+37, GETTX+40, GETTX+41, GETTX+42, GETTX+43, GETTX+44, GETTX+45, GETTX+47 , GETTX+49, GETTX+52, GETTX+53, GETTX+54, GETTX+66, GETTX+69, GETTX+71, GETTX+82, GETTX+83, GETTX+85 , GETTX+86, GETTX+87, GETTX+88
>> BARTT	GETTX+45, GETTX+48, GETTX+49, GETTX+50, GETTX+51, GETTX+52, GETTX+53, GETTX+58, GETTX+61, GETTX+74 , GETTX+78
BARTXT	MESSAGE+4~, MESSAGE+8, MESSAGE+11, MESSAGE+12*, MESSAGE+13, MESSAGE+15
BARUSR	EN1+1~
BARVSIT	EN1+2~
BARWD	MESSAGE+4~, MESSAGE+5*, MESSAGE+15, MESSAGE+21
BARX	EN1+2~, GETTX+54*, GETTX+62
DIC	EN1+1~, EN1+5, EN1+6, GETPT+4, GETPT+6, GETTX+2*, GETTX+19
DR	EN1+1~, EN1+4, EN1+6, GETPT+5, GETPT+6, GETTX+1*, GETTX+19
DUZ(2	GETTX+4, GETTX+5, GETTX+6, GETTX+9, GETTX+17, MESSAGE+7, MESSAGE+10, INITIALS+2
I	MESSAGE+4~, MESSAGE+9, MESSAGE+10, MESSAGE+12, MESSAGE+14*, MESSAGE+18
IENS	GETTX+70~, GETTX+71*, GETTX+72, GETTX+73!
IOM	HEAD+13, CHKLINE+6
IOSL	CHKLINE+4
IOST	CHKLINE+5
U	GETTX+9, GETTX+17, GETTX+41, MESSAGE+7, INITIALS+4
X	GETTX+54, GETTX+58, GETTX+59, GETTX+60~, GETTX+63, GETTX+64, HEAD+2, HEAD+3, CHKLINE+3~
>> X2	GETTX+55, GETTX+63
>> X3	GETTX+56, GETTX+63
>> Y	GETTX+83*, GETTX+84, CHKLINE+5

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPST5

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: