IBATUTL ;LL/ELZ - TRANSFER PRICING UTILITES ; 3-SEP-1998
Source file <IBATUTL.m>
| 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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 | 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: READ |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBAT(351.6 - [#351.6] | Classic Fileman Calls |
| ^DIC(4 - [#4] | Classic Fileman Calls |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PPF+5 |
| ^(0 | PPF+7, COPAY+16, FINDT+5 |
| >> | 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 |
