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

Package: Kernel

Routine: XUSER3


Information

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

Source Information

Source file <XUSER3.m>

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)

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
Info |  Source |  Entry Points |  Interaction Calls