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: DIACX

Package: VA FileMan

Routine: DIACX


Information

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

Source Information

Source file <DIACX.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 2 EN^DDIOL  (HLP,REQ)^DDSUTL  
Kernel 1 $$GET^XUA4A72  

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 4 ^DIAC(1.6  MEMBERS  ^DIAC(1.61  ^DIAC(1.62  

Entry Points

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

External References

Name Field # of Occurrence
EN^DDIOL CHKNAME+1, CHKNAME+2, CHKNAME+3
HLP^DDSUTL CKTCONJ+2, CKCCONJ+2, EFFECT+2, RESULT+2
REQ^DDSUTL REQTCONJ+3, REQCCONJ+3
$$GET^XUA4A72 PCLS+3

Interaction Calls

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIAC( CHKNAME+1
^DIAC(1.6 - [#1.6] SCR+2, TR1, ORPHANS+2, SEQ+3, SEQ+4, SEQ+5, CKTCONJ+1, CKCCONJ+1
^DIAC(1.61 - [#1.61] ORPHANS+4
^DIC(9.4 - [#9.4] NAME+2, NAMEOK+1, NAMEOK+2
^XUSEC( HASKEY+1

Label References

Name Line Occurrences
CHKNAME T1+1
NAME CHKNAME+2
NAMEOK NAME+2
T1 T1+1
TR1 TREE+4, TR2
TR2 TR1

Naked Globals

Name Field # of Occurrence
^( ORPHANS+2
^(0 NAMEOK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CHKNAME+2~, CHKNAME+3, NAME+1*, NAME+2*, NAMEOK+1
%1 CHKNAME+2~, CHKNAME+3, NAME+1*, NAMEOK+1*, NAMEOK+2*
CLASS PCLS~, PCLS+3*, PCLS+4, PCLS+5
>> DA CKTCONJ+1, CKCCONJ+1
>> DA(1 SCR+2, TREE+2, SEQ+3, SEQ+4, REQTCONJ+2, REQCCONJ+2
DAD SCR+1~, SCR+2*, SCR+3, SCR+4, SCR+5
DDI TREE+1~, TR1*, TR2~
>> DDSBR CKTCONJ+3*, CKCCONJ+3*, EFFECT+3*, RESULT+3*
DIACDAD TREE+1~, TREE+2*, TR1, TR2~*
>> DIE REQTCONJ+2, REQCCONJ+2
>> DIUSR HASKEY+1
>> DIVAL( BOOL+1
DTIME T1
FN CHKNAME~, CHKNAME+1
I ORPHANS+1~*, ORPHANS+2*, ORPHANS+3, ORPHANS+4
IEN SEQ+2~, SEQ+4*, SEQ+5
IENS REQTCONJ+1~, REQTCONJ+2*, REQTCONJ+3, REQCCONJ+1~, REQCCONJ+2*, REQCCONJ+3
SEQ SEQ+2~, SEQ+3*, SEQ+4, SEQ+5
U SCR+2, NAMEOK+2, ORPHANS+3, ORPHANS+4, SEQ+5, REQTCONJ+2, CKTCONJ+1, REQCCONJ+2, CKCCONJ+1, PCLS+5
USER PCLS~, PCLS+3
X CHKNAME+1!, CHKNAME+3, NAME+1, NAME+2, NAMEOK+1, T1*, ORPHANS+1~, ORPHANS+2*, ORPHANS+3, ORPHANS+4
, REQTCONJ+1~, REQTCONJ+2*, REQTCONJ+3, CKTCONJ+1, REQCCONJ+1~, REQCCONJ+2*, REQCCONJ+3, CKCCONJ+1, EFFECT+1, RESULT+1
, HASKEY+1, BOOL+1
X0 REQTCONJ+1~, REQTCONJ+2*, REQCCONJ+1~, REQCCONJ+2*
Y SCR+1~, SCR+2*, SCR+3*, SCR+4*, SCR+5*, SCR+6, TREE+2, TR1, HASKEY+1*, BOOL+1*
, PCLS+2~, PCLS+3*, PCLS+4, PCLS+5
Z TREE+1~, TREE+4*, TREE+5, TR1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All