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 |  Marked Items |  All
Print Page as PDF
Routine: XUSERBLK

Package: Kernel

Routine: XUSERBLK


Information

XUSERBLK ;SF/RWF - Bulk user (new person) COMPUTER ACCESS ;02/26/2008

Source Information

Source file <XUSERBLK.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 8 (,HOME)^%ZIS  $$FMTE^XLFDT  $$DEL^XQKEY  $$GET^XUPARAM  ($$AC,$$VC)^XUS4  $$ADD^XUSERNEW  $$EN^XUSHSH  $$NODEV^XUTMDEVQ  
VA Fileman 5 ^DIC  (FILE,UPDATE)^DIE  EN^DIQ  ^DIR  EN2^DIWF  
MailMan 1 NEW^XM  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 XUSERBLK  

Entry Points

Name Comments DBIA/ICR reference
LET(DA,XUTEXT) ;Write access letter
BLDFDA ;Build the FDA
PATH ;D MULTI(19.8,".01")
DIV
DATA ;;field#
PSCLSS
MULTI(XSS,XSF,XDN,XDD) ;Build new data
VCODE ;
SEC
TAB
C2 ;
SUBFILE ;Move subfiles: Subscript, Subfile#, DINUM, Fields
A ;
DOPD ;
B2 ;
VAL(V,FE,FI) ;Get value
UPDATE(XX,USRIEN) ;Update effective date
START ;
FOF
CLONE ;;Do work
GETDD(FI,FE) ;Return node;piece for a field
PRSNCL(USERIEN) ;
B4 ;
CLEAR(X4,X2) ;Clear subfile first, IEN, Subscript
B1
KEY
B3
ACODE ;

External References

Name Field # of Occurrence
^%ZIS B4+9
HOME^%ZIS B4+12
^DIC B1+2
FILE^DIE CLEAR+7
UPDATE^DIE C2+8, PRSNCL+13
EN^DIQ B1+6
^DIR B1+7, B1+11, B3+2, B3+3, B3+7
EN2^DIWF LET+2
$$FMTE^XLFDT B2+2, B4+5
NEW^XM C2+10
$$DEL^XQKEY CLEAR+4
$$GET^XUPARAM CLONE+2
$$AC^XUS4 ACODE+2
$$VC^XUS4 VCODE+1
$$ADD^XUSERNEW B3
$$EN^XUSHSH ACODE+2, VCODE+1
$$NODEV^XUTMDEVQ B4+6, START+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are not a known user and can't use this option."
  • Line Location: A+1
Function Call: WRITE
  • Prompt: @IOF,!?26,"Batch Entry of New Persons"
  • Line Location: B1+0
Function Call: WRITE
  • Prompt: !?26,"--------------------------",!!,"Please select a person to copy from"
  • Line Location: B1+1
Function Call: WRITE
  • Prompt: !!,"You may enter a date, when the users that are being created/updated",!,"will no longer have access to the system."
  • Line Location: B1+8
Function Call: WRITE
  • Prompt: !!,?26,"Batch Entry of New Persons",!,?26,"--------------------------",!
  • Line Location: B2+1
Function Call: WRITE
  • Prompt: !,"Clone of: ",XUTMP(0)
  • Line Location: B2+2
Function Call: WRITE
  • Prompt: ?49,"TERMINATION DATE: ",$$FMTE^XLFDT(XUTERMDT)
  • Line Location: B2+2
Function Call: WRITE
  • Prompt: !!,"Next!"
  • Line Location: B3+9
Function Call: WRITE
  • Prompt: !!,"Queueing automatic deactivation for ",$$FMTE^XLFDT(XUTERMDT)
  • Line Location: B4+5
Function Call: WRITE
  • Prompt: !!,"Where do you want to print the COMPUTER ACCOUNT NOTIFICATION LETTERS?"
  • Line Location: B4+7
Function Call: WRITE
  • Prompt: !!?8,$S(XUNEW:"CREATING A NEW ACCOUNT FOR '"_$P(XUSER(XU1),U,2)_"'",1:"CONVERTING "_$P(XUSER(XU1),U,2)_"'S ACCOUNT OVER"),!!,"One moment please..."
  • Line Location: C2+2
Routine Call
  • %ZIS
  • Line Location:
    • B4+12
