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 |  Local Variables  | All
Print Page as PDF
Routine: IBCNEPY

Package: Integrated Billing

Routine: IBCNEPY


Information

IBCNEPY ;DAOU/BHS - eIV PAYER EDIT OPTION ;28-JUN-2002

Source Information

Source file <IBCNEPY.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 EN^DDIOL  $$FIND1^DIC  ^DIE  ^DIR  
Integrated Billing 3 $$FO^IBCNEUT1  $$PYRAPP^IBCNEUT5  ($$FILTER,$$PYRDEACT,PAYER)^IBCNINSU  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  

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

Package Total Caller Graph
Integrated Billing 2 APPLICATION  IBCNE PAYER EDIT  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point
; Input: n/a
; Output: Modifies entries in the Payer File (#365.12)
ENX ; EN exit point
CLRSCRN ;
EDIT(PIEN) ; Modify Payer application settings -/vd-IB*2*687 - Changed the variable IEN to PIEN
; Input: IEN - key to Payer File (#365.12)
; Output: Modifies entries in the Payer File
APPDSPLY ; Display Application Data
APPEDIT ; Edit the Payer Application fields that are editable.
PAYER() ; Select Payer - File #365.12
; Init vars
PAYST ; start of payer questions
PAYNAM ;ask name
PAYX ; payer lookup exit point
PSET ;set name into tmp array
PAYD(IBARY,IBO,IBLM) ; display up to 5 payer's for selection at a time.
; IBARY - 5 items to display
; IBO - are there more to display
HLPBEG ; display help message
HLPPN ; display help message for payer name
PAYLST ; list out payers in payer 'BB' index in groups of 20
HELP1 ;This is the help text for RECEIVE IIU DATA (#365.121,5.01) ICR #: 10142

External References

Name Field # of Occurrence
EN^DDIOL HELP1+11
$$FIND1^DIC EDIT+11
^DIE APPEDIT+8, APPEDIT+14
^DIR EDIT+105, PAYST+11, PAYNAM+7, PAYD+17, PAYLST+11
$$FO^IBCNEUT1 EDIT+27, EDIT+28, EDIT+32, EDIT+33, EDIT+34, EDIT+35, EDIT+96, EDIT+97, APPDSPLY+3, APPDSPLY+4
, APPDSPLY+10, APPDSPLY+14, APPDSPLY+20, APPDSPLY+24, APPDSPLY+30, APPDSPLY+34, APPDSPLY+38, APPDSPLY+40
$$PYRAPP^IBCNEUT5 EDIT+100, EDIT+101
$$FILTER^IBCNINSU PAYNAM+22
$$PYRDEACT^IBCNINSU EDIT+94
PAYER^IBCNINSU EDIT+109, EDIT+112
$$FMTE^XLFDT EDIT+35, EDIT+97
$$NOW^XLFDT APPEDIT+5
$$UP^XLFSTR PAYST+12, PAYNAM+11, PAYNAM+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLRSCRN+1
Function Call: WRITE
  • Prompt: !?35,"Payer Edit"
  • Line Location: CLRSCRN+2
Function Call: WRITE
  • Prompt: !!,"This option displays the data in the Payer file for a given payer. You"
  • Line Location: CLRSCRN+4
Function Call: WRITE
  • Prompt: !,"may only edit site controlled fields and most fields are not site controlled."
  • Line Location: CLRSCRN+5
Function Call: WRITE
  • Prompt: !,"Site controlled fields cannot be edited for a deactivated payer."
  • Line Location: CLRSCRN+6
Function Call: WRITE
  • Prompt: !!,"Payer: "_$P(IBDATA,U,1)
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: !!,?PNCTR,"Payer: ",$P(IBDATA,U,1),!
  • Line Location: EDIT+26
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("VA National ID: ",LN,"R"),$P(IBDATA,U,2)
  • Line Location: EDIT+27
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("CMS National ID: ",LN,"R"),$P(IBDATA,U,3)
  • Line Location: EDIT+28
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Blue Payer: ",LN,"R"),$S(+ISBLUE:"YES",1:"NO")
  • Line Location: EDIT+32
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Inst Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,6)
  • Line Location: EDIT+33
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Prof Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,5)
  • Line Location: EDIT+34
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Date/Time Created: ",LN,"R"),$$FMTE^XLFDT($P(IBDATA,U,4),"5Z")
  • Line Location: EDIT+35
Function Call: WRITE
  • Prompt: !!,"There is no eIV payer application defined for this Payer."
  • Line Location: EDIT+43
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+44
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+44
Function Call: WRITE
  • Prompt: !,"eIV Payer Application not found - ERROR!"
  • Line Location: EDIT+64
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+DEACT:"YES",1:"NO")
  • Line Location: EDIT+78
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Deactivation Date/Time: ",LN,"R"),$S(+$P(DEACT,U,2):$$FMTE^XLFDT($P(DEACT,U,2),"5Z"),1:"")
  • Line Location: EDIT+79
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Locally Enabled: ",LN,"R"),$S(+$P(IBNODE,U,3):"Enabled",1:"Not Enabled")
  • Line Location: EDIT+81
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+DEACT:"YES",1:"NO")
  • Line Location: EDIT+96
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Deactivation Date/Time: ",LN,"R"),$S(+$P(DEACT,U,2):$$FMTE^XLFDT($P(DEACT,U,2),"5Z"),1:"")
  • Line Location: EDIT+97
