Routine: BARUTL

Information

BARUTL ; IHS/SD/LSL - UTILITY PROGRAM FOR FAC A/R ; 07/25/2010

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA Fileman	6	^DDS ^DIC FILE^DICN ^DIE $$GET1^DIQ ^DIR
IHS Accounts Receivable	2	($$FIND3PB,EOP)^BARUTL (ADDREGON,BARPSAT,BARSITE,BARSPAR,BARUSR)^BARUTL0
Kernel	2	^%ZIS $$VERSION^XPDUTL
IHS VA Utilities	1	($$DIC,EN)^XBDIQ1
Third Party Billing	1	$$SBR^ABMUTLP

Package	Total	Caller Graph
IHS Accounts Receivable	201	BAR A/R ACCOUNT ENTRY BAR ADJ CATEGORIES BAR AGE DAY LETTER & LIST BAR BILL POSTING SUMMARY BAR CHECK LOOKUP BAR COL ENTRY BAR COL MENU BAR COL POINT EDIT BAR COL POINT PRINT BAR COL RPT BAR DCM SITE PARAM BAR DEBT MANAGEMENT MENU BAR EOB MODEL BAR ERA BATCH/ITEM MATCH BAR ERA BILL MATCHING BAR ERA CHECK SUMMARY BAR ERA CHK NOT BATCHED REPORT BAR ERA CLAIM REPORTS BAR ERA CORRECTIONS RCVD BAR ERA IMPORT DELETE BAR ERA LOAD NEW IMPORT BAR ERA MATCHING LOGIC BAR ERA POST CLAIMS BAR ERA POSTING BAR ERA REVIEW POSTABLE CLAIMS BAR ERA VIEW IMPORT BAR FILEMAN DATA DICTIONARIES BAR FILEMAN REPORTS BAR FM PRINT & SORT HELPS BAR IG REPORT BAR LETTER EDIT BAR MANAGER BAR PARENT FACILITY ADDITION BAR PARENT FACILITY KILL BAR17IT BAR276 BAR3PINQ BAR50BPR BAR50P00 BAR50P04 BAR50P06 BAR50P07 BAR50P08 BAR50P09 BAR50P10 BAR50PA1 BAR50R01 BARAC BARACE BARACSI BARADJRA BARAST BARAWOR BARBAD BARBAD1 BARBAD2 BARBAD3 BARBAD3A BARBAD4 BARBAD5 BARBAD6 BARBAD7 BARBL BARBLOS BARBLOS1 BARCBTR BARCFLD BARCHKLU BARCLRG BARCLU BARCLU0 BARCLU3 BARCLU4 BARDBQ01 BARDBQUE BARDINQ BARDLOG BARDMAN BARDMAN3 BARDRPYR BARDRST BARDSP BAREDBPR BARFPST3 BARNCPDP BARPBEN2 BARPUC2 BARPUC3 BARRASM BARRTRAN BARUFUT ^BAR(90052.05,6613,0) BARDYSCL BAREDP00 BAREDP04 BAREDP06 BAREDP07 BAREDP08 BAREDP09 BAREDP10 BAREDPA1 BAREUTL BARFM BARFPST BARFPST5 BARMAWO1 BARMAWO2 BARMAWO3 BARMAWO7 BARMPAS BARMPAS2 BARMPAS3 BARP1827 BARPADJ BARPBEN BARPG BARPMUP BARPMUP2 BARPNP BARPNP2 BARPNP3 BARPNP4 BARPPY02 BARPRF BARPRF3 BARPRF3A BARPRMK BARPRMKP BARPST BARPST2 BARPST3 BARPST3A BARPST4 BARPST5 BARPST6 BARPST7 BARPSTU BARPTR BARPUC BARPUC3A BARPUC4 BARPUTL BARRADAL BARRADJ BARRADJ2 BARRADJ3 BARRAMR BARRAMR2 BARRAMR3 BARRAOI BARRASM2 BARRASMB BARRATS BARRBSL BARRCHK BARRCXL BARRCXL1 BARRCXL2 BARRERL BARRERL2 BARRFCR BARRIDR BARRLBL BARRLBL2 BARRLBL3 BARRNBRA BARRNBRB BARRNEG2 BARROLL BARRPAY BARRPPS BARRPRAC BARRPRP BARRPSRA BARRPSRB BARRPTD BARRPTU0 BARRPVC BARRSLDX BARRSYNC BARRTAR BARRTAR2 BARRTAR3 BARRUTL BARTR BARTRANS BARTRANT BARTRNS3 BARTRNS4 BARUFCAS BARUFEX3 BARUFRP3 BARUFRPT BARUFSUP BARUFUT1 BARUFUT4 BARUFUTZ BARUTL BARUTL0 BARWRVR SUB EOB(S)
Tucson	1	BZSMAWO3

