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  $$INSERROR^IBCNEUT3  ($$EXCLUDE,$$PAYER)^IBCNEUT4  $$PYRAPP^IBCNEUT5  $$GRP^IBCNS  ALL^IBCNS1  
VA FileMan 4 (,$$FIND1)^DIC  DT^DILF  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$TRIM^XLFSTR  
List Manager 2 EN^VALM  ($$SETFLD,FULL)^VALM1  
Registration 1 (DEM,PID)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Integrated Billing 7 IBCNE EICD REQUEST  IBCNE FAST EXIT  IBCNE MBI REQUEST  IBCNE REQUEST INQUIRY  IBCNE REQUEST INS INQUIRY LIST  IBCNE SELECT INSURANCE  IBCNSM REQ ELECT INS INQ  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry pt
; Init vars
EN1
ENX ; EN exit pt
PI ;IB*827/CKB - Entry point for Patient Insurance Info View/Edit (PI)
PIX ;
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 ;
GETPYR ;IB*822/CKB - Get the Insurance Company Payer and payer info

External References

Name Field # of Occurrence
^DIC PAT+9
$$FIND1^DIC MBIREQ+54
DT^DILF ELIGDT+12, ELIGDT+14, ELIGDT+17, ELIGDT+18
$$GET1^DIQ STC+6, MBIREQ+10, MBIREQ+19, MBIREQ+26, MBIREQ+49, GETPYR+8, GETPYR+11
^DIR SELECT+8, SELECT+23, SEL+11, SEL+20, SEL+33, STCEN+1, FASTEXIT+5, ELIGDT+30, MBIREQ+13, MBIREQ+21
, MBIREQ+28, MBIREQ+33, MBIREQ+40, MBIREQ+57
$$ADDSTF^IBCNBES MBIREQ+54
$$BUFFER^IBCNBU1 HDR+7
PT^IBCNEBF SELECT+19
$$INSERROR^IBCNEUT3 SELECT+17, GETPYR+3
$$EXCLUDE^IBCNEUT4 BLD+35
$$PAYER^IBCNEUT4 MBIREQ+48
$$PYRAPP^IBCNEUT5 MBIREQ+15, GETPYR+5
$$GRP^IBCNS BLD+44
ALL^IBCNS1 BLD+22
DEM^VADPT MBIREQ+30
PID^VADPT HDR+2
EN^VALM EN1+2, PI+3
$$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+5
$$FMTE^XLFDT HDR+8, BLD+45, BLD+46, BLD+50, BLD+68, ELIGDT+24, ELIGDT+29
$$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 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: !!,"For this policy,",!,"the allowable eligibility dates are between "
  • Line Location: ELIGDT+23
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(STARTDT,2)_" and "_$$FMTE^XLFDT(ENDDT,2)_", inclusive.",!
  • Line Location: ELIGDT+24
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
Routine Call
  • DIC
  • Line Location:
    • PAT+9
Routine Call
  • DIC
  • Line Location:
    • MBIREQ+54
Routine Call
  • DIR
  • Line Location:
    • SELECT+8
    • SELECT+23
    • SEL+11
    • SEL+20
    • SEL+33
    • STCEN+1
    • FASTEXIT+5
    • ELIGDT+30
    • MBIREQ+13
    • MBIREQ+21
    • MBIREQ+28
    • MBIREQ+33
    • MBIREQ+40
    • MBIREQ+57
