Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call