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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: XUSER3

Package: Kernel

Routine: XUSER3


Information

XUSER3 ;ISF/RWF - New Person File Utilities ;02/01/2022

Source Information

Source file <XUSER3.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 EN^DDIOL  $$GET1^DIQ  ^DIR  
Kernel 2 $$ACTIVE^XUSER  $$VDEADNA^XUSER3  

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

Package Total Caller Graph
Kernel 4 NEW DEA #'S  XUSER  XUSER3  ^XTV(8991.9  
Outpatient Pharmacy 1 PSODEAMA  

Entry Points

Name Comments DBIA/ICR reference
VALN1DEA(X,F) ;Check for a valid DEA# in the NEW DEA FIELD OF FILE #200, 53.21, .01
VALN1P
VALN2DEA(X,F,DEADA) ;Check for a valid DEA# in the (NEW) DEA NUMBERS FILE #8991.9
DEANUM(X) ;Check DEA # Numeric Part
FACILITY(X) ;
SUFCHK(X,DA) ;Check for a unique suffix. Called from Sub-File #200.5321 field #.02
SUFCHKQ ; Unique Suffix Quit Tag
VDEADNM(RETURN,NPIEN)
VDEADNX(RETVAL,USING)
VDEADNA(RETURN,NPIEN,DNDEAIEN)

External References

Name Field # of Occurrence
EN^DDIOL VALN1DEA+4, VALN1DEA+5, VALN1DEA+6, VALN1DEA+8, VALN1DEA+9, VALN1DEA+10, VALN2DEA+3, VALN2DEA+4, VALN2DEA+5, VALN2DEA+8
, SUFCHK+4
$$GET1^DIQ FACILITY+3, SUFCHK+3, VDEADNM+14, VDEADNM+15, VDEADNM+16, VDEADNM+18, VDEADNA+5, VDEADNA+15, VDEADNA+17, VDEADNA+18
, VDEADNA+21, VDEADNA+23, VDEADNA+25, VDEADNA+26, VDEADNA+28, VDEADNA+29, VDEADNA+30, VDEADNA+31, VDEADNA+32, VDEADNA+33
, VDEADNA+34, VDEADNA+35
^DIR VALN1P+2, VDEADNM+37
$$ACTIVE^XUSER VDEADNA+8
$$VDEADNA^XUSER3 VDEADNM+25, VDEADNM+44

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This provider has multiple DEA registrations.",!
  • Line Location: VDEADNM+26
Function Call: WRITE
  • Prompt: "Please select the DEA number you wish to check:",!!
  • Line Location: VDEADNM+27
Function Call: WRITE
  • Prompt: $E(" ",1,5-$L(CNT)),CNT," - ",$P(NPDEALST(CNT),U,1)
  • Line Location: VDEADNM+29
Function Call: WRITE
  • Prompt: " ",$P(NPDEALST(CNT),U,5)
  • Line Location: VDEADNM+31
Function Call: WRITE
  • Prompt: !!
  • Line Location: VDEADNM+38
