Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
Integrated Billing 8 $$ADDSTF^IBCNBES  $$BUFFER^IBCNBU1  PT^IBCNEBF  $$SETTQ^IBCNEDE7  $$INSERROR^IBCNEUT3  ($$EXCLUDE,$$PAYER)^IBCNEUT4  $$GRP^IBCNS  ALL^IBCNS1  
VA FileMan 4 (,$$FIND1)^DIC  DT^DILF  $$GET1^DIQ  ^DIR  
Kernel 2 ($$FMADD,$$FMTE,$$SCH)^XLFDT  $$TRIM^XLFSTR  
List Manager 2 EN^VALM  ($$SETFLD,FULL,PAUSE)^VALM1  
Registration 1 (DEM,PID)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Integrated Billing 5 IBCNE FAST EXIT  IBCNE MBI REQUEST  IBCNE REQUEST INQUIRY  IBCNE REQUEST INS INQUIRY LIST  IBCNE SELECT INSURANCE  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
HELP ; -- help code
BLD(DFN) ; Build list of all insurance for patient
FASTEXIT ; Sets flag to indicate a quick exit from the option
STCEN ; Intital and re-enterant tag upon error
SELECTX ;
PAT() ; Prompt user to select a patient
; Init vars
SELECT ; User selects insurance from list to be reconfirmed
HDR ; -- screen header for initial screen
MBIREQX ;
SEL() ; User selects insurance from list
EN1
INIT ; -- set up initial variables
ELIGDT() ; Prompt user for eligibility date
HELPSTC2 ; Text to display in response to '??' entry
SELX
ADD() ;
SET(LINE) ; -- set arrays
; LINE - line of text to display
EN ; Entry pt
; Init vars
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)
BLDX ; BLD exit pt
BLKTQ ; Create a ~NO PAYER request for 'Search for All'
ENX ; EN exit pt
BLKX
ELIGDTX ;
YN(X) ; -- convert 1 or 0 to yes/no/unknown
EXIT ; -- exit code
MBIREQ ; User requested a MBI lookup request
NPINIT ; Initialize variables for ~NO PAYER
INITX ; INIT exit pt

External References

Name Field # of Occurrence
^DIC PAT+8
$$FIND1^DIC ADD+4, BLKTQ+3, MBIREQ+46
DT^DILF ELIGDT+3
$$GET1^DIQ STC+6, MBIREQ+9, MBIREQ+14, MBIREQ+18, MBIREQ+41
^DIR SELECT+8, SELECT+23, SELECT+28, SEL+11, SEL+20, SEL+33, STCEN+1, FASTEXIT+5, ELIGDT+9, MBIREQ+12
, MBIREQ+16, MBIREQ+20, MBIREQ+25, MBIREQ+32, MBIREQ+49
$$ADDSTF^IBCNBES MBIREQ+46
$$BUFFER^IBCNBU1 HDR+7
PT^IBCNEBF SELECT+19
$$SETTQ^IBCNEDE7 BLKTQ+8
$$INSERROR^IBCNEUT3 SELECT+17
$$EXCLUDE^IBCNEUT4 BLD+35
$$PAYER^IBCNEUT4 MBIREQ+40
$$GRP^IBCNS BLD+44
ALL^IBCNS1 BLD+22
DEM^VADPT MBIREQ+22
PID^VADPT HDR+2
EN^VALM EN1+2
$$SETFLD^VALM1 BLD+38, BLD+41, BLD+42, BLD+43, BLD+44, BLD+45, BLD+46, BLD+47, BLD+48, BLD+49
, BLD+50, BLD+51, BLD+52, BLD+53
FULL^VALM1 HELP+1, SELECT+3, FASTEXIT+3, HELPSTC2+2, MBIREQ+4
PAUSE^VALM1 HELP+19
$$FMADD^XLFDT NPINIT+3
$$FMTE^XLFDT HDR+8, BLD+45, BLD+46, BLD+50, BLD+68
$$SCH^XLFDT ELIGDT+5
$$TRIM^XLFSTR BLD+14, BLD+17, BLD+27, BLD+33

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"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"for the patient. Selecting an entry in this list creates an Insurance Buffer"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !,"entry with Source 'eIV' and Override Freshness Flag 'Yes'. Setting this flag"
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !,"is designed to force the eIV extract to attempt to create an insurance"
  • Line Location: HELP+7
Function Call: WRITE
  • Prompt: !,"inquiry based on this entry."
  • Line Location: HELP+8
Function Call: WRITE
  • Prompt: !!,"Entries with an asterisk (*) preceding the Insurance Co name already exist in"
  • Line Location: HELP+9
