Routine: BARDYSVZ

Package	Total	Call Graph
VA Fileman	4	^%DT NOW^%DTC $$GET1^DIQ ^DIR
IHS Accounts Receivable	2	SENDFILE^BARDYSV2 $$FILLSTR^BARUFUT1
Kernel	1	($$LAST,$$VERSION)^XPDUTL
Patient Care Component Reports	1	($$CLINIC,$$LOCENC,$$SC)^APCLV

Entry Points

Name	Comments	DBIA/ICR reference
GETTX(BILLIEN)	;EP - GET TRANSACTION DATA
SETVISIT	;EP - SET THE VISIT AND BILL RECORDS SORTED BY VISIT
CURASUFC(LOCIEN,BARDOS)	;EP - GET CURRENT ASUFAC BASED ON 'DOS BEGIN' (#102) IN A/R BILL FILE (COPIED FROM BARUFUT1)
GETFILNM(BEGDATE,ENDDATE)	;EP - CREATE FILE NAME (COPIED FROM BARUFUT1)
SETBILL	;EP - SET THE VISIT AND BILL RECORDS SORTED BY BILL
INTERACT	;EP - INTERACTIVE EP
GEREV(BARVDA,VPCCREV)	;EP - GET LAST DATE 'REVIEWED'
LSTMNTH(TODAY)	;EP - COMPY
VISIT(BARBEG,BAREND)	;EP - GET VISIT DATA
GETB(BARVDA)	;EP - GET BILL DATA
BATCH(BARBEG,BAREND)	;EP - ENTER FOR TASKED JOB
ASKBEG	;EP - ASK BEGIN DATE
GETSUFAC()	;EP;GIVEN DUZ(2) (COPIED FROM BARUFUT1) ; get parent from parent/satellite file
GETV(ENTRY)	;
ASKEND	;EP - ASK END DATE
GETFILAG	;CHECK FOR FILE NAME ALREADY USED (COPIED FROM BARUFUT1)
ASKFNAME(BARFILE,BEGDATE,ENDDATE)	;EP - ASK FOR FILENAME (COPIED FROM BARUFUT1)
IHS(DUZ2)	;EP - RETURN TRUE IF IHS AFFILIATION

External References

Name	Field # of Occurrence
^%DT	BATCH+5
NOW^%DTC	ASKEND+8, ASKEND+15, BATCH+6, BATCH+18, BATCH+21, VISIT+8, GETFILAG+1
$$CLINIC^APCLV	GETV+26
$$LOCENC^APCLV	GETV+19
$$SC^APCLV	GETV+6, GETV+9
SENDFILE^BARDYSV2	ASKEND+14, BATCH+17
$$FILLSTR^BARUFUT1	GETFILNM+5, GETFILNM+9
$$GET1^DIQ	GETV+10, GETV+12, GETV+13, GETV+15, GETV+18, GETV+20, GETV+22, GETV+23, GETV+25, GETB+9 , GETB+10, GETB+14, GETB+24, GETB+25, GETB+26, GETB+27, GETB+29, GETTX+12, GETTX+13, GETTX+14 , GETTX+15, GETTX+16, GETTX+17, GETTX+18, GETTX+19, GETTX+20, GETTX+21, GEREV+3, GEREV+8, GEREV+9 , CURASUFC+7, IHS+3
^DIR	INTERACT+1, ASKBEG+6, ASKEND+4, ASKEND+7, ASKEND+11
$$LAST^XPDUTL	GETFILNM+8
$$VERSION^XPDUTL	GETFILNM+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THIS REPORT IS NOT INTENDED FOR NON-IHS FACILITIES!!" Line Location: INTERACT+1
Function Call: WRITE	Prompt: ! Line Location: INTERACT+1
Function Call: WRITE	Prompt: !,"BEGIN DATE CAN NOT BE GREATER THAN ENDING DATE!" Line Location: ASKEND+7
Function Call: WRITE	Prompt: !,"NO DATA FOUND FOR OMB REPORT!" Line Location: ASKEND+11
Function Call: WRITE	Prompt: !,"DESTINATION FILE: ",BARFILE Line Location: ASKEND+13
Function Call: WRITE	Prompt: !!,"File will be created using the following name: ",BARFILE Line Location: ASKFNAME+2
Routine Call	DIR Line Location: INTERACT+1 ASKBEG+6 ASKEND+4 ASKEND+7 ASKEND+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVCA - [#9000010.45]	GET1^DIQ
^APCCCTRL - [#9001000]	GET1^DIQ
^ABMDBILL(2906 - [#9002274.4]	GET1^DIQ
^BARBL(2906 - [#90050.01]	GET1^DIQ
^BARTR(2906 - [#90050.03]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ
9999999.0611	GET1^DIQ
^AUTNINS - [#9999999.18]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	GETB+3, GETB+5, GETTX+3
^ABMDPARM(	BATCH+11
^ABMDTXST - [#9002274.6]	GETB+28
^AUPNVCA("AD"	GEREV+7
^AUPNVSIT("B"	VISIT+9, GETV+3
^AUTTINTY - [#9999999.181]	GETB+11, GETTX+22
^AUTTLOC - [#9999999.06]	CURASUFC+10, CURASUFC+11, CURASUFC+12, IHS+2
^BAR(90052.05	GETSUFAC+9, GETSUFAC+10, GETSUFAC+12, GETSUFAC+14, GETSUFAC+15
^BAR(90052.06	GETSUFAC+7, GETSUFAC+8
^BARBL(	GETB+6, GETB+7, GETTX+4, GETTX+5
^BAROMB($J	ASKEND+11, BATCH+15, VISIT+1!, GETTX+25, GETTX+27, SETVISIT+5, SETVISIT+12, SETVISIT+15, SETVISIT+18, SETBILL+5 , SETBILL+8, SETBILL+11, SETBILL+19*
^BARTR(	GETTX+10
^DD("DD"	GETFILAG+4
^DIC(9.4 - [#9.4]	GETFILNM+6
^XTMP("BARDYSVZ"	ASKBEG+1!, ASKEND+9, ASKEND+11, ASKEND+16, BATCH+2!, BATCH+7, BATCH+12, BATCH+15, BATCH+19, BATCH+22 , GETB+12, GETTX+23

Label References

Name	Line Occurrences
$$ASKFNAME	ASKEND+12, BATCH+16
$$CURASUFC	GETSUFAC+16
$$GEREV	GETV+16
$$GETFILNM	ASKFNAME+1
$$GETSUFAC	GETFILNM+2, GETFILNM+3
$$GETV	VISIT+11
$$IHS	INTERACT+1, BATCH+13
$$LSTMNTH	BATCH+4
ASKBEG	ASKEND+5, ASKEND+11
ASKEND	ASKEND+7
GETB	VISIT+13
GETTX	GETB+32
SETBILL	GETB+30
VISIT	ASKEND+10, BATCH+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASKEND+9, ASKEND+11, ASKEND+16, BATCH+7, BATCH+12, BATCH+15, BATCH+19, BATCH+22, GETFILAG+2, GETFILAG+3 , GETFILAG+4
>> %DT	BATCH+5*
>> ACTINS	GETB+29*, SETVISIT+17, SETBILL+7
ADJCAT	GETTX+2~, GETTX+17*, GETTX+26
ADJTYP	GETTX+2~, GETTX+18*, GETTX+26
>> AFFIL	IHS+3*, IHS+4
ARBILL	GETTX+2~, GETTX+19*, GETTX+20
ASUFAC	GETSUFAC+2~, GETSUFAC+16, GETSUFAC+17, CURASUFC+3~, CURASUFC+4, CURASUFC+7, CURASUFC+9, CURASUFC+12, CURASUFC+15
>> BARALLC	GETB+11, GETTX+22
BARBEG	BATCH~, BATCH+1~, BATCH+4, BATCH+5, BATCH+7, BATCH+14, BATCH+16, VISIT~, VISIT+3, VISIT+6
BARBIL	GETB+1~, GETB+2*
>> BARCS	GETV+26*, GETV+27
>> BARDEP	GETV+23*, GETV+24
BARDOS	CURASUFC~, CURASUFC+2, CURASUFC+11
BARDT	CURASUFC+3~, CURASUFC+5, CURASUFC+10, CURASUFC+11, CURASUFC+12
BARDTFLG	CURASUFC+3~, CURASUFC+6, CURASUFC+10, CURASUFC+13
BAREND	BATCH~, BATCH+1~, BATCH+4, BATCH+5, BATCH+7, BATCH+14, BATCH+16, VISIT~, VISIT+4, VISIT+5 , VISIT+9
BARFILE	ASKEND+12, ASKEND+13, ASKEND+14, BATCH+16, BATCH+17, ASKFNAME~, ASKFNAME+1*, ASKFNAME+2
>> BARLOCN	GETV+20*, SETVISIT+11, SETBILL+18
>> BARMRG	GETV+10*, GETV+11
>> BARMY	VISIT+10*, GETTX+8, SETVISIT+3, SETBILL+3
>> BAROMY	VISIT+6*
BARP2	GETFILNM+1~, GETFILNM+5*, GETFILNM+10
BARP3	GETFILNM+1~, GETFILNM+9*, GETFILNM+10
BARPAR	GETSUFAC+2~, GETSUFAC+4, GETSUFAC+7, GETSUFAC+15, GETSUFAC+16
BARPK	GETFILNM+1~, GETFILNM+6, GETFILNM+7, GETFILNM+8
BARPT	GETFILNM+1~, GETFILNM+8*, GETFILNM+9
BARSAT	GETSUFAC+2~, GETSUFAC+3*, GETSUFAC+9, GETSUFAC+10, GETSUFAC+12, GETSUFAC+14, GETSUFAC+15
>> BARSCAT	GETV+6, GETV+7, GETV+9, SETVISIT+6, SETBILL+13
>> BARTPBF	GETV+25*
>> BARV	GETFILNM+4*, GETFILNM+5, GETFILNM+8, GETFILNM+10
>> BARVADMT	GETV+13*, GEREV+4, SETVISIT+9, SETBILL+16
BARVDA	VISIT+11, VISIT+12, VISIT+13, GETV+1~, GETV+2, GETV+7, GETV+11, GETV+24, GETV+27, GETV+28* , GETV+29, GETB~, GETB+3, GETTX+25, GEREV~, GEREV+7, GEREV+9, SETVISIT+3, SETVISIT+5, SETVISIT+12 , SETVISIT+15, SETVISIT+18, SETBILL+8, SETBILL+11, SETBILL+12, SETBILL+19
>> BARVDEL	GETV+22*
>> BARVLOC	GETV+19, GETV+21, GETTX+8, GETTX+25, GETTX+27, SETVISIT+3, SETVISIT+5, SETVISIT+12, SETVISIT+15, SETVISIT+18 , SETBILL+3, SETBILL+5, SETBILL+8, SETBILL+11, SETBILL+19
>> BARVTYP	GETV+18*, SETVISIT+7, SETBILL+14
>> BARYR	VISIT+7*
BEGDATE	ASKBEG+2~, ASKBEG+8*, ASKEND+7, ASKEND+9, ASKEND+10, ASKEND+12, ASKFNAME~, ASKFNAME+1, GETFILNM~, GETFILAG+8
>> BEGIN	LSTMNTH+12*, LSTMNTH+14
>> BILL3P	GETB+5, GETB+6, GETTX+3, GETTX+4
>> BILLAMT	GETB+26*, SETVISIT+17, SETBILL+7
>> BILLAPP	GETB+25*, SETVISIT+17, SETBILL+7
>> BILLAR	GETB+6, GETB+7, GETTX+4, GETTX+5
>> BILLEXP	GETB+27, GETB+28, SETVISIT+17, SETBILL+7
BILLIEN	GETB+1~, GETB+2, GETB+3, GETB+4, GETB+5, GETB+32, GETTX~, GETTX+3, GETTX+8, GETTX+27 , SETVISIT+15, SETVISIT+16, SETVISIT+18, SETBILL+3, SETBILL+5, SETBILL+6, SETBILL+8, SETBILL+11, SETBILL+19
BILLNUM	GETB+1~, GETB+24*, SETVISIT+17, SETBILL+7
BILLREC	SETVISIT+1~, SETVISIT+2, SETVISIT+16, SETVISIT+17, SETVISIT+18, SETBILL+1~, SETBILL+2, SETBILL+6, SETBILL+7, SETBILL+8
BILLSTA	GETB+1~, GETB+14, GETB+15, GETB+23
BLLARIEN	GETB+7, GETB+8, GETB+9, GETTX+2~, GETTX+5, GETTX+6, GETTX+10
CNT	GETV+1~, GETV+3*, GETV+4
>> CREDDEB	GETTX+16*, GETTX+26
>> CURAMT	GETTX+20*, GETTX+26
>> D	BATCH+4, BATCH+5
DA	GETSUFAC+2~, GETSUFAC+6, GETSUFAC+7, GETSUFAC+8, GETSUFAC+9, GETSUFAC+10, GETSUFAC+12, GETSUFAC+14, GETSUFAC+15
DATE	GETFILNM+1~, GETFILAG+3*, GETFILAG+7
DATERANG	GETFILNM+1~, GETFILAG+8*, GETFILAG+9
DATETIME	GETFILNM+1~, GETFILAG+7*, GETFILAG+9
DAYS	LSTMNTH+1~
DIR	INTERACT+1!, ASKBEG+3!, ASKEND+1!, ASKEND+7!, ASKEND+11!
DIR("A"	ASKBEG+5, ASKEND+3
DIR(0	INTERACT+1, ASKBEG+4, ASKEND+2, ASKEND+7, ASKEND+11*
>> DIRUT	ASKBEG+7, ASKEND+5
DT	BATCH+4, BATCH+5, VISIT+7, GETSUFAC+12, GETSUFAC+14, GETSUFAC+16
>> DTOUT	ASKBEG+7, ASKEND+5
>> DUOUT	ASKBEG+7, ASKEND+5
DUZ	GETFILNM+2, GETFILNM+3
DUZ(2	INTERACT+1, ASKEND+9, ASKEND+11, ASKEND+16, BATCH+9, BATCH+10, BATCH+11, BATCH+12, BATCH+13, BATCH+15 , BATCH+19, BATCH+20*, GETB+3, GETB+5, GETB+6, GETB+7, GETB+28, GETTX+3, GETTX+4, GETTX+5 , GETTX+10, GEREV+3, GETSUFAC+3, CURASUFC+7
DUZ2	BATCH+8~, BATCH+9*, BATCH+20, IHS~, IHS+2, IHS+3
EARLIEST	GEREV+2~
>> END	LSTMNTH+13*, LSTMNTH+14
ENDDATE	ASKBEG+2~, ASKEND+6*, ASKEND+7, ASKEND+9, ASKEND+10, ASKEND+12, ASKFNAME~, ASKFNAME+1, GETFILNM~, GETFILAG+8
ENDDAY	LSTMNTH+1~, LSTMNTH+9*, LSTMNTH+13
ENTRY	VISIT+2~, VISIT+3, VISIT+9, VISIT+10, VISIT+11, GETV~, GETV+3
FMYR	LSTMNTH+1~, LSTMNTH+2, LSTMNTH+10, LSTMNTH+12, LSTMNTH+13
FN	GETFILNM+1~, GETFILNM+12, GETFILAG+9, GETFILAG+10*, GETFILAG+11
FNEXT	GETFILNM+1~, GETFILNM+11*, GETFILAG+10
FNROOT	GETFILNM+1~, GETFILNM+2*, GETFILNM+12, GETFILAG+9
>> FNXREF	GETFILNM+3*
>> FNXT	GETFILNM+10*, GETFILNM+11
IENS	GETV+5, GETV+10, GETV+12, GETV+13, GETV+15, GETV+18, GETV+20, GETV+22, GETV+23, GETV+25 , GETB+1~, GETB+4, GETB+14, GETB+24, GETB+25, GETB+26, GETB+27, GETB+29, GETTX+2~, GETTX+11* , GETTX+12, GETTX+13, GETTX+14, GETTX+15, GETTX+16, GETTX+17, GETTX+18, GETTX+19
INSPTR	GETB+1~, GETB+9, GETB+10, GETTX+14, GETTX+21
INSTYP	GETB+1~, GETB+10, GETB+12, GETB+13, GETTX+2~, GETTX+21, GETTX+23, GETTX+24, GETTX+26
INSURER	GETTX+2~, GETTX+13*, GETTX+26
>> ISNTYP	GETB+11, GETTX+22
LOCIEN	CURASUFC~, CURASUFC+1, CURASUFC+10, CURASUFC+11, CURASUFC+12
LSTMNTH	LSTMNTH+1~, LSTMNTH+4, LSTMNTH+5, LSTMNTH+6, LSTMNTH+10, LSTMNTH+11, LSTMNTH+12, LSTMNTH+13
>> PCCREV	GETV+16, GEREV+6, GEREV+9, GEREV+10, GEREV+11*, GEREV+12, SETVISIT+10, SETBILL+17
QUEAUDIT	GEREV+2~, GEREV+3*, GEREV+4
RANGE	BATCH+1~, BATCH+4*
>> RC	ASKEND+12, BATCH+16
REC	IHS+1~, IHS+2*, IHS+3
RECHDR	GETTX+2~, GETTX+8, GETTX+26, SETVISIT+1~, SETVISIT+3, SETVISIT+6, SETVISIT+16, SETBILL+1~, SETBILL+3*, SETBILL+6 , SETBILL+12
STARTDAY	LSTMNTH+1~, LSTMNTH+8*, LSTMNTH+12
>> THISMNTH	LSTMNTH+3*, LSTMNTH+10
TIME	GETFILNM+1~, GETFILAG+5, GETFILAG+6, GETFILAG+7
TMP	GEREV+2~, GEREV+6, GEREV+7, GEREV+8
TODAY	LSTMNTH~, LSTMNTH+2, LSTMNTH+3, LSTMNTH+4
TRANDATE	GETTX+2~, GETTX+9, GETTX+10, GETTX+11, GETTX+25, GETTX+26, GETTX+27
TRANREC	GETTX+26*, GETTX+27, SETVISIT+1~, SETBILL+1~
>> TRANTYP	GETTX+15*, GETTX+26
TRANTYPE	GETTX+2~
U	ASKEND+9, BATCH+4, BATCH+5, BATCH+7, LSTMNTH+7, LSTMNTH+14, GETV+7, GETB+5, GETB+11, GETB+28 , GETTX+3, GETTX+8, GETTX+22, GETTX+26, SETVISIT+3, SETVISIT+6, SETVISIT+7, SETVISIT+8, SETVISIT+9, SETVISIT+10 , SETVISIT+11, SETVISIT+12, SETVISIT+16, SETVISIT+17, SETVISIT+18, SETBILL+3, SETBILL+6, SETBILL+7, SETBILL+8, SETBILL+12 , SETBILL+13, SETBILL+14, SETBILL+15, SETBILL+16, SETBILL+17, SETBILL+18, SETBILL+19, GETSUFAC+10, GETSUFAC+12, GETSUFAC+14 , GETSUFAC+15, CURASUFC+11, CURASUFC+12
VISITIEN	GETV+1~, GETV+2, GETV+3, GETV+5, GETV+6, GETV+9, GETV+16, GETV+19, GETV+26, GETV+28
VISITREC	SETVISIT+1~, SETVISIT+2, SETVISIT+6, SETVISIT+7, SETVISIT+8, SETVISIT+9, SETVISIT+10, SETVISIT+11, SETVISIT+12, SETBILL+1~ , SETBILL+2, SETBILL+12, SETBILL+13, SETBILL+14, SETBILL+15, SETBILL+16, SETBILL+17, SETBILL+18*, SETBILL+19
VPCCREV	GETV+15*, GETV+16, GEREV~, GEREV+4, GEREV+11
>> VSITCRET	GETV+12*, SETVISIT+8, SETBILL+15
>> X	BATCH+5, LSTMNTH+6, LSTMNTH+7*, LSTMNTH+9
>> X1	LSTMNTH+7*
>> Y	ASKBEG+7, ASKBEG+8, ASKEND+5, ASKEND+6, BATCH+5, GETFILAG+4*, GETFILAG+5
YR	GETFILNM+1~, GETFILAG+2*, GETFILAG+3
>> ZTQUEUED	BATCH+3*, GETV+4

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARDYSVZ

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: