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

Package: VA FileMan

Routine: DIACLM1


Information

DIACLM1 ;SLCISC/MKB - Policy Editor actions ;17FEB2017

Source Information

Source file <DIACLM1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 10 ^DDS  EN^DIAC1T  ($$SELECT,INIT)^DIACLM  ^DIC  FILE^DICN  DQ^DICQ  ^DIE  ^DIK  
($$GET1,EN)^DIQ  ^DIR  
List Manager 2 FULL^VALM1  EN^VALM2  
Kernel 1 $$UP^XLFSTR  

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

Package Total Caller Graph
VA FileMan 13 DIAC ACTIONS  DIAC CHANGE  DIAC DELETE  DIAC DISABLE  DIAC EDIT  DIAC EXPAND  DIAC FUNCTIONS  DIAC INQUIRE  
DIAC LINK ACTION  DIAC MEMBERS  DIAC QUIT  DIAC TEST  DIACOPT  
Kernel 2 ^DIC(19  ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ADD ; -- add/remove members
DIR() ; -- find member policy (return X & Y as if ^DIC)
DIC ; -- input transform to look up X in #1.6, return Y=ien^name[^1]
MEMHLP ; -- Xecutable help to show current members of policy DAD
EDIT ; -- edit item
DELETE ; -- delete item
DEL ; enter here from option with DA
DELDAD(IEN) ; -- remove IEN as a member from parent policies
DELACT(IEN) ; -- remove IEN as a policy for Application Actions
SURE(IEN) ; -- are you sure?
DISABLE ; -- disable item
DIS ;enter here from option with DA
EXPAND ; -- expand/collapse items
DETAIL ; -- show details
CHANGE ; -- select a different policy/set to manage
TYPE() ; -- select type
SELECT(PROMPT) ; -- select 1 item from list
WAIT ; -- hold screen
TEST ; -- test current policy
EXIT ; -- exit editor
LINK ; -- link policy to actions
L1 ;loop back
ACTIONS ; -- edit Actions [Option]
ACT1 ; loop back here
FCNS ; -- edit Functions
FC1 ; loop back here
ADDPOL(T) ; -- add a function to a policy
ASSIGN(T) ; -- want to assign a function to a policy?

External References

Name Field # of Occurrence
^DDS EDIT+10
EN^DIAC1T TEST+1
$$SELECT^DIACLM EDIT+14, DELETE+7, CHANGE+2
INIT^DIACLM ADD+26, EDIT+18, DELETE+10, DISABLE+3, EXPAND+9, CHANGE+5, ADDPOL+9
^DIC DIC+5, MEMHLP+7, L1+2, ACT1+2, FC1+2, ADDPOL+7
FILE^DICN ADD+22
DQ^DICQ MEMHLP+2
^DIE ADD+16, ADD+23, DELACT+5, DIS+5, L1+3, ACT1+4, FC1+6, ADDPOL+8
^DIK DEL+11, DELDAD+5
$$GET1^DIQ EDIT+8
EN^DIQ DETAIL+4, ACT1+3, FC1+4
^DIR DIR+6, SURE+7, TYPE+2, SELECT+3, WAIT+2, ASSIGN+5
FULL^VALM1 ADD+9, EDIT+3, DELETE+3, DISABLE+1, DETAIL+4
EN^VALM2 EDIT+2, EXPAND+2
$$UP^XLFSTR EDIT+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Another user is editing policies."
  • Line Location: ADD+2
Function Call: WRITE
  • Prompt: !,"Rules may not have members.",!
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !,"Another user is editing "_$P(DAD,U,2)
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DIR+6
Function Call: WRITE
  • Prompt: !?8,"You may enter a new MEMBER, if you wish."
  • Line Location: MEMHLP+3
Function Call: WRITE
  • Prompt: !?8,"Enter a policy, set, or rule that is not an ancestor of this item."
  • Line Location: MEMHLP+4
Function Call: WRITE
  • Prompt: !?8,"Members of a policy must be rules; sets may include policies or sets.",!
  • Line Location: MEMHLP+5
Function Call: WRITE
  • Prompt: !,"Another user is editing #"_I
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !,"Loading form to edit #"_DII_" ..."
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !,$P($G(^DIAC(1.6,DA,0)),U)_" will also be removed as a member from:"
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !?3,$P(^DIAC(1.6,DAD,0),U)
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DEL+5
Function Call: WRITE
  • Prompt: !,$P($G(^DIAC(1.6,DA,0)),U)_" will also be unlinked as a policy for:"
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !?3,$P(^DIAC(1.61,DAC,0),U)
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: !,"Nothing deleted!"
  • Line Location: DEL+8
Function Call: WRITE
  • Prompt: !,"Another user is editing policies."
  • Line Location: DEL+9
Function Call: WRITE
  • Prompt: !,"Another user is editing this policy."
  • Line Location: DEL+10
Function Call: WRITE
  • Prompt: !,"Another user is editing policy #"_DAD
  • Line Location: DELDAD+3
Function Call: WRITE
  • Prompt: !,"Another user is editing action #"_DA
  • Line Location: DELACT+3
Function Call: WRITE
  • Prompt: !!,"WARNING: Disabling a policy will prevent it and ALL its members from being"
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !,"processed when data access is being evaluated!",!
  • Line Location: DIS+3
Function Call: WRITE
  • Prompt: !,"Another user is editing this policy."
  • Line Location: DIS+4
Function Call: WRITE
  • Prompt: !!,"Re-building the list..."
  • Line Location: EXPAND+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL+4
Function Call: WRITE
  • Prompt: !,"MEMBER OF: "
  • Line Location: DETAIL+6
Function Call: WRITE
  • Prompt: !?3,$P(^DIAC(1.6,DAD,0),U)
  • Line Location: DETAIL+7
Function Call: WRITE
  • Prompt: " "_$P(Y,U,2)
  • Line Location: SELECT+4
Function Call: WRITE
  • Prompt: !!,"No Application Actions are linked to "_$P(DITOP,U,2)_"."
  • Line Location: LINK+2
Function Call: WRITE
  • Prompt: !!,"The following Application Actions are linked to policy "_$P(DITOP,U,2)_":"
  • Line Location: LINK+4
Function Call: WRITE
  • Prompt: !?3,$P(X,U)_" "_$P(X,U,2)_" "_$P(X,U,3)
  • Line Location: LINK+7
Function Call: WRITE
  • Prompt: !,"Another user is editing Application Actions."
  • Line Location: LINK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,"Another user is editing Application Actions."
  • Line Location: ACTIONS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT1+6
Function Call: WRITE
  • Prompt: !,"Another user is editing Functions."
  • Line Location: FCNS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FC1+4
Function Call: WRITE
  • Prompt: $C(7),!,"VA FILEMAN functions are uneditable!"
  • Line Location: FC1+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: FC1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDPOL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASSIGN+5
Routine Call
  • DDS
  • Line Location:
    • EDIT+10
Routine Call
  • DIC
  • Line Location:
    • DIC+5
    • MEMHLP+7
    • L1+2
    • ACT1+2
    • FC1+2
    • ADDPOL+7
Routine Call
  • DIE
  • Line Location:
    • ADD+16
    • ADD+23
    • DELACT+5
    • DIS+5
    • L1+3
    • ACT1+4
    • FC1+6
    • ADDPOL+8
Routine Call
  • DIR
  • Line Location:
    • DIR+6
    • SURE+7
    • TYPE+2
    • SELECT+3
    • WAIT+2
    • ASSIGN+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIAC(1.6 - [#1.6] ADD+2, ADD+5, ADD+6, ADD+7, ADD+18, ADD+20, ADD+25, EDIT+7, EDIT+17, DELETE+3
, DELETE+4, DEL+2, DEL+3, DEL+4, DEL+6, DEL+9, DEL+10, DEL+12, DEL+15, DELDAD+2
, DELDAD+3, DELDAD+6, SURE+5, DIS+4, DIS+6, EXPAND+5, DETAIL+5, DETAIL+7
^DIAC(1.61 - [#1.61] DEL+5, DEL+7, DELACT+2, DELACT+3, DELACT+6, LINK+2, LINK+5, LINK+6, LINK+8, L1+2
, ACTIONS+2, ACT1+2
^DIAC(1.62 - [#1.62] FCNS+2, FC1+2
^TMP("DIAC" ADD+3, EDIT+6, EDIT+11, EXPAND+4, SELECT+4
^TMP("DIACX" ADD+26*, EDIT+15!, EDIT+16*, DELETE+8!, DELETE+9*, EXPAND+6, EXPAND+7*, CHANGE+3!, CHANGE+4*

Label References

Name Line Occurrences
$$ASSIGN FC1+7
$$DIR ADD+11
$$SELECT ADD+4, DELETE+2, DISABLE+2, DETAIL+3
$$SURE DEL+8
ACT1 ACT1+6
ADDPOL FC1+7
DEL DELETE+4
DELACT DEL+14
DELDAD EDIT+12, DEL+13
DIS DISABLE+3
FC1 FC1+8
L1 L1+5
WAIT DETAIL+8

Naked Globals

Name Field # of Occurrence
^( DELDAD+2, EXPAND+6!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D MEMHLP+1~, MEMHLP+2*
DA ADD+1~, ADD+12, ADD+16!*, ADD+18!*, ADD+19, ADD+22*, DIC+1~, EDIT+1~, EDIT+6*, EDIT+7
, EDIT+8, EDIT+10, EDIT+11*, EDIT+12, EDIT+13, EDIT+17, DELETE+1~, DELETE+2*, DELETE+3, DELETE+4
, DELETE+6, DEL+2, DEL+3, DEL+4, DEL+5, DEL+6, DEL+7, DEL+8, DEL+10, DEL+12
, DEL+13, DEL+14, DELDAD+1~, DELDAD+2*, DELACT+1~*, DELACT+2*, DELACT+3, DELACT+6, DISABLE+2~*, DIS+4
, DIS+6, EXPAND+1~, EXPAND+4*, EXPAND+5, EXPAND+6, EXPAND+7, DETAIL+1~, DETAIL+3*, DETAIL+5, DETAIL+7
, LINK+1~, L1+3*, ACTIONS+1~, ACT1+3*, ACT1+5!, FCNS+1~, FC1+4*, FC1+5, FC1+7, ADDPOL+1~
, ADDPOL+8*
DA(1 ADD+18*, ADD+20, ADD+21, ADD+23, DIC+2*, DELDAD+4*
DAC DEL+1~, DEL+7*
DAD ADD+1~, ADD+3*, ADD+4*, ADD+5, ADD+6, ADD+7, ADD+18, ADD+25, ADD+26, DIC+2
, MEMHLP+2, DEL+1~, DEL+4*, DELDAD+1~*, DELDAD+2*, DELDAD+3, DELDAD+4, DELDAD+6, DETAIL+1~, DETAIL+7*
DDSCHANG EDIT+1~, EDIT+8!, EDIT+10
DDSFILE EDIT+1~, EDIT+4*
DDSPARM EDIT+1~, EDIT+4*
DIAT ADDPOL+1~*, ADDPOL+2, ADDPOL+3, ADDPOL+4, ADDPOL+9
DIC ADD+1~, ADD+16!, ADD+18!, ADD+21*, DIC+1~, DIC+2*, MEMHLP+1~, MEMHLP+2*, MEMHLP+7*, DETAIL+1~
, DETAIL+2*, LINK+1~, L1+1*, L1+3, ACTIONS+1~, ACT1+1*, ACT1+4, ACT1+5!, FCNS+1~, FC1+1*
, FC1+6!, ADDPOL+1~, ADDPOL+6*
DIC("A" ACT1+1*, FC1+1*
DIC("DR" ADD+21*, DIC+4*, L1+1*
DIC("S" DIC+3*, MEMHLP+6*, ADDPOL+3*, ADDPOL+4*
DIC(0 ADD+21*, DIC+2*, MEMHLP+2*, L1+1*, ACT1+1*, FC1+1*, ADDPOL+6*
DIE ADD+1~, ADD+16*, ADD+23*, DELACT+1~, DELACT+4*, DIS+1~, DIS+5*, LINK+1~, L1+3*, ACTIONS+1~
, ACT1+4*, ACT1+5!, FCNS+1~, FC1+6*, ADDPOL+1~, ADDPOL+8*
DIFF ADD+1~, ADD+7*, ADD+18*, ADD+26, EDIT+1~, EDIT+4*, EDIT+10*, EDIT+11*, EDIT+18
DII EDIT+1~, EDIT+5*, EDIT+6, EDIT+9, EDIT+11
DIK DEL+1~, DEL+11*, DELDAD+1~, DELDAD+4*
>> DILOCKTM ADD+2, ADD+6, EDIT+7, DEL+9, DEL+10, DELDAD+3, DELACT+3, DIS+4, LINK+8, ACTIONS+2
, FCNS+2
DIR DIR+1~, SURE+1~, TYPE+1~, SELECT+1~, WAIT+1~, ASSIGN+1~
DIR("?" DIR+4*, SURE+3*, SURE+4*, SURE+5*, SURE+6*, ASSIGN+3*
DIR("??" DIR+5*
DIR("A" DIR+3*, SURE+2*, SELECT+2*, ASSIGN+4*
DIR("B" SURE+2*
DIR(0 DIR+2*, SURE+2*, TYPE+2*, SELECT+3*, WAIT+2*, ASSIGN+5*
DIROUT SURE+1~, WAIT+1~
DIRUT SURE+1~, DIS+1~, WAIT+1~
>> DITOP EDIT+13, EDIT+14*, EDIT+16, DELETE+3, DELETE+6, DELETE+7*, DELETE+9, CHANGE+2, CHANGE+4*, LINK+2
, LINK+4, LINK+5
DLAYGO DIC+1~, DIC+2*, LINK+1~, L1+1*, ACTIONS+1~, ACT1+1*, ACT1+5!, FCNS+1~, FC1+1*, FC1+6!
DONE ADD+1~, ADD+7*, ADD+10, ADD+11*, ADDPOL+1~, ADDPOL+5*, ADDPOL+7*
DR ADD+1~, ADD+13*, ADD+14*, ADD+15*, ADD+23*, EDIT+1~, EDIT+8*, DELACT+1~, DELACT+4*, DIS+1~
, DIS+5*, LINK+1~, L1+3*, L1+4!, ACTIONS+1~, ACT1+4*, ACT1+5!, FCNS+1~, FC1+6*!, ADDPOL+1~
, ADDPOL+2*
DTOUT EDIT+1~, SURE+1~, DIS+1~, WAIT+1~
DUOUT SURE+1~, DIS+1~, WAIT+1~
DZ MEMHLP+1~, MEMHLP+2*, MEMHLP+7!
I EDIT+7, EXPAND+1~, EXPAND+3*, EXPAND+4
IEN DELDAD~, DELDAD+2, DELACT~, DELACT+2, SURE~, SURE+5
ITM ADD+1~, ADD+11*, ADD+12, ADD+16, ADD+18, ADD+21
LAST ADD+20~*, ADD+21
NAME ASSIGN+1~, ASSIGN+2*, ASSIGN+3, ASSIGN+4
PROMPT SELECT~, SELECT+2
T ADDPOL~, ADDPOL+1, ASSIGN~, ASSIGN+1*, ASSIGN+2
TYPE ADD+1~, ADD+7*, ADD+14, DIC+3, DIC+4, MEMHLP+6, FCNS+1~, FC1+3*, FC1+7
U ADD+5, ADD+6, ADD+7, ADD+12, DIC+6, DEL+3, DEL+4, DEL+6, DEL+7, DETAIL+7
, TYPE+3, SELECT+4, LINK+2, LINK+4, LINK+7, ACT1+3, FC1+3, FC1+4
>> VALMBCK ADD+1*, ADD+9*, EDIT+2*, EDIT+3*, EDIT+14*, EDIT+16*, DELETE+1*, DELETE+3*, DELETE+5*, DELETE+6
, DELETE+7*, DELETE+9*, DISABLE+1*, EXPAND+2*, EXPAND+9*, DETAIL+2*, DETAIL+8*, CHANGE+1*, CHANGE+4*, WAIT+3*
, TEST+1*, EXIT+1*
>> VALMCNT ADD+3, SELECT+2, SELECT+3
VALMHDR EDIT+15!, DELETE+8!, CHANGE+3!, L1+4!
VALMY EDIT+1~, EXPAND+1~
VALMY( EDIT+5, EXPAND+3
VALMY(0 EDIT+2, EXPAND+2
X ADD+1~, ADD+21*, DIR+1~, DIC+5!, DIC+6*, MEMHLP+1~, MEMHLP+7*, SURE+1~, DIS+1~, CHANGE+2~*
, CHANGE+4, TYPE+1~, SELECT+1~, WAIT+1~, LINK+1~, LINK+6*, LINK+7, L1+4!, ACTIONS+1~, ACT1+5!
, FCNS+1~, FC1+6!, ADDPOL+1~, ASSIGN+1~
>> XQORNOD(0 EDIT+2, EXPAND+2
Y ADD+1~, ADD+22, DIR+1~, DIR+7, DIC+5, DIC+6, MEMHLP+1~, SURE+1~, SURE+8, DIS+1~
, TYPE+1~, TYPE+3*, TYPE+4, SELECT+1~, SELECT+4*, SELECT+5*, SELECT+6, WAIT+1~, WAIT+3, LINK+1~
, LINK+5*, LINK+6, L1+2, L1+3, L1+4!, ACTIONS+1~, ACT1+2, ACT1+3, ACT1+5!, FCNS+1~
, FC1+2, FC1+4, FC1+6!, ADDPOL+1~, ADDPOL+7, ADDPOL+8, ASSIGN+1~, ASSIGN+6
Y(0 TYPE+3, FC1+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All