Routine: BARPUTL

Information

BARPUTL ; IHS/SD/LSL - POSTING UTILITIES ; 07/08/2010

Source Information

Source file <BARPUTL.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
IHS Accounts Receivable	2	($$DATE,$$MDT2,$$SHDT)^BARDUTL EOP^BARUTL
VA Fileman	2	(,IX)^DIC ^DIR

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
IHS Accounts Receivable	4	BARFPST3 BARPPY01 BARPST1 BARWRVR

Entry Points

Name	Comments	DBIA/ICR reference
DISP
GETDOS	; EP ; dates of service
ASKPATB(DICB)	;EP - select patient ; IHS/SD/TMM 1.8*19 7/6/10 ; Copied from ASKPAT; allows user to pass default value for DIC("B"))
GETBIL	;EP
GETBILB(DICB3)	;EP ; IHS/SD/TMM 1.8*19 7/11/10 ; Copied from GETBIL: allows user to pass default value for DIC("B"))
SELBILLB(DICB2)	; EP ; IHS/SD/TMM 1.8*19 7/11/10 ; Copied from SELBILL: allows user to pass default value for DIC("B")) ; select bill
SELBILL	; EP ; select bill
ASKPAT	;EP - select patient

External References

Name	Field # of Occurrence
$$DATE^BARDUTL	GETDOS+4, GETDOS+7
$$MDT2^BARDUTL	GETDOS+6
$$SHDT^BARDUTL	DISP+4
EOP^BARUTL	GETDOS+11
^DIC	SELBILL+14, ASKPAT+6, ASKPATB+9, SELBILLB+13
IX^DIC	GETBIL+6, GETBILB+8
^DIR	SELBILL+7, SELBILLB+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?38," ",$J($FN(CURRAMT,"p",2),9)," ",?48,STAT,?55," ",DOS,?63," ",$P(^BARBL(DUZ(2),Y,1),U,16) Line Location: DISP+8
Function Call: WRITE	Prompt: ! Line Location: GETBIL+1
Function Call: WRITE	Prompt: " ",BARPAT(0) Line Location: GETBIL+13
Function Call: WRITE	Prompt: ! Line Location: GETDOS+3
Function Call: WRITE	Prompt: ! Line Location: GETBILB+3
Function Call: WRITE	Prompt: " ",BARPAT(0) Line Location: GETBILB+15
Routine Call	DIC Line Location: SELBILL+14 ASKPAT+6 ASKPATB+9 SELBILLB+13
Routine Call	DIR Line Location: SELBILL+7 SELBILLB+8
Routine Call	DIC Line Location: GETBIL+6 GETBILB+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	SELBILL+3, SELBILL+16, SELBILL+17, SELBILL+18, DISP+8, GETBIL+9, GETBIL+10, GETBIL+11, SELBILLB+4, SELBILLB+15 , SELBILLB+16, SELBILLB+17, GETBILB+11, GETBILB+12, GETBILB+13
^BARTBL - [#90052.02]	DISP+7
^DIC(4 - [#4]	SELBILL+4, SELBILLB+5
^DPT - [#2]	SELBILL+20, GETBIL+12, ASKPAT+11, ASKPATB+14, SELBILLB+19, GETBILB+14

Label References

Name	Line Occurrences
GETDOS	ASKPAT+12, GETDOS+9, ASKPATB+15

Naked Globals

Name	Field # of Occurrence
^(0	DISP+5, DISP+7
^(1	DISP+3, DISP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT("B"	GETDOS+6*
BAREND	SELBILL+18, SELBILL+19, SELBILL+21, GETBIL+11, GETBIL+14, ASKPAT+14, GETDOS+2!, GETDOS+7, GETDOS+8, GETDOS+9 , ASKPATB+17, SELBILLB+17, SELBILLB+18, SELBILLB+20, GETBILB+13*, GETBILB+16
BAROK	ASKPAT+13, GETDOS+2!, GETDOS+13*, ASKPATB+16
BARPAT	SELBILL+16, SELBILL+20, SELBILL+21, GETBIL+9, GETBIL+12, GETBIL+14, ASKPAT+9, ASKPAT+11, ASKPAT+13!, ASKPAT+14 , ASKPATB+12, ASKPATB+14, ASKPATB+16!, ASKPATB+17, SELBILLB+15, SELBILLB+19, SELBILLB+20, GETBILB+11, GETBILB+14, GETBILB+16
BARPAT(0	SELBILL+20, GETBIL+12, GETBIL+13, ASKPAT+10, ASKPAT+11, ASKPATB+13, ASKPATB+14, SELBILLB+19, GETBILB+14, GETBILB+15
BARSTART	SELBILL+17, SELBILL+19, SELBILL+21, GETBIL+10, GETBIL+14, ASKPAT+14, GETDOS+2!, GETDOS+4, GETDOS+5, GETDOS+6 , GETDOS+9, ASKPATB+17, SELBILLB+16, SELBILLB+18, SELBILLB+20, GETBILB+12*, GETBILB+16
BARZ	SELBILL+21, GETBIL+14, ASKPAT+1!, ASKPAT+14, ASKPATB+3!, ASKPATB+17, SELBILLB+20, GETBILB+16
CURRAMT	DISP+2~, DISP+5*, DISP+8
>> D	GETBIL+5, GETBILB+7
DIC	SELBILL+9!, SELBILL+10, GETBIL+2, GETBIL+7!, ASKPAT+1!, ASKPAT+2, ASKPAT+7!, ASKPATB+3!, ASKPATB+5, ASKPATB+10! , SELBILLB+9!, SELBILLB+11, GETBILB+4, GETBILB+9!
DIC("A"	GETBIL+4, GETBILB+6
DIC("B"	ASKPATB+4, SELBILLB+10
DIC("S"	ASKPAT+4, ASKPAT+5, ASKPATB+7, ASKPATB+8
DIC("W"	SELBILL+13*
DIC(0	SELBILL+11, GETBIL+3, ASKPAT+3, ASKPATB+6, SELBILLB+12, GETBILB+5
DICB	ASKPATB~, ASKPATB+4
DICB2	SELBILLB~, SELBILLB+10
DICB3	GETBILB~
DIR	SELBILL+5!, SELBILLB+6!
DIR(0	SELBILL+6, SELBILLB+7
DOS	DISP+2~, DISP+4*, DISP+8
DUZ(2	SELBILL+3, SELBILL+4, SELBILL+16, SELBILL+17, SELBILL+18, DISP+8, GETBIL+9, GETBIL+10, GETBIL+11, SELBILLB+4 , SELBILLB+5, SELBILLB+15, SELBILLB+16, SELBILLB+17, GETBILB+11, GETBILB+12, GETBILB+13
STAT	DISP+2~, DISP+7*, DISP+8
U	SELBILL+4, DISP+4, DISP+5, DISP+7, DISP+8, SELBILLB+5
>> Y	SELBILL+15, SELBILL+16, SELBILL+17, SELBILL+18, DISP+8, GETBIL+8, GETBIL+9, GETBIL+10, GETBIL+11, ASKPAT+8 , ASKPAT+9, ASKPATB+11, ASKPATB+12, SELBILLB+14, SELBILLB+15, SELBILLB+16, SELBILLB+17, GETBILB+10, GETBILB+11, GETBILB+12 , GETBILB+13
>> Y(0	ASKPAT+10, ASKPATB+13

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPUTL

Call Graph Total: 4

Caller Graph Total: 4