Routine Call
  • DIR
  • Line Location:
    • VALN1P+2
    • VDEADNM+37

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] VALN1DEA+8, VALN1DEA+10, SUFCHK+4, VDEADNM+12, VDEADNA+6
^XTV(8991.9 - [#8991.9] FACILITY+2
^XUSEC("ORES" VDEADNA+13

Label References

Name Line Occurrences
$$DEANUM VALN1DEA+9, VALN2DEA+8
$$FACILITY VALN1DEA+3
$$VDEADNX VDEADNM+20, VDEADNM+21, VDEADNM+39, VDEADNM+40
SUFCHKQ SUFCHK+2, SUFCHK+3
VALN1P VALN1DEA+10

Naked Globals

Name Field # of Occurrence
^( VALN1DEA+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT VDEADNM+9~, VDEADNM+28*, VDEADNM+29, VDEADNM+30, VDEADNM+31, VDEADNM+32
DA SUFCHK~, SUFCHK+2, SUFCHK+3
DA(1 VALN1DEA+8, VALN1DEA+10, SUFCHK+2, SUFCHK+3
DATE VDEADNA+1~, VDEADNA+18*, VDEADNA+19, VDEADNA+20, VDEADNA+26*, VDEADNA+27
DEA VDEADNM+9~
DEADA VALN2DEA~, VALN2DEA+7*
DELIMIT VDEADNA+1~, VDEADNA+45*, VDEADNA+48*, VDEADNA+49
DIR VALN1P+1~, VDEADNM+33!
DIR("?" VDEADNM+36*
DIR("A" VALN1P+2*, VDEADNM+34*, VDEADNM+35*
DIR(0 VALN1P+2*, VDEADNM+33*
DIRUT VDEADNM+33!, VDEADNM+39
DNDEAIEN FACILITY+1~, FACILITY+2*, FACILITY+3, VDEADNM+9~, VDEADNM+23*, VDEADNM+24, VDEADNM+25, VDEADNM+42*, VDEADNM+43, VDEADNM+44
, VDEADNA~, VDEADNA+4, VDEADNA+5, VDEADNA+17, VDEADNA+18, VDEADNA+21, VDEADNA+28, VDEADNA+29, VDEADNA+30, VDEADNA+31
, VDEADNA+32
DNDEATXT VDEADNM+9~, VDEADNA+1~, VDEADNA+5*, VDEADNA+6, VDEADNA+7
DT VDEADNA+20, VDEADNA+27
F VALN1DEA~, VALN1DEA+3*, VALN1DEA+7*, VALN1DEA+8, VALN1DEA+10, VALN2DEA~, VALN2DEA+6*
INDEX VDEADNA+1~, VDEADNA+47*, VDEADNA+48, VDEADNA+49
NODEA VDEADNA+1~, VDEADNA+19*, VDEADNA+20*, VDEADNA+22*, VDEADNA+25
NPDEAIEN VDEADNM+9~, VDEADNM+12*, VDEADNM+14, VDEADNM+15, VDEADNM+16, VDEADNM+17
NPDEALST VDEADNM+9~
NPDEALST( VDEADNM+14*, VDEADNM+15*, VDEADNM+16*, VDEADNM+17*, VDEADNM+18*, VDEADNM+19, VDEADNM+29, VDEADNM+30, VDEADNM+31, VDEADNM+32
, VDEADNM+41, VDEADNM+42
NPDEALST("B" VDEADNM+19*
NPDEALST(0 VDEADNM+11*, VDEADNM+13*, VDEADNM+14, VDEADNM+15, VDEADNM+16, VDEADNM+17, VDEADNM+18, VDEADNM+19, VDEADNM+20, VDEADNM+21
, VDEADNM+28, VDEADNM+34
NPDEALST(1 VDEADNM+22, VDEADNM+23
NPDEATXT SUFCHK+3~*, SUFCHK+4
NPIEN VDEADNM~, VDEADNM+12, VDEADNM+14, VDEADNM+15, VDEADNM+16, VDEADNM+17, VDEADNM+25, VDEADNM+44, VDEADNA~, VDEADNA+3
, VDEADNA+6, VDEADNA+8, VDEADNA+13, VDEADNA+15, VDEADNA+23, VDEADNA+25, VDEADNA+26, VDEADNA+33, VDEADNA+34, VDEADNA+35
RESPONSE SUFCHK+1~*, SUFCHK+4*, SUFCHKQ+1
RETURN VDEADNM~, VDEADNM+25, VDEADNM+44, VDEADNA~
RETURN("Does not hold the ORES security key." , VDEADNA+14*
RETURN("Has a DEA number with no expiration date." , VDEADNA+19*, n expired DEA number." , VDEADNA+20*
RETURN("Has n either a DEA number nor a VA number." , VDEADNA+24*
RETURN("Is no longer able to write medication orders (inactive date)." , VDEADNA+27*, t authorized to write medication orders." , VDEADNA+16*, t permitted to prescribe any schedules." , VDEADNA+36*
RETURN("Is pe rmitted to prescribe all schedules." , VDEADNA+37*, rmitted to prescribe schedule" , VDEADNA+50*
RETURN("No li nk to the DEA NUMBERS FILE." , VDEADNM+24*, VDEADNM+43*
RETURN("User account does not exist." , VDEADNA+9*, account status: " , VDEADNA+11*, cannot sign on." , VDEADNA+10*, isn't linked to the DEA Number." , VDEADNA+6*
RETVAL VDEADNM+9~, VDEADNM+10*, VDEADNM+20*, VDEADNM+21, VDEADNM+24*, VDEADNM+25*, VDEADNM+39*, VDEADNM+40*, VDEADNM+43*, VDEADNM+44*
, VDEADNM+45, VDEADNX~, VDEADNX+1, VDEADNA+1~, VDEADNA+2*, VDEADNA+3*, VDEADNA+4*, VDEADNA+6*, VDEADNA+9*, VDEADNA+10*
, VDEADNA+11*, VDEADNA+12, VDEADNA+14*, VDEADNA+16*, VDEADNA+19*, VDEADNA+20*, VDEADNA+24*, VDEADNA+25*, VDEADNA+27*, VDEADNA+36*
, VDEADNA+37*, VDEADNA+51
SCH VDEADNA+1~
SCH("2" VDEADNA+29*, VDEADNA+33*, VDEADNA+36, VDEADNA+37, VDEADNA+39
SCH("2N" VDEADNA+29*, VDEADNA+33*, VDEADNA+36, VDEADNA+37, VDEADNA+40
SCH("3" VDEADNA+30*, VDEADNA+34*, VDEADNA+36, VDEADNA+37, VDEADNA+41
SCH("3N" VDEADNA+30*, VDEADNA+34*, VDEADNA+36, VDEADNA+37, VDEADNA+42
SCH("4" VDEADNA+31*, VDEADNA+35*, VDEADNA+36, VDEADNA+37, VDEADNA+43
SCH("5" VDEADNA+31*, VDEADNA+35*, VDEADNA+36, VDEADNA+37, VDEADNA+44
SCH("TEXT" VDEADNA+46*, VDEADNA+49*, VDEADNA+50
SCH("TOTAL" VDEADNA+38*, VDEADNA+39*, VDEADNA+40*, VDEADNA+41*, VDEADNA+42*, VDEADNA+43*, VDEADNA+44*, VDEADNA+47, VDEADNA+48, VDEADNA+49
, VDEADNA+50
STATUS VDEADNA+1~, VDEADNA+8*, VDEADNA+9, VDEADNA+10, VDEADNA+11, VDEADNA+12
U VDEADNM+15, VDEADNM+16, VDEADNM+17, VDEADNM+18, VDEADNM+19, VDEADNM+22, VDEADNM+23, VDEADNM+29, VDEADNM+30, VDEADNM+31
, VDEADNM+41, VDEADNM+42, VDEADNM+45, VDEADNX+1, VDEADNA+11, VDEADNA+47, VDEADNA+48, VDEADNA+49, VDEADNA+50
USING VDEADNM+9~, VDEADNM+10*, VDEADNM+20, VDEADNM+21, VDEADNM+22*, VDEADNM+39, VDEADNM+40, VDEADNM+41*, VDEADNM+45, VDEADNX~
, VDEADNX+1, VDEADNA+1~, VDEADNA+7*
VA1 DEANUM+1~, DEANUM+2*, DEANUM+3*, DEANUM+4
VA2 DEANUM+1~, DEANUM+3*, DEANUM+4
X VALN1DEA~, VALN1DEA+3, VALN1DEA+4!, VALN1DEA+5!, VALN1DEA+6!, VALN1DEA+8!, VALN1DEA+9!, VALN1DEA+10, VALN1DEA+11, VALN1P+1~
, VALN2DEA~, VALN2DEA+3!, VALN2DEA+4!, VALN2DEA+5!, VALN2DEA+8!, VALN2DEA+9, DEANUM~, DEANUM+2, DEANUM+3, FACILITY~
, FACILITY+2, SUFCHK~, SUFCHK+2, SUFCHK+4, VDEADNM+9~, VDEADNM+40, VDEADNM+41, VDEADNM+42
Y VALN1P+1~, VDEADNM+9~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All