IBARXPFS ;OAK/ELZ - PFSS ROUTINE FOR INTER-FACILITY RX COPAY ;23-MAR-05
Source file <IBARXPFS.m>
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 |
---|---|---|
Integrated Billing | 2 | IB PFSS DFT-P03 CLIENT IBARXMI |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
NEW(DFN) | ; this entry point will check patient cap knowledge status and queue to look up as necessary
|
|
DQNEW | ; tasked entry point for cap information query
|
|
BBE | ; back billing entry assumes IBADT
|
|
DQNEWQ | ;
|
|
MSG | ; receives HL7 message from COTS product and files in 354.71 or others
|
|
NEWTRANQ | ;
|
|
PATIENT(IBICN,IBDFN,IBSSN,IBVACLM,IBALIAS) | ; this function will receive
; several patient data elements and validate them. Assuming the data ; meets expected requirements, the function will return the patient's ; DFN. The requirement is ICN is a must, the patient must also match ; at least 2 other data elements. |
|
PATQ | ;
|
|
HL7DATA | ; hl7 data mapping
; format: description ; IB Variable ^ segment ^ seq ^ comp ^ subcomp ^ ; extract code |
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | NEW+5 |
GENACK^HLMA1 | NEWTRANQ+2 |
$$GET^HLOPRS | MSG+11 |
$$NEXTSEG^HLPRS | MSG+8 |
$$STARTMSG^HLPRS | MSG+5 |
$$NEXTMO^IBARXMC | BBE+10 |
CAP^IBARXMC | BBE+5 |
$$ADD^IBARXMN | BBE+17 |
$$DFN^IBARXMU | PATIENT+8 |
$$PRIORITY^IBARXMU | BBE+3 |
$$TFL^IBARXMU | BBE+4 |
ADD^IBARXMU | DQNEW+3 |
UQUERY^IBARXMU | BBE+11 |
$$NOW^XLFDT | NEW+4 |
HL7 Protocol Name | Call Tags |
---|---|
IB PFSS DFT-P03 CLIENT | MSG |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | PATIENT+13, PATIENT+17, PATIENT+21 |
^IBAM( | NEW+3, NEW+6, DQNEW+2, DQNEWQ+1 |
^IBAM(354.7 - [#354.7] | NEW+2, DQNEW+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | BBE+1~ |
DFN | NEW~, NEW+2, NEW+3, NEW+6, DQNEW+1, DQNEW+2, DQNEW+3, BBE+3, BBE+4, BBE+11 , BBE+17, DQNEWQ+1, MSG+2~, MSG+16*, MSG+17, PATIENT+6~, PATIENT+8*, PATIENT+10, PATIENT+11, PATIENT+13 , PATIENT+17, PATIENT+21, PATIENT+22*, PATQ+1, PATQ+2 |
DIE | BBE+1~ |
DR | BBE+1~ |
DT | BBE+2 |
>> HL("EID" | NEWTRANQ+2 |
>> HL("EIDS" | NEWTRANQ+2 |
>> HL("FS" | NEWTRANQ+1 |
>> HL("MID" | NEWTRANQ+1 |
HLA | MSG+2~ |
HLA("HLA" | NEWTRANQ+1* |
HLERR | MSG+6*, NEWTRANQ+1, PATIENT+7*, PATIENT+8*, PATIENT+11*, PATIENT+14*, PATIENT+18*, PATIENT+22*, PATQ+1! |
>> HLMTIENS | MSG+5, NEWTRANQ+2 |
IB350 | MSG+2~ |
IB351 | MSG+2~ |
IB35181 | MSG+2~ |
IB35471 | MSG+2~ |
IBA | BBE+1~, BBE+17* |
>> IBADT | BBE+2 |
IBALIAS | MSG+1~, MSG+16, PATIENT~, PATIENT+21 |
IBB | BBE+1~, BBE+3*, BBE+17* |
IBCLAIM | MSG+1~ |
IBCODE | MSG+2~, MSG+12*, MSG+13 |
IBD | BBE+1~, BBE+11, BBE+14, BBE+18!, MSG+9*, MSG+10, MSG+11, MSG+12, MSG+13 |
IBD( | BBE+17 |
IBDFN | MSG+1~, MSG+16, PATIENT~, PATIENT+10, PATIENT+11 |
IBDT | BBE+1~, BBE+2*, BBE+5, BBE+10*, BBE+11 |
IBFD | BBE+1~, BBE+5, BBE+6, BBE+10 |
IBHEADER | MSG+1~, MSG+5 |
IBICN | MSG+1~, MSG+16, PATIENT~, PATIENT+8 |
IBINST | MSG+1~ |
IBMATCH | PATIENT+6~, PATIENT+7*, PATIENT+10*, PATIENT+13*, PATIENT+15, PATIENT+17*, PATIENT+19, PATIENT+21*, PATIENT+22 |
IBMSG | MSG+1~, MSG+5, MSG+8 |
IBMTDT21 | MSG+2~ |
IBP | BBE+1~, BBE+3*, BBE+5 |
IBRESLT | MSG+2~, NEWTRANQ+2 |
IBRXDAT | MSG+2~ |
IBS | BBE+1~ |
IBSSN | MSG+1~, MSG+16, PATIENT~, PATIENT+13, PATIENT+14 |
IBSTAT | MSG+1~, MSG+5*, MSG+6 |
IBT | BBE+1~, BBE+4*, MSG+9* |
IBT( | BBE+7, BBE+17 |
IBTD | BBE+1~, BBE+5, BBE+6, BBE+10 |
IBTYPE | MSG+1~, MSG+18*, MSG+20 |
IBVACLM | MSG+16, PATIENT~, PATIENT+17, PATIENT+18 |
IBX | BBE+1~, BBE+7*, BBE+11, BBE+17, PATIENT+6~, PATIENT+7*, PATIENT+21* |
IBY | BBE+1~, BBE+5 |
IBZ | BBE+1~, BBE+5 |
POP | NEW+1~ |
SEG | MSG+2~, MSG+8, MSG+11 |
SEG("SEGMENT | TYPE" , MSG+10 |
X | NEW+1~, BBE+1~, BBE+17*, MSG+13* |
Y | NEW+1~ |
ZTDESC | NEW+1~, NEW+4* |
ZTDTH | NEW+1~, NEW+4* |
ZTIO | NEW+1~, NEW+4* |
ZTRTN | NEW+1~, NEW+4* |
ZTSAVE | NEW+1~ |
ZTSAVE("DFN" | NEW+4* |
ZTSAVE("IBADT" | NEW+4* |
ZTSK | NEW+1~ |
Name | Field # of Occurrence |
---|---|
$T(HL7DATA+IBT | MSG+9 |