Call Graph
Call Graph Total: 4
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 2 | RX^PSO52API $$GETNDC^PSONDCUT |
| Integrated Billing | 1 | $$RXAPI1^IBNCPUT1 |
| VA FileMan | 1 | GETS^DIQ |
IBEFUNC3 ;ALB/ARH - EXTRINSIC FUNCTIONS ;26-FEB-02
Source file <IBEFUNC3.m>
| Package | Total | Call Graph |
|---|---|---|
| Outpatient Pharmacy | 2 | RX^PSO52API $$GETNDC^PSONDCUT |
| Integrated Billing | 1 | $$RXAPI1^IBNCPUT1 |
| VA FileMan | 1 | GETS^DIQ |
| 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 |
|---|---|---|
| BDSRC(IBVIFN) | ; Check if billable Visit Data Source (9000010,81203)
; only 'PROSTHETICS DATA' is non-billable (patch IB*2*174) (these are item, not visits) ; Input: IBVIFN pointer to Visit (9000010) ; Returns: true if Billable Data Source |
|
| VALNDC(IBIFN,IBDFN,IBRXARY) | ; NDC validation between file 362.4 and 52
; IB*2*363 - NDC from file 352.4 can become out-of-synch with the latest ; NDC# stored in the PRESCRIPTION file (#52) as the NDC can change after ; the bill has been entered. This algorithm compares the NDC# between ; the 2 files and returns a value which represents whether the NDC# values ; are the same or not the same. ; input - IBIFN = internal entry number of BILL/CLAIMS file (#399) ; IBDFN = internal entry number of PATIENT file (#2) associated with the billing record ; output - IBRXARY = array (passed in by reference) representing the collection of Rx records ; that have different NDC#S between IB and OP files. ; IBARRAY = array containing values returned from the entry in file 362.4 ; IBDA = internal entry number of the entry in file 362.4 ; IBRXDA = pointer to entry in the PRESCRIPTION file (#52) associated with billing record ; IBDATE = Fill/refill date taken from entry in 362.4 ; IBNDC = National Drug Code (NDC) number taken from entry in 362.4 ; IB52NDC = NDC number taken from entry in file 52 associated with the billing record |
|
| GETNDC(IBDFN,IBRXIEN,IBDT) | ; get NDC# associated with fill/refill in file 52
; Approved usage of $$GETNDC^PSONDCUT function (IA 4705) ; Input - IBDFN = internal entry number of PATIENT file (#2) associated with the billing record ; IBRXIEN = internal entry number of PRESCRIPTION file (#50) associated with the ; billing record ; IBDT = Fill/refill date taken from entry in 362.4 ; Output - IBRXNDC = NDC number taken from sub-entry of REFILL multiple of file 52 associated ; with the billing record ; ; IB52DT = Fill/refill date taken from top entry or refill multiple of 52 |
| FileNo | Call Tags |
|---|---|
| ^IBA(362.4 - [#362.4] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | BDSRC+6 |
| ^IBA(362.4 - [#362.4] | VALNDC+19 |
| ^PX(839.7 - [#839.7] | BDSRC+6 |
| ^TMP($J | VALNDC+18!, GETNDC+12, GETNDC+13, GETNDC+19, GETNDC+20 |
| Name | Line Occurrences |
|---|---|
| $$GETNDC | VALNDC+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| IB52DATE | VALNDC+16~ |
| IB52DT | GETNDC+9~, GETNDC+12*, GETNDC+13, GETNDC+20*, GETNDC+21 |
| IB52NDC | VALNDC+16~, VALNDC+24*, VALNDC+25 |
| IBARRAY | VALNDC+16~ |
| IBARRAY( | VALNDC+21, VALNDC+23 |
| IBDA | VALNDC+16~, VALNDC+19*, VALNDC+20, VALNDC+21, VALNDC+23 |
| IBDATE | VALNDC+16~, VALNDC+21*, VALNDC+24 |
| IBDFN | VALNDC~, VALNDC+24, GETNDC~, GETNDC+11, GETNDC+12, GETNDC+13, GETNDC+19, GETNDC+20 |
| IBDS | BDSRC+4~, BDSRC+6* |
| IBDSN | BDSRC+4~*, BDSRC+6*, BDSRC+7 |
| IBDT | GETNDC~, GETNDC+13, GETNDC+21 |
| IBFLG | BDSRC+4~*, BDSRC+7*, BDSRC+8 |
| IBIFN | VALNDC~, VALNDC+19 |
| IBNDC | VALNDC+16~, VALNDC+23*, VALNDC+25 |
| IBQUIT | GETNDC+17~, GETNDC+18*, GETNDC+19, GETNDC+21* |
| IBRFL | VALNDC+16~ |
| IBRXARY | VALNDC~, VALNDC+17! |
| IBRXARY( | VALNDC+25* |
| IBRXDA | VALNDC+16~, VALNDC+21*, VALNDC+22, VALNDC+24, VALNDC+25 |
| IBRXIEN | GETNDC~, GETNDC+11, GETNDC+12, GETNDC+13, GETNDC+19, GETNDC+20, GETNDC+21 |
| IBRXNDC | GETNDC+9~, GETNDC+13*, GETNDC+18*, GETNDC+21*, GETNDC+22 |
| IBSUBDA | GETNDC+17~, GETNDC+18*, GETNDC+19*, GETNDC+20, GETNDC+21 |
| IBVIFN | BDSRC~, BDSRC+6 |
| U | BDSRC+6 |
