Routine: BARDUTL

Package	Total	Call Graph
VA Fileman	3	^%DT H^%DTC $$GET1^DIQ
IHS Accounts Receivable	1	$$EN^BARVDF

Package

Total

Call Graph

VA Fileman

^%DT H^%DTC $$GET1^DIQ

IHS Accounts Receivable

$$EN^BARVDF

Package	Total	Caller Graph
IHS Accounts Receivable	79	BAR276 BAR50P04 BAR50P05 BAR50P4A BAR50PCS BARACSI BARAST BARAWOR BARBAD1 BARBAD2 BARBAD4 BARBAD5 BARBAN BARBL BARBLOS BARBLOS1 BARCHKLU BARCLRG BARDINQ BARDLOG BARDMAN BARDMLP1 BARDYSV1 BARDYSV6 BARDYSV9 BAREBCH BAREDP04 BAREDP05 BAREDPCS BAREISS BAREITDN BAREV820 BARFPST3 BARFPST4 BARMAWO6 BARMPAS BARMPAS2 BARMPAS3 BARMPAS4 BARPADJ BARPMUP1 BARPMUP2 BARPNP2 BARPNP4 BARPST2 BARPST4 BARPST5 BARPUC2 BARPUC4 BARPUTL BARRADAL BARRADJ BARRADJ2 BARRAOI BARRATS BARRCXL BARRERL BARRERL2 BARRHD BARRIDR BARRLBL2 BARRLBL3 BARRNEG2 BARRPRAC BARRPRP BARRPRP2 BARRPSRA BARRPTD BARRPTD2 BARRPVC BARRSYNC BARRTRAN BARTRANS BARTRANT BARTRNS1 BARTRNS3 BARUFRP3 BARUTLST BARWRVR

Package

Total

Caller Graph

IHS Accounts Receivable

BAR276  BAR50P04  BAR50P05  BAR50P4A  BAR50PCS  BARACSI  BARAST  BARAWOR
BARBAD1  BARBAD2  BARBAD4  BARBAD5  BARBAN  BARBL  BARBLOS  BARBLOS1
BARCHKLU  BARCLRG  BARDINQ  BARDLOG  BARDMAN  BARDMLP1  BARDYSV1  BARDYSV6
BARDYSV9  BAREBCH  BAREDP04  BAREDP05  BAREDPCS  BAREISS  BAREITDN  BAREV820
BARFPST3  BARFPST4  BARMAWO6  BARMPAS  BARMPAS2  BARMPAS3  BARMPAS4  BARPADJ
BARPMUP1  BARPMUP2  BARPNP2  BARPNP4  BARPST2  BARPST4  BARPST5  BARPUC2
BARPUC4  BARPUTL  BARRADAL  BARRADJ  BARRADJ2  BARRAOI  BARRATS  BARRCXL
BARRERL  BARRERL2  BARRHD  BARRIDR  BARRLBL2  BARRLBL3  BARRNEG2  BARRPRAC
BARRPRP  BARRPRP2  BARRPSRA  BARRPTD  BARRPTD2  BARRPVC  BARRSYNC  BARRTRAN
BARTRANS  BARTRANT  BARTRNS1  BARTRNS3  BARUFRP3  BARUTLST  BARWRVR

Entry Points

