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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBATUTL

Package: Integrated Billing

Routine: IBATUTL


Information

IBATUTL ;LL/ELZ - TRANSFER PRICING UTILITES ; 3-SEP-1998

Source Information

Source file <IBATUTL.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Integrated Billing 3 ($$PAT,UPPPF)^IBATFILE  $$DAT2^IBOUTL  ($$FILE,$$SUBFILE)^IBRXUTL  
Kernel 3 $$FMADD^XLFDT  $$UP^XLFSTR  ($$LKUP,$$NNT,CHILDREN,PARENT)^XUAF4  
VA FileMan 3 ^DIC  Y^DIQ  ^DIR  
List Manager 2 FULL^VALM1  (CNTRL,SET)^VALM10  
Registration 2 $$PREF^DGENPTA  $$SITE^VASITE  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 26

Package Total Caller Graph
Integrated Billing 25 IBAT TP MANAGEMENT  IBATCM  IBATEI  IBATEO  IBATEP  IBATER  IBATFILE  IBATLM0  
IBATLM0A  IBATLM1  IBATLM1A  IBATLM1B  IBATLM2  IBATLM2A  IBATLM2B  IBATLM3  
IBATLM3A  IBATO  IBATO1  IBATOP  IBCNERPL  IBECECU1  IBTRKR5  ^IBAT(351.6  
^IBAT(351.62  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
SL() ; -- called to select a patient or enrolled facility
SLPT() ; -- called to select a patient, returns 0 or patient dfn
SLDR(Q) ; -- called to select a date range
; defaults are from=T-365, to=TODAY
; output IBBDT, IBEDT, quit returns 0 if not valid
SLDR1Y() ; -- called to select a date range w/1y past default
; defaults are from=T-365, to=TODAY
; output IBBDT, IBEDT, quit returns 0 if not valid
SLDRQ
PTTRAN(IBFILE,IBARRAY,IBXREF) ; builds a list of patient transactions by date
; assumes DFN, IBBDT, IBEDT
; input IBARRAY - where to store info
; IBXREF - which date x-ref to use
; output 0,6 node of file IBFILE in array specified
LMOPT ; -- called to do standard listmanager option calling
SETVALM(LINE,TEXT,IEN,ON,OFF) ; -- sets up listmanager lines
VISN(STATION) ; -- looks up ien & name of VISN from ien of station
ONEFAC() ; returns one facility only, no visns allowed
FAC() ; -- facility/visn or all selection
REDO
SET(Y)
SCR(X) ; screens invalid institution file entries
PPF(DFN) ; returns patient's enrolled/preferred facility
TPP(DFN) ; returns dfn and files patient if a valid tp patient
SITE() ; returns ien of current va site (this way I have only one outside call
INST(DA) ; returns institution file info
; This will return the station name ^ station number ^ station type
; DA - The pointer value into file 4.
IPT(X) ; returns institution file pointer from name
PROC(X,IBDATE) ; -- returns CPT and descriptive name for cpts
COPAY(DFN,IBFROM,IBBDT,IBEDT) ; -- returns copay amount if any
; dfn=patient's dfn, from=what event the bill is from
; ibbdt & ibedt are date ranges (n/a for rx)
FINDT(X) ; -- looks up transactions for source in X
; returns ien of 351.61 if not cancelled
PIN(P660,P6611) ; return Prosthetics Item Description (#661.1,.02)
; input: P660 - pointer to Patient Item (#660) or P6611 - pointer to HCPCS (#661.1)
; return: pointer to HCPCS (#661.1) ^ Short Description (#661.1,.01) ^ HCPCS (#661.1,.01)
EX(FILE,FIELD,VALUE) ; -- return external value

External References

Name Field # of Occurrence
$$PREF^DGENPTA PPF+3
^DIC SLPT+2, ONEFAC+4, REDO+3, REDO+5
Y^DIQ EX+2
^DIR SL+3, SLDR+7, SLDR+9, SLDR1Y+6, SLDR1Y+9
$$PAT^IBATFILE TPP+4
UPPPF^IBATFILE PPF+5
$$DAT2^IBOUTL SLDR1Y+6, SLDR1Y+9
$$FILE^IBRXUTL COPAY+11
$$SUBFILE^IBRXUTL COPAY+7
$$CPT^ICPTCOD PROC+1
FULL^VALM1 LMOPT+1
CNTRL^VALM10 SETVALM+4
SET^VALM10 SETVALM+2
$$SITE^VASITE SITE+1
$$FMADD^XLFDT SLDR1Y+6, SLDR1Y+9
$$UP^XLFSTR REDO+2
$$LKUP^XUAF4 IPT+1
$$NNT^XUAF4 INST+4
CHILDREN^XUAF4 SET+3, SCR+5
PARENT^XUAF4 VISN+2, SET, SCR+3

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: REDO+0
Function Call: WRITE
  • Prompt: !,"Select a Facility (Name or Number), VISN (VISN XX), or press RETURN for ALL"
  • Line Location: REDO+1
Routine Call
  • DIC
  • Line Location:
    • SLPT+2
    • ONEFAC+4
    • REDO+3
    • REDO+5
Routine Call
  • DIR
  • Line Location:
    • SL+3
    • SLDR+7
    • SLDR+9
    • SLDR1Y+6
    • SLDR1Y+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBAT(351.6 - [#351.6] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( EX+2
^DIC(4 - [#4] INST+3
^IB - [#350] COPAY+8, COPAY+12, COPAY+16
^IB("AF" COPAY+15
^IB("AFDT" COPAY+14
^IBAT( PTTRAN+9, PTTRAN+11, PTTRAN+12
^IBAT(351.6 - [#351.6] PPF+5, PPF+7, TPP+5
^IBAT(351.61 - [#351.61] FINDT+4, FINDT+5
^RMPR(660 - [#660] PIN+4
^RMPR(661.1 - [#661.1] PIN+5

Label References

Name Line Occurrences
$$INST SET+2
$$PPF TPP+3
$$SITE PPF+7, TPP+2
REDO REDO+1, REDO+3
SET REDO+3, REDO+5
SLDRQ SLDR+7, SLDR+10, SLDR1Y+7, SLDR1Y+10

Naked Globals

Name Field # of Occurrence
^( PPF+5
^(0 PPF+7, COPAY+16, FINDT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C EX+1~, EX+2*
DA INST~, INST+3, INST+4
DFN PTTRAN+9, PTTRAN+11, PPF~, PPF+3, PPF+5, PPF+7, TPP~, TPP+3, TPP+4*, TPP+5
, COPAY~, COPAY+14
DIC SLPT+1~, SLPT+2*, ONEFAC+1~, ONEFAC+2*, FAC+1~, FAC+2*
DIC("A" REDO+4*
DIC("S" ONEFAC+3*, FAC+3*
DIC(0 SLPT+2*, ONEFAC+2*, FAC+2*, REDO+4*
DIR SL+1~, SLDR+4~, SLDR1Y+4~
DIR("?" SLDR+6*
DIR("A" SL+2*, SLDR+5*, SLDR+8*, SLDR1Y+5*, SLDR1Y+8*
DIR("B" SLDR1Y+6*, SLDR1Y+9*
DIR(0 SL+2*, SLDR+5*, SLDR+8*, SLDR1Y+5*, SLDR1Y+8*
DIROUT SL+1~, SLDR+4~, SLDR1Y+4~
DIRUT SL+1~, SLDR+4~, SLDR1Y+4~, SLDRQ
DT SLDR1Y+6
DTIME REDO
DTOUT SL+1~, SLPT+1~, SLDR+4~, SLDR1Y+4~, ONEFAC+1~, FAC+1~
DUOUT SL+1~, SLPT+1~, SLDR+4~, SLDR1Y+4~, SLDRQ, ONEFAC+1~, FAC+1~
FIELD EX~, EX+2
FILE EX~, EX+2
IBAMT COPAY+3~*, COPAY+4, COPAY+8*, COPAY+12*, COPAY+23*, COPAY+24
IBARRAY PTTRAN~, PTTRAN+7, PTTRAN+12
IBAT VISN+1~, VISN+3*, VISN+4
IBAT("P" VISN+3, VISN+4
IBBDT SLDR+10*, SLDR1Y+10*, PTTRAN+8, COPAY~, COPAY+22
IBDA COPAY+3~, COPAY+15*, COPAY+16
IBDATE PROC~, PROC+1
IBDT SLDR+4~, SLDR+7*, SLDR+10, SLDR1Y+4~, SLDR1Y+7*, SLDR1Y+9, SLDR1Y+10, PTTRAN+6~, PTTRAN+8*, PTTRAN+9*
, PTTRAN+11, PTTRAN+12
IBEDT SLDR+10*, SLDR1Y+10*, PTTRAN+9, COPAY~, COPAY+14, COPAY+22
IBFAC FAC+1!
IBFAC( SET+2*, SET+3*
IBFILE PTTRAN~, PTTRAN+9, PTTRAN+11, PTTRAN+12
IBFROM COPAY~, COPAY+4, COPAY+5, COPAY+7*, COPAY+8, COPAY+11*, COPAY+12, COPAY+20
IBIEN PTTRAN+6~, PTTRAN+10*, PTTRAN+11*, PTTRAN+12
IBNODE PTTRAN+6~, PTTRAN+12*
IBPPF PPF+1~, PPF+3*, PPF+5, PPF+7, TPP+1~, TPP+3*, TPP+4
IBSITE TPP+1~, TPP+2*, TPP+4
IBVISN SET~, SET+1*, SET+2, SCR+1~, SCR+4*, SCR+6*
IBVISN("C" SCR+6
IBVISN("P" SET+1, SCR+4
IBX COPAY+3~, COPAY+16*, COPAY+17, COPAY+20, COPAY+22, COPAY+23, PIN+3~, PIN+5*
IBXREF PTTRAN~, PTTRAN+9, PTTRAN+11
IBY PIN+3~*, PIN+5*, PIN+6
IEN SETVALM~, SETVALM+3
LINE SETVALM~, SETVALM+1*, SETVALM+2, SETVALM+3, SETVALM+4, SETVALM+5, SETVALM+6
OFF SETVALM~, SETVALM+4
ON SETVALM~, SETVALM+4
P660 PIN~, PIN+4
P6611 PIN~, PIN+4*, PIN+5
Q SLDR~, SLDR+6
STATION VISN~, VISN+2
TEXT SETVALM~, SETVALM+2, SETVALM+4
U PIN+4, PIN+5
>> VALMAR SETVALM+3
>> VALMBCK LMOPT+2*
VALUE EX~, EX+1
X SL+1~, SLPT+1~, SLDR+4~, SLDR1Y+4~, ONEFAC+1~, FAC+1~, REDO*, REDO+1, REDO+2, REDO+5
, SCR~, SCR+3, SCR+5, IPT~, IPT+1, PROC~, PROC+1*, PROC+2, FINDT~, FINDT+2
, FINDT+4
Y SL+1~, SL+4, SLPT+1~, SLPT+3, SLDR+4~, SLDR+7, SLDR+8, SLDR+10, SLDR1Y+4~, SLDR1Y+7
, SLDR1Y+8, SLDR1Y+10, ONEFAC+1~, ONEFAC+5, FAC+1~, REDO+3, REDO+5, SET~, SET+2, SET+3
, COPAY+3~, COPAY+14*, FINDT+3~*, FINDT+4*, FINDT+5, EX+1~*, EX+2, EX+3
Y1 COPAY+3~, COPAY+14*, COPAY+15
Z FINDT+3~*, FINDT+4, FINDT+5*, FINDT+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All