Routine Call
  • VALM
  • Line Location:
    • EN1+2
    • PI+3

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

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
^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+31
EN1 EN1+3
ENX EN1, EN1+1
GETPYR ELIGDT+10
HDR INIT+3
MBIREQX MBIREQ+11, MBIREQ+19, MBIREQ+26, MBIREQ+31, MBIREQ+41
PIX PI+2
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~
APIEN MBIREQ+2~, MBIREQ+15*, MBIREQ+19, MBIREQ+26
D0 SELECT+1~
DFN EN+2~, EN1+1*, PI+2, INIT+4, HDR+3, HDR+7, HDR+8, BLD~, BLD+10, BLD+22
, BLD+64, SET+5, MBIREQ+50, MBIREQ+54
DG SELECT+1~
DIC PAT+2~, PAT+8*, SELECT+1~
DIC("S" PAT+8*
DIC(0 PAT+6*
DIR SELECT+1~, SELECT+8!, SELECT+23!, SEL+1~, SEL+11!, SEL+20!, SEL+33!, STC+2~, FASTEXIT+1~, HELPSTC2+1~
, ELIGDT+2~, MBIREQ+2~, MBIREQ+7!, MBIREQ+13!, MBIREQ+21!, MBIREQ+28!, MBIREQ+33!, MBIREQ+40!, MBIREQ+57!
DIR("?" SEL+7*, SEL+8*, SEL+9*, SEL+10*, SEL+32*, ELIGDT+28*, ELIGDT+29*, MBIREQ+38*, MBIREQ+39*
DIR("??" STC+7*
DIR("A" SEL+6*, SEL+17*, SEL+18*, SEL+19*, SEL+20*, SEL+30*, STC+5*, FASTEXIT+4*, ELIGDT+27*, MBIREQ+36*
DIR("B" SEL+31*, STC+6*, FASTEXIT+4*, ELIGDT+27*, MBIREQ+37*
DIR(0 SELECT+8*, SELECT+23*, SEL+5*, SEL+16*, SEL+29*, STC+5*, FASTEXIT+4*, ELIGDT+26*, MBIREQ+13*, MBIREQ+21*
, MBIREQ+28*, MBIREQ+33*, MBIREQ+35*, MBIREQ+57*
DIRUT SEL+1~, SEL+12, SEL+34, FASTEXIT+1~, ELIGDT+2~, ELIGDT+31, MBIREQ+2~, MBIREQ+41
DISYS PAT+2~, SELECT+1~
DIW SELECT+1~
DT ELIGDT+13, ELIGDT+15
DTOUT PAT+2~, PAT+10
DUOUT PAT+2~, PAT+10, SEL+1~, SEL+12, SEL+34, ELIGDT+2~, ELIGDT+31, MBIREQ+2~, MBIREQ+41
DUZ INIT+1, MBIREQ+47
EADT ELIGDT+2~, ELIGDT+18, ELIGDT+21
ELIGDT ELIGDT+2~, ELIGDT+4*, ELIGDT+32*, ELIGDTX+1
ENDDT ELIGDT+2~, ELIGDT+21*, ELIGDT+24, ELIGDT+26, ELIGDT+29
GRPNUM BLD+2~, BLD+17*, BLD+18, BLD+27*, BLD+40
IBBUF BLD+2~, MBIREQ+3~, MBIREQ+46!, MBIREQ+54
IBBUF( BLD+18*, BLD+40, MBIREQ+47*, MBIREQ+48*, MBIREQ+49*, MBIREQ+50*, MBIREQ+51*, MBIREQ+52*
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
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, PI+1~, FASTEXIT+6*
IBFDA MBIREQ+3~, MBIREQ+54*
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+3~, MBIREQ+10*, MBIREQ+11, MBIREQ+15, MBIREQ+19, MBIREQ+26, MBIREQ+48
IBSELN SEL+1~, SEL+3*, SEL+13*, SEL+14*, SEL+15*, SEL+25*, SEL+27*, SEL+34*, SELX, GETPYR+1
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
INSIEN ELIGDT+2~, GETPYR+1*, GETPYR+3
IOF HELP+2, HELPSTC2+3
LINE SET~, SET+3
PAYERSTR ELIGDT+3~, GETPYR+3*, GETPYR+4
PEDT ELIGDT+3~, ELIGDT+14, ELIGDT+15*, ELIGDT+21
PIEN ELIGDT+3~, GETPYR+4*, GETPYR+5, GETPYR+8, GETPYR+11
POP EN+2~, BLD+2~
PSDT ELIGDT+3~, ELIGDT+12, ELIGDT+13*, ELIGDT+20
PYRAPP ELIGDT+3~, GETPYR+5*, GETPYR+8, GETPYR+11
PYRFUTURE ELIGDT+3~, ELIGDT+14, ELIGDT+15, GETPYR+8*, GETPYR+9*
PYRPAST ELIGDT+3~, ELIGDT+12, ELIGDT+13, GETPYR+11*, GETPYR+12*
SADT ELIGDT+3~, ELIGDT+17, ELIGDT+20
SFANAME BLD+2~
STARTDT ELIGDT+3~, ELIGDT+20*, ELIGDT+24, ELIGDT+26, ELIGDT+29
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
TMPNM BLD+2~, BLD+33*, BLD+35, BLD+40
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, SEL+14, SEL+15, STCEN+3, STCEN+7
, MBIREQ+31, MBIREQ+48, GETPYR+1, GETPYR+4
VA HDR+1~
VA("BID" HDR+3
>> VADM(1 MBIREQ+52
>> VADM(2 MBIREQ+31
>> VADM(3 MBIREQ+31
VAERR HDR+1~
VALMBCK EN+2~, PIX+1*, HELP+25*, SELECT+4*, SELECTX+1*, FASTEXIT+2*, MBIREQ+6*, MBIREQ+58*, 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+2~, MBIREQ+2~
Y PAT+2~, PAT+10, PAT+12, SELECT+1~, SEL+1~, SEL+12, SEL+13, SEL+34, STC+2~, STCEN+7
, FASTEXIT+1~, FASTEXIT+6, ELIGDT+2~, ELIGDT+31, ELIGDT+32, MBIREQ+2~, MBIREQ+41
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