IBBAADTI ;OAK/ELZ - PFSS INBOUND FILER ;15-MAR-2005
Source file <IBBAADTI.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
A04 | ;receiver for returned A04 messages to create account
|
|
A05 | ;receiver for returned A05 messages to create account
|
|
SET(IBBDFN,HLMTIENS) | ;set returned external account number in file #375
|
|
INPT() | ;set new account record for inpatient admission
|
|
INTNUM(IBBEXVN) | ;return PFSS Account Reference using external visit number
|
|
PID() | ;get DFN from HL7 message; compare to file #2 data
|
|
EXVN() | ;external account/visit number must be non-null
|
|
ACK | ; prepare positive acknowledgement (AA) message
|
|
NAK | ;prepare negative acknowledgement (AE) message
|
|
IBBACONV(IBBDFN,IBBTYPE,IBBWHEN,IBBWHERE,IBBEXVN) | ;new account record for converted inpatient or outpatient
|
HL7 Protocol Name | Call Tags |
---|---|
IBB PFSS ADT-A05 CLIENT | A05 |
IBB PFSS ADT-A04 CLIENT | A04 |
FileNo | Call Tags |
---|---|
^IBBAA(375 - [#375] | GETS^DIQ |