IBCNBAA ;ALB/ARH/AWC - Ins Buffer: process Accept set-up ;1 Jun 97
Source file <IBCNBAA.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ACCEPT(IBBUFDA,IBINSDA,IBGRPDA,IBPOLDA) | ; process a buffer entry for acceptance then save in Insurance files
; 1) for Insurance Company, Group/Plan and Policy sets of data: ; a) display the set of buffer data and corresponding existing selected ins data ; b) if ins record exists confirm with user that it is the correct one to use ; c) if ins record exists user selects method of saving to ins record: Merge/Overwrite/Replace/No Change/Individually Accept(skip blanks) ; d) if new record needs to be created get user confirmation ; 2) display the actions that will be taken ; 3) user confirms that is correct ; 4) data moved into insurance files, new records created if needed or edit existing ones ; 5) complete some general functions that are executed whenever insurance is entered/edited ; 6) allow user to view buffer entry and new/updated insurance records ; 7) buffer ins/group/policy data deleted ; 8) buffer entry status updated |
|
ACINS | ;
|
|
ACGRP | ;
|
|
ACANB | ; -- Annual Benefits /awc
|
|
ACCOV | ; -- Coverage Limitations /awc
|
|
ACPOL | ;
|
|
ACSUB | ; -- Subscriber screens
|
|
ACEB | ;
|
|
CHECK | ; display changes that will be made and ask user for confirmation
|
|
PROCESS | ; process all changes selected by user, add/edit insurance files based on buffer data, cleanup, ...
|
|
ACCPTQ | ;
|
|
LKPYR(IBGRPDA,ABYR) | ; Look up year
|
|
MATCH(IBDESC) | ; ask the user if the buffer entry is a match with the selected insurance file entry
; returns 1 if there is a match, 0 otherwise |
|
SBMATCH(IBDESC) | ; ask the user if the Patient Registration entry is a match with the selected insurance file entry
; returns 1 if there is a match, 0 otherwise |
|
MOVE(IBDESC,IBHELP) | ; ask the user what method they want to use to transfer buffer data to the insurance files
; returns 1^merge, 2^overwrite, 3^replace, 4^individually accept (skip blanks), ; 0^no change, ; or "" if none of the methods was chosen |
|
SBMOVE(IBDESC) | ; ask the user what method they want to use to transfer buffer data to the insurance files
; returns 1^merge, 2^overwrite, 3^replace, 4^individually accept (skip blanks), ; 0^no change, ; or "" if none of the methods was chosen |
|
NEW(IBDESC) | ; ask user if they want to add a new entry to the insurance files (36, 355.3, or 2.312)
; returns 1 if Yes create a new entry, 0 otherwise |
|
NEWQ | ||
REPL() | ; ask user if they want to replace eligibility/benefits data in pt. insuarance
|
|
OK() | ; ask the user if the buffer data should be moved to the insurance files
; returns 1 if yes, 0 otherwise |
|
WAIT | ||
SUASK(IBVAL) | ; ask user to select Pt. Relationship to Insured
|
|
READ(IBRTYP,IBPROM,IBDFLT,IBHELP,IBSCRN) | ; Reader that will returns a response to user input
; Input: ; IBRTYP : Read Type and Input modifiers^Input Parameters^Input Transform (Required) ; IBPROM : Prompt text that user will see ; IBDFLT : Default response ; IBHELP : Help text to display ; IBSCRN : Screen for pointer, set-of-code, and list/range reads |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBA(355.4 - [#355.4] | Classic Fileman Calls |