Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBCNBAA

Package: Integrated Billing

Routine: IBCNBAA


Information

IBCNBAA ;ALB/ARH/AWC - Ins Buffer: process Accept set-up ;1 Jun 97

Source Information

Source file <IBCNBAA.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACINS+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACGRP+1
Function Call: WRITE
  • Prompt: !,?14,"Patient is "_$S(+IBPOLDA:"",1:"NOT ")_"a member of this Insurance Group/Plan",!
  • Line Location: ACGRP+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACPOL+1
Function Call: WRITE
  • Prompt: !,"This will be a New policy for this group and patient.",!
  • Line Location: ACPOL+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACSUB+1
Function Call: WRITE
  • Prompt: !,!,"*** Warning - Please Complete Subscriber Update Fields Manually via the Patient Insurance File."
  • Line Location: ACSUB+7
Function Call: WRITE
  • Prompt: !,"A NEW Subscriber Insurance policy must be created for this group/patient before Subscriber updates.",!
  • Line Location: ACSUB+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACEB+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 1: Insurance Company"_$J("",55)_$G(IORVOFF)
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 2: Group/Plan"_$J("",62)_$G(IORVOFF)
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 3: Annual Benefits"_$J("",57)_$G(IORVOFF)
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 4: Coverage Limitation"_$J("",53)_$G(IORVOFF)
  • Line Location: CHECK+25
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+25
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 5: Patient Policy"_$J("",58)_$G(IORVOFF)
  • Line Location: CHECK+31
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+31
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 6: Subscriber Update"_$J("",55)_$G(IORVOFF)
  • Line Location: CHECK+37
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+37
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+38
Function Call: WRITE
  • Prompt: !!,$G(IORVON)_"STEP 7: Eligibility/Benefits"_$J("",52)_$G(IORVOFF)
  • Line Location: CHECK+42
Function Call: WRITE
  • Prompt: !,IBX
  • Line Location: CHECK+42
Function Call: WRITE
  • Prompt: !!!,"This would result in No Change to the existing Insurance data. Process aborted."
  • Line Location: CHECK+44
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SBMATCH+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MOVE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SBMOVE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: NEW+9
Function Call: WRITE
  • Prompt: !!,"Sorry, but you do not have the required privileges to add",!,"new Insurance Companies."
  • Line Location: NEW+11
Function Call: WRITE
  • Prompt: !!,"A Supervisor will need to add the "_IBDESC_" before processing can",!,"continue."
  • Line Location: NEW+14
Function Call: WRITE
  • Prompt: !!,"You must create an "_IBDESC_" first."
  • Line Location: NEW+15
Function Call: WRITE
  • Prompt: !!,"A Supervisor will need to add the "_IBDESC_" before processing can continue."
  • Line Location: NEW+17
Function Call: WRITE
  • Prompt: !!,"You must create a "_IBDESC_" first."
  • Line Location: NEW+18
Function Call: WRITE
  • Prompt: !
  • Line Location: REPL+5
Function Call: WRITE
  • Prompt: !!!
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: WAIT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SUASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(355.4 - [#355.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call