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: IBCNEQU

Package: Integrated Billing

Routine: IBCNEQU


Information

IBCNEQU ;DAOU/BHS - eIV REQUEST ELECTRONIC INSURANCE INQUIRY ; 24-JUN-2002

Source Information

Source file <IBCNEQU.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry pt
; Init vars
EN1
ENX ; EN exit pt
INIT ; -- set up initial variables
INITX ; INIT exit pt
HDR ; -- screen header for initial screen
HELP ; -- help code
EXIT ; -- exit code
PAT() ; Prompt user to select a patient
; Init vars
BLD(DFN) ; Build list of all insurance for patient
BLDX ; BLD exit pt
SET(LINE) ; -- set arrays
; LINE - line of text to display
YN(X) ; -- convert 1 or 0 to yes/no/unknown
SELECT ; User selects insurance from list to be reconfirmed
SELECTX ;
SEL() ; User selects insurance from list
SELX
STC ; Ask for service type code to send
; IB*582/HN - Modified Default Service Type Code to pull from the MCCF Billing Parameters File (350.9,60.01)
STCEN ; Intital and re-enterant tag upon error
FASTEXIT ; Sets flag to indicate a quick exit from the option
HELPSTC2 ; Text to display in response to '??' entry
ELIGDT() ; Prompt user for eligibility date
ELIGDTX ;
MBIREQ ; User requested a MBI lookup request
MBIREQX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"When requesting an Electronic Insurance Inquiry..."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"This screen lists all eligible (non-Medicaid) Insurance policies for the"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"patient. Selecting an entry here creates an Insurance Buffer entry with Source"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"'eIV' and Override Freshness Flag 'Yes'. Setting this flag is designed to force"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !,"the eIV extract to attempt to create an insurance inquiry based on this entry."
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !!,"Entries with an asterisk (*) preceding the Insurance Co name already exist in"
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !,"the Insurance Buffer with the exact same name, the exact same Group Number,"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !,"and the Override Freshness Flag set to 'Yes'."
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !!,"When requesting a MBI lookup..."
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !,"Policies will be listed as described above for electronic insurance inquiry;"
  • Line Location: HELP+13
Function Call: WRITE
  • Prompt: !,"however, no special 'checks' will be made. The MBI request will be initiated "
  • Line Location: HELP+14
Function Call: WRITE
  • Prompt: !,"immediately, regardless of policies above and resulting buffer entry will have"
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !,"source 'Medicare'."
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !!,"When initiating an EICD Request..."
  • Line Location: HELP+18
Function Call: WRITE
  • Prompt: !,"An EICD request will be initiated if the following conditions are met:"
  • Line Location: HELP+19
Function Call: WRITE
  • Prompt: !," - The patient does not have active insurance on file."
  • Line Location: HELP+20
Function Call: WRITE
  • Prompt: !," - The patient does not have an eligibility exclusion."
  • Line Location: HELP+21
Function Call: WRITE
  • Prompt: !," - There have been no other recent EICD requests."
  • Line Location: HELP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: HELP+23
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+4
Function Call: WRITE
  • Prompt: !!,"No Insurance policies to select."
  • Line Location: SELECT+7
Function Call: WRITE
  • Prompt: !!,"Insurance Buffer entry could not be created due to error! Please try again.",!
  • Line Location: SELECT+21
Function Call: WRITE
  • Prompt: !!,"Insurance Buffer entry created!",!
  • Line Location: SELECT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+15
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+20
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+28
Function Call: WRITE
  • Prompt: !,"Code selected is not an active code - please select another code.",!
  • Line Location: STCEN+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HELPSTC2+3
Function Call: WRITE
  • Prompt: !,"Enter the single SERVICE TYPE CODE to be sent with inquiry or press"
  • Line Location: HELPSTC2+5
Function Call: WRITE
  • Prompt: !,"'ENTER' to send default service type code. The default service type"
  • Line Location: HELPSTC2+6
Function Call: WRITE
  • Prompt: !,"code may auto-update. All other service types will not auto-update."
  • Line Location: HELPSTC2+7
Function Call: WRITE
  • Prompt: !!," The required MBI Payer site parameter is not populated; try again later",!
  • Line Location: MBIREQ+12
Function Call: WRITE
  • Prompt: !!," The MBI Payer is not nationally active; try again later",!
  • Line Location: MBIREQ+18
Function Call: WRITE
  • Prompt: !!," The MBI Payer is not NATIONALLY Enabled; try again later",!
  • Line Location: MBIREQ+20
Function Call: WRITE
  • Prompt: !!," The MBI Payer LOCAL ACTIVE field is set to 'NO'; it must be 'YES' to proceed",!
  • Line Location: MBIREQ+25
Function Call: WRITE
  • Prompt: !!," The MBI Payer is not LOCALLY Enabled; try again later",!
  • Line Location: MBIREQ+27
Function Call: WRITE
  • Prompt: !!," SSN and DOB are required fields, they must be populated in order to proceed",!
  • Line Location: MBIREQ+32
Function Call: WRITE
  • Prompt: !!,"The MBI request was successful, check the buffer for results.",!
  • Line Location: MBIREQ+56

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^IBE(350.9 - [#350.9] GET1^DIQ
^IBE(355.12 - [#355.12] FIND1^DIC
365.121 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call