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
Print Page as PDF
Routine: XUSNPIE3

Package: Kernel

Routine: XUSNPIE3


Information

XUSNPIE3 ;FO-OAKLAND/JLI - NATIONAL PROVIDER IDENTIFIER DATA CAPTURE ;4/8/08 18:18

Source Information

Source file <XUSNPIE3.m>

Entry Points

Name Comments DBIA/ICR reference
EDITNPI(IEN) ; main entry of NPI value
; IEN is the internal entry number in file 200 for the provider
CHKNPIU(XUSNPI,XUSIEN,XUSFLAG,XUSRSLT) ; Return error or warning if current or new NPI is in use
WARNING(XUSTYPE,PROVNAME,XUSRSLT,XUSNNPI) ; If old NPI was in use by a non-VA provider, issue warning after REPLACE/DELETE
; XUSTYPE = Flag indicating whether NPI was Deleted or Changed
; PROVNAME = Name of provider whose NPI was changed/deleted
; XUSRSLT = text of warning message
; XUSNNPI = New NPI (if NPI was changed)
SNDMSG(XMDUZ,XUSTYPE,XUSRSLT) ;Sends msg when NPI is changed/deleted.
; XUSTYPE = flag indicating NPI was Deleted or Changed
; XUSRSLT = array containing the message text and the recipients

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This user isn't currently active"
  • Line Location: EDITNPI+7
Function Call: WRITE
  • Prompt: !,"This provider has been indicated as being EXEMPT from needing an NPI value.",!," Use Exempt option to remove it first"
  • Line Location: EDITNPI+10
Function Call: WRITE
  • Prompt: !,"This provider already has an NPI value (",CURRNPI,") entered."
  • Line Location: EDITNPI+26
Function Call: WRITE
  • Prompt: !,$S(Y>-1:"Entry has been marked inactive.",1:$P(Y,U,2)),!
  • Line Location: EDITNPI+49
Function Call: WRITE
  • Prompt: !,"Need for an NPI value isn't indicated - but you can enter an NPI",$C(7)
  • Line Location: EDITNPI+61
Function Call: WRITE
  • Prompt: !,"Provider: ",PROVNAME," ","XXX-XX-"_$E($$GET1^DIQ(200,IEN_",",9),6,9)," DOB: "
  • Line Location: EDITNPI+63
Function Call: WRITE
  • Prompt: XX
  • Line Location: EDITNPI+64
Function Call: READ
  • Formatting: !
  • Prompt: "Enter NPI (10 digits): "
  • Variable: NPIVAL1
  • Timeout: DTIME
  • Line Location: EDITNPI+68
Function Call: WRITE
  • Prompt: !,$C(7),"Enter a 10 digit National Provider Identifier which is obtained ",!,"from 'https://nppes.cms.hhs.gov/NPPES/Welcome.do'"
  • Line Location: EDITNPI+70
Function Call: READ
  • Formatting: !
  • Prompt: "Enter a nine (9) digit number as the base: "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: EDITNPI+72
Function Call: WRITE
  • Prompt: !,"The complete NPI value is: ",Y_$$CKDIGIT^XUSNPI(Y),!
  • Line Location: EDITNPI+73
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITNPI+88
Function Call: READ
  • Formatting: !
  • Prompt: "Please re-enter NPI : "
  • Variable: NPIVAL2
  • Timeout: DTIME
  • Line Location: EDITNPI+90
Function Call: WRITE
  • Prompt: !,"Values do not match!"
  • Line Location: EDITNPI+90
Function Call: WRITE
  • Prompt: !,"Entry was DELETED..."
  • Line Location: EDITNPI+99
Function Call: WRITE
  • Prompt: !,"Entry was DELETED..."
  • Line Location: EDITNPI+103
Function Call: WRITE
  • Prompt: !,"Problem writing that value into the database! -- It was **NOT** recorded."
  • Line Location: EDITNPI+113
Function Call: WRITE
  • Prompt: !,$P(DONE,U,2)
  • Line Location: EDITNPI+114
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHKNPIU+7
Function Call: WRITE
  • Prompt: XUSRSLT(I),!
  • Line Location: CHKNPIU+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: WARNING+9
Function Call: WRITE
  • Prompt: XUSRSLT("X",I),!
  • Line Location: WARNING+10
Function Call: WRITE
  • Prompt: !,XMMG,!
  • Line Location: SNDMSG+9
Info |  Source |  Entry Points |  Interaction Calls