Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BARDYSVZ

Package: IHS Accounts Receivable

Routine: BARDYSVZ


Information

BARDYSVZ ; IHS/SD/MAS,TPF - OMB - DAYS TO COLLECTION REPORT FOR SQL ; 02/09/2009

Source Information

Source file <BARDYSVZ.m>

Call Graph

Call Graph Total: 8

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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All