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

Package: Kernel

Routine: XUS1


Information

XUS1 ;SF-ISC/STAFF - SIGNON ;01/14/20 13:32

Source Information

Source file <XUS1.m>

Entry Points

Name Comments DBIA/ICR reference
USER ;
SET ;
VCHG() ;Check if the Verify code needs to be changed
ASKDIV ;Ask the user for the Division, return Y
CHKDIV(CD) ;ef,sr Check if user needs to select Division.
ENQ ;Get terminal type
NEXT ;Jump to the next routine
SAVE ;
  • ICR #4756
    • Status: Active
    • Usage: Controlled Subscription
    LOG ;used by R/S and Broker
    SLOG(P5,P6,P7,P8,P10,P14,P15) ;
    COOKIE(J1,J2) ;Call VAdeamon for a cookie
    AUDIT ;Set-up Audit info
    DD(Y)
    KILL
    NO

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $E(XUTEXT(I),1)="!"
    • Line Location: USER+3
    Function Call: WRITE
    • Prompt: $E(XUTEXT(I),2,999)
    • Line Location: USER+3
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: USER+4
    Function Call: WRITE
    • Prompt: !!,?8,$$EZBLD^DIALOG(30810.45)
    • Line Location: USER+6
    Function Call: WRITE
    • Prompt: !,*7,"You must select one."
    • Line Location: ASKDIV+3
    Function Call: READ
    • Variable: X
    • Timeout: 0
    • Line Location: ENQ+1
    Function Call: READ
    • Variable: X#1
    • Timeout: 2
    • Line Location: ENQ+1
    Function Call: WRITE
    • Prompt: $C(27,91,99)
    • Line Location: ENQ+1
    Info |  Source |  Entry Points |  Interaction Calls