Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBAT(351.6 - [#351.6] Classic Fileman Calls
^DIC(4 - [#4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call