Routine: DIAC1T

Information

DIAC1T ;SLCISC/MKB - Test utility for Policies ;17FEB2017

Source file <DIAC1T.m>

Name	Comments	DBIA/ICR reference
EN	; -- test the current policy set [expects DITOP]
ACTION()	; -- select App Action to use for testing
IENS(FN)	; -- get IENS string for file number FN [lookup if FN?]
I1
VIENS(IENS,FN)	; -- validate IENS string for file# FN
ATTRBS	; -- prompt for test attributes
LIST	; -- return DILIST("attribute") of targets used by DIPOL
POP	; -- pop the stack [set]
PROC	; -- process member DIMEM
HELPATT	; -- help for ATTRBS
USER()	; -- select test user from #200
TRACE()	; -- show trace of policies/rules evaluated?
SHOWVAR	; -- show variables
SHOWTMP(TYPE)	; -- display messages from ^TMP
SHOWTRC	; -- display DIZTRACE of processing ; DIZTRACE(DIZ) = PolicyIEN ^ stack level ^ match? (1/0) ^ result (P/D) ; or = PolicyIEN ^ stack level ^ done (2) ^ ResultFcnIEN ; DIZTRACE(#,i) = ConditionDA ^ stack level ^ result (1/0)
FCNM(IEN,CON)	; -- return NAME(X1,X2,X3) for a function in use
TARGET(IEN)	; -- return target(s) that matched
SHOWFLDS	; -- display DIFLDS string of available fields to access ; DIZTRACE("DR") = ien ^ file# returning the string ; DIFLDS = DR string ; DIFLDS(level,subfile#,n) = DR string
OUT(X)	; -- add line to output
WRITE	; -- write ^TMP output to screen
WAIT	; -- wait for ok [returns STOP]
BROWSE	; -- use Browser to show output

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NOTE: This policy is not tied to an Application Action (file and action)." Line Location: EN+5
Function Call: WRITE	Prompt: !!,"Enter values to use for testing evaluation of "_$P(DITOP,U,2)_"," Line Location: EN+8
Function Call: WRITE	Prompt: !,"either a valid IENS string and/or target attributes.",! Line Location: EN+9
Function Call: WRITE	Prompt: !,$G(^TMP("DIERR",$J,1,"TEXT",1)) Line Location: VIENS+2
Function Call: WRITE	Prompt: "The entry identified by "_FN_" and "_IENS Line Location: VIENS+4
Function Call: WRITE	Prompt: " does not exist in the database." Line Location: VIENS+5
Function Call: WRITE	Prompt: !,"Enter an attribute/value pair for testing evaluation of this policy." Line Location: HELPATT+1
Function Call: WRITE	Prompt: !,"Target attributes used within this policy are:" Line Location: HELPATT+3
Function Call: WRITE	Prompt: !?5,I Line Location: HELPATT+4
Function Call: WRITE	Prompt: !,"Values used with this attribute are:" Line Location: HELPATT+6
Function Call: WRITE	Prompt: !?5,I Line Location: HELPATT+7
Function Call: WRITE	Prompt: ! Line Location: USER+6
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR(" ",29-$L($P(DITOP,U,2))) Line Location: WRITE+2
Function Call: WRITE	Prompt: "---------- "_$P(DITOP,U,2)_" ----------",! Line Location: WRITE+3
Function Call: WRITE	Prompt: !,^TMP("DIACT",$J,I) Line Location: WRITE+6