Routine: BARPST

Package	Total	Call Graph
IHS Accounts Receivable	8	$$CKDATE^BARPST ($$EN,TOP)^BARPST1 $$EN^BARPST2 EN^BARPST3 UNALC^BARPST7 ($$IHS,$$NOTOPEN)^BARUFUT (EOP,INIT)^BARUTL ^BARVKL0
VA Fileman	4	^%DT ^DIC $$GET1^DIQ ^DIR
IHS VA Utilities	3	EN^XBDIQ1 ^XBNEW ^XBSFGBL
Kernel	1	SIG^XUSESIG

Package	Total	Caller Graph
IHS Accounts Receivable	14	BAR POST PAYMENTS BAR50P00 BAR50P08 BAREDP00 BAREDP08 BARFPST BARNCPDP BARPNP BARPRF BARPRMKP BARPST BARPST1 BARPTR BARPUC

Entry Points

Name	Comments	DBIA/ICR reference
GETONE(BARZNAM)	;P.OTT
EN	;EP - lookup collection id
IBAL(BARITM)	;EP ; ** display item balance and posting total
FINISH	;
BATW1	;
CKDATE(Z,Q,P)	;EP; NEW; CHECK COLLECTION BATCH DATE ;MRS;BAR1.86 DD 4.2.4
LOCKDOWN	;;$T quarter lockdown for posting ;M3TMM12/21/09*ADD TAG
GETPAT	; ; ** get patient and dos range
DICW1	;EP
BATW	;EP - dic DIC("W")
ITEM	;
BBAL(BARCOL)	;EP ; ** display batch posting balance and total
EBAL(BAREOB)	;EP ; ** display item balance and posting total
DICW	;EP - help display on item lookup
ENTRY	;
GETSUB	;
RAYGO	;EP ; set roll-over flag

External References

