IBNCPEV3 ;ALB/DMB - ECME RXS WITH NON-BILLABLE STATUS ;5/22/08
Source file <IBNCPEV3.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | ($$CLSNAME,$$GETDRGCL)^IBNCPEV3 $$RXAPI1^IBNCPUT1 ($$FILE,$$SUBFILE)^IBRXUTL |
| Outpatient Pharmacy | 2 | $$MWC^PSOBPSU2 $$RXRLDT^PSOBPSUT |
| National Drug File | 1 | C^PSN50P65 |
| Pharmacy Data Management | 1 | EN^PSSDI |
| VA FileMan | 1 | $$GET1^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 |
| Package | Total | Caller Graph |
|---|---|---|
| E Claims Management Engine | 1 | BPSRPT1 |
| Integrated Billing | 1 | IBNCPEV3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COLLECT(BEGDT,ENDDT,MWC,RELNRL,IBDRUG,DRUGCLS,ALLRCNT,IBPHARM,IBINS,IBNBSTS,IBELIG1,IBGLTMP,IBPAT,IBBILL,IBMIN,IBMAX) | ;
; Compile the data for the new Non-Billable Status report ; Input: ; BEGDT - Beginning Date ; ENDDT - Ending Date ; MWC - A:All; M:Mail; W:Window; C:CMOP, if multiple entries MWC="C,M" ; RELNRL - 1:All; 2:Released; 3:Not Released ; IBDRUG - 0:All; DRUG to report on (ptr to #50), if multiple entries IBDRUG=ptr,ptr,... ; DRUGCLS - 0:All; DRUG CLASS to report on (ptr to #50.5), if multiple entries DRUGCLS=ptr,ptr,... ; ALLRCNT - A:All; R:Most recent ; IBPHARM/IBPHARM(ptr) - 0:All pharmacies; 1:Array of IENs of pharmacies ; IBINS/IBINS(ptr) - 0:All insurances or list of file 36 IENs ; IBNBSTS/IBNBSTS(x) - 0:All; 1:Array of Non-Billable Status ; IBELIG1/IBELIG1(x) - 0:All; 1:Array of multiple eligibilities ; IBGLTMP - Temporary Global Storage (returned with extracted data) ; IBPAT - 0:All; ptr to #2 PATIENT, IBPAT=ptr,ptr,... ; IBBILL - 0:All; 1:Range of Billed Amount - then check IBMIN and IBMAX ; IBMIN=minimum billed amount entered, default is 0 ; IBMAX=maximum billed amount entered, default is 999999 |
|
| DRUGDIE(IEN,FLD,FORMAT,IBARR) | ;
; Return field values for Drug file ; Function returns field data if one field is specified. If ; multiple fields, the function will return "" and the field ; values are returned in IBARR ; Example: W $$DRUGDIE^IBNCPEV3(134,25,"E",.ARR) ; IEN - IEN of DRUG FILE #50 ; FLD - Field Number(s) (like .01) ; FORMAT - Specifies internal or external value of returned field ; - optional, defaults to "I" ; IBARR - Array to return value(s). Optional. Pass by reference. ; See EN^DIQ documentation for variable DIQ |
|
| CLSNAME(CLASS,IBLEN) | ;
; Get Drug Class Name |
|
| GETINS(IEN,IEN1) | ;
|
|
| CHKINS(LIST,INS) | ;
|
|
| COST(RX,FILL) | ;
; Calculate Drug Cost for RX/Fill ; Input: ; RX: Prescription IEN ; FILL: Fill Number ; Output: ; Drug Cost |
|
| GETDRGCL(BP50) |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(36 - [#36] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(355.3 - [#355.3] | GETINS+18 |
| ^IBCNR(366.14 - [#366.14] | COLLECT+32, COLLECT+33, COLLECT+34, COLLECT+35, COLLECT+56, COLLECT+81, GETINS+12, GETINS+14 |
| ^TMP($J | COLLECT+29!, COLLECT+102*, COLLECT+107, COLLECT+108, COLLECT+109, COLLECT+110, COLLECT+113!, CLSNAME+3!, CLSNAME+7, CLSNAME+8 , CLSNAME+9! |
| Name | Line Occurrences |
|---|---|
| $$CHKINS | COLLECT+52 |
| $$COST | COLLECT+92 |
| $$DRUGDIE | GETDRGCL |
| $$GETINS | COLLECT+51 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ALLRCNT | COLLECT~, COLLECT+102, COLLECT+106 |
| BEGDT | COLLECT~, COLLECT+32 |
| BP50 | GETDRGCL~ |
| CLASS | CLSNAME~, CLSNAME+2, CLSNAME+6 |
| COST | COST+11~, COST+12*, COST+13*, COST+14 |
| DATA | COST+11~ |
| DATE | COLLECT+27~, COLLECT+32*, COLLECT+33, COLLECT+102, COLLECT+103, COLLECT+109*, COLLECT+110, COLLECT+111 |
| DFN | COLLECT+28~, COLLECT+86*, COLLECT+89, COLLECT+102, COLLECT+103, COLLECT+110*, COLLECT+111 |
| DIQ | DRUGDIE+16~ |
| DIV | COLLECT+27~, COLLECT+47*, COLLECT+48, COLLECT+102, COLLECT+103, COLLECT+110*, COLLECT+111 |
| DRGCOST | COLLECT+28~, COLLECT+92*, COLLECT+93, COLLECT+102, COLLECT+103 |
| DRUG | COLLECT+27~, COLLECT+65*, COLLECT+68, COLLECT+71, COLLECT+102, COLLECT+103 |
| DRUGCLS | COLLECT~, COLLECT+72, COLLECT+74 |
| ELIG | COLLECT+27~, COLLECT+82*, COLLECT+83, COLLECT+102, COLLECT+103 |
| ENDDT | COLLECT~, COLLECT+32 |
| FILL | COLLECT+27~, COLLECT+57*, COLLECT+62, COLLECT+77, COLLECT+92, COLLECT+102, COLLECT+103, COLLECT+108*, COLLECT+109, COLLECT+110 , COLLECT+111, COST~, COST+9, COST+12, COST+13 |
| FLD | DRUGDIE~, DRUGDIE+14, DRUGDIE+18, DRUGDIE+19 |
| FORMAT | DRUGDIE~, DRUGDIE+15*, DRUGDIE+17, DRUGDIE+19 |
| GPLAN | GETINS+11~, GETINS+14*, GETINS+15, GETINS+18 |
| I | COLLECT+28~, COLLECT+68*, COLLECT+74*, COLLECT+89*, CHKINS+11~, CHKINS+13* |
| IBARR | DRUGDIE~ |
| IBARR(50 | DRUGDIE+19 |
| IBBILL | COLLECT~, COLLECT+93 |
| >> IBDGCLS | COLLECT+71*, COLLECT+74 |
| IBDGLCS | COLLECT+28~ |
| IBDIQ | DRUGDIE+16~, DRUGDIE+17*, DRUGDIE+18 |
| IBDIQ(0 | DRUGDIE+17* |
| IBDRUG | COLLECT~, COLLECT+66, COLLECT+68 |
| IBELIG1 | COLLECT~, COLLECT+83 |
| IBELIG1( | COLLECT+83 |
| IBGLTMP | COLLECT~, COLLECT+25, COLLECT+103, COLLECT+111 |
| IBINS | COLLECT~, COLLECT+52 |
| IBLEN | CLSNAME~, CLSNAME+8 |
| IBMAX | COLLECT~, COLLECT+93 |
| IBMIN | COLLECT~, COLLECT+93 |
| IBNBSTS | COLLECT~, COLLECT+44 |
| IBNBSTS( | COLLECT+44 |
| IBPAT | COLLECT~, COLLECT+87, COLLECT+89 |
| IBPHARM | COLLECT~, COLLECT+48 |
| IBPHARM( | COLLECT+48 |
| IBSTOP | COLLECT+28~, COLLECT+66, COLLECT+67*, COLLECT+68*, COLLECT+72, COLLECT+73*, COLLECT+74*, COLLECT+87, COLLECT+88*, COLLECT+89* |
| IEN | COLLECT+27~, COLLECT+33*, COLLECT+34, COLLECT+35, COLLECT+51, COLLECT+56, COLLECT+81, DRUGDIE~, DRUGDIE+13, DRUGDIE+18 , DRUGDIE+19, CLSNAME+4~, CLSNAME+7*, CLSNAME+8, GETINS~, GETINS+7, GETINS+12, GETINS+14 |
| IEN1 | COLLECT+27~, COLLECT+34*, COLLECT+35, COLLECT+51, COLLECT+56, COLLECT+81, GETINS~, GETINS+8, GETINS+12, GETINS+14 |
| IEN2 | GETINS+11~, GETINS+12*, GETINS+13, GETINS+14 |
| IN1 | CHKINS+11~, CHKINS+13* |
| INS | COLLECT+27~, COLLECT+51*, COLLECT+52, COLLECT+53*, COLLECT+102, COLLECT+103, COLLECT+110*, COLLECT+111, GETINS+11~, GETINS+18* , GETINS+19, GETINS+20, GETINS+22, CHKINS~, CHKINS+9, CHKINS+13 |
| INSNM | GETINS+11~, GETINS+20*, GETINS+21*, GETINS+22 |
| LIST | CHKINS~, CHKINS+8, CHKINS+13 |
| MWC | COLLECT~, COLLECT+62 |
| PSSDIY | DRUGDIE+16~ |
| QTY | COST+11~, COST+12*, COST+13*, COST+14 |
| RELNRL | COLLECT~, COLLECT+78 |
| RETV | CHKINS+11~, CHKINS+12*, CHKINS+13*, CHKINS+14 |
| RLDT | COLLECT+27~, COLLECT+77*, COLLECT+78, COLLECT+102, COLLECT+103 |
| RX | COLLECT+27~, COLLECT+57*, COLLECT+58*, COLLECT+59, COLLECT+62, COLLECT+65, COLLECT+77, COLLECT+92, COLLECT+99, COLLECT+102 , COLLECT+103, COLLECT+107*, COLLECT+108, COLLECT+109, COLLECT+110, COLLECT+111, COST~, COST+8, COST+12, COST+13 |
| STATUS | COLLECT+28~, COLLECT+99*, COLLECT+102, COLLECT+103 |
| U | COLLECT+44, COLLECT+47, COLLECT+57, COLLECT+58, COLLECT+82, COLLECT+86, COLLECT+102, COLLECT+103, COLLECT+110, COLLECT+111 |
| X | COLLECT+27~, COLLECT+110*, COLLECT+111 |
| X0 | COLLECT+27~, COLLECT+35*, COLLECT+38, COLLECT+41, COLLECT+44, COLLECT+47, COLLECT+86, COLLECT+102, COLLECT+103 |
| X2 | COLLECT+27~, COLLECT+56*, COLLECT+57, COLLECT+58 |
| X7 | COLLECT+27~, COLLECT+81*, COLLECT+82 |
| Y | CLSNAME+4~, CLSNAME+5*, CLSNAME+8*, CLSNAME+10 |
