Global: ^%ZUA(3.07

Entries in this file are uniquely identified by the precise time of entry into programmer mode.

This field identifies the user by means of a pointer to the New Person File.

This field identifies the UCI account location of the entry into programmer mode.

This field identifies the CPU/Volume Set location of the entry into programmer mode.

This field retrieves the user number from the User File to facilitate report display.

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=""

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.