Function Call: WRITE
  • Prompt: !,"the Insurance Buffer with the exact same name, the exact same Group Number,"
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !,"and the Override Freshness Flag set to 'Yes'. Selecting an entry with an"
  • Line Location: HELP+11
Function Call: WRITE
  • Prompt: !,"asterisk (*) will create a duplicate entry in the Insurance Buffer file for"
  • Line Location: HELP+12
Function Call: WRITE
  • Prompt: !,"the patient."
  • Line Location: HELP+13
Function Call: WRITE
  • Prompt: !!,"When requesting a MBI lookup..."
  • Line Location: HELP+15
Function Call: WRITE
  • Prompt: !,"Policies will be listed as described above for electronic insurance inquiry,"
  • Line Location: HELP+16
Function Call: WRITE
  • Prompt: !,"however, no special 'checks' will be made."
  • Line Location: HELP+17
Function Call: WRITE
  • Prompt: !,"The MBI request will be initiated immediately, regardless of policies above."
  • Line Location: HELP+18
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: !!,"Payer missing. Identification inquiries not allowed."
  • Line Location: SELECT+27
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 'ENTER' to"
  • Line Location: HELPSTC2+4
Function Call: WRITE
  • Prompt: !,"send default service type code 30 (Health Benefit Plan Coverage)."
  • Line Location: HELPSTC2+5
Function Call: WRITE
  • Prompt: !,"No response generated by this option will auto-update the patient file."
  • Line Location: HELPSTC2+6
Function Call: WRITE
  • Prompt: !!," The required MBI Payer site parameter is not populated; try again later",!
  • Line Location: MBIREQ+11
Function Call: WRITE
  • Prompt: !!," The MBI Payer is not nationally active; try again later",!
  • Line Location: MBIREQ+15
Function Call: WRITE
  • Prompt: !!," The MBI Payer LOCAL ACTIVE field is set to 'NO'; it must be 'YES' to proceed",!
  • Line Location: MBIREQ+19
Function Call: WRITE
  • Prompt: !!," SSN and DOB are required fields, they must be populated in order to proceed",!
  • Line Location: MBIREQ+24
Function Call: WRITE
  • Prompt: !!,"The MBI request was successful, check the buffer for results.",!
  • Line Location: MBIREQ+48
Routine Call
  • VALM
  • Line Location:
    • EN1+2
Routine Call
  • DIC
  • Line Location:
    • ADD+4
    • BLKTQ+3
    • MBIREQ+46
Routine Call
  • DIC
  • Line Location:
    • PAT+8
