Routine: DIACX

Information

DIACX ;SLCISC/KCM,MKB - Policy utilities ;17FEB2017

Source file <DIACX.m>

Name	Comments	DBIA/ICR reference
SCR()	; -- set Member screen to ensure type is compatible w/parent
TREE()	; -- look back up tree to make sure item is not ancestor
TR1
TR2
CHKNAME(FN)	;CHECK A NAME, AND DISPLAY APPROPRIATE MESSAGE
NAME	;CHECK NAMESPACING IN PACKAGE FILE.
NAMEOK	;FOUND
TEST	;TEST CHKNAME
T1
ORPHANS
SEQ	; -- Xecutable help to show Member sequence numbers in use
REQTCONJ	; -- require conjunction? [Target block post-action]
CKTCONJ	; -- ask Conjunction again? [branching logic]
REQCCONJ	; -- require conjunction? [Condition block post-action]
CKCCONJ	; -- ask Conjunction again? [branching logic]
EFFECT	; -- ask Effect/Result again? [branching logic]
RESULT	; -- ask Result Function again? [branching logic]
HASKEY	; -- does user hold key X?
BOOL	; -- evaluates DIVAL(X) as a boolean, returns 1 or 0 in Y
PCLS(CLASS,USER)	; -- is user a member of Person Class X? ; X = IEN or VA Code for Person Class #8932.1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter a name, and the computer will respond with the namespace to which" Line Location: TEST+1
Function Call: WRITE	Prompt: !,"that name belongs. It does this by looking at the package file.",!! Line Location: TEST+2
Function Call: READ	Formatting: ! Prompt: "NAME: " Variable: X Timeout: DTIME," Line Location: T1+0
Function Call: WRITE	Prompt: !,I,?10,$P(X,U),?40,"-- rule w/o policy" Line Location: ORPHANS+3
Function Call: WRITE	Prompt: !,I,?10,$P(X,U),?40,"-- no parent policy/set or event" Line Location: ORPHANS+4
Function Call: WRITE	Prompt: !?3,"Sequence numbers already in use:" Line Location: SEQ+1
Function Call: WRITE	Prompt: !?3,SEQ,?10,$P($G(^DIAC(1.6,IEN,0)),U) Line Location: SEQ+5
Function Call: WRITE	Prompt: ! Line Location: SEQ+6