Function Call: WRITE
  • Prompt: !!,"There are no eIV or IIU payer applications defined for this Payer."
  • Line Location: EDIT+104
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+105
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+105
Function Call: WRITE
  • Prompt: !!,$$FO^IBCNEUT1("Payer Application: ",LNLFT,"R"),$S(+IENEIV:"eIV",1:"IIU")
  • Line Location: APPDSPLY+3
Function Call: WRITE
  • Prompt: $$FO^IBCNEUT1("Payer Application: ",(LNRHT-OFFSET),"R"),"IIU"
  • Line Location: APPDSPLY+4
Function Call: WRITE
  • Prompt: !,$E(DASHES,1,38)
  • Line Location: APPDSPLY+6
Function Call: WRITE
  • Prompt: ?40,$E(DASHES,1,35)
  • Line Location: APPDSPLY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: APPDSPLY+7
Function Call: WRITE
  • Prompt: $$FO^IBCNEUT1("Nationally Enabled: ",LNLFT,"R")
  • Line Location: APPDSPLY+10
Function Call: WRITE
  • Prompt: $G(ARRAYEIV(365.121,EIVIENS,.02,"E"))
  • Line Location: APPDSPLY+11
Function Call: WRITE
  • Prompt: $$FO^IBCNEUT1("Nationally Enabled: ",(LNRHT-OFFSET),"R")
  • Line Location: APPDSPLY+14
Function Call: WRITE
  • Prompt: $G(ARRAYIIU(365.121,IIUIENS,.02,"E"))
  • Line Location: APPDSPLY+15
Function Call: WRITE
  • Prompt: !
  • Line Location: APPDSPLY+17
Function Call: WRITE
  • Prompt: $$FO^IBCNEUT1("Future Service Days: ",LNLFT,"R")
  • Line Location: APPDSPLY+20
Function Call: WRITE
  • Prompt: $G(ARRAYEIV(365.121,EIVIENS,4.03,"E"))
  • Line Location: APPDSPLY+21
Function Call: WRITE
  • Prompt: $$FO^IBCNEUT1("IIU Locally Enabled: ",(LNRHT-OFFSET),"R")
  • Line Location: APPDSPLY+24
Function Call: WRITE
  • Prompt: $G(ARRAYIIU(365.121,IIUIENS,.03,"E"))
  • Line Location: APPDSPLY+25
Function Call: WRITE
  • Prompt: !
  • Line Location: APPDSPLY+27
Function Call: WRITE
  • Prompt: $$FO^IBCNEUT1("Past Service Days: ",LNLFT,"R")
  • Line Location: APPDSPLY+30
Function Call: WRITE
  • Prompt: $G(ARRAYEIV(365.121,EIVIENS,4.04,"E"))
  • Line Location: APPDSPLY+31
Function Call: WRITE
  • Prompt: $$FO^IBCNEUT1("Receive IIU Data: ",(LNRHT-OFFSET),"R")
  • Line Location: APPDSPLY+34
Function Call: WRITE
  • Prompt: $G(ARRAYIIU(365.121,IIUIENS,5.01,"E"))
  • Line Location: APPDSPLY+35
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Auto-update Pt. Insurance: ",LNLFT,"R")
  • Line Location: APPDSPLY+38
