Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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?

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
Info |  Source |  Entry Points |  Interaction Calls