Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^%ZUA(3.07

Package: Kernel

Global: ^%ZUA(3.07


Information

FileMan FileNo FileMan Filename Package
3.07 PROGRAMMER MODE LOG Kernel

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Kernel 4 XUPMDISPS    ZTMGRSET    ZUA    ^%ZUA(3.07    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.01]    

Fields, Total: 6

Field # Name Loc Type Details
.001 DATE/TIME DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • DESCRIPTION:  
    Entries in this file are uniquely identified by the precise time of entry into programmer mode.
.01 USER 0;1 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  SEP 08, 1989
  • DESCRIPTION:  
    This field identifies the user by means of a pointer to the New Person File.
1 UCI 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field identifies the UCI account location of the entry into programmer mode.
2 CPU 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field identifies the CPU/Volume Set location of the entry into programmer mode.
3 USER NUMBER COMPUTED

  • MUMPS CODE:  S Y(3.07,3,1)=$S($D(^%ZUA(3.07,D0,0)):^(0),1:"") S X=$P(Y(3.07,3,1),U,1),X=X
  • ALGORITHM:  INTERNAL(USER)
  • DESCRIPTION:  
    This field retrieves the user number from the User File to facilitate report display.
4 USER NAME COMPUTED

  • MUMPS CODE:  X ^DD(3.07,4,9.3) S X=$S(Y(3.07,4,2):Y(3.07,4,3),Y(3.07,4,4):X)
    9.2 = S Y(3.07,4,1)=$S($D(^%ZUA(3.07,D0,0)):^(0),1:"") S X="CURRENT",X=$S(X=""!(X'?.ANP):"",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"") S X=X=$P(Y(3.07,4,1),U,2)
    9.3 = X ^DD(3.07,4,9.2) S Y(3.07,4,2)=X S X=$S('$D(^VA(200,+$P(Y(3.07,4,1),U,1),0)):"",1:$P(^(0),U,1)),Y(3.07,4,3)=X S X=1,Y(3.07,4,4)=X S X=""
  • ALGORITHM:  $S(PARAM("CURRENT")=UCI:USER,1:"")
  • LAST EDITED:  SEP 08, 1989
  • DESCRIPTION:  
    A computed field to give the name of the person that switched into Programmer mode, only if it was in the current UCI. Returns empty string otherwise.

External References

Name Field # of Occurrence
^%DT .001+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZUA(3.07 - [#3.07] 3+1, 4OF9.2+1
^DD(3.07 4+1, 4OF9.3+1
^VA(200 - [#200] 4OF9.3+1

Naked Globals

Name Field # of Occurrence
^(0 3+1, 4OF9.2+1, 4OF9.3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .001+1*
>> D0 3+1, 4OF9.2+1
>> DIPA( 4OF9.2+1
U 3+1, 4OF9.2+1, 4OF9.3+1
X .001+1*!, 1+1!, 2+1!, 3+1*, 4+1*, 4OF9.2+1*, 4OF9.3+1*
>> Y .001+1
>> Y( 3+1*, 4+1, 4OF9.2+1*, 4OF9.3+1*
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All