IBATUTL ;LL/ELZ - TRANSFER PRICING UTILITES ; 3-SEP-1998
Source file <IBATUTL.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBAT(351.6 - [#351.6] | Classic Fileman Calls |
^DIC(4 - [#4] | Classic Fileman Calls |