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 |
