Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 200.19

Package: Kernel

NEW PERSON(#200)-->200.19

Sub-Field: 200.19

Information

Parent File	Name	Number	Package
NEW PERSON(#200)	DELEGATED OPTIONS	200.19	Kernel

Details

Field #	Name	Loc	Type	Details
.01	DELEGATED OPTIONS	0;1	POINTER TO OPTION FILE (#19)	OPTION(#19) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `APR 17, 1989` DESCRIPTION: `This field identifies which options this user may delegate to others.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `200.19^B` `1)= S ^VA(200,DA(1),19.5,"B",$E(X,1,30),DA)=""` `2)= K ^VA(200,DA(1),19.5,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^200.19^1` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(200.19,.01,1,2,1.4)` `1.4)= S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=200.19,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(200.19,.01,1,2,2.4)` `2.4)= S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=200.19,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= S X=DUZ` `DELETE VALUE)= @` `FIELD)= DELEGATED BY` CROSS-REFERENCE: `^^TRIGGER^200.19^2` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(200.19,.01,1,3,1.4)` `1.4)= S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=200.19,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(200.19,.01,1,3,2.4)` `2.4)= S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=200.19,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= TODAY` `DELETE VALUE)= @` `FIELD)= DATE DEL`
1	DELEGATED BY	0;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JAN 20, 1988` DESCRIPTION: `This field indicates who granted authority for this user to delegate this option to others.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the DELEGATED OPTIONS field of the DELEGATED OPTIONS sub-field of the NEW PERSON File`
2	DATE DELEGATED	0;3	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 20, 1988` DESCRIPTION: `This field records the date when this option was added to the list of options this user may delegate to others.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the DELEGATED OPTIONS field of the DELEGATED OPTIONS sub-field of the NEW PERSON File`
3	EDITABLE	0;4	SET	'0' FOR N; '1' FOR Y; LAST EDITED: `JAN 20, 1988` DESCRIPTION: `This field indicates whether this use is allowed to edit this option.`