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

Package: Kernel

Routine: XUSECAD


Information

XUSECAD ;SFISC/SO- TERMINATED USERS AUDIT DISPLAY ;10:59 AM 23 Apr 2004

Source Information

Source file <XUSECAD.m>

Entry Points

Name Comments DBIA/ICR reference
EP1 ;Ask user Beginning and Ending report dates
BD ;Get Beginning Date
ED ;Get Ending Date
REPORT ;Do the report
QUEUE ;Queued report for last 7 days
BEG ; Initialize
; XUSECF = 0 - User changed
; 1 - Same user
END ; Kill variables
TEST ; Test if user changed
USERH ; Stadic User Information
TERM
MENU
UPARROW ; Uparrow delimited report
UPRPT ; Build Uparrow report line
LINE ; Build Report Line

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Terminated User Audit Report"_$S($D(XUSECU):" Uparrow Delimited",1:"")
  • Line Location: EP1+1
Function Call: WRITE
  • Prompt: !,"User: "_$G(Z(200,IEN,.01))_" SSN: "_$G(Z(200,IEN,9))
  • Line Location: USERH+8
Function Call: WRITE
  • Prompt: !,"Date Entered: "_$G(Z(200,IEN,30))_" Service/Section: "_$G(Z(200,IEN,29))
  • Line Location: USERH+9
Function Call: WRITE
  • Prompt: !?4,"Division: None Listed"
  • Line Location: USERH+12
Function Call: WRITE
  • Prompt: !?4,"Division: "_$G(Z(200.02,IEN,.01))_" Default: "_$S($G(Z(200.02,IEN,1))["Y":"Yes",1:"No")
  • Line Location: USERH+14
Info |  Source |  Entry Points |  Interaction Calls