Routine Call
  • DIR
  • Line Location:
    • B1+7
    • B1+11
    • B3+2
    • B3+3
    • B3+7
Routine Call
  • %ZIS
  • Line Location:
    • B4+9
Routine Call
  • DIE
  • Line Location:
    • C2+8
    • PRSNCL+13
Routine Call
  • DIE
  • Line Location:
    • CLEAR+7
Routine Call
  • DIC
  • Line Location:
    • B1+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( GETDD+1
^DIC(9.2 - [#9.2] CLONE+2
^TMP($J A+3!, CLONE+4!, BLDFDA+2!, CLEAR+2
^VA(200 - [#200] C2+4, C2+5, C2+6*, BLDFDA+6, ACODE+2, MULTI+2, MULTI+4, CLEAR+1, CLEAR+2, CLEAR+3
, UPDATE+2, UPDATE+3, UPDATE+4, DOPD+1, DOPD+3*, DOPD+4, PRSNCL+2, PRSNCL+3, PRSNCL+9, PRSNCL+15
, PRSNCL+18*
^XMB(3.7 - [#3.7] C2+10

Label References

Name Line Occurrences
$$GETDD BLDFDA+5, VAL+1
$$VAL MULTI+6
ACODE C2+7
B1 B1+4, B1+7
BLDFDA C2+3
C2 CLONE+3
CLEAR MULTI+1
CLONE B4+14
DOPD UPDATE+5
LET C2+9
MULTI KEY, FOF, DIV, SEC, TAB
PRSNCL PSCLSS
SUBFILE BLDFDA+10
UPDATE CLONE+3
VCODE C2+7

Naked Globals

Name Field # of Occurrence
^( MULTI+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CLONE+1~, CLONE+3*, VAL+1~*, CLEAR+4*
%ZIS A+2~, B4+9*
BY LET+1~, LET+2*
C CLEAR+1~, CLEAR+2*, CLEAR+5
DA A+2~, B1+6*, CLONE+1~, CLONE+3*, C2+4, C2+5, C2+6, C2+7, C2+9, C2+10
, BLDFDA+7, PSCLSS, MULTI+1, MULTI+6, MULTI+7, LET~, LET+2, DOPD+1
DIC A+2~, B1+2!*
DIC("A" B1+2*
DIC(0 B1+2*
DIR A+2~
DIR("A" B1+7*, B1+10*, B3+2*, B3+3*, B3+7*
DIR(0 B1+7*, B1+9*, B3+2*, B3+3*, B3+7*
>> DIRUT B1+7
DIWF LET+1~, LET+2*
DIWF(1 LET+2*
DT UPDATE+5, DOPD+3, PRSNCL+5, PRSNCL+7, PRSNCL+17, PRSNCL+18
>> DTOUT B1+3, B1+11
>> DUOUT B1+3, B1+11
DUZ A+1
FE GETDD~, GETDD+1, VAL~, VAL+1
FI GETDD~, GETDD+1, VAL~, VAL+1
FR LET+1~, LET+2*
IO("Q" B4+14
IOF B1
IOM B4+11
ION B4+11
IOP LET+1~, LET+2*
IOSL B4+11
IOST B4+11
PC UPDATE+1~, UPDATE+2*, UPDATE+3*, UPDATE+4, DOPD+1, DOPD+3, DOPD+4
PC1 UPDATE+1~, UPDATE+4*, UPDATE+5
>> POP B4+9
TO LET+1~, LET+2*
U B1+6, B3+1, B3+2, B3+4, B3+8, CLONE+3, C2+2, C2+4, C2+5, C2+6
, BLDFDA+5, BLDFDA+7, GETDD+1, PSCLSS, MULTI+7
USERIEN PRSNCL~, PRSNCL+9, PRSNCL+10, PRSNCL+11, PRSNCL+12, PRSNCL+15, PRSNCL+18
USRIEN UPDATE~, UPDATE+2, UPDATE+3, UPDATE+4, DOPD+3, DOPD+4
V VAL~, VAL+1
X A+2~, B4+6*, START+3*, MULTI+4*, MULTI+6, MULTI+7
>> X1 MULTI+4*, MULTI+8, CLEAR+3*, CLEAR+4, CLEAR+5
X2 BLDFDA+1~, BLDFDA+4*, MULTI+5*, CLEAR~, CLEAR+1, CLEAR+2, CLEAR+3, CLEAR+4
X3 BLDFDA+1~, BLDFDA+5*, MULTI+5*, MULTI+6
X4 BLDFDA+1~, BLDFDA+5*, CLEAR~, CLEAR+1, CLEAR+2, CLEAR+3, CLEAR+4, CLEAR+5
X5 BLDFDA+1~, BLDFDA+5*, BLDFDA+6, BLDFDA+7
X6 BLDFDA+1~, BLDFDA+5*, BLDFDA+7
X7 BLDFDA+1~, BLDFDA+5*, BLDFDA+7
XCNT SUBFILE+1~*, MULTI+6, MULTI+7*, MULTI+8
XDD MULTI~, MULTI+5
XDEL CLEAR+1~, CLEAR+2*, CLEAR+5, CLEAR+7
XDN MULTI~, MULTI+8
XERR C2+1~
XFDA C2+1~, C2+7, C2+8, BLDFDA+2*, BLDFDA+7, MULTI+6, MULTI+7
XIEN C2+1~, C2+8, BLDFDA+2*, MULTI+8
XMDT C2+1~, C2+10!
XMM C2+1~, C2+10!
XMQUIET A+2~, B4+8*, B4+10!
XMSG CLEAR+1~
XMZ C2+1~, C2+10!
XSF MULTI~, MULTI+6, MULTI+7
XSS MULTI~, MULTI+1, MULTI+2, MULTI+4
XU BLDFDA+1~
XU(2 BLDFDA+6*, BLDFDA+7
XU1 CLONE+1~, CLONE+3*, C2+2, PSCLSS
XUDATA PRSNCL+1~, PRSNCL+2*, PRSNCL+3*, PRSNCL+4, PRSNCL+5, PRSNCL+6
XUEFDA PRSNCL+1~, PRSNCL+5*, PRSNCL+11
XUEXDA PRSNCL+1~, PRSNCL+6*, PRSNCL+7, PRSNCL+12
XUFN CLEAR+1~, CLEAR+2*, CLEAR+5
XUH C2+1~, C2+7, ACODE+2*
XUH2 C2+1~, C2+7, VCODE+1*
XUIOP A+2~, B4+11*, LET+2
XULAST PRSNCL+8~, PRSNCL+9*, PRSNCL+14, PRSNCL+15, PRSNCL+18
XULDATA PRSNCL+8~, PRSNCL+15*, PRSNCL+16*, PRSNCL+17
XUNEW CLONE+1~, CLONE+3*, C2+2, C2+4*, C2+5*, C2+7, C2+9
XUNODE BLDFDA+1~, BLDFDA+4*, BLDFDA+5
XUPSC PRSNCL+1~, PRSNCL+4*, PRSNCL+10
XUPURGE CLONE+1~, CLONE+3*, MULTI+1
XUSER A+2~, B1+13!*, B3+9*, B4+1, CLONE+3
XUSER( B3+9*, CLONE+3, C2+2, PSCLSS
XUTERMDT A+2~, B1+12*, B2+2, B4+2, B4+4, B4+5, C2+6
XUTEXT CLONE+1~, CLONE+2*, C2+9, LET~, LET+2
XUTMP A+2~, B1+6*, BLDFDA+6, MULTI+2, MULTI+4, PRSNCL+2, PRSNCL+3
XUTMP(0 B1+6*, B2+2
XUU C2+1~, C2+6*, ACODE+2*
XUU2 C2+1~, C2+6*, VCODE+1*
XUY A+2~, B3*, B3+1, B3+2*, B3+4*, B3+6, B3+8*, B3+9
XUZT B4+3~, B4+6, START+1~, START+3
XUZT("ZTDTH" B4+4*, START+2*
XX UPDATE~, UPDATE+2, UPDATE+3, UPDATE+4, DOPD+1, DOPD+3, DOPD+4
Y A+2~, B1+4, B1+6, B1+7, B1+12, B3+2, B3+4, B3+8, C2+1~, C2+10*
Z ACODE+1~, ACODE+2*
>> ZTQUEUED C2+2
ZZ PRSNCL+1~
ZZ(1 PRSNCL+10*, PRSNCL+11*, PRSNCL+12*

Marked Items

Name Field # of Occurrence
$T(DATA+X2 BLDFDA+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All