Routine Call
  • DIR
  • Line Location:
    • SELECT+8
    • SELECT+23
    • SELECT+28
    • SEL+11
    • SEL+20
    • SEL+33
    • STCEN+1
    • FASTEXIT+5
    • ELIGDT+9
    • MBIREQ+12
    • MBIREQ+16
    • MBIREQ+20
    • MBIREQ+25
    • MBIREQ+32
    • MBIREQ+49

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
^IBE(365.12 - [#365.12] FIND1^DIC
365.121 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] BLD+31, BLD+32
^DPT - [#2] HDR+3, HDR+8
^IBA(354 - [#354] BLD+64
^IBA(355.3 - [#355.3] BLD+26, BLD+27
^IBA(355.33 - [#355.33] BLD+10, BLD+11, BLD+14, BLD+17
^IBCN(365.1 - [#365.1] ADD+2, ADD+5, ADD+6
^IBE(350.9 - [#350.9] NPINIT+2
^IBE(355.1 - [#355.1] BLD+47, BLD+48
^TMP("IBCNEQU" INIT+2!, EXIT+1!, BLD+4!, BLD+59*, BLD+61*, BLD+66*, BLD+68*, SET+3*, SET+4*, SEL+13
^TMP("IBCNEQUDTS" INIT+2!, SELECT+18*, SELECT+24!
^TMP("IBCNEQUX" INIT+2!, EXIT+1!, BLD+4!, SET+5*, SET+6*, SELECT+6, SEL+5, SEL+14
^VA(200 - [#200] BLD+49

Label References

Name Line Occurrences
$$ELIGDT SEL+27
$$PAT EN1+1
$$SEL SELECT+12
$$YN BLD+51, BLD+52, BLD+53
BLD INIT+4
ELIGDTX ELIGDT+10
EN1 EN1+3
ENX EN1, EN1+1
HDR INIT+3
MBIREQX MBIREQ+10, MBIREQ+14, MBIREQ+18, MBIREQ+23, MBIREQ+33
NPINIT BLKTQ+4
SELECTX SELECT+6
SELX SEL+12, SEL+15, SEL+25, SEL+27
SET BLD+54
STC SEL+24
STCEN STCEN+3

Naked Globals

Name Field # of Occurrence
^(0 HDR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT HDR+1~
%H PAT+2~
%I PAT+2~
D0 SELECT+1~
DATA1 ADD+1~, BLKTQ+2~, BLKTQ+6*, BLKTQ+8
DATA2 ADD+1~, BLKTQ+2~, BLKTQ+7*, BLKTQ+8
DFN EN+2~, EN1+1*, INIT+4, HDR+3, HDR+7, HDR+8, BLD~, BLD+10, BLD+22, BLD+64
, SET+5, ADD+2, ADD+5, BLKTQ+6, MBIREQ+42, MBIREQ+46
DG SELECT+1~
DIC PAT+2~, PAT+7*, SELECT+1~
DIC("S" PAT+7*
DIC(0 PAT+6*
DIR SELECT+1~, SELECT+8!, SELECT+23!, SELECT+28!, SEL+1~, SEL+11!, SEL+20!, SEL+33!, STC+2~, FASTEXIT+1~
, HELPSTC2+1~, ELIGDT+1~, MBIREQ+1~, MBIREQ+6!, MBIREQ+12!, MBIREQ+16!, MBIREQ+20!, MBIREQ+25!, MBIREQ+32!, MBIREQ+49!
DIR("?" SEL+7*, SEL+8*, SEL+9*, SEL+10*, SEL+32*, ELIGDT+7*, ELIGDT+8*, MBIREQ+30*, MBIREQ+31*
DIR("??" STC+7*
DIR("A" SEL+6*, SEL+17*, SEL+18*, SEL+19*, SEL+20*, SEL+30*, STC+5*, FASTEXIT+4*, ELIGDT+6*, MBIREQ+28*
DIR("B" SEL+31*, STC+6*, FASTEXIT+4*, ELIGDT+6*, MBIREQ+29*
DIR(0 SELECT+8*, SELECT+23*, SELECT+28*, SEL+5*, SEL+16*, SEL+29*, STC+5*, FASTEXIT+4*, ELIGDT+6*, MBIREQ+12*
, MBIREQ+16*, MBIREQ+20*, MBIREQ+25*, MBIREQ+27*, MBIREQ+49*
DIRUT SEL+1~, SEL+12, SEL+34, FASTEXIT+1~, ELIGDT+1~, ELIGDT+10, MBIREQ+1~, MBIREQ+33
DISYS PAT+2~, SELECT+1~
DIW SELECT+1~
DT NPINIT+1, ELIGDT+5
DTOUT PAT+2~, PAT+9
DUOUT PAT+2~, PAT+9, SEL+1~, SEL+12, SEL+34, ELIGDT+1~, ELIGDT+10, MBIREQ+1~, MBIREQ+33
DUZ INIT+1, MBIREQ+39
ELIGDT ELIGDT+1~, ELIGDT+2*, ELIGDT+11*, ELIGDTX+1
ENDDT ELIGDT+1~, ELIGDT+5*, ELIGDT+6
FRESHDAY ADD+1~, BLKTQ+2~, NPINIT+2*, NPINIT+3
FRESHDT ADD+1~, BLKTQ+2~, BLKTQ+6, NPINIT+3*
GRPNUM BLD+2~, BLD+17*, BLD+18, BLD+27*, BLD+40
IBBUF BLD+2~, MBIREQ+2~, MBIREQ+38!, MBIREQ+46
IBBUF( BLD+18*, BLD+40, MBIREQ+39*, MBIREQ+40*, MBIREQ+41*, MBIREQ+42*, MBIREQ+43*, MBIREQ+44*
IBBUFDT BLD+2~, BLD+11*, BLD+13
IBBUFNM BLD+2~, BLD+14*, BLD+15, BLD+18
IBCT BLD+1~, BLD+6*, BLD+36*, BLD+38, BLD+57, SET+4, SET+5
IBDA SELECT+1~, SELECT+11*, SELECT+14*, SELECT+15, SELECT+19
IBDATA SELECT+1~, SELECT+12*, SELECT+13, SELECT+14, SELECT+16, SELECT+26
IBDATA0 BLD+1~, BLD+24*, BLD+26, BLD+27, BLD+30, BLD+42, BLD+43, BLD+44, BLD+45, BLD+46
, BLD+53, SET+5
IBDATA1 BLD+1~, BLD+25*, BLD+49, BLD+50
IBDATA2 BLD+1~, BLD+26*, BLD+47, BLD+48, BLD+51, BLD+52
IBDPT SELECT+1~, SELECT+11*, SELECT+13*, SELECT+15, SELECT+19
>> IBEISTC STC+4*, STCEN+7*
IBELIGDT SELECT+1~, SEL+27*
IBERROR SELECT+1~, SELECT+11*, SELECT+19, SELECT+21, SELECT+22
IBFASTXT EN+2~, EN1, FASTEXIT+6*
IBFDA MBIREQ+2~, MBIREQ+46*
IBHOLD BLD+1~, BLD+43*
IBIEN BLD+2~, BLD+9*, BLD+10*, BLD+11, BLD+14, BLD+17, SELECT+1~, SELECT+16*, SELECT+17
IBINAME BLD+1~, BLD+32*, BLD+33, BLD+40*, BLD+41, SET+5
IBINS BLD+1~
IBINS( BLD+23, BLD+24, BLD+25
IBINS(0 BLD+23
IBINSIEN BLD+1~, BLD+30*, BLD+31, BLD+32
IBMBIPYR MBIREQ+2~, MBIREQ+9*, MBIREQ+10, MBIREQ+14, MBIREQ+18, MBIREQ+40
IBSELN SEL+1~, SEL+3*, SEL+13*, SEL+14*, SEL+15*, SEL+25*, SEL+27*, SEL+34*, SELX
IBSYM SELECT+1~, SELECT+17*, SELECT+19
IDUZ EN+2~, INIT+1*
IENS SELECT+1~
II HDR+1~, HDR+6*, HDR+7*, HDR+8*, BLD+1~, BLD+23*, BLD+24, BLD+25, SET+5
IOF HELP+2, HELPSTC2+3
LINE SET~, SET+3
OK ADD+1~, ADD+3*, ADD+5, ADD+8*, ADD+10*, ADD+11
PAYER ADD+1~, ADD+4*, ADD+8, ADD+10, BLKTQ+2~, BLKTQ+3*, BLKTQ+6
POP EN+2~, BLD+2~
SFANAME BLD+2~
SRVICEDT ADD+1~, BLKTQ+2~, BLKTQ+7, NPINIT+1*, NPINIT+3
STARTDT ELIGDT+1~, ELIGDT+3, ELIGDT+6
STR BLD+1~, BLD+37*, BLD+38*, BLD+41*, BLD+42*, BLD+43*, BLD+44*, BLD+45*, BLD+46*, BLD+47*
, BLD+48*, BLD+49*, BLD+50*, BLD+51*, BLD+52*, BLD+53*, BLD+54, ADD+1~, ADD+6*, ADD+8
, ADD+10
TMPNM BLD+2~, BLD+33*, BLD+35, BLD+40
TQIEN ADD+1~, ADD+3*, ADD+5*, ADD+6, BLKTQ+2~, BLKTQ+8*
U HDR+3, HDR+8, BLD+13, BLD+14, BLD+17, BLD+26, BLD+27, BLD+30, BLD+32, BLD+42
, BLD+43, BLD+44, BLD+45, BLD+46, BLD+47, BLD+48, BLD+49, BLD+50, BLD+51, BLD+52
, BLD+53, BLD+64, SET+5, SELECT+13, SELECT+14, SELECT+16, SELECT+26, SEL+14, SEL+15, STCEN+3
, STCEN+7, ADD+8, ADD+10, BLKTQ+6, BLKTQ+7, NPINIT+2, MBIREQ+23, MBIREQ+40
VA HDR+1~
VA("BID" HDR+3
>> VADM(1 MBIREQ+44
>> VADM(2 MBIREQ+23
>> VADM(3 MBIREQ+23
VAERR HDR+1~
VALMBCK EN+2~, HELP+20*, SELECT+4*, SELECTX+1*, FASTEXIT+2*, MBIREQ+5*, MBIREQ+50*, MBIREQX+1*
VALMBG EN+2~, INIT+1*
VALMCNT EN+2~, INIT+1*, BLD+6*, BLD+58*, BLD+59, BLD+60*, BLD+61, BLD+65*, BLD+66, BLD+67*
, BLD+68, SET+2*, SET+3, SET+4, SET+5
VALMHDR EN+2~
VALMHDR( HDR+7*, HDR+8*
VALMHDR(1 HDR+3*
VALMHDR(2 HDR+4*
VALMHDR(3 HDR+5*
VNODT BLD+2~, BLD+64*, BLD+68
X EN+2~, PAT+2~, BLD+2~, YN~, YN+1, SELECT+1~, SEL+1~, SEL+25, STC+2~, STCEN+1
, FASTEXIT+1~, ELIGDT+1~, MBIREQ+1~
Y PAT+2~, PAT+9, PAT+11, SELECT+1~, SEL+1~, SEL+12, SEL+13, SEL+34, STC+2~, STCEN+7
, FASTEXIT+1~, FASTEXIT+6, ELIGDT+1~, ELIGDT+10, ELIGDT+11, MBIREQ+1~, MBIREQ+33
Y(0 STCEN+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All