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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 6 $$NOW^XLFDT  $$PROD^XUPROD  ($$ADDNPI,$$CKDIGIT,$$QI,$$SRCHNPI)^XUSNPI  $$NPIUSED^XUSNPI1  (CHKOLD1,DELETNPI)^XUSNPIE2  ($$CHEKNPI,$$DATE10,$$GETTAXON,$$NPISTATS,EDRLNPI)^XUSNPIED  
VA FileMan 3 FILE^DIE  $$GET1^DIQ  ^DIR  
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: 1

Package Total Caller Graph
Kernel 1 XUSNPIED  

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

External References

Name Field # of Occurrence
FILE^DIE EDITNPI+53
$$GET1^DIQ EDITNPI+6, EDITNPI+22, EDITNPI+63
^DIR EDITNPI+35, EDITNPI+44, EDITNPI+71, EDITNPI+88, EDITNPI+96
$$NOW^XLFDT EDITNPI+48, EDITNPI+108
^XMD SNDMSG+8
$$PROD^XUPROD EDITNPI+71
$$ADDNPI^XUSNPI EDITNPI+48, EDITNPI+110, EDITNPI+111
$$CKDIGIT^XUSNPI EDITNPI+73
$$QI^XUSNPI CHKNPIU+2
$$SRCHNPI^XUSNPI EDITNPI+23
$$NPIUSED^XUSNPI1 CHKNPIU+4
CHKOLD1^XUSNPIE2 EDITNPI+98
DELETNPI^XUSNPIE2 EDITNPI+97, EDITNPI+102
$$CHEKNPI^XUSNPIED EDITNPI+53, EDITNPI+61, EDITNPI+95
$$DATE10^XUSNPIED EDITNPI+64
$$GETTAXON^XUSNPIED EDITNPI+8
$$NPISTATS^XUSNPIED EDITNPI+9, EDITNPI+10, EDITNPI+20
EDRLNPI^XUSNPIED EDITNPI+118

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
Routine Call
  • DIE
  • Line Location:
    • EDITNPI+53
Routine Call
  • DIR
  • Line Location:
    • EDITNPI+35
    • EDITNPI+44
    • EDITNPI+71
    • EDITNPI+88
    • EDITNPI+96

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] EDITNPI+24, EDITNPI+64

Label References

