BPSOSCD ;BHAM ISC/FCS/DRS/DLF - Set BPS() "RX" nodes for current medication ;06/01/2004
Source file <BPSOSCD.m>
| Package | Total | Call Graph |
|---|---|---|
| E Claims Management Engine | 5 | $$NPI^BPSNPI LOG^BPSOSL $$GET511^BPSOSO2 ($$DRUGDIE,$$RXAPI1,$$RXSUBF1)^BPSUTIL1 $$COB59^BPSUTIL2 |
| Kernel | 4 | $$NOW^XLFDT NAMECOMP^XLFNAME ($$LJ,$$RJ)^XLFSTR $$MADD^XUAF4 |
| Outpatient Pharmacy | 2 | PSS^PSO59 $$GETNDC^PSONDCUT |
| Integrated Billing | 1 | $$ACPHONE^IBNCPDPI |
| Registration | 1 | $$SITE^VASITE |
| 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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MEDINFO(IEN59,IEN5902,MEDN) | ;
; Verify Parameters |
|
| OVERRIDE(IEN59,MEDN) | ;
|
|
| DURVALUE(IEN59,MEDN) | ;
|
|
| COB(IEN59,MEDN) | ; process the COB fields and build the COB array
; Code for Benefit Stages multiple not implemented yet (except by ; certification) |
|
| PRVADRS(IEN59,PRVIEN) | ; site address for a provider
; returns "street address^city^st^zip" ; IEN59=BPS TRANSACTION (#9002313.59) ien ; PRVIEN=provider IEN in NEW PERSON file (#200) |
|
| PRVADX | ;
|
|
| COUNTRY(STATE,IEN) | ;
; Convert STATE abbreviation into a ISO-3166-1 country code ; Input: ; STATE: State Abbreviation ; Output: ISO-3166-1 Country Code |
| Name | Field # of Occurrence |
|---|---|
| $$NPI^BPSNPI | MEDINFO+40 |
| LOG^BPSOSL | MEDINFO+90 |
| $$GET511^BPSOSO2 | OVERRIDE+3 |
| $$DRUGDIE^BPSUTIL1 | MEDINFO+119 |
| $$RXAPI1^BPSUTIL1 | MEDINFO+30, MEDINFO+60, MEDINFO+65, MEDINFO+95, MEDINFO+96, MEDINFO+98, MEDINFO+99, MEDINFO+108, MEDINFO+116 |
| $$RXSUBF1^BPSUTIL1 | MEDINFO+101, MEDINFO+102, MEDINFO+104, MEDINFO+105 |
| $$COB59^BPSUTIL2 | MEDINFO+19 |
| $$GET1^DIQ | MEDINFO+33, MEDINFO+46, MEDINFO+98, MEDINFO+104, MEDINFO+108, COB+19, PRVADRS+11, PRVADRS+20, PRVADRS+24, PRVADRS+26 , COUNTRY+20 |
| $$ACPHONE^IBNCPDPI | MEDINFO+38 |
| PSS^PSO59 | PRVADRS+18 |
| $$GETNDC^PSONDCUT | MEDINFO+90 |
| $$SITE^VASITE | MEDINFO+99, MEDINFO+105 |
| $$NOW^XLFDT | MEDINFO+83 |
| NAMECOMP^XLFNAME | MEDINFO+34 |
| $$LJ^XLFSTR | MEDINFO+85 |
| $$RJ^XLFSTR | MEDINFO+99, MEDINFO+105 |
| $$MADD^XUAF4 | PRVADRS+20 |
| FileNo | Call Tags |
|---|---|
| 100.008 | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DIC(5 - [#5] | GET1^DIQ |
| ^BPS(9002313.2 - [#9002313.2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BPST - [#9002313.59] | MEDINFO+9, MEDINFO+71, MEDINFO+89, MEDINFO+113, MEDINFO+122, OVERRIDE+2, DURVALUE+4, DURVALUE+5, COB+9, COB+11 , COB+14, COB+17, COB+18, COB+25, COB+26, PRVADRS+15 |
| ^BPSTL - [#9002313.57] | MEDINFO+81 |
| ^BPSTL("B" | MEDINFO+81 |
| ^TMP($J | PRVADRS+17!, PRVADRS+19, PRVADRS+21! |
| Name | Line Occurrences |
|---|---|
| $$COUNTRY | MEDINFO+54 |
| $$PRVADRS | MEDINFO+47 |
| COB | MEDINFO+19 |
| DURVALUE | MEDINFO+16 |
| OVERRIDE | MEDINFO+13 |
| PRVADX | PRVADRS+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | MEDINFO+6~, MEDINFO+113* |
| AD2 | PRVADRS+8~, PRVADRS+28*, PRVADRS+30 |
| ADFEE | MEDINFO+6~, MEDINFO+131*, MEDINFO+132, MEDINFO+134 |
| APDIEN | COB+5~, COB+17*, COB+18, COB+19, COB+20, COB+21 |
| >> BPS("Claim" | MEDINFO+73*, MEDINFO+74*, MEDINFO+77*, MEDINFO+85* |
| >> BPS("NCPDP" | DURVALUE+13 |
| >> BPS("Provider" | MEDINFO+98*, MEDINFO+99*, MEDINFO+104*, MEDINFO+105* |
| >> BPS("RX" | MEDINFO+22*, MEDINFO+23*, MEDINFO+24*, MEDINFO+31*, MEDINFO+35*, MEDINFO+36*, MEDINFO+37*, MEDINFO+38*, MEDINFO+39*, MEDINFO+42* , MEDINFO+43*, MEDINFO+44*, MEDINFO+46*, MEDINFO+48*, MEDINFO+49*, MEDINFO+50*, MEDINFO+51*, MEDINFO+52*, MEDINFO+53*, MEDINFO+54* , MEDINFO+60*, MEDINFO+63*, MEDINFO+64*, MEDINFO+65*, MEDINFO+66*, MEDINFO+67*, MEDINFO+72*, MEDINFO+88*, MEDINFO+91*, MEDINFO+95* , MEDINFO+96*, MEDINFO+101*, MEDINFO+102*, MEDINFO+109*, MEDINFO+113*, MEDINFO+118*, MEDINFO+119*, MEDINFO+123*, MEDINFO+124*, MEDINFO+125* , MEDINFO+126*, MEDINFO+127*, MEDINFO+128*, MEDINFO+129*, MEDINFO+130*, MEDINFO+133*, MEDINFO+134*, DURVALUE+8*, DURVALUE+9*, DURVALUE+10* , DURVALUE+11*, DURVALUE+12*, DURVALUE+14*, DURVALUE+15*, COB+6!, COB+9*, COB+14*, COB+19*, COB+20*, COB+21* , COB+26* |
| >> BPS("Transact | ion Code" , MEDINFO+27, MEDINFO+57 |
| BPS0 | MEDINFO+6~, MEDINFO+9* |
| BPSND | PRVADRS+8~, PRVADRS+17*, PRVADRS+18, PRVADRS+19, PRVADRS+21 |
| COBPIEN | COB+5~, COB+11*, COB+14, COB+17, COB+18, COB+19, COB+20, COB+21, COB+25, COB+26 |
| DATA | COB+5~, COB+18*, COB+19, COB+20, COB+21 |
| DCNT | DURVALUE+1~, DURVALUE+3*, DURVALUE+4*, DURVALUE+5 |
| DRUGIEN | MEDINFO+6~, MEDINFO+116*, MEDINFO+117, MEDINFO+118, MEDINFO+119 |
| DT | MEDINFO+63 |
| DUR | DURVALUE+1~, DURVALUE+3*, DURVALUE+7*, DURVALUE+8, DURVALUE+9, DURVALUE+10, DURVALUE+11, DURVALUE+12, DURVALUE+14, DURVALUE+15 |
| DURREC | DURVALUE+1~, DURVALUE+5*, DURVALUE+6, DURVALUE+9, DURVALUE+10, DURVALUE+11 |
| F | PRVADRS+8~, PRVADRS+24* |
| FDTIME | MEDINFO+81~*, MEDINFO+83*, MEDINFO+85 |
| IEN | PRVADRS+8~, PRVADRS+26*, PRVADRS+30, COUNTRY~, COUNTRY+7, COUNTRY+20 |
| IEN511 | OVERRIDE+1~, OVERRIDE+2*, OVERRIDE+3 |
| IEN57 | MEDINFO+81~* |
| IEN59 | MEDINFO~, MEDINFO+2, MEDINFO+9, MEDINFO+13, MEDINFO+16, MEDINFO+19, MEDINFO+22, MEDINFO+47, MEDINFO+71, MEDINFO+81 , MEDINFO+89, MEDINFO+90, MEDINFO+113, MEDINFO+122, OVERRIDE~, OVERRIDE+2, DURVALUE~, DURVALUE+4, DURVALUE+5, COB~ , COB+9, COB+11, COB+14, COB+17, COB+18, COB+25, COB+26, PRVADRS~, PRVADRS+5, PRVADRS+15 |
| IEN5902 | MEDINFO~, MEDINFO+3, MEDINFO+9 |
| IENS | MEDINFO+6~, MEDINFO+9*, MEDINFO+126, MEDINFO+127, MEDINFO+128, MEDINFO+129, MEDINFO+130, MEDINFO+131 |
| IPTR | PRVADRS+8~, PRVADRS+19*, PRVADRS+20 |
| J | MEDINFO+6~ |
| MEDN | MEDINFO~, MEDINFO+4, MEDINFO+13, MEDINFO+16, MEDINFO+19, MEDINFO+22, MEDINFO+23, MEDINFO+24, MEDINFO+31, MEDINFO+35 , MEDINFO+36, MEDINFO+37, MEDINFO+38, MEDINFO+39, MEDINFO+42, MEDINFO+43, MEDINFO+44, MEDINFO+46, MEDINFO+48, MEDINFO+49 , MEDINFO+50, MEDINFO+51, MEDINFO+52, MEDINFO+53, MEDINFO+54, MEDINFO+60, MEDINFO+63, MEDINFO+64, MEDINFO+65, MEDINFO+66 , MEDINFO+67, MEDINFO+72, MEDINFO+73, MEDINFO+74, MEDINFO+77, MEDINFO+85, MEDINFO+88, MEDINFO+91, MEDINFO+95, MEDINFO+96 , MEDINFO+98, MEDINFO+99, MEDINFO+101, MEDINFO+102, MEDINFO+104, MEDINFO+105, MEDINFO+109, MEDINFO+113, MEDINFO+118, MEDINFO+119 , MEDINFO+123, MEDINFO+124, MEDINFO+125, MEDINFO+126, MEDINFO+127, MEDINFO+128, MEDINFO+129, MEDINFO+130, MEDINFO+133, MEDINFO+134 , OVERRIDE~, OVERRIDE+3, DURVALUE~, DURVALUE+8, DURVALUE+9, DURVALUE+10, DURVALUE+11, DURVALUE+12, DURVALUE+14, DURVALUE+15 , COB~, COB+6, COB+9, COB+14, COB+19, COB+20, COB+21, COB+26 |
| NDC | MEDINFO+6~, MEDINFO+89*, MEDINFO+90*, MEDINFO+91 |
| NPI | MEDINFO+6~, MEDINFO+40*, MEDINFO+41*, MEDINFO+42, MEDINFO+43, MEDINFO+44 |
| OPSITE | PRVADRS+8~, PRVADRS+15*, PRVADRS+16, PRVADRS+18, PRVADRS+19 |
| OSITEIEN | MEDINFO+6~ |
| PRICING | MEDINFO+6~, MEDINFO+122*, MEDINFO+123, MEDINFO+124, MEDINFO+125 |
| PROVIEN | MEDINFO+6~, MEDINFO+30*, MEDINFO+31, MEDINFO+32, MEDINFO+33, MEDINFO+40, MEDINFO+46, MEDINFO+47 |
| PRVADDR | PRVADRS+8~ |
| PRVADDR( | PRVADRS+24*, PRVADRS+26*, PRVADRS+28, PRVADRS+30 |
| PRVIEN | PRVADRS~, PRVADRS+6, PRVADRS+11, PRVADRS+24, PRVADRS+26 |
| PRVNVA | PRVADRS+8~, PRVADRS+11*, PRVADRS+14 |
| REJIEN | COB+5~, COB+25*, COB+26 |
| RETVAL | OVERRIDE+1~, OVERRIDE+3* |
| RSLT | PRVADRS+8~, PRVADRS+9*, PRVADRS+20*, PRVADRS+30*, PRVADX+1 |
| RTN | MEDINFO+6~, MEDINFO+11*, MEDINFO+90 |
| RXI | MEDINFO+6~ |
| RXIEN | MEDINFO+6~, MEDINFO+9*, MEDINFO+23, MEDINFO+24, MEDINFO+27, MEDINFO+30, MEDINFO+60, MEDINFO+65, MEDINFO+90, MEDINFO+95 , MEDINFO+96, MEDINFO+98, MEDINFO+99, MEDINFO+101, MEDINFO+102, MEDINFO+104, MEDINFO+105, MEDINFO+108, MEDINFO+116 |
| RXRFIEN | MEDINFO+6~, MEDINFO+9*, MEDINFO+64, MEDINFO+66, MEDINFO+90, MEDINFO+94, MEDINFO+100, MEDINFO+101, MEDINFO+102, MEDINFO+104 , MEDINFO+105 |
| STATE | COUNTRY~, COUNTRY+6, COUNTRY+8, COUNTRY+9, COUNTRY+10, COUNTRY+11, COUNTRY+12, COUNTRY+13, COUNTRY+14, COUNTRY+15 , COUNTRY+16, COUNTRY+17, COUNTRY+18, COUNTRY+19 |
| U | MEDINFO+9, MEDINFO+42, MEDINFO+43, MEDINFO+44, MEDINFO+48, MEDINFO+49, MEDINFO+50, MEDINFO+51, MEDINFO+52, MEDINFO+53 , MEDINFO+54, MEDINFO+72, MEDINFO+73, MEDINFO+74, MEDINFO+81, MEDINFO+89, MEDINFO+99, MEDINFO+105, MEDINFO+113, MEDINFO+123 , MEDINFO+124, MEDINFO+125, OVERRIDE+2, DURVALUE+9, DURVALUE+10, DURVALUE+11, COB+9, PRVADRS+15, PRVADRS+19, PRVADRS+20 , PRVADRS+30 |
| >> VAINFO( | MEDINFO+126, MEDINFO+127, MEDINFO+128, MEDINFO+129, MEDINFO+130, MEDINFO+131 |
| VANATURE | MEDINFO+6~, MEDINFO+108*, MEDINFO+109 |
| VAOIEN | MEDINFO+6~, MEDINFO+108* |
| X | MEDINFO+6~, MEDINFO+33*, MEDINFO+34, MEDINFO+47*, MEDINFO+48, MEDINFO+49, MEDINFO+50, MEDINFO+51, MEDINFO+52, MEDINFO+53 , MEDINFO+54, MEDINFO+71*, MEDINFO+72, MEDINFO+73, MEDINFO+74 |
| X("FAMILY" | MEDINFO+35 |
| X("GIVEN" | MEDINFO+36 |
| X("MIDDLE" | MEDINFO+37 |
| Name | Field # of Occurrence |
|---|---|
| $T( | MEDINFO+11 |