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 |
