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

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Integrated Billing 2 $$FO^IBCNEUT1  $$PYRAPP^IBCNEUT5  
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: 1

Package Total Caller Graph
Integrated Billing 1 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(IEN) ; Modify Payer application settings
; Input: IEN - key to Payer File (#365.12)
; Output: Modifies entries in the Payer File
APPEDIT(PIEN,AIEN) ; Modify eIV Payer application settings
; Input: PIEN - key to Payer File (#365.12),
; AIEN - key to Payer Application File (#365.13) - eIV payer application
; Output: Modifies entries in the Payer File
APPEDX
PAYER() ; Select Payer - File #365.12
; Init vars

External References

Name Field # of Occurrence
^DIC PAYER+10
^DIE APPEDIT+33
^DIR EDIT+25, APPEDIT+13
$$FO^IBCNEUT1 EDIT+14, EDIT+15, EDIT+16, EDIT+17, EDIT+18, EDIT+19, APPEDIT+16, APPEDIT+17, APPEDIT+18, APPEDIT+19
, APPEDIT+20, APPEDIT+23, APPEDIT+24, APPEDIT+26, PAYER+6
$$PYRAPP^IBCNEUT5 EDIT+22
$$FMTE^XLFDT EDIT+19, APPEDIT+24
$$NOW^XLFDT APPEDIT+30

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 allows you to view the data in the Payer file for a particular"
  • Line Location: CLRSCRN+3
Function Call: WRITE
  • Prompt: !?1,"Payer. You may only edit local flags. Most of the fields in the Payer file"
  • Line Location: CLRSCRN+4
Function Call: WRITE
  • Prompt: !?1,"are not editable. This data comes into VistA electronically. If an"
  • Line Location: CLRSCRN+5
Function Call: WRITE
  • Prompt: !?1,"application has been deactivated, the local flag cannot be edited."
  • Line Location: CLRSCRN+6
Function Call: WRITE
  • Prompt: !!,$$FO^IBCNEUT1("Payer Name: ",LN,"R"),$P(IBDATA,U,1)
  • Line Location: EDIT+14
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("VA National ID: ",LN,"R"),$P(IBDATA,U,2)
  • Line Location: EDIT+15
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("CMS National ID: ",LN,"R"),$P(IBDATA,U,3)
  • Line Location: EDIT+16
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Inst Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,6)
  • Line Location: EDIT+17
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Prof Electronic Bill ID: ",LN,"R"),$P(IBDATA,U,5)
  • Line Location: EDIT+18
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Date/Time Created: ",LN,"R"),$$FMTE^XLFDT($P(IBDATA,U,4),"5Z")
  • Line Location: EDIT+19
Function Call: WRITE
  • Prompt: !!,"There is no eIV payer application defined for this Payer."
  • Line Location: EDIT+24
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: APPEDIT+11
Function Call: WRITE
  • Prompt: !,"eIV Payer Application not found - ERROR!"
  • Line Location: APPEDIT+13
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Payer Application: ",LN,"R"),"eIV"
  • Line Location: APPEDIT+16
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("National Active: ",LN,"R"),$S(+$P(IBNODE,U,2):"Active",1:"Not Active")
  • Line Location: APPEDIT+17
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Future Service Days: ",LN,"R"),$P(IBNODE,U,14)
  • Line Location: APPEDIT+18
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Past Service Days: ",LN,"R"),$P(IBNODE,U,15)
  • Line Location: APPEDIT+19
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Auto-update Pt. Insurance: ",LN,"R"),$S(+$P(IBNODE,U,7):"YES",1:"NO")
  • Line Location: APPEDIT+20
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Deactivated: ",LN,"R"),$S(+$P(IBNODE,U,11):"YES",1:"NO")
  • Line Location: APPEDIT+23
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Deactivation Date/Time: ",LN,"R"),$S(+$P(IBNODE,U,12):$$FMTE^XLFDT($P(IBNODE,U,12),"5Z"),1:"")
  • Line Location: APPEDIT+24
Function Call: WRITE
  • Prompt: !,$$FO^IBCNEUT1("Local Active: ",LN,"R"),$S(+$P(IBNODE,U,3):"Active",1:"Not Active")
  • Line Location: APPEDIT+26
Function Call: WRITE
  • Prompt: !!!
  • Line Location: PAYER+4
Routine Call
  • DIC
  • Line Location:
    • PAYER+10
Routine Call
  • DIE
  • Line Location:
    • APPEDIT+33
Routine Call
  • DIR
  • Line Location:
    • EDIT+25
    • APPEDIT+13

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$PAYER EN+8
APPEDIT EDIT+28
APPEDX APPEDIT+13, APPEDIT+22
CLRSCRN EN+7, EDIT+13
EDIT EN+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AIEN APPEDIT~, APPEDIT+10, APPEDIT+32
APPIEN EDIT+5~, EDIT+22*, EDIT+23, EDIT+28
DA APPEDIT+6~, APPEDIT+32*
DA(1 APPEDIT+32*
DIC PAYER+2~, PAYER+9*
DIC("A" PAYER+6*
DIC("S" PAYER+8*
DIC(0 PAYER+5*
DIE APPEDIT+6~, APPEDIT+31*
DIR EDIT+25!, APPEDIT+6~, APPEDIT+13!
DIR(0 EDIT+25*, APPEDIT+13*
DIRUT APPEDIT+6~
DR APPEDIT+6~, APPEDIT+30*
DTOUT APPEDIT+6~, PAYER+2~, PAYER+11
DUOUT PAYER+2~, PAYER+11
DUZ APPEDIT+30
FDA APPEDIT+6~
IBDATA EDIT+5~, EDIT+11*, EDIT+14, EDIT+15, EDIT+16, EDIT+17, EDIT+18, EDIT+19
IBNODE APPEDIT+6~, APPEDIT+10*, APPEDIT+13, APPEDIT+17, APPEDIT+18, APPEDIT+19, APPEDIT+20, APPEDIT+22, APPEDIT+23, APPEDIT+24
, APPEDIT+26
IEN EDIT~, EDIT+11, EDIT+22, EDIT+28
IOF CLRSCRN+1
LN EDIT+5~, EDIT+7*, EDIT+14, EDIT+15, EDIT+16, EDIT+17, EDIT+18, EDIT+19, APPEDIT+6~, APPEDIT+9*
, APPEDIT+16, APPEDIT+17, APPEDIT+18, APPEDIT+19, APPEDIT+20, APPEDIT+23, APPEDIT+24, APPEDIT+26
PIEN APPEDIT~, APPEDIT+10, APPEDIT+31, APPEDIT+32
PYRIEN EN+5~, EN+8*
U EDIT+14, EDIT+15, EDIT+16, EDIT+17, EDIT+18, EDIT+19, APPEDIT+17, APPEDIT+18, APPEDIT+19, APPEDIT+20
, APPEDIT+22, APPEDIT+23, APPEDIT+24, APPEDIT+26, PAYER+13
X APPEDIT+6~, PAYER+2~
Y APPEDIT+6~, 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