Function Call: WRITE
  • Prompt: $G(ARRAYEIV(365.121,EIVIENS,4.01,"E"))
  • Line Location: APPDSPLY+39
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("eIV Locally Enabled: ",LNLFT,"R")
  • Line Location: APPDSPLY+40
Function Call: WRITE
  • Prompt: $G(ARRAYEIV(365.121,EIVIENS,.03,"E"))
  • Line Location: APPDSPLY+41
Function Call: WRITE
  • Prompt: !
  • Line Location: APPDSPLY+43
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAYER+4
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: PAYST+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAYNAM+2
Function Call: WRITE
  • Prompt: " No payer names matching criteria found"
  • Line Location: PAYNAM+26
Function Call: WRITE
  • Prompt: !,?6,IBA,?13,IBM
  • Line Location: PAYD+12
Function Call: WRITE
  • Prompt: !,"Select the type of filter to narrow down your list of available Payers:"
  • Line Location: HLPBEG+1
Function Call: WRITE
  • Prompt: !," Begins with - Displays Payer(s) that begin with the specified text"
  • Line Location: HLPBEG+2
Function Call: WRITE
  • Prompt: !," Contains - Displays Payer(s) that contain the specified text"
  • Line Location: HLPBEG+3
Function Call: WRITE
  • Prompt: !," List - Displays listing of all Payers"
  • Line Location: HLPBEG+4
Function Call: WRITE
  • Prompt: !,"Enter the Payer's name that you want to Begin With."
  • Line Location: HLPPN+1
Function Call: WRITE
  • Prompt: !,"Enter the string that you want the Payer's name to Contain."
  • Line Location: HLPPN+2
Function Call: WRITE
  • Prompt: !,"Enter Payer Name"
  • Line Location: HLPPN+3
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:"
  • Line Location: PAYLST+3
Function Call: WRITE
  • Prompt: !,IBA
  • Line Location: PAYLST+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAYLST+13
Routine Call
  • DIC
  • Line Location:
    • EDIT+11
Routine Call
  • DIE
  • Line Location:
    • APPEDIT+8
    • APPEDIT+14
