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

Package: Kernel

Routine: XUSERBLK


Information

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

Source Information

Source file <XUSERBLK.m>

Entry Points

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

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: !!,"The PSDRPH key cannot be allocated / de-allocated by this option. Please"
  • Line Location: B1+15
Function Call: WRITE
  • Prompt: !,"use the option 'Allocate/De-Allocate of PSDRPH Key (Audited)' if necessary."
  • Line Location: B1+16
Function Call: WRITE
  • Prompt: !,"The PSDRPH key will not be copied to the new user.",!
  • Line Location: B1+17
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
Info |  Source |  Entry Points |  Interaction Calls