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

Package: Integrated Billing

Routine: IBCEP82


Information

IBCEP82 ;ALB/CLT - Special cross references and data entry for fields in file 355.93 ;18 Apr 2008 3:46 PM

Source Information

Source file <IBCEP82.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 5 FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  $$CHKDGT^XUSNPI  
Integrated Billing 1 $$NPIUSED^IBCEP81  
MailMan 1 ^XMD  

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

Package Total Caller Graph
Integrated Billing 9 IBXSA22  IBXSA26  IBXSA27  IBXSA28  IBXSAH10  IBXSAH2  IBXSAH6  IBXSAH9  
TAXONOMY CODE  

Entry Points

Name Comments DBIA/ICR reference
EN(IBNPRV) ;Routine primary entry point
EN1 ;
EN2(IBNPRV,INDENT) ; entry point from input templates IB SCREEN82 and IB SCREEN8H
EN21 ;
PROC(IBNPI,IBOLDNPI,IBIEN) ; process new NPI
ACTI ;CREATE AN ACTIVATED ENTRY IN MULTIPLE NPISTATUS FIELD
DEL ;NPI HAS BEEN DELETED
COMP ;COMPLETELY DELETE THE NPI
DELNPI(IEN,OIEN) ;DELETE-INVALID removes NPI from file.
INACT ;INACTIVATE AN ENTRY
ROLLBACK ;Rollback or delete NPI
XIT ;CLEAN AND EXIT
XR ;Set the primary taxonomy code cross reference for field 42
KXR ;Kill primary taxonomy code cross reference for field 42
WARNR(IBIEN,IBOLDNPI,IBKEY) ;Warn user that the old NPI that was replaced is currently used by an entry in the New Person file (#200)
WARND(IBIEN,IBOLDNPI,IBKEY) ;Warn user that the old NPI that was deleted is currently used by an entry in the New Person file (#200)
MAILR(IBIEN,IBKEY,IBIEN200,IBOLDNPI) ;Send mailman message for replacement of NPI
MAILD(IBIEN,IBKEY,IBIEN200,IBOLDNPI) ;Send mailman message for deletion of an NPI

External References

Name Field # of Occurrence
FILE^DICN ACTI+3, INACT+6
^DIE DELNPI+4
^DIK DELNPI+6, ROLLBACK+5
$$GET1^DIQ WARNR+5, WARND+5, MAILR+7, MAILR+9, MAILD+6, MAILD+8
^DIR EN1+10, EN21+5, DEL+8
$$NPIUSED^IBCEP81 PROC+2
$$NOW^XLFDT ACTI+1, INACT+4
^XMD MAILR+13, MAILD+12
$$CHKDGT^XUSNPI PROC+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!," EXIT NOT ALLOWED ??"
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: *7,!," JUMPING NOT ALLOWED ??"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: *7,"??"
  • Line Location: EN21+6
Function Call: WRITE
  • Prompt: !,*7,$E($G(SPACES),1,+$G(INDENT))_"Not a valid NPI. Please try again.",!
  • Line Location: PROC+1
Function Call: WRITE
  • Prompt: !,"This NPI will be designated as Entered in Error.",!
  • Line Location: DEL+15
Function Call: WRITE
  • Prompt: !,"The NPI is now inactive.",!
  • Line Location: DEL+16
Function Call: WRITE
  • Prompt: !!,"WARNING: NPI ",IBOLDNPI," is also associated with Provider ",$$GET1^DIQ(200,IBIEN200,.01),".",!
  • Line Location: WARNR+5
Function Call: WRITE
  • Prompt: !!,"There are no holders of the ",IBKEY," security key on the VistA system. Contact your IRM department for further direction."
  • Line Location: WARNR+6
Function Call: WRITE
  • Prompt: !,"A MailMan message has been sent to holders of the "_""""_IBKEY_""""_" security key."
  • Line Location: WARNR+7
Function Call: WRITE
  • Prompt: !!,"WARNING: NPI ",IBOLDNPI," is also associated with VA Provider ",$$GET1^DIQ(200,IBIEN200,.01),".",!
  • Line Location: WARND+5
Function Call: WRITE
  • Prompt: !!,"There are no holders of the ",IBKEY," security key on the VistA system. Contact your IRM department for further direction."
  • Line Location: WARND+6
Function Call: WRITE
  • Prompt: !,"A MailMan message has been sent to holders of the "_""""_IBKEY_""""_" security key."
  • Line Location: WARND+7
Routine Call
  • DIE
  • Line Location:
    • DELNPI+4
Routine Call
  • DIR
  • Line Location:
    • EN1+10
    • EN21+5
    • DEL+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
^IBA(355.93 - [#355.93] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(355.93 - [#355.93] EN1+4, EN1+6, EN1+8, EN1+9, EN21+4, PROC+6*, ACTI+4*, COMP+2, COMP+4!, COMP+12
, COMP+13, INACT+7*, INACT+8!, INACT+9*, INACT+12*, ROLLBACK+1, ROLLBACK+6*, XR+2, XR+3, XR+4!
, XR+5*, XR+6*, KXR+2!
^VA(200 - [#200] WARNR+3, WARND+3
^XUSEC( WARNR+6, WARND+6, MAILR+4, MAILD+4

Label References

Name Line Occurrences
$$PROC EN1+17, EN21+10
ACTI PROC+4, INACT+11
COMP DEL+15
DEL EN1+13, EN21+6
DELNPI COMP+3
EN1 EN1+11, EN1+12, EN1+13, EN1+17
EN21 EN21+6, EN21+10
INACT PROC+5
MAILD WARND+8
MAILR WARNR+8
ROLLBACK COMP+22
WARND DEL+18
WARNR INACT+13
XIT EN1+14, EN1+15, EN1+18, EN21+7, EN21+8, EN21+11, DEL+9

Naked Globals

Name Field # of Occurrence
^(0 EN1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATAX XR+1~*, XR+3*, XR+4, XR+5
D DELNPI+1~, ROLLBACK+2~
D0 DELNPI+1~, ROLLBACK+2~
DA EN+1~, EN1+1*, EN1+4, EN1+6, EN1+8, EN2+1~, EN21+1*, EN21+4, COMP+4, DELNPI+1~
, DELNPI+3*, DELNPI+5*, ROLLBACK+2~, ROLLBACK+4*, XR+5, XR+6, KXR+2
DA(1 ACTI+1*, DELNPI+5*, INACT+4*, INACT+7, INACT+8, INACT+12, ROLLBACK+4*, XR+2, XR+3, XR+4
, XR+5, XR+6, KXR+2
DI DELNPI+1~, ROLLBACK+2~
DIC EN+1~, EN2+1~, ACTI+1*, DELNPI+1~, INACT+4*, ROLLBACK+2~
DIC("DR" ACTI+2*, INACT+5*
DIC(0 ACTI+1*, INACT+4*
DIE EN+1~, EN2+1~, DELNPI+1~, DELNPI+3*, ROLLBACK+2~
DIEL DELNPI+2~, ROLLBACK+3~
DIK DELNPI+1~, DELNPI+5*, ROLLBACK+2~, ROLLBACK+4*
DIR EN+1~, EN1+2!, EN2+1~, EN21+2!, DEL+4!
DIR("?" EN1+3*, EN21+3*, DEL+7*
DIR("A" EN1+3*, EN21+3*, DEL+6*
DIR("B" EN1+4*, EN1+9*, EN21+4*, DEL+3
DIR(0 EN1+3*, EN21+3*, DEL+5*
DK DELNPI+2~, ROLLBACK+3~
DL DELNPI+2~, ROLLBACK+3~
DM DELNPI+2~, ROLLBACK+3~
DP DELNPI+2~, ROLLBACK+3~
DQ DELNPI+1~, ROLLBACK+2~
DR EN+1~, EN2+1~, DELNPI+1~, DELNPI+3*, ROLLBACK+2~
DTOUT EN+1~, EN1+14, EN2+1~, EN21+7
DUOUT EN+1~, EN1+14, EN2+1~, EN21+7
DUZ MAILR+5, MAILD+5
IBA35593 EN1+7~, EN1+8*, EN1+9
IBCHECK EN+2~, EN1+10*, EN2+2~, EN21+5*, PROC+2, PROC+3*, INACT+10
IBIEN EN+2~, EN1+1*, EN1+17, EN2+2~, EN21+1*, EN21+10, PROC~, PROC+2, PROC+6, ACTI+1
, ACTI+4, DEL+18, COMP+2, COMP+3, COMP+12, COMP+13, INACT+4, INACT+9, INACT+13, ROLLBACK+1
, ROLLBACK+4, ROLLBACK+6, WARNR~, WARNR+8, WARND~, WARND+8, MAILR~, MAILR+7, MAILD~, MAILD+6
IBIEN2 MAILR+3~, MAILR+4*, MAILD+3~, MAILD+4*
IBIEN200 WARNR+1~, WARNR+3*, WARNR+4, WARNR+5, WARNR+8, WARND+1~, WARND+3*, WARND+4, WARND+5, WARND+8
, MAILR~, MAILR+9, MAILD~, MAILD+8
IBKEY EN+1~, EN+3*, EN2+1~, EN2+3*, PROC+2, DEL+18, INACT+13, WARNR~, WARNR+6, WARNR+7
, WARNR+8, WARND~, WARND+6, WARND+7, WARND+8, MAILR~, MAILR+4, MAILD~, MAILD+4
IBMSG MAILR+3~, MAILD+3~
IBMSG(1 MAILR+6*, MAILD+6*
IBMSG(2 MAILR+7*, MAILD+7*
IBMSG(3 MAILR+8*, MAILD+8*
IBMSG(4 MAILR+9*, MAILD+9*
IBMSG(5 MAILR+10*, MAILD+10*
IBMSG(6 MAILR+11*, MAILD+11*
IBMSG(7 MAILR+12*
IBNPI EN+2~, EN+3*, EN1+4*, EN1+16*, EN1+17, EN2+2~, EN2+3*, EN21+4*, EN21+9*, EN21+10
, PROC~, PROC+1, PROC+2, PROC+5, PROC+6, ACTI+4, DEL+3*, DEL+18, INACT+12, MAILR+6
IBNPRV EN~, EN1+1, EN2~, EN21+1
IBOLDNPI EN+2~, EN+3*, EN1+4*, EN1+10, EN1+13, EN1+15, EN1+16, EN1+17, EN2+2~, EN2+3*
, EN21+4*, EN21+5, EN21+6, EN21+8, EN21+9, EN21+10, PROC~, PROC+2, PROC+4, PROC+5
, DEL+18*, COMP+2, COMP+4, COMP+9, INACT+7, INACT+8, INACT+13, WARNR~, WARNR+2, WARNR+3
, WARNR+5, WARNR+8, WARND~, WARND+2, WARND+3, WARND+5, WARND+8, MAILR~, MAILR+6, MAILR+8
, MAILD~, MAILD+6, MAILD+7
IBRB EN+2~, EN2+2~, COMP+5*, COMP+12, COMP+19*, COMP+22, ROLLBACK+1, ROLLBACK+4
IBRBLST COMP+7~, COMP+13*, COMP+15, COMP+17, COMP+19
IBRBLST( COMP+9*
IBRBNPI EN+2~, EN2+2~, ROLLBACK+1*, ROLLBACK+6
IBRBTMP COMP+7~, COMP+10*, COMP+12*, COMP+13, COMP+19
IEN DELNPI~, DELNPI+3, DELNPI+5
INDENT EN2~, EN21+3, PROC+1
K KXR+1~, KXR+2*
OIEN COMP+2*, COMP+3, DELNPI~, DELNPI+5
SPACES EN2+2~, EN2+3*, EN21+3, PROC+1
U EN1+4, EN1+6, EN1+8, EN1+9, EN21+4, PROC+6, ACTI+4, COMP+15, COMP+17, COMP+19
, INACT+9, ROLLBACK+1, ROLLBACK+6, XR+5
X EN+1~, EN1+11, EN1+12, EN1+13, EN1+15, EN1+16, EN2+1~, EN21+6, EN21+8, EN21+9
, ACTI+1*, DELNPI+1~, INACT+4*, ROLLBACK+2~, XR+2, XR+6
XMDUZ MAILR+3~, MAILR+5*, MAILD+3~, MAILD+5*
XMMG MAILR+3~, MAILD+3~
XMSUB MAILR+3~, MAILR+5*, MAILD+3~, MAILD+5*
XMTEXT MAILR+3~, MAILR+13*, MAILD+3~, MAILD+12*
XMY MAILR+3~, MAILD+3~
XMY( MAILR+4*, MAILD+4*
XMZ MAILR+3~, MAILD+3~
Y EN+1~, EN1+10, EN2+1~, EN21+5
Y(0 DEL+9
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