Name	Comments	DBIA/ICR reference
WP(BARSTR,BARRAY,BARLNGTH)	; EP ; IHS/DIT/CPC - 20180427 CR5994 ; Used to read string into array where each line is less than ; specified length
CARDAYS	; EP ; Computed field (File 90050.0205, Field .07)
Y2KD2(X)	;EP - date from fileman to Y2K format Y=CCYYMMDD
PAT(X)	;EP - DISPLAY PATIENT HEADER WITH IDENTIFIERS - X=DFN
MDT2(X)	;EP - printable date, letter format
DATE(X)	;EP - ask beginning and ending date
TRANS2	;
READ	; ; IHS/DIT/CPC - 20180427 CR5994 ; Loop through String
LASTLINE	;
SETLINE	;
READWORD	; ; IHS/DIT/CPC - 20180427 CR5994 ; Loop each "word" of string
VARDAYS	; EP ; Computed field (File 90050.0205, Field .07)
CSZ(X)	;EP - Y is set to the printable City, State ZIP CODE ; X incoming variable must = CITY^ST^ZIP
ARDAYS	; EP ; Computed field (File 90050.0204, Field .07)
TDT(X)	;EP - Y= date/time ##/##/##@##:##:## from X (fm date) for display of formatted trans date
CDT(X)	;EP - Y= date/time ##/##/##@##:## from X (fm date) for display in claim editor
HDT(X)	;EP - Y is set to the printable date ##-##-## from X (fileman date)
MSG(DATA,PRE,POST,BEEP)
TRANS(BARDUZ,BAR,BARTYPE)	; EP ; BARDUZ = DUZ(2) ; BAR = AR BILL IEN ; BARTYPE = TYPE OF TRANSACTION ; = A - Adjustment $ ; = C - Copay $ ; = P - Paid $ ; = D - Deductible $
HRN(X)	;EP - Y is set to the printable HRN ; for patient BARP("PDFN") at location BARP("LDFN")
MDT(X)	;EP - printable date and time in menu header format
MTHS	;MONTHS
Y2KDT(X)	;EP - date from fileman to Y2K format Y=MMDDCCYY
SHDT(X)	; EP - Y is set to the printable date ##/##/## from X (fileman date)
TM(X,Y)	;EP - FIGURE TOTAL MINUTES GIVEN FM DATE/TIMES IN X AND Y
SDT(X)	; EP - Y is set to the printable date ##/##/## from X (fileman date)
XDT(X)

