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 |
Package | Total | Caller Graph |
---|---|---|
E Claims Management Engine | 1 | BPSOSCB |
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 |