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

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

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  IBCNVRP2  IBTRKR5  ^IBAT(351.6  ^IBAT(351.62  
IBCNERPL  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
PROC(X,IBDATE) ; -- returns CPT and descriptive name for cpts
SCR(X) ; screens invalid institution file entries
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)
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
ONEFAC() ; returns one facility only, no visns allowed
SETVALM(LINE,TEXT,IEN,ON,OFF) ; -- sets up listmanager lines
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
TPP(DFN) ; returns dfn and files patient if a valid tp patient
PPF(DFN) ; returns patient's enrolled/preferred facility
FINDT(X) ; -- looks up transactions for source in X
; returns ien of 351.61 if not cancelled
SLDR(Q) ; -- called to select a date range
; defaults are from=T-365, to=TODAY
; output IBBDT, IBEDT, quit returns 0 if not valid
FAC() ; -- facility/visn or all selection
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)
SL() ; -- called to select a patient or enrolled facility
INST(DA) ; returns institution file info
; This will return the station name ^ station number ^ station type
; DA - The pointer value into file 4.
VISN(STATION) ; -- looks up ien & name of VISN from ien of station
IPT(X) ; returns institution file pointer from name
REDO
EX(FILE,FIELD,VALUE) ; -- return external value
SLPT() ; -- called to select a patient, returns 0 or patient dfn
SET(Y)
LMOPT ; -- called to do standard listmanager option calling
SITE() ; returns ien of current va site (this way I have only one outside call

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
  • Timeout: DTIME
  • Variable: X
  • 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