Name Line Occurrences
$$CHKNPIU EDITNPI+28, EDITNPI+75
SNDMSG WARNING+18
WARNING EDITNPI+54, EDITNPI+100, EDITNPI+117

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDNPI EDITNPI+4~, EDITNPI+5*, EDITNPI+40, EDITNPI+110
CURRNPI EDITNPI+3~, EDITNPI+22*, EDITNPI+23, EDITNPI+24, EDITNPI+26, EDITNPI+28, EDITNPI+48, EDITNPI+110
DATEVAL EDITNPI+3~, EDITNPI+108*, EDITNPI+110, EDITNPI+111
DELETNPI EDITNPI+4~, EDITNPI+5*, EDITNPI+56, EDITNPI+68, EDITNPI+94
DESCRIP EDITNPI+3~, EDITNPI+8
DIR EDITNPI+4~, EDITNPI+21~, EDITNPI+35!, EDITNPI+44!, EDITNPI+71!, EDITNPI+80!, EDITNPI+89!, EDITNPI+96~
DIR("?" EDITNPI+31*, EDITNPI+32*, EDITNPI+33*, EDITNPI+34*, EDITNPI+42*, EDITNPI+43*, EDITNPI+83*, EDITNPI+84*, EDITNPI+85*, EDITNPI+86*
, EDITNPI+87*
DIR("A" EDITNPI+30*, EDITNPI+42*, EDITNPI+71*, EDITNPI+82*, EDITNPI+96*
DIR("B" EDITNPI+81*, EDITNPI+96*
DIR(0 EDITNPI+29*, EDITNPI+42*, EDITNPI+71*, EDITNPI+81*, EDITNPI+96*
DONE EDITNPI+3~, EDITNPI+66*, EDITNPI+68, EDITNPI+91*, EDITNPI+106, EDITNPI+110*, EDITNPI+111*, EDITNPI+112, EDITNPI+114
DTIME EDITNPI+68, EDITNPI+72, EDITNPI+90
>> DTOUT EDITNPI+36
DUZ EDITNPI+62, WARNING+18
I EDITNPI+3~, EDITNPI+21~, CHKNPIU+1~, CHKNPIU+8*, CHKNPIU+9, CHKNPIU+10, WARNING+5~, WARNING+10*, WARNING+12*, WARNING+15
, SNDMSG+3~, SNDMSG+7*
IEN EDITNPI~, EDITNPI+6, EDITNPI+8, EDITNPI+9, EDITNPI+10, EDITNPI+20, EDITNPI+22, EDITNPI+23, EDITNPI+24, EDITNPI+28
, EDITNPI+48, EDITNPI+52, EDITNPI+53, EDITNPI+61, EDITNPI+62, EDITNPI+63, EDITNPI+64, EDITNPI+75, EDITNPI+95, EDITNPI+97
, EDITNPI+98, EDITNPI+102, EDITNPI+110, EDITNPI+111, EDITNPI+118
NOOLDNPI EDITNPI+4~, EDITNPI+5*, EDITNPI+16, EDITNPI+20, EDITNPI+47
NPIUSED EDITNPI+75*, EDITNPI+77, EDITNPI+79, CHKNPIU+1~, CHKNPIU+4*, CHKNPIU+6, CHKNPIU+12
NPIUSEDX EDITNPI+4~, EDITNPI+18*, EDITNPI+28*, EDITNPI+54, EDITNPI+100, EDITNPI+117
NPIVAL1 EDITNPI+3~, EDITNPI+68*, EDITNPI+69, EDITNPI+75, EDITNPI+90, EDITNPI+111, EDITNPI+115, EDITNPI+117
NPIVAL2 EDITNPI+3~, EDITNPI+90*
ODATEVAL EDITNPI+4~, EDITNPI+24*, EDITNPI+25, EDITNPI+95, EDITNPI+97
OIEN EDITNPI+4~, EDITNPI+23*, EDITNPI+24*, EDITNPI+97
OLDNPI EDITNPI+4~, EDITNPI+16*, EDITNPI+20, EDITNPI+25*, EDITNPI+38*, EDITNPI+40*, EDITNPI+47*, EDITNPI+56*, EDITNPI+59, EDITNPI+61
, EDITNPI+68, EDITNPI+94, EDITNPI+110
PROVNAME EDITNPI+3~, EDITNPI+6*, EDITNPI+54, EDITNPI+63, EDITNPI+82, EDITNPI+100, EDITNPI+115, EDITNPI+117, WARNING~, WARNING+13
, WARNING+14
U EDITNPI+24, EDITNPI+49, EDITNPI+64, EDITNPI+68, EDITNPI+114, WARNING+12, WARNING+13, WARNING+14
X EDITNPI+3~, EDITNPI+21~, EDITNPI+80!, EDITNPI+89!, WARNING+5~, WARNING+12*, WARNING+13*, WARNING+14*, WARNING+15, SNDMSG+3~
, SNDMSG+4*, SNDMSG+5
XMDUZ SNDMSG~
XMMG SNDMSG+3~, SNDMSG+9
XMSUB SNDMSG+3~, SNDMSG+5*
XMTEXT SNDMSG+3~, SNDMSG+6*
>> XMY( SNDMSG+7*
XUFDA EDITNPI+51~
XUFDA(200 EDITNPI+52*
XUSFLAG EDITNPI+3~, CHKNPIU~, CHKNPIU+4
XUSIEN CHKNPIU~, CHKNPIU+4
XUSNNPI WARNING~, WARNING+7*, WARNING+14
XUSNONED EDITNPI+4~, EDITNPI+8*, EDITNPI+9*, EDITNPI+115
XUSNPI CHKNPIU~, CHKNPIU+2, CHKNPIU+4
XUSQI EDITNPI+4~, CHKNPIU+1~, CHKNPIU+2*, CHKNPIU+4
XUSRSLT EDITNPI+4~, EDITNPI+28, EDITNPI+54, EDITNPI+100, EDITNPI+117, CHKNPIU~, CHKNPIU+3!, CHKNPIU+4, WARNING~, WARNING+18
, SNDMSG~
XUSRSLT( CHKNPIU+8, CHKNPIU+9, CHKNPIU+10!
XUSRSLT("X" WARNING+10
XUSRSLT("XMSG" WARNING+12, WARNING+15*
XUSRSLT("XRCPT" SNDMSG+7
XUSTYPE WARNING~, WARNING+13, WARNING+18, SNDMSG~, SNDMSG+4
XX EDITNPI+3~, EDITNPI+64*
Y EDITNPI+3~, EDITNPI+38, EDITNPI+39, EDITNPI+40, EDITNPI+45, EDITNPI+47, EDITNPI+48*, EDITNPI+49, EDITNPI+50, EDITNPI+53*
, EDITNPI+71, EDITNPI+72*, EDITNPI+73, EDITNPI+79, EDITNPI+80!, EDITNPI+95*, EDITNPI+96
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All