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

Package: Kernel

Routine: XUSER1


Information

XUSER1 ;ISF/RWF - User file Utilities ;03/17/15 08:19

Source Information

Source file <XUSER1.m>

Entry Points

Name Comments DBIA/ICR reference
PAGE() ;Do a page break; Return 0 if ok to continue, 1 if to abort
; ZEXCEPT: IOF,IOST
GKEYS(IE,XUA) ;Get the keys held. IE=user
SHLIST(ARRAY,LM,SP) ; Show a list, Array=list, LM=Left Margin, SP=spacing
SHPC(IE) ;Show the Person Class
GMG(IE,XUA) ;Get mail groups
GPARAM(IE,PRAM,XUA) ;Get an entry from the Parameter tool
DIVCHG ;Allow user to change Division [DUZ(2)] value
NETNM(NM,IEN) ;Check NetName, Called from input transform for field 501.1 NPF.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SHLIST+9
Function Call: WRITE
  • Prompt: ?Y5,Y6
  • Line Location: SHLIST+10
Function Call: WRITE
  • Prompt: $P(Y,U,2)
  • Line Location: SHPC+3
Function Call: WRITE
  • Prompt: !,?(%+2),$P(Y,U,3)
  • Line Location: SHPC+3
Function Call: WRITE
  • Prompt: !,?(%+2),$P(Y,U,3)
  • Line Location: SHPC+3
Function Call: WRITE
  • Prompt: !,"You are not a valid user.",!!,$C(7)
  • Line Location: DIVCHG+3
Function Call: WRITE
  • Prompt: !,"Your current Division is ",$P(CD,U)_" "_$P(CD,U,2)
  • Line Location: DIVCHG+7
Function Call: WRITE
  • Prompt: !,"You do not have any choices. ",!," Change is not possible.",!!
  • Line Location: DIVCHG+9
Function Call: WRITE
  • Prompt: !?5,"Division is now set to [ ",$P(CD,U)_" "_$P(CD,U,2)," ]",!
  • Line Location: DIVCHG+19
Info |  Source |  Entry Points |  Interaction Calls