Name	Field # of Occurrence
^%DT	CKDATE+50, CKDATE+62
$$CKDATE^BARPST	ENTRY+15
$$EN^BARPST1	GETPAT+4
TOP^BARPST1	GETPAT+24, GETPAT+26
$$EN^BARPST2	GETPAT+19
EN^BARPST3	GETPAT+25
UNALC^BARPST7	GETPAT+14
$$IHS^BARUFUT	CKDATE+6
$$NOTOPEN^BARUFUT	ENTRY+2, ITEM+2, GETPAT+3
EOP^BARUTL	GETPAT+23, CKDATE+14, CKDATE+66
INIT^BARUTL	ENTRY+3
^BARVKL0	EN+1, FINISH+1
^DIC	ENTRY+12, ITEM+12, GETSUB+13
$$GET1^DIQ	CKDATE+10
^DIR	GETPAT+11, RAYGO+11
EN^XBDIQ1	BATW1+7, BBAL+8, DICW1+10, IBAL+10, EBAL+10
^XBNEW	DICW+2
^XBSFGBL	GETSUB+7
SIG^XUSESIG	EN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: ENTRY+4
Function Call: WRITE	Prompt: !! Line Location: ITEM+3
Function Call: WRITE	Prompt: !! Line Location: GETSUB+4
Function Call: WRITE	Prompt: ?20,$E(BARCL(.01),1,35),?58,$E(BARCL(8),1,20) Line Location: BATW1+8
Function Call: WRITE	Prompt: !?5,"===> Total Posted: $ "_$J(BARCL(16),0,2) Line Location: BBAL+9
Function Call: WRITE	Prompt: ?37,"===> Remaining Balance: $ "_$J(BARCL(17),0,2) Line Location: BBAL+10
Function Call: WRITE	Prompt: ?7,$J($E(BARCLIT(11),1,9),10) Line Location: DICW1+11
Function Call: WRITE	Prompt: ?18,$J(BARCLIT(101),8,2),?28,BARCLIT(7),?58,$E($G(BARCLIT(2.5)),1,2) Line Location: DICW1+13
Function Call: WRITE	Prompt: !?3,"===> Item Total Posted: $ "_$J(BARCLIT(18),0,2) Line Location: IBAL+11
Function Call: WRITE	Prompt: ?42,"===> Item Remaining Balance: $ "_$J(BARCLIT(19),0,2) Line Location: IBAL+12
Function Call: WRITE	Prompt: !?0,"===> Sub-Item Total Posted: $ "_$J(BARVSIT(3),0,2) Line Location: EBAL+11
Function Call: WRITE	Prompt: ?39,"===> Sub-Item Remaining Balance: $ "_$J(BARVSIT(4),0,2) Line Location: EBAL+12
Function Call: WRITE	Prompt: ! Line Location: RAYGO+10
Function Call: WRITE	Prompt: !!,"Cannot find filename in A/R EDI IMPORT File" Line Location: CKDATE+48
Function Call: WRITE	Prompt: !!,"Cannot find filename in A/R EDI IMPORT File" Line Location: CKDATE+57
Routine Call	DIC Line Location: ENTRY+12 ITEM+12 GETSUB+13
Routine Call	DIR Line Location: GETPAT+11 RAYGO+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BARTR(2906 - [#90050.03]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BAR(90052.06	GETSUB+3, RAYGO+3
^BARCOL(	CKDATE+44
^BAREDI("I"	CKDATE+49, CKDATE+55, CKDATE+56, CKDATE+60, GETONE+3, GETONE+6
^BARVSIT(4	GETPAT+6

Label References

Name	Line Occurrences
$$GETONE	CKDATE+47
BATW1	GETSUB+19, GETPAT+17
BBAL	ENTRY+18, GETSUB+19, GETPAT+17
EBAL	GETSUB+23
ENTRY	ENTRY+15, ITEM+14
FINISH	ENTRY+2, ENTRY+14, ITEM+2, GETPAT+3
GETPAT	GETSUB+2, GETSUB+3, GETPAT+20, GETPAT+27
IBAL	ITEM+17
ITEM	GETSUB+15, GETPAT+5
RAYGO	EN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	CKDATE+50, CKDATE+61
BAR	CKDATE+5~, CKDATE+47, CKDATE+48, CKDATE+49, CKDATE+55, CKDATE+56, CKDATE+57, CKDATE+59, CKDATE+60, CKDATE+63 , GETONE+3, GETONE+4, GETONE+6*, GETONE+7
BARBIL	CKDATE+9~, CKDATE+10*, CKDATE+12
>> BARCDT	CKDATE+36, CKDATE+37, CKDATE+44, CKDATE+46, CKDATE+53
BARCL	BATW1+2!, BBAL+3!
BARCL(	BATW1+8
BARCL("ID"	GETPAT+14
BARCL(16	BBAL+9
BARCL(17	BBAL+10
BARCL(8	BATW1+8
BARCLIT	DICW1+1!, IBAL+2!
BARCLIT(	DICW1+13
BARCLIT("ID"	GETPAT+14
BARCLIT(101	DICW1+13
BARCLIT(11	DICW1+11, DICW1+12
BARCLIT(18	IBAL+11
BARCLIT(19	GETPAT+6, IBAL+12
BARCLIT(7	DICW1+13
>> BARCNT	GETPAT+19*, GETPAT+20
BARCOL	ENTRY+5!, ENTRY+16*, ENTRY+18, ITEM+5, GETSUB+5, GETSUB+18, GETSUB+19, GETPAT+16, GETPAT+17, BBAL~ , BBAL+4, DICW1+8, IBAL+6, EBAL+6
BARCOL(0	ENTRY+17*, GETSUB+17, GETPAT+15
BAREOB	GETSUB+1!, GETSUB+21*, GETSUB+23, EBAL~, EBAL+4
BAREOB(0	GETSUB+22*
>> BARESIG	EN+2, EN+5
BARFN1	GETONE+1~, GETONE+2*, GETONE+3
BARFN2	GETONE+1~, GETONE+2*, GETONE+6
>> BARGL	GETSUB+7, GETSUB+8
>> BARITDA	DICW1+4, IBAL+5
BARITM	ITEM+4!, ITEM+15*, ITEM+17, GETSUB+6, IBAL~, IBAL+4, IBAL+5, EBAL+5
BARITM(0	ITEM+16*, GETSUB+2
>> BARL1	CKDATE+21*
>> BARL2	CKDATE+22, CKDATE+29, CKDATE+36, CKDATE+65
>> BARL3	CKDATE+23, CKDATE+30, CKDATE+36, CKDATE+37, CKDATE+39, CKDATE+40, CKDATE+41
>> BARL3DD	CKDATE+40*, CKDATE+42
>> BARL3FMT	CKDATE+42*, CKDATE+65
>> BARL3MM	CKDATE+39*, CKDATE+42
>> BARL3YY	CKDATE+41*, CKDATE+42
>> BARL4	CKDATE+24*
>> BARL5	CKDATE+25*, CKDATE+27
>> BARL6	CKDATE+26*, CKDATE+28
>> BARMM	CKDATE+18*, CKDATE+19
>> BARPASS	GETPAT+4*, GETPAT+5, GETPAT+19
>> BARQTR	CKDATE+20*, CKDATE+21, CKDATE+22, CKDATE+23, CKDATE+24, CKDATE+25, CKDATE+26
BARRAYGO	RAYGO+2!, RAYGO+3, RAYGO+4, RAYGO+5, RAYGO+13
>> BARTMP	CKDATE+19*
>> BARTX	CKDATE+10, CKDATE+11
>> BARUSR	ENTRY+3
BARVSIT	EBAL+3!
BARVSIT("ID"	GETPAT+14
BARVSIT(3	EBAL+11
BARVSIT(4	EBAL+12
>> BARYYY	CKDATE+17*, CKDATE+27, CKDATE+28
>> BARYYY2	CKDATE+27*, CKDATE+29
>> BARYYY3	CKDATE+28*, CKDATE+30
BARZNAM	GETONE~, GETONE+2
>> CNT	GETONE+2*
DA	BATW1+1~, BATW1+3, BBAL+2~, BBAL+4, DICW1+2~, DICW1+4, IBAL+3~, IBAL+5, EBAL+2~, EBAL+4*
DA(1	ITEM+5, ITEM+6, GETSUB+6, DICW1+8, IBAL+6, EBAL+5*
DA(2	GETSUB+5, EBAL+6
DD	ENTRY+11!, ITEM+11!, GETSUB+12!
DIC	ENTRY+5!, ENTRY+6, ENTRY+13!, ITEM+6, ITEM+13!, GETSUB+8, GETSUB+14!, BATW1+1~, BATW1+6, BBAL+2~ , BBAL+7, DICW1+2~, DICW1+7, IBAL+3~, IBAL+7, EBAL+2~, EBAL+7
DIC("A"	ENTRY+8, ITEM+9, GETSUB+11*
DIC("S"	ENTRY+9, ITEM+10
DIC("W"	ENTRY+10, ITEM+8, GETSUB+10*
DIC(0	ENTRY+7, ITEM+7, GETSUB+9*
DIQ	BATW1+1~, BATW1+5, BBAL+2~, BBAL+6, DICW1+2~, DICW1+5, IBAL+3~, IBAL+8, EBAL+2~, EBAL+8*
DIQ(0	DICW1+6*
DIR	GETPAT+7!, GETPAT+12!, RAYGO+2!, RAYGO+12!
DIR("?"	RAYGO+9*
DIR("A"	GETPAT+9, RAYGO+6
DIR("B"	GETPAT+10, RAYGO+7
DIR(0	GETPAT+8, RAYGO+8
DO	ENTRY+11!, ITEM+11!, GETSUB+12!
DR	BATW1+1~, BATW1+4, BBAL+2~, BBAL+5, DICW1+2~, DICW1+9, IBAL+3~, IBAL+9, EBAL+2~, EBAL+9*
DT	CKDATE+17, CKDATE+18, CKDATE+36, CKDATE+37, CKDATE+65
DUZ	ENTRY+2, ITEM+2, GETPAT+3
DUZ(2	GETSUB+3, RAYGO+3, CKDATE+6, CKDATE+44, CKDATE+49, CKDATE+55, CKDATE+56, CKDATE+60, GETONE+3, GETONE+6
>> DZ	DICW+1
P	CKDATE~, CKDATE+8, CKDATE+44, CKDATE+46, CKDATE+53, CKDATE+63, CKDATE+65
Q	CKDATE~, CKDATE+64
U	GETSUB+2, GETSUB+3, GETSUB+17, GETPAT+15, CKDATE+44, CKDATE+49, CKDATE+60
>> UFMSESID	ENTRY+2, ITEM+2, GETPAT+3, CKDATE+11
X	BATW1+1~, CKDATE+5~, CKDATE+49, CKDATE+60
>> X1	EN+4
XB	BATW1+1~, BBAL+2~
Y	ENTRY+14, ENTRY+15, ENTRY+16, ITEM+14, ITEM+15, GETSUB+15, GETSUB+18, GETSUB+21, GETPAT+13, GETPAT+16 , BATW1+3, DICW1+3, DICW1+4, RAYGO+13, CKDATE+5~, CKDATE+46, CKDATE+47*, CKDATE+53
Y(0	ENTRY+17, ITEM+16, GETSUB+22
Z	CKDATE~, CKDATE+8, CKDATE+44, CKDATE+47, CKDATE+55, CKDATE+56

Marked Items

Name	Field # of Occurrence
$T(LOCKDOWN+BARTMP	CKDATE+20

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPST

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items