Entry Points

Name	Comments	DBIA/ICR reference
PATCH(PKG,VER)	;EP - returns last patch applied for a Package, PATCH^DATE ; Patch includes Seq # if Released
GROUPLAN(BARBL)	; Return Group Plan (from Employer Group Insurance file) ; BARBL = A/B Bill IEN
FIND3PB2	;
EFNUM	;----------
KILLREG	;EP ; Kill off a complete region
FNUM	;;$T filenumber to be regionally added/deleted
SPEDIT	;EP - Site Parameter edit
BARBL	;EP ; setup BARBL( array from the A/R bill file
BAL(X,Y)	;EP ; balance at end of FM DATE y FOR ACCOUNT x
UPC(X)	;EP - convert x to upper case
SBR(BARDUZ,BARBL)	; EP CALLED AS FUNCTION FROM BARRAOI
LWC(X)	;EP - convert x to lower case
INIT	;EP Initialize Environment
CHKFILES	;EP ; CHECK FILES
ADDREGON	;EP ; add a regional site (needs DUZ(2))
CLIDED	;EP COLLECTION ID file edit
PSHLP	;EP list par/sat and hot keys
INSIEN(BAR1,BAR2,BAR3)	; EP
FIND3PB(DUZO2,BARBLDA)
NEWBILL	;EP ; file^dicn a new BIll with dic(dr)
EOP(X)	;EP ; end of page

External References

Name	Field # of Occurrence
^%ZIS	INIT+3
$$SBR^ABMUTLP	SBR+15
$$FIND3PB^BARUTL	SBR+9
EOP^BARUTL	KILLREG+11, KILLREG+25
ADDREGON^BARUTL0	ADDREGON+2
BARPSAT^BARUTL0	INIT+27
BARSITE^BARUTL0	INIT+25
BARSPAR^BARUTL0	INIT+26, NEWBILL+5, NEWBILL+15
BARUSR^BARUTL0	INIT+24, CLIDED+1
^DDS	CLIDED+23
^DIC	CLIDED+6, SPEDIT+3, FIND3PB+21, FIND3PB+23, FIND3PB+25
FILE^DICN	NEWBILL+24
^DIE	CLIDED+17, NEWBILL+13, SPEDIT+9
$$GET1^DIQ	INSIEN+11, INSIEN+13, GROUPLAN+6, GROUPLAN+7, GROUPLAN+10, GROUPLAN+11, GROUPLAN+18, GROUPLAN+19, GROUPLAN+23, GROUPLAN+27 , GROUPLAN+32, GROUPLAN+33
^DIR	KILLREG+17, EOP+12
$$DIC^XBDIQ1	NEWBILL+9
EN^XBDIQ1	BARBL+9, KILLREG+7
$$VERSION^XPDUTL	PATCH+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"USER / SITE IS NOT CORRECTLY SETUP" Line Location: INIT+10
Function Call: WRITE	Prompt: !,"CONTACT YOUR A/R MANAGER",*7 Line Location: INIT+11
Function Call: WRITE	Prompt: !,$P(^DIC(4,DUZ(2),0),U)," IS NOT REGIONALLY SETUP" Line Location: INIT+17
Function Call: WRITE	Prompt: !,"CONTACT YOUR A/R MANAGER",*7 Line Location: INIT+18
Function Call: WRITE	Prompt: !,$P(^DIC(BARFLNUM,0),U)," Needs to have entries added !" Line Location: CHKFILES+9
Function Call: WRITE	Prompt: !,?5,BARTMP(.01),"DOES NOT EXIT" Line Location: KILLREG+9
Function Call: WRITE	Prompt: !,"DELETED: ",?10,$P(@BARGL,U) Line Location: KILLREG+21
Function Call: WRITE	Prompt: !!,BARTMP(.01)," Has been DELETED",! Line Location: KILLREG+23
Function Call: WRITE	Prompt: !,BARPSAT(Y,2),?5,BARPSAT(Y,.01) Line Location: PSHLP+3
Function Call: WRITE	Prompt: ! Line Location: EOP+7
Function Call: WRITE	Prompt: !,"BARBL=",BARBL," Patient (Policy Holder lookup) is null" Line Location: GROUPLAN+14
Routine Call	DIE Line Location: CLIDED+17 NEWBILL+13 SPEDIT+9
Routine Call	DDS Line Location: CLIDED+23
Routine Call	DIC Line Location: CLIDED+6 SPEDIT+3 FIND3PB+21 FIND3PB+23 FIND3PB+25
Routine Call	DIR Line Location: KILLREG+17 EOP+12
Routine Call	%ZIS Line Location: INIT+3

FileNo	Call Tags
^AUPN3PPH - [#9000003.1]	GET1^DIQ
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARAC(2906 - [#90050.02]	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ
^AUTNEGRP - [#9999999.77]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	FIND3PB2+3, FIND3PB2+4
^AUPN3PPH("C"	GROUPLAN+22
^BAR(90052.06	NEWBILL+2, NEWBILL+16
^BARBL(	INIT+16, KILLREG+8, FIND3PB+10, FIND3PB+12, FIND3PB+13, FIND3PB+20, FIND3PB+22, FIND3PB+24
^BARTR(	BAL+5, BAL+6
^DIC - [#1]	CHKFILES+5, CHKFILES+9, KILLREG+20
^DIC(4 - [#4]	INIT+9, INIT+17
^DIC(9.4 - [#9.4]	PATCH+4, PATCH+5, PATCH+7, PATCH+8, PATCH+9
^TMP($J	GROUPLAN+15, GROUPLAN+16*

Label References

Name	Line Occurrences
CHKFILES	INIT+23
CLIDED	CLIDED+24
EOP	INIT+6, INIT+13, INIT+20, NEWBILL+4, CHKFILES+10
FIND3PB2	FIND3PB+21, FIND3PB+23, FIND3PB+25
SPEDIT	SPEDIT+11

Naked Globals

Name	Field # of Occurrence
^(0	BAL+6, PATCH+8, PATCH+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ABMP("REL"	SBR+16
BAR	FIND3PB+9~
BAR("3P NAME"	, FIND3PB+10, FIND3PB+11, FIND3PB+18
BAR1	INSIEN~, INSIEN+8, INSIEN+9, INSIEN+11
BAR2	INSIEN~, INSIEN+8, INSIEN+10, INSIEN+11*, INSIEN+12, INSIEN+13
BAR3	INSIEN~, INSIEN+8, INSIEN+10
BAR3DUZ	SBR+8~, SBR+10*, SBR+12, SBR+15
BAR3PDOS	FIND3PB2+1~, FIND3PB2+4*, FIND3PB2+5
BAR3PIEN	SBR+8~, SBR+11*, SBR+13, SBR+15
BAR3PLOC	FIND3PB+21, FIND3PB+23, FIND3PB+25, FIND3PB2+2, FIND3PB2+5, SBR+8~, SBR+9*, SBR+10, SBR+11
BAR3PPAT	FIND3PB2+1~, FIND3PB2+3*, FIND3PB2+5
BARACIEN	GROUPLAN+3~, GROUPLAN+6*, GROUPLAN+7, GROUPLAN+36
BARBL	SBR~, SBR+6, SBR+7, SBR+9, GROUPLAN~, GROUPLAN+6, GROUPLAN+8, GROUPLAN+11, GROUPLAN+12, GROUPLAN+14 , GROUPLAN+15, GROUPLAN+16, GROUPLAN+18, GROUPLAN+19, GROUPLAN+28, GROUPLAN+30, GROUPLAN+31
BARBL("ID"	BARBL+3
BARBLDA	BARBL+4, FIND3PB~, FIND3PB+8, FIND3PB+10, FIND3PB+12, FIND3PB+13, FIND3PB+20, FIND3PB+22, FIND3PB+24
BARBLINS	GROUPLAN+3~, GROUPLAN+7*, GROUPLAN+8, GROUPLAN+9
>> BARDA	CLIDED+8*, CLIDED+20
BARDOS	FIND3PB+9~, FIND3PB+13*, FIND3PB2+5
BARDUZ	SBR~, SBR+6, SBR+7, SBR+9
>> BARECNT	CHKFILES+6*, CHKFILES+7
BARFIND	GROUPLAN+3~, GROUPLAN+20, GROUPLAN+22, GROUPLAN+25, GROUPLAN+28, GROUPLAN+30
>> BARFLNUM	CHKFILES+4, CHKFILES+5, CHKFILES+7, CHKFILES+9, KILLREG+19, KILLREG+20
>> BARGL	CHKFILES+5, CHKFILES+6, KILLREG+20, KILLREG+21, KILLREG+22
BARGPIEN	GROUPLAN+3~, GROUPLAN+21, GROUPLAN+27, GROUPLAN+31, GROUPLAN+32, GROUPLAN+33, GROUPLAN+34
BARGPNAM	GROUPLAN+3~, GROUPLAN+32*, GROUPLAN+34
BARGPNUM	GROUPLAN+3~, GROUPLAN+33*, GROUPLAN+34
>> BARHOLD	FIND3PB+19*, FIND3PB+21, FIND3PB+23, FIND3PB+25, FIND3PB+26, FIND3PB2+6
>> BARI	CHKFILES+4, KILLREG+19
>> BARINS	INSIEN+7, INSIEN+13, INSIEN+14, INSIEN+15, INSIEN+16
BARINSE	GROUPLAN+3~, GROUPLAN+10*, GROUPLAN+36
BARINSI	GROUPLAN+3~, GROUPLAN+9*, GROUPLAN+10, GROUPLAN+24, GROUPLAN+36
BARLINE	GROUPLAN+4~, GROUPLAN+5*
BARPAT	FIND3PB+9~, FIND3PB+12, FIND3PB2+5, GROUPLAN+11, GROUPLAN+12, GROUPLAN+22, GROUPLAN+35
BARPH	GROUPLAN+4~, GROUPLAN+22*, GROUPLAN+23, GROUPLAN+26
BARPHIEN	GROUPLAN+4~, GROUPLAN+26*, GROUPLAN+27, GROUPLAN+35
>> BARPHINS	GROUPLAN+23*, GROUPLAN+24, GROUPLAN+35
BARPOLH	GROUPLAN+4~, GROUPLAN+18*, GROUPLAN+35
BARPOLN	GROUPLAN+4~, GROUPLAN+19*
>> BARPSAT(	PSHLP+3
BARQUIT	INIT+5, INIT+12, INIT+19, CHKFILES+2!, CHKFILES+8, CHKFILES+10
>> BARREL	SBR+16*
>> BARSBR	SBR+15*, SBR+17
>> BARSPAR(	NEWBILL+6, NEWBILL+18
>> BARSPAR("ID"	NEWBILL+10
>> BARSPAR(6	NEWBILL+7*
>> BARSPAR(7	NEWBILL+6, NEWBILL+7, NEWBILL+18
>> BARSPAR(9	NEWBILL+18
BARTMP	GROUPLAN+4~, GROUPLAN+12, GROUPLAN+15, GROUPLAN+16
BARTMP(	KILLREG+9, KILLREG+16, KILLREG+23
BARTMPBL	GROUPLAN+4~, GROUPLAN+36*, GROUPLAN+37
BARTMPEG	GROUPLAN+4~, GROUPLAN+34*, GROUPLAN+37
BARTMPPH	GROUPLAN+4~, GROUPLAN+35*, GROUPLAN+37
BARTOT	BAL+2~, BAL+3, BAL+6, BAL+7*, BAL+8
DA	CLIDED+13, CLIDED+19!, CLIDED+20, NEWBILL+8!, NEWBILL+10, NEWBILL+17!, BARBL+3, BARBL+4, KILLREG+6, SPEDIT+6* , FIND3PB+15~
DD	NEWBILL+17!, NEWBILL+23!
>> DDSFILE	CLIDED+22*
>> DEBUG	GROUPLAN+13
DIC	CLIDED+2!, CLIDED+3, CLIDED+7!, CLIDED+12, CLIDED+15!, CLIDED+19!, NEWBILL+17!, NEWBILL+19, BARBL+2~, BARBL+5* , KILLREG+3, SPEDIT+1, SPEDIT+5, FIND3PB+14!, FIND3PB+16*
DIC("DR"	NEWBILL+21*
DIC("S"	CLIDED+4*
DIC(0	CLIDED+5, NEWBILL+20, SPEDIT+2, FIND3PB+17
DIDEL	CLIDED+16, CLIDED+18!, NEWBILL+12, NEWBILL+14!, SPEDIT+8*, SPEDIT+10!
DIE	CLIDED+12, CLIDED+19!, NEWBILL+8!, NEWBILL+9, SPEDIT+5*
DIQ	BARBL+2~, BARBL+7, KILLREG+2!, KILLREG+4
DIQ(0	BARBL+8*
DIR	INIT+1!, KILLREG+10!, KILLREG+13!, KILLREG+24!, EOP+9!, EOP+13!
DIR("A"	KILLREG+16, EOP+11
DIR("B"	KILLREG+15*
DIR(0	KILLREG+14, EOP+10
DLAYGO	NEWBILL+22*, NEWBILL+25!
DO	NEWBILL+17!, NEWBILL+23!
DR	CLIDED+9!, CLIDED+14, CLIDED+19!, CLIDED+21, NEWBILL+8!, NEWBILL+11, NEWBILL+17!, BARBL+2~, BARBL+6, KILLREG+5* , SPEDIT+7*
DT	NEWBILL+7
DUZ(2	INIT+4, INIT+9, INIT+16, INIT+17, NEWBILL+2, KILLREG+6, KILLREG+8, BAL+5, BAL+6, FIND3PB+19 , FIND3PB+20, FIND3PB+21, FIND3PB+22, FIND3PB+23, FIND3PB+24, FIND3PB+25, FIND3PB+26, FIND3PB2+3, FIND3PB2+4, FIND3PB2+5 , FIND3PB2+6
DUZO2	FIND3PB~, FIND3PB+7, FIND3PB+10, FIND3PB+12, FIND3PB+13, FIND3PB+20, FIND3PB+22, FIND3PB+24
I	BAL+2~, BAL+3, BAL+5, BAL+6
IO("S"	EOP+5
>> IOP	INIT+2*
IOSL	EOP+7
IOST	EOP+4
>> IOT	EOP+3
LATEST	PATCH+2~, PATCH+6, PATCH+8, PATCH+9, PATCH+10
PATCH	PATCH+2~, PATCH+6, PATCH+8, PATCH+9*, PATCH+10
PKG	PATCH~, PATCH+3, PATCH+4
PKGIEN	PATCH+2~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8, PATCH+9
SUBIEN	PATCH+2~, PATCH+6, PATCH+7, PATCH+8, PATCH+9
U	INIT+17, CLIDED+11, CHKFILES+9, KILLREG+21, FIND3PB+10, FIND3PB+12, FIND3PB+13, FIND3PB+20, FIND3PB+22, FIND3PB+24 , FIND3PB2+3, FIND3PB2+4, PATCH+8, PATCH+9, PATCH+10, GROUPLAN+8, GROUPLAN+12, GROUPLAN+28, GROUPLAN+30, GROUPLAN+31 , GROUPLAN+37
VER	PATCH~, PATCH+3*, PATCH+5
VERIEN	PATCH+2~, PATCH+5*, PATCH+7, PATCH+8, PATCH+9
X	NEWBILL+18, BAL~, BAL+5, EOP~, EOP+8, EOP+11, UPC~, UPC+2, LWC~, LWC+2 , FIND3PB+18
XB	BARBL+2~
Y	CLIDED+7, CLIDED+8, CLIDED+11, CLIDED+13, KILLREG+18, SPEDIT+4, SPEDIT+6, PSHLP+1~, PSHLP+2, PSHLP+3 , BAL~, BAL+4, BAL+5, UPC+1~, UPC+2, UPC+3, LWC+1~, LWC+2*, LWC+3, FIND3PB+21 , FIND3PB+23, FIND3PB+25, FIND3PB2+3, FIND3PB2+4, FIND3PB2+5
>> ZTQUEUED	EOP+6

Marked Items

Name	Field # of Occurrence
$T(FNUM+BARI	CHKFILES+4, KILLREG+19

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARUTL

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 202

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