IBCNBAR ;ALB/ARH-Ins Buffer: process Accept and Reject ;15 Jan 2009
Source file <IBCNBAR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACCEPT(IBBUFDA,DFN,IBINSDA,IBGRPDA,IBPOLDA,IBMVINS,IBMVGRP,IBMVPOL,IBMVSUB,IBNEWINS,IBNEWGRP,IBNEWPOL,IBELIG,IBSEL,IBRIEN,IBSIEN,IBFNAM,IBVAL,IBHOLD,IBXHOLD) | ; move buffer data into Insurance files then cleanup
; 1) data moved into insurance files, new records created if needed or edit existing ones ; 2) complete some general functions that are executed whenever insurance is entered/edited ; 3) allow user to view buffer entry and new/updated insurance records ; 4) buffer ins/group/policy data deleted ; 5) buffer entry status updated |
|
| PROCESS | ; process all changes selected by user, add/edit insurance files based
; on buffer data. Entry point for ACCEPAPI^IBCNICB (patch 413) |
|
| CLEANUP | ; general updates and checks done whenever insurance is added/edited and clean up buffer file
|
|
| ACCPTQ | ||
| REJECT(IBBUFDA) | ; process a buffer entry reject
; 1) update/notify IVM ; 2) buffer ins/group/policy data deleted ; 3) buffer entry status updated ; 4) if patient has no other active insurance then release any patient bills On Hold |
|
| REJPROC | ;Entry point for REJECAPI^IBCNICB (Patch 413)
|
|
| IVM(AR,IBBUFDA,IVMREPTR,IBSUPRES) | ; IVM must be notified whenever a buffer entry
; that originated in IVM is accepted or rejected. This lets IVM clean up ; its files since IVM also has a buffer type file of insurance uploaded ; from the IVM center. ; If rejected and Interactive Reads not suppressed, IVM then ask the ; user for a reason it was rejected ; input: AR = 1 if accepted, 0 if rejected ; IBBUFDA = Internal Entry Number to 355.33 file ; IVMREPTR = Internal Entry Number to 301.91 file (Optional) ; IBSUPRES = If equals 1, suppress writes and interactive reads |
|
| RELHLD(DFN) | ;Check if need to release copay on hold
|
|
| CHKREL(DFN,IBINDT,IBN,IBCAT) | ; -- release copay
; --Input DFN = patient ; IBINDT = date to check ; IBN = ien of copay on hold ; IBCAT = category of hold ; will determine if hold should be released |
|
| TRACK | ;Build CREATION TO PROCESSING TRACKING File (#355.36)
|
|
| EFFDTCHK(IBBUFDA,IBSIEN,IBMVPOL) | ;
|
|
| EFFDTCHKQ | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| 2.312 | GET1^DIQ |
| ^IBE(355.12 - [#355.12] | FIND1^DIC |
| ^IBA(355.3 - [#355.3] | GET1^DIQ |
| ^IBA(355.33 - [#355.33] | GET1^DIQ |
| ^DIC(36 - [#36] | GET1^DIQ |
| ^IBCN(365 - [#365] | GET1^DIQ |
| ^IBCN(365.1 - [#365.1] | GET1^DIQ |
