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

Package: Kernel

Routine: XUBA


Information

XUBA ; BT/BP - LIST USERS HAVE INACTIVE PERSON CLASSES; 4/27/2010

Source Information

Source file <XUBA.m>

Entry Points

Name Comments DBIA/ICR reference
PR ; entry point of the option LIST USERS NEED TO BE ASSIGNED NEW PERSON CLASSES
PRNT ; print the report
INPSC ;get all inactive Person Class from the PERSON CLASS FILE.
LIST(XUA541) ; get all users who need to be assigned a new Person Class.
CLEAN ;clean the global
PGBK ;page break
HDR ;
PAUSE ;
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PR+3
Function Call: WRITE
  • Prompt: !,"Queued as task# ",ZTSK,!!
  • Line Location: PR+5
Function Call: WRITE
  • Prompt: !,$G(XUI),?20,$G(^TMP("XUINPSCN",$J,XUI))
  • Line Location: PRNT+6
Function Call: WRITE
  • Prompt: !!!,"Number of users: ",XUC
  • Line Location: PRNT+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRNT+11
Function Call: WRITE
  • Prompt: ?IOM-40,"Report on ",$$FMTE^XLFDT($$DT^XLFDT)," Page ",$G(XUPG),!
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"User name:",?20,"Currently has the inactive Person Class IEN^NAME:"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"----------",?20,"-------------------------------------------------"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Press RETURN to continue or '^' to exit: "
  • Line Location: PAUSE+1
Info |  Source |  Entry Points |  Interaction Calls