IBCNHUT2 ;ALB/GEF - HPID/OEID UTILITIES ;11-MAR-14
Source file <IBCNHUT2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PUR | ;
; This section handles the purging of the HPID/OEID data stored in the ; HPID/OEID Transmission Queue file (#367.1) and in the HPID/OEID Response file (#367). ; This is called from a nightly tasked routine IBAMTC. Data created within the last 2 weeks ; cannot be purged. Only requested data that has a NIF-ID response received will be purged. ; Unsolicited responses will also be purged as will those with a status of EXR (Exception ; Report Reject), whether they have a NIF ID or not. ; The system will not purge entries with no response, entries that have dropped to ; an exception queue, or entries with a response less than 14 days old. ; Uses this x-ref on file 367: ^IBCNH(367,"E",future purge date/time,ien)="" ; and finds the corresponding entry in file 367.1 with: ^IBCNH(367,ien,0)=2nd piece is ien in 367.1 |
|
| EXT | ; kick off HL7 queries of each insurance company sent to the NIF for the initial HPID extract
; called from option IBCNH HPID NIF BATCH QUERY. To be run once FSC notifies site that they are ; ready - ie. they have received and processed the data extracts and have the NIF ID's for each ; insurance company. |
|
| FM36(INS,DATA,TQN) | ; updates file 36, 8 node with data received from the NIF
; INS = insurance company ien (REQUIRED) ; DATA=String containing HPID data in this format: HPID^CHP/SHP^PARENT^NIF ID ; NIF = NIF ID for insurance company ; TQN=ien of entry in file 367.1 (if data came from a requested response) ; returns "-1^Error code^Error reason" if entry not added and Processing Status if added/updated |
|
| FM71(INS,HLID) | ; adds entry to file 367.1 (HPID/OEID TRANSMISSION QUEUE) and file 367 (HPID/OEID RESPONSE)
; INS =insurance company ien (required) ; HLID = message control ID number assigned by HL7 when HL7 message was created (required) ; returns ien of entry added to file 367.1 |
|
| FM367(IEN,DATA,ID,QL) | ; updates entry to file 367 (HPID/OEID RESPONSE) for requested responses,
; or creates a new entry for unsolicited responses. ; IEN = ien of existing entry in file 367 (will only exist for requested responses) ; DATA = data string containing response data for 0 node (NOTE: You do not have to pass all this data, but it must be in this format): ; HLID^TQN^RTY^INS NAME^NPS^STAT D/T^UID^PARENT HPID^CHP or SHP ; TQN = Transaction ien in file 367.1 (HPID/OEID TRANSMISSION QUEUE), null for unsolicited responses ; RTY = Response Type: R for Requested or U for Unsolicited ; NPS = Processing status at NIF, either R for Response Processed or X for Exception Report or EXR for Rejected ; HLID = control ID of HL7 message (required if this is an unsolicited response, not req'd if you have ien) ; ID = Data string of ID data sent from NIF. MUST BE in this format: |
|
| R36(INS,DATA) | ; this function gathers all the insurance company data we need to send to the NIF
; INS= ien of insurance company entry (required) ; DATA=name of array to store data results in ; Returns: DATA(0) = Insurance Ien^Insurance Company Name^INACTIVE FLAG^UID^NIF ID^HPID/OEID^CHP/SHP^PARENT HPID ; DATA(1) = STREET ADDRESS 1^STR AD2^CITY^STATE^ZIP^BILLING CO NAME^TYPE OF COVERAGE^PHONE# ; DATA(2) = string of ID's in this format: ; EDI ID NUMBER-PROF^EDI ID NUMBER-INST^EDI PROF SECONDARY ID(1)^EDI PROF SECONDARY ID(2)^EDI INST SECONDARY ID(1)^EDI INST SECONDARY ID(2)^VA NATIONAL ID^NIF ID^HPID/OEID^VISTA UNIQUE ID ; DATA(3) = string of ID qualifiers in this format: ^^QUAL1(PS1)^QUAL2(PS2)^QAUL3(IS1)^QUAL4(IS2) |
|
| SETUPVER | ; Set up verifying of IB NIF TCP logical link
; IB*2.0*549 added method |
|
| SETUPVRX | ;
|
|
| VERFYLNK | ; Verify IB NIF TCP entry in the HL Logical Link file (#870) on a daily basis
; IB*2.0*549 added Method ; Input - LLIEN [thru ZTSAVE("LLIEN")] ; NIFTM [thru ZTSAVE("NIFTM")] |
|
| LEG(TQN,INS) | ; function to determine if legacy ID's changed since we sent them out
; returns a 0 if Legacy ID has not changed and a "1^EL^Error: Legacy ID Changed!" if it has. |
|
| SMAIL(MGRP,XMSUB,MSG) | ; Summary email
; IB*2.0*549 Send e-mail |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | Classic Fileman Calls, GET1^DIQ |
| ^DIC(36 - [#36] | Classic Fileman Calls |
| ^IBCNH(367 - [#367] | Classic Fileman Calls |
| ^IBCNH(367.1 - [#367.1] | Classic Fileman Calls |