Name	Field # of Occurrence
^%DT	DATE+3
H^%DTC	TM+3, TM+7
$$EN^BARVDF	PAT+2, PAT+3
$$GET1^DIQ	TRANS2+2, TRANS2+3, TRANS2+4, TRANS2+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$EN^BARVDF("IOF") Line Location: PAT+2
Function Call: WRITE	Prompt: !,$$EN^BARVDF("RVN"),"PATIENT:",$$EN^BARVDF("RVF")," " Line Location: PAT+3
Function Call: WRITE	Prompt: $P(BAR("P0"),"^",1)," ",$P(BAR("P0"),"^",2) Line Location: PAT+5
Function Call: WRITE	Prompt: " ",$E(BAR("DOB"),4,5),"/",$E(BAR("DOB"),6,7),"/",($E(BAR("DOB"),1,3)+1700) Line Location: PAT+7
Function Call: WRITE	Prompt: " ",$E(BAR("SSN"),1,3),"-",$E(BAR("SSN"),4,5),"-",$E(BAR("SSN"),6,9) Line Location: PAT+9
Function Call: WRITE	Prompt: " ","HRN: ",$P($G(^AUPNPAT(X,41,DUZ(2),0)),"^",2) Line Location: PAT+10
Function Call: WRITE	Prompt: !,BAR("=") Line Location: PAT+11
Function Call: WRITE	Prompt: ! Line Location: MSG+2
Function Call: WRITE	Prompt: DATA Line Location: MSG+3
Function Call: WRITE	Prompt: ! Line Location: MSG+4
Function Call: WRITE	Prompt: $C(7) Line Location: MSG+5

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	HRN+2, PAT+10
^BARAC(	ARDAYS+6, ARDAYS+8, ARDAYS+13, VARDAYS+6, VARDAYS+8, VARDAYS+12, CARDAYS+6, CARDAYS+8, CARDAYS+12
^BARTR(	TRANS+14, TRANS+17, TRANS2+1, TRANS2+5
^DIC(5 - [#5]	CSZ+2
^DPT - [#2]	PAT+4

Name	Line Occurrences
LASTLINE	READWORD+10
READ	WP+5
READWORD	READ+5
SETLINE	READWORD+11
TRANS2	TRANS+17

Name	Field # of Occurrence
^(0	HRN+2, CSZ+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	DATE+1*
>> %DT("A"	DATE+2*
>> %H	TM+4, TM+8
>> %T	TM+5, TM+9
BAR	TRANS~, TRANS+9, TRANS+14, TRANS+17
BAR("="	PAT+1*, PAT+11
BAR("AMPM"	MDT+6*, MDT+8, MDT+11!
BAR("D"	TM+10*, TM+12
BAR("DATE"	MDT+1*, MDT+10, MDT+11!
BAR("DOB"	PAT+6*, PAT+7
BAR("P0"	PAT+4*, PAT+5, PAT+6, PAT+8
BAR("SSN"	PAT+8*, PAT+9
BAR("T"	TM+11*, TM+12
BAR("TIME"	MDT+2, MDT+3, MDT+4, MDT+5, MDT+6, MDT+7, MDT+8, MDT+9, MDT+10, MDT+11!
BAR("TS"	TM+12*, TM+13
BAR(0	ARDAYS+8, ARDAYS+9, ARDAYS+13, ARDAYS+14, VARDAYS+8, VARDAYS+9, VARDAYS+12, VARDAYS+13, CARDAYS+8, CARDAYS+9 , CARDAYS+12, CARDAYS+13
BAR(1	TM+4, TM+5, TM+10, TM+11
BAR(2	TM+8, TM+9, TM+10, TM+11
BARAMT	TRANS+11!, TRANS+19
BARAMT(	TRANS+20
BARAMT("A"	TRANS2+4*
BARAMT("C"	TRANS2+2*
BARAMT("D"	TRANS2+3*
BARAMT("P"	TRANS2+6*
BARCNT	WP+4, WP+6!, SETLINE+1, SETLINE+2, LASTLINE+1*, LASTLINE+2
BARDUZ	TRANS~, TRANS+8, TRANS+15
BAREND	ARDAYS+2~, ARDAYS+4, ARDAYS+10, ARDAYS+12, ARDAYS+15, VARDAYS+2~, VARDAYS+4, VARDAYS+9, VARDAYS+11, VARDAYS+14 , CARDAYS+2~, CARDAYS+4, CARDAYS+9, CARDAYS+11*, CARDAYS+14
BARHOLD	TRANS+12~, TRANS+13*, TRANS+18
>> BARIDR	SETLINE+2, SETLINE+3, LASTLINE+2, LASTLINE+3
BARLNGTH	WP~, WP+3, WP+6!, READ+5, READWORD+4, READWORD+8, READWORD+11
>> BARP("LDFN"	HRN+2
>> BARP("PDFN"	HRN+2
BARRAY	WP~, WP+3, SETLINE+2, LASTLINE+2
BARSTR	WP~, WP+3, WP+5, WP+6!, READ+2, READ+5, READWORD+3, READWORD+8, READWORD+9, READWORD+10 , SETLINE+3, SETLINE+4, LASTLINE+3, LASTLINE+4*
>> BARTIME	CDT+5, CDT+6, CDT+7, XDT+5, XDT+6, XDT+7, TDT+5, TDT+6, TDT+7
>> BARTMP	ARDAYS+9*, ARDAYS+10
BARTR	TRANS+12~, TRANS+16, TRANS+17, TRANS2+1, TRANS2+2, TRANS2+3, TRANS2+4, TRANS2+5, TRANS2+6
BARTXT	WP+6!, READ+4!, READ+5, READWORD+3, READWORD+4, READWORD+9, READWORD+10, READWORD+11
BARTYPE	TRANS~, TRANS+10, TRANS+20
BARWORD	WP+6!, READ+3, READWORD+2, READWORD+3, READWORD+9, SETLINE+3, SETLINE+4
BEEP	MSG~, MSG+5
CBAREND	ARDAYS+2~, ARDAYS+14, ARDAYS+15, VARDAYS+2~, VARDAYS+13, VARDAYS+14, CARDAYS+2~, CARDAYS+13*, CARDAYS+14
>> D0	ARDAYS+6, ARDAYS+8, ARDAYS+13, VARDAYS+6, VARDAYS+8, VARDAYS+12, CARDAYS+6, CARDAYS+8, CARDAYS+12
>> D1	ARDAYS+3, ARDAYS+13, VARDAYS+6, VARDAYS+8, VARDAYS+12, CARDAYS+6, CARDAYS+8, CARDAYS+12
>> D2	VARDAYS+3, VARDAYS+12, CARDAYS+3, CARDAYS+12
DATA	MSG~, MSG+3
DUZ(2	PAT+10, ARDAYS+6, ARDAYS+8, ARDAYS+13, VARDAYS+6, VARDAYS+8, VARDAYS+12, CARDAYS+6, CARDAYS+8, CARDAYS+12 , TRANS+13, TRANS+14, TRANS+15, TRANS+17, TRANS+18, TRANS2+1, TRANS2+5
I	MSG+2, MSG+4, MSG+5, ARDAYS+2~, ARDAYS+5, VARDAYS+2~, VARDAYS+5, CARDAYS+2~, CARDAYS+5
J	ARDAYS+2~, ARDAYS+3, ARDAYS+5, ARDAYS+6, ARDAYS+7, ARDAYS+8, ARDAYS+11, VARDAYS+2~, VARDAYS+3, VARDAYS+5 , VARDAYS+6, VARDAYS+7, VARDAYS+8, VARDAYS+10, CARDAYS+2~, CARDAYS+3, CARDAYS+5, CARDAYS+6, CARDAYS+7, CARDAYS+8 , CARDAYS+10
POST	MSG~, MSG+4
PRE	MSG~, MSG+2
U	HRN+2, CSZ+2, ARDAYS+9, ARDAYS+14, VARDAYS+9, VARDAYS+13, CARDAYS+9, CARDAYS+13, TRANS2+5
X	SDT~, SDT+2, SHDT~, SHDT+2, HDT~, HDT+2, CDT~, CDT+2, CDT+3, CDT+4 , CDT+5, XDT~, XDT+2, XDT+3, XDT+4, XDT+5, TDT~, TDT+2, TDT+3, TDT+4 , TDT+5, MDT~, MDT+1, MDT+2, MDT+5, MDT+10, MDT+12, MDT2~, MDT2+1, MDT2+2 , Y2KDT~, Y2KDT+2, Y2KDT+3, Y2KD2~, Y2KD2+2, Y2KD2+3, HRN~, CSZ~, CSZ+2, TM~ , TM+1, TM+2, TM+6, TM+13, TM+14, PAT~, PAT+4, PAT+10, DATE~, DATE+2 , MSG+1~, ARDAYS+11, ARDAYS+15, VARDAYS+10, VARDAYS+14, CARDAYS+10, CARDAYS+14*
Y	SDT+1~, SDT+2, SDT+3, SHDT+1~, SHDT+2, SHDT+3, HDT+1~, HDT+2, HDT+3, CDT+1~ , CDT+2, CDT+3, CDT+4, CDT+7, CDT+8, XDT+1~, XDT+2, XDT+3, XDT+4, XDT+7* , XDT+8, TDT+1~, TDT+2, TDT+3, TDT+4, TDT+7, TDT+8, Y2KDT+1~, Y2KDT+3, Y2KDT+4 , Y2KD2+1~, Y2KD2+3, Y2KD2+4, HRN+2, HRN+3, CSZ+2*, CSZ+3, TM~, TM+2, TM+6 , DATE+4, MSG+1~

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARDUTL

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 79

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items