Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DIAC1T

Package: VA FileMan

Routine: DIAC1T


Information

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

Source Information

Source file <DIAC1T.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 5 BROWSE^DDBR  $$TEST^DDBRT  (EN,FIELDS)^DIAC1  $$ROOT^DILFD  ^DIR  
Kernel 1 ($$REPEAT,$$RJ)^XLFSTR  
List Manager 1 FULL^VALM1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA FileMan 3 DIAC TEST  DIACLM1  DIACOPT  
Kernel 1 ^DIC(19  

Entry Points

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

External References

Name Field # of Occurrence
BROWSE^DDBR BROWSE+1
$$TEST^DDBRT EN+27
EN^DIAC1 EN+17
FIELDS^DIAC1 EN+18
$$ROOT^DILFD VIENS+1
^DIR ACTION+11, I1, ATTRBS+5, ATTRBS+6, USER+6, TRACE+4, WAIT+2
FULL^VALM1 EN+3
$$REPEAT^XLFSTR SHOWTRC+8, SHOWTRC+18, SHOWTRC+20, WRITE+2
$$RJ^XLFSTR ACTION+5

Interaction Calls

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
Routine Call
  • DIR
  • Line Location:
    • ACTION+11
    • I1
    • ATTRBS+5
    • ATTRBS+6
    • USER+6
    • TRACE+4
    • WAIT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIAC( SHOWFLDS+8
^DIAC(1.6 - [#1.6] LIST+3, PROC+3, PROC+4, SHOWTRC+8, FCNM+2, TARGET+2, TARGET+3, TARGET+5
^DIAC(1.61 - [#1.61] EN+6, ACTION+2, ACTION+3
^DIAC(1.62 - [#1.62] SHOWTRC+11, FCNM+3
^TMP( SHOWTMP+3, SHOWTMP+4, SHOWTMP+5
^TMP("DIACT" EN+21!, OUT+1*, WRITE+4, WRITE+6
^TMP("DIERR" VIENS+2
^VA(200 - [#200] EN+14, USER+4

Label References

Name Line Occurrences
$$ACTION EN+4
$$FCNM SHOWTRC+18
$$IENS EN+10
$$TARGET SHOWTRC+13
$$TRACE EN+16
$$USER EN+13
$$VIENS I1+1
@( LIST+3
ATTRBS EN+11
BROWSE EN+27
I1 I1+1
LIST ATTRBS+2
OUT EN+22, EN+23, SHOWVAR+2, SHOWVAR+3, SHOWTMP+2, SHOWTMP+4, SHOWTMP+5, SHOWTRC+5, SHOWTRC+9, SHOWTRC+10
, SHOWTRC+11, SHOWTRC+14, SHOWTRC+19, SHOWTRC+20, SHOWFLDS+8, SHOWFLDS+9
SHOWFLDS EN+26
SHOWTMP EN+24, EN+25
SHOWTRC EN+22
SHOWVAR EN+22
WAIT WRITE+5, WRITE+7
WRITE EN+28

Naked Globals

Name Field # of Occurrence
^( PROC+4, SHOWTMP+5
^(0 EN+6
^(1 ACTION+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATT ATTRBS+2~, ATTRBS+6*, ATTRBS+7!, HELPATT+2, HELPATT+5, HELPATT+7
CNT ACTION+1~, ACTION+2*, ACTION+3*, ACTION+5, ACTION+6, ACTION+7, ACTION+8, ACTION+9
CON FCNM~, FCNM+2
CONJ TARGET+1~, TARGET+2*, TARGET+6
DIACT EN+1~, EN+4*, EN+5, EN+6, EN+18, ACTION+1~
DIACT( ACTION+3*, ACTION+8
DIACT(1 ACTION+7
DIACTN EN+1~, EN+6*, SHOWTRC+12
DIEN PROC+1~, PROC+3*, PROC+4, PROC+7, SHOWTRC+5~, SHOWTRC+7*, SHOWTRC+8, SHOWTRC+12, SHOWTRC+13, SHOWTRC+18
DIENS EN+1~, EN+10*, EN+12
DIERR EN+1~, EN+23, EN+24, VIENS+1~, VIENS+2
DIFLDS EN+1~, EN+18, EN+26, SHOWFLDS+5, SHOWFLDS+8
DIFN EN+1~, EN+6*, EN+10, SHOWTRC+12
DII SHOWTRC+5~, SHOWTRC+6*, SHOWTRC+7, SHOWTRC+16, SHOWTRC+17
DIJ SHOWTRC+5~, SHOWTRC+16*, SHOWTRC+17
DILIST ATTRBS+2~, LIST+1!, HELPATT+2
DILIST( PROC+5*, PROC+6*, HELPATT+4, HELPATT+5, HELPATT+7
DIMEM LIST+1~, LIST+2*, LIST+3*, POP+1*, PROC+2, PROC+3, PROC+7*
DIMSG EN+1~, EN+25
DIPOL EN+1~, EN+2*, ACTION+2, LIST+2
DIR ACTION+1~, IENS+1~, ATTRBS+1~, USER+1~, TRACE+1~, WAIT+1~
DIR("?" ACTION+10*, ATTRBS+4*, USER+5*, TRACE+3*
DIR("A" ACTION+5*, ACTION+9*, I1*, ATTRBS+5*, ATTRBS+6*, USER+3*, TRACE+2*
DIR("B" USER+4*
DIR(0 ACTION+9*, I1*, ATTRBS+3*, USER+3*, TRACE+2*, WAIT+2*
DIRESULT EN+1~, EN+17*, EN+18, EN+23
DIROUT IENS+1~, ATTRBS+1~, USER+1~, TRACE+1~, WAIT+1~
DIRUT IENS+1~, ATTRBS+1~, USER+1~, TRACE+1~, WAIT+1~
DISTK LIST+1~, LIST+2*, LIST+3, POP+1*, PROC+2, PROC+3, PROC+7*, SHOWTRC+5~, SHOWTRC+7*, SHOWTRC+8
, SHOWTRC+17*, SHOWTRC+18, SHOWTRC+20
DISTK( LIST+2*, LIST+3, POP+1, PROC+2*, PROC+3, PROC+7*
DISTK(0 LIST+2*
DIT EN+21~, OUT+1*
>> DITOP EN+2, EN+8, SHOWTRC+12, WRITE+2, WRITE+3, BROWSE+1
DITXT EN+1~
DIUSR EN+1~, EN+13*, EN+14
DIUSRNM EN+1~, EN+14*
DIVAL EN+1~, EN+12, USER+2~
DIVAL( ATTRBS+7*, SHOWVAR+3, TARGET+4
DIX SHOWTRC+5~, SHOWTRC+8*, SHOWTRC+9, SHOWTRC+10, SHOWTRC+11, SHOWTRC+12*, SHOWTRC+13*, SHOWTRC+14, SHOWTRC+18*, SHOWTRC+19
, SHOWTRC+20*
DIZ EN+1~, SHOWTRC+6
DIZTRACE EN+1~, EN+16*, EN+22
DIZTRACE( SHOWTRC+6, SHOWTRC+7, SHOWTRC+16, SHOWTRC+17
DIZTRACE("FLDS" SHOWFLDS+7
DONE TARGET+1~, TARGET+2*, TARGET+3, TARGET+6*
DTOUT IENS+1~, ATTRBS+1~, USER+1~, TRACE+1~, WAIT+1~
DUOUT IENS+1~, ATTRBS+1~, USER+1~, TRACE+1~, WAIT+1~
DUZ USER+4
FN IENS~, I1+1, VIENS~, VIENS+1, VIENS+4, SHOWFLDS+6~, SHOWFLDS+7*, SHOWFLDS+8
GBL VIENS+1~*, VIENS+3
I ACTION+1~, ACTION+2*, ACTION+3, PROC+1~, PROC+4*, HELPATT+4~*, HELPATT+7~*, SHOWTMP+2~, SHOWTMP+3*, SHOWTMP+4
, SHOWTMP+5, SHOWFLDS+6~, SHOWFLDS+9*, WRITE+1~*, WRITE+4*, WRITE+6
IEN FCNM~, FCNM+2, TARGET~, TARGET+2, TARGET+3, TARGET+5, SHOWFLDS+6~, SHOWFLDS+7*, SHOWFLDS+8
IENS VIENS~, VIENS+1, VIENS+3, VIENS+4
J SHOWTMP+2~, SHOWTMP+5*
KEY TARGET+1~, TARGET+3*, TARGET+4, TARGET+5
LCNT WRITE+1~*, WRITE+5*
STOP WRITE+1~*, WRITE+4, WRITE+5, WRITE+7, WAIT+3*
TYPE SHOWTMP~, SHOWTMP+1, SHOWTMP+2, SHOWTMP+3, SHOWTMP+4, SHOWTMP+5
U EN+6, EN+8, EN+14, ACTION+4, POP+1, PROC+2, PROC+4, PROC+5, PROC+6, USER+4
, SHOWTRC+7, SHOWTRC+8, SHOWTRC+9, SHOWTRC+10, SHOWTRC+11, SHOWTRC+17, SHOWTRC+18, SHOWTRC+20, FCNM+3, FCNM+4
, TARGET+2, SHOWFLDS+7, SHOWFLDS+8, WRITE+2, WRITE+3, BROWSE+1
>> VALMBCK EN+2*, EN+3*
X ACTION+1~, ACTION+3*, ACTION+4, ACTION+9!, IENS+1~, ATTRBS+1~, ATTRBS+6!, PROC+1~, PROC+4*, PROC+5
, PROC+6, USER+1~, TRACE+1~, SHOWVAR+1~, SHOWVAR+2*, SHOWVAR+3*, SHOWTRC+5~, SHOWTRC+7*, SHOWTRC+9, SHOWTRC+10
, SHOWTRC+11, SHOWTRC+20, FCNM+1~, FCNM+4*, TARGET+1~, TARGET+4*, TARGET+5, SHOWFLDS+6~, SHOWFLDS+7*, OUT~
, OUT+1, WAIT+1~
X0 FCNM+1~, FCNM+2*, FCNM+3, FCNM+4
Y ACTION+1~, ACTION+3*, ACTION+4*, ACTION+5, ACTION+6*, ACTION+7*, ACTION+8*, ACTION+9!, ACTION+11*, ACTION+12
, IENS+1~, I1+1, I1+2, ATTRBS+1~, ATTRBS+3, ATTRBS+5, ATTRBS+6!, ATTRBS+7, USER+1~, USER+7
, TRACE+1~, TRACE+5, SHOWTRC+5~, SHOWTRC+17*, SHOWTRC+18, FCNM+1~, FCNM+3*, FCNM+4*, FCNM+5, TARGET+1~
, TARGET+2*, TARGET+5*, TARGET+6, TARGET+7, WAIT+1~, WAIT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All