Routine Call
  • DIR
  • Line Location:
    • EDIT+105
    • PAYST+11
    • PAYNAM+7
    • PAYD+17
    • PAYLST+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(365.13 - [#365.13] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(365.12 - [#365.12] EDIT+19, PAYNAM+18, PAYNAM+19, PAYLST+7, PAYLST+8

Label References

Name Line Occurrences
$$PAYD PAYNAM+32, PAYNAM+38
$$PAYER EN+8
APPDSPLY EDIT+116
APPEDIT EDIT+118
CLRSCRN EN+7, EDIT+21
EDIT EN+8
PAYLST PAYST+16
PAYNAM PAYNAM+25, PAYNAM+31, PAYNAM+40
PAYST PAYST+14, PAYST+16, PAYNAM+9, PAYNAM+31, PAYNAM+39
PAYX PAYST+15, PAYNAM+30, PAYNAM+31, PAYNAM+41
PSET PAYNAM+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARR HELP1+1~, HELP1+11
ARR(1 HELP1+2*, HELP1+3*
ARR(2 HELP1+4*, HELP1+5*
ARR(3 HELP1+6*, HELP1+7*
ARR(4 HELP1+8*, HELP1+9*
ARR(5 HELP1+10*
ARRAYEIV EDIT+7~, EDIT+107!, EDIT+109
ARRAYEIV( EDIT+110, APPDSPLY+11, APPDSPLY+12, APPDSPLY+21, APPDSPLY+22, APPDSPLY+31, APPDSPLY+32, APPDSPLY+39, APPDSPLY+41
ARRAYIIU EDIT+7~, EDIT+107!, EDIT+112
ARRAYIIU( EDIT+113, APPDSPLY+15, APPDSPLY+25, APPDSPLY+35
DA APPEDIT+1~, APPEDIT+7*, APPEDIT+8!, APPEDIT+13*, APPEDIT+14!
DA(1 APPEDIT+7*, APPEDIT+13*
DASHES APPDSPLY+1~, APPDSPLY+2*, APPDSPLY+6
DEACT EDIT+7~, EDIT+94*, EDIT+95, EDIT+96, EDIT+97, EDIT+117
DIC PAYER+2~
DIE APPEDIT+1~, APPEDIT+6*, APPEDIT+8!, APPEDIT+12*, APPEDIT+14!
DIR EDIT+105!, APPEDIT+1~, PAYER+15~, PAYST+1!, PAYNAM+1!, PAYD+5~, PAYLST+2~, PAYLST+11!
DIR("?" PAYST+10*, PAYNAM+5*, PAYNAM+6, PAYD+13*
DIR("??" PAYST+10*, PAYNAM+6*
DIR("A" PAYST+4*, PAYST+5*, PAYST+6*, PAYST+7*, PAYST+8*, PAYNAM+4*, PAYD+14*, PAYD+16*
DIR("B" PAYST+9*
DIR(0 EDIT+105*, PAYST+3*, PAYNAM+3*, PAYD+7*, PAYLST+11*
DIROUT PAYER+15~, PAYST+1!, PAYNAM+1!, PAYD+5~
DIRUT APPEDIT+1~, PAYER+15~, PAYST+1!, PAYNAM+1!, PAYD+5~
DR APPEDIT+1~, APPEDIT+4*, APPEDIT+5*, APPEDIT+8!, APPEDIT+11*, APPEDIT+14!
DTOUT APPEDIT+1~, PAYER+2~, PAYER+15~, PAYST+1!, PAYNAM+1!, PAYLST+2~, PAYLST+12
DUOUT PAYER+2~, PAYER+15~, PAYST+1!, PAYNAM+1!, PAYLST+2~, PAYLST+12
DUZ APPEDIT+5
EIVIENS EDIT+7~, EDIT+110*, APPDSPLY+11, APPDSPLY+12, APPDSPLY+21, APPDSPLY+22, APPDSPLY+31, APPDSPLY+32, APPDSPLY+39, APPDSPLY+41
FDA APPEDIT+1~
FILTER PAYER+15~, PAYST+2*, PAYST+13*, PAYST+14, PAYST+15, PAYST+16, PAYNAM+22, HLPPN+1, HLPPN+2
IBA PAYER+15~, PAYNAM+21*, PSET+3, PAYD+5~, PAYD+7*, PAYD+8, PAYD+12, PAYLST+2~, PAYLST+4*, PAYLST+7*
, PAYLST+8, PAYLST+9
IBARY PAYD~
IBARY( PAYD+7, PAYD+8
IBARY(0 PAYD+4
IBB PAYER+15~, PAYNAM+21*, PAYNAM+22, PAYD+5~, PAYLST+2~, PAYLST+8*
IBC PSET+1~, PSET+2*, PSET+3, PAYLST+2~, PAYLST+4*, PAYLST+8*, PAYLST+10
IBCT PAYER+15~, PAYNAM+27*, PAYNAM+29, PAYNAM+31, PAYNAM+32, PAYNAM+34, PAYNAM+36, PAYNAM+37
IBD PAYER+15~, PAYNAM+35*, PAYNAM+36, PSET+1~, PAYD+5~, PAYD+8*, PAYD+11
IBDATA EDIT+7~, EDIT+19*, EDIT+24, EDIT+25, EDIT+26, EDIT+27, EDIT+28, EDIT+31, EDIT+33, EDIT+34
, EDIT+35
IBFND PAYER+15~, PAYST+15*, PAYNAM+8*, PAYNAM+17*, PAYNAM+25*, PAYNAM+27*, PAYNAM+29*, PAYNAM+30, PAYNAM+31, PAYNAM+32*
, PAYNAM+34, PAYNAM+35*, PAYNAM+38*, PAYNAM+39, PAYNAM+40, PAYX+3*, PAYX+4, PAYD+18*, PAYD+19*, PAYD+20
IBI PAYER+15~, PAYNAM+34*
IBJ PAYER+15~, PAYNAM+34*, PAYNAM+36
IBK PAYER+15~, PAYNAM+32*, PAYNAM+33*, PAYNAM+34*, PAYNAM+35, PAYNAM+36, PAYNAM+37
IBL PAYER+15~, PAYNAM+36*, PAYNAM+37, PAYNAM+38
IBLKNM PAYER+15~, PAYNAM+11*
IBLKUNM PAYER+15~, PAYNAM+11*, PAYNAM+22
IBLM PAYNAM+37*, PAYNAM+38, PAYD~, PAYD+7
IBM PAYD+5~, PAYD+11*, PAYD+12
IBN PAYER+15~, PAYNAM+21*, PSET+3
IBNMA PAYER+15~, PAYNAM+17*, PAYNAM+18*, PAYNAM+19, PAYNAM+21
IBNML PAYER+16~, PAYNAM+11*
IBNMR PAYER+16~, PAYNAM+17*, PAYNAM+19*, PAYNAM+21
IBO PAYD~, PAYD+15, PAYD+16
IBOK PAYNAM+15*, PAYNAM+22*, PAYNAM+23, PAYLST+2~, PAYLST+7*, PAYLST+8, PAYLST+12*
IBR PAYER+16~, PAYNAM+27*, PAYNAM+28*, PAYNAM+34
IBTMPA PAYER+16~, PAYNAM+28!, PAYNAM+31*, PAYNAM+32, PAYNAM+34!, PAYNAM+38
IBTMPA( PAYNAM+35*
IBTMPA(0 PAYNAM+31!
IBTMPFIL PAYER+16~, PAYER+17*, PAYNAM+13, PAYNAM+15, PAYNAM+25, PAYNAM+27, PAYNAM+29, PAYNAM+31, PAYNAM+35, PAYX+1
, PSET+2, PSET+3, PAYD+19
IBTN PAYER+16~, PAYNAM+27*, PAYNAM+28, PAYNAM+31*
IENEIV EDIT+7~, EDIT+11*, EDIT+100*, EDIT+103, EDIT+108, EDIT+114, APPDSPLY+3, APPDSPLY+4, APPDSPLY+6, APPDSPLY+9
, APPDSPLY+19, APPDSPLY+29, APPDSPLY+37, APPEDIT+3, APPEDIT+7
IENIIU EDIT+7~, EDIT+11*, EDIT+101*, EDIT+103, EDIT+111, APPDSPLY+4, APPDSPLY+6, APPDSPLY+13, APPDSPLY+23, APPDSPLY+33
, APPEDIT+10, APPEDIT+13
IIUIENS EDIT+7~, EDIT+113*, APPDSPLY+15, APPDSPLY+25, APPDSPLY+35
IOF CLRSCRN+1
ISBLUE EDIT+7~, EDIT+31*, EDIT+32
LN EDIT+7~, EDIT+12*, EDIT+27, EDIT+28, EDIT+32, EDIT+33, EDIT+34, EDIT+35, EDIT+96, EDIT+97
LNLFT EDIT+7~, EDIT+13*, EDIT+114, APPDSPLY+3, APPDSPLY+10, APPDSPLY+20, APPDSPLY+30, APPDSPLY+38, APPDSPLY+40
LNRHT EDIT+7~, EDIT+13*, EDIT+114*, APPDSPLY+4, APPDSPLY+14, APPDSPLY+24, APPDSPLY+34
OFFSET APPDSPLY+1~, APPDSPLY+4*, APPDSPLY+8*, APPDSPLY+12*, APPDSPLY+14, APPDSPLY+18*, APPDSPLY+22*, APPDSPLY+24, APPDSPLY+28*, APPDSPLY+32*
, APPDSPLY+34
OPTOUT APPEDIT+1~, APPEDIT+2*, APPEDIT+3, APPEDIT+8*, APPEDIT+14*
PIEN EDIT~, EDIT+19, EDIT+94, EDIT+100, EDIT+101, EDIT+109, EDIT+112, APPEDIT+6, APPEDIT+7, APPEDIT+12
, APPEDIT+13
PNCTR EDIT+23~, EDIT+26*
PNLEN EDIT+23~, EDIT+24*, EDIT+25, EDIT+26
PYRIEN EN+5~, EN+8*
U EDIT+24, EDIT+25, EDIT+26, EDIT+27, EDIT+28, EDIT+31, EDIT+33, EDIT+34, EDIT+35, EDIT+97
, PAYST+14, PAYNAM+9, PAYNAM+22, PAYNAM+29, PAYNAM+31, PAYNAM+34, PAYNAM+39, PAYX+3, PSET+3, PAYD+11
, PAYD+18, PAYD+19
X APPEDIT+1~, PAYER+2~, PAYD+5~, PAYLST+2~
Y APPEDIT+1~, APPEDIT+8, APPEDIT+14, PAYER+2~, PAYST+12*, PAYST+13, PAYST+14, PAYNAM+9, PAYNAM+11, PAYD+5~
, PAYD+18, PAYD+19, PAYLST+2~
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 |  Local Variables  | All