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

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

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
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
^DIC PAYER+10
$$FIND1^DIC EDIT+10
^DIE APPEDIT+8, APPEDIT+14
^DIR EDIT+96
$$FO^IBCNEUT1 EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26, EDIT+87, EDIT+88, APPDSPLY+3, APPDSPLY+4
APPDSPLY+10, APPDSPLY+14, APPDSPLY+20, APPDSPLY+24, APPDSPLY+30, APPDSPLY+34, APPDSPLY+38, APPDSPLY+40, PAYER+6
$$PYRAPP^IBCNEUT5 EDIT+91, EDIT+92
$$PYRDEACT^IBCNINSU EDIT+85
PAYER^IBCNINSU EDIT+100, EDIT+103
$$FMTE^XLFDT EDIT+26, EDIT+88
$$NOW^XLFDT APPEDIT+5

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: !!,?1,"This option displays the data in the Payer file for a given payer. You"
  • Line Location: CLRSCRN+4
Function Call: WRITE
  • Prompt: !?1,"may only edit site controlled fields and most fields are not site controlled."
  • Line Location: CLRSCRN+5
Function Call: WRITE
  • Prompt: !?1,"Site controlled fields cannot be edited for a deactivated payer."
  • Line Location: CLRSCRN+6
Function Call: WRITE
  • Prompt: !!,$$FO^IBCNEUT1("Payer Name: ",LN,"R"),$P(IBDATA,U,1)
  • Line Location: EDIT+21
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("VA National ID: ",LN,"R"),$P(IBDATA,U,2)
  • Line Location: EDIT+22
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("CMS National ID: ",LN,"R"),$P(IBDATA,U,3)
  • Line Location: EDIT+23
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Inst Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,6)
  • Line Location: EDIT+24
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Prof Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,5)
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Date/Time Created: ",LN,"R"),$$FMTE^XLFDT($P(IBDATA,U,4),"5Z")
  • Line Location: EDIT+26
Function Call: WRITE
  • Prompt: !!,"There is no eIV payer application defined for this Payer."
  • Line Location: EDIT+34
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+35
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+35
Function Call: WRITE
  • Prompt: !,"eIV Payer Application not found - ERROR!"
  • Line Location: EDIT+55
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+DEACT:"YES",1:"NO")
  • Line Location: EDIT+69
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+70
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Locally Enabled: ",LN,"R"),$S(+$P(IBNODE,U,3):"Enabled",1:"Not Enabled")
  • Line Location: EDIT+72
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+DEACT:"YES",1:"NO")
  • Line Location: EDIT+87
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+88
Function Call: WRITE
  • Prompt: !!,"There are no eIV or IIU payer applications defined for this Payer."
  • Line Location: EDIT+95
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+96
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+96
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
Routine Call
  • DIC
  • Line Location:
    • PAYER+10
Routine Call
  • DIC
  • Line Location:
    • EDIT+10
Routine Call
  • DIE
  • Line Location:
    • APPEDIT+8
    • APPEDIT+14
Routine Call
  • DIR
  • Line Location:
    • EDIT+96

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(365.12 - [#365.12] Classic Fileman Calls
^IBE(365.13 - [#365.13] FIND1^DIC

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$PAYER EN+8
APPDSPLY EDIT+107
APPEDIT EDIT+109
CLRSCRN EN+7, EDIT+20
EDIT EN+8

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+6~, EDIT+98!, EDIT+100
ARRAYEIV( EDIT+101, APPDSPLY+11, APPDSPLY+12, APPDSPLY+21, APPDSPLY+22, APPDSPLY+31, APPDSPLY+32, APPDSPLY+39, APPDSPLY+41
ARRAYIIU EDIT+6~, EDIT+98!, EDIT+103
ARRAYIIU( EDIT+104, 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+6~, EDIT+85*, EDIT+86, EDIT+87, EDIT+88, EDIT+108
DIC PAYER+2~, PAYER+9*
DIC("A" PAYER+6*
DIC("S" PAYER+8*
DIC(0 PAYER+5*
DIE APPEDIT+1~, APPEDIT+6*, APPEDIT+8!, APPEDIT+12*, APPEDIT+14!
DIR EDIT+96!, APPEDIT+1~
DIR(0 EDIT+96*
DIRUT APPEDIT+1~
DR APPEDIT+1~, APPEDIT+4*, APPEDIT+5*, APPEDIT+8!, APPEDIT+11*, APPEDIT+14!
DTOUT APPEDIT+1~, PAYER+2~, PAYER+11
DUOUT PAYER+2~, PAYER+11
DUZ APPEDIT+5
EIVIENS EDIT+6~, EDIT+101*, APPDSPLY+11, APPDSPLY+12, APPDSPLY+21, APPDSPLY+22, APPDSPLY+31, APPDSPLY+32, APPDSPLY+39, APPDSPLY+41
FDA APPEDIT+1~
IBDATA EDIT+6~, EDIT+18*, EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26
IENEIV EDIT+6~, EDIT+10*, EDIT+91*, EDIT+94, EDIT+99, EDIT+105, APPDSPLY+3, APPDSPLY+4, APPDSPLY+6, APPDSPLY+9
APPDSPLY+19, APPDSPLY+29, APPDSPLY+37, APPEDIT+3, APPEDIT+7
IENIIU EDIT+6~, EDIT+10*, EDIT+92*, EDIT+94, EDIT+102, APPDSPLY+4, APPDSPLY+6, APPDSPLY+13, APPDSPLY+23, APPDSPLY+33
APPEDIT+10, APPEDIT+13
IIUIENS EDIT+6~, EDIT+104*, APPDSPLY+15, APPDSPLY+25, APPDSPLY+35
IOF CLRSCRN+1
LN EDIT+6~, EDIT+11*, EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26, EDIT+87, EDIT+88
LNLFT EDIT+6~, EDIT+12*, EDIT+105, APPDSPLY+3, APPDSPLY+10, APPDSPLY+20, APPDSPLY+30, APPDSPLY+38, APPDSPLY+40
LNRHT EDIT+6~, EDIT+12*, EDIT+105*, 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+18, EDIT+85, EDIT+91, EDIT+92, EDIT+100, EDIT+103, APPEDIT+6, APPEDIT+7, APPEDIT+12
APPEDIT+13
PYRIEN EN+5~, EN+8*
U EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25, EDIT+26, EDIT+88, PAYER+13
X APPEDIT+1~, PAYER+2~
Y APPEDIT+1~, APPEDIT+8, APPEDIT+14, PAYER+2~, PAYER+11*, PAYER+13
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