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

Package: VA FileMan

Routine: DIACP


Information

DIACP ;SLCISC/MKB - Print Policy Documentation ;17FEB2017

Source Information

Source file <DIACP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- start here
REPORT() ; -- select report type
EN1 ; -- print summary list of Events
SELECT() ; -- select a Policy
EN2 ; -- print Policy details
MAIN ;entry point for queued report
END ;Finish up
POP ; pop the stack
PROC ; process member
ITEM(IEN) ; -- top of item
CONJ(X) ; -- return name of conjunction
EFFECT(X) ; -- return Effect name
FNAME(X) ; -- return Function name
FCNS ; -- display functions
DESC(DA) ; -- write Function Description
INIT ; -- Setup
ACTION ; -- display action
ACTYP(X) ; -- return action type name
PG ; -- check line count for new page
HEADER ; -- all headers except first
HDR1 ;first header for CRTs
HDR2 ;first header for non-CRTs

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: !,"Report queued!",!,"Task number: "_$G(ZTSK),!
  • Line Location: EN2+15
Function Call: WRITE
  • Prompt: !,"Report canceled!",!
  • Line Location: EN2+16
Function Call: WRITE
  • Prompt: !?((DISTK-1)*3),X_": "_$P(X0,U),?48,"RESULT: "
  • Line Location: ITEM+5
Function Call: WRITE
  • Prompt: $$EFFECT($P(X0,U,8))
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: $$FNAME($P(X0,U,7))
  • Line Location: ITEM+7
Function Call: WRITE
  • Prompt: !?(DISTK*3),"** DISABLED **"
  • Line Location: ITEM+8
Function Call: WRITE
  • Prompt: !?(DISTK*3),"ATTRIBUTES: "_$$FNAME($P(X0,U,4))
  • Line Location: ITEM+11
Function Call: WRITE
  • Prompt: !?(DISTK*3),"TARGETS"_$$CONJ($P(X0,U,5))_": "
  • Line Location: ITEM+17
Function Call: WRITE
  • Prompt: !?(DISTK*3),I_":",?((DISTK+1)*3),NM_" = "_VAL
  • Line Location: ITEM+21
Function Call: WRITE
  • Prompt: !?(DISTK*3),"CONDITIONS"_$$CONJ($P(X0,U,6))_": "
  • Line Location: ITEM+26
Function Call: WRITE
  • Prompt: !?(DISTK*3),I_":",?((DISTK+1)*3),$$FNAME(NM)_$S($L(VAL):" ("_VAL_")",1:"")
  • Line Location: ITEM+30
Function Call: WRITE
  • Prompt: !?(DISTK*3),"DENY FUNCTION: "_$$FNAME(+X)
  • Line Location: ITEM+35
Function Call: WRITE
  • Prompt: !?(DISTK*3),"DENY MESSAGE: "_$P(X,U,2)
  • Line Location: ITEM+36
Function Call: WRITE
  • Prompt: !?(DISTK*3),"PERMIT FUNCTION: "_$$FNAME(+X)
  • Line Location: ITEM+38
Function Call: WRITE
  • Prompt: !?(DISTK*3),"PERMIT MESSAGE: "_$P(X,U,2)
  • Line Location: ITEM+39
Function Call: WRITE
  • Prompt: !?(DISTK*3),"FIELDS: "_X
  • Line Location: ITEM+44
Function Call: WRITE
  • Prompt: !?(DISTK*3),X_": "_$P(X0,U,4)
  • Line Location: ITEM+48
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+50
Function Call: WRITE
  • Prompt: !?(DISTK*3),$S(TYPE="P":"RULES",1:"POLICIES")_": "
  • Line Location: ITEM+54
Function Call: WRITE
  • Prompt: !,"FUNCTION: "_$P(X0,U)
  • Line Location: FCNS+5
Function Call: WRITE
  • Prompt: ?50,"TYPE: ",$$EXTERNAL^DILFD(1.62,.03,,$P(X0,U,3))
  • Line Location: FCNS+6
Function Call: WRITE
  • Prompt: !," DISPLAY NAME: "_$P(X0,U,2)
  • Line Location: FCNS+7
Function Call: WRITE
  • Prompt: ?44,"NULL VALUE: "_$S(X="P":"PERMIT",X="D":"DENY",1:"")
  • Line Location: FCNS+10
Function Call: WRITE
  • Prompt: !," EXECUTE CODE: "_$G(^DIAC(1.62,DIEN,1))
  • Line Location: FCNS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: FCNS+13
Function Call: WRITE
  • Prompt: !," DESCRIPTION: "
  • Line Location: DESC+3
Function Call: WRITE
  • Prompt: !?1,X
  • Line Location: DESC+4
Function Call: WRITE
  • Prompt: !,"APPLICATION ACTION: <none linked>",!
  • Line Location: ACTION+1
Function Call: WRITE
  • Prompt: !,"APPLICATION ACTION: ",$P(X0,U),?50,"TYPE: ",$$ACTYP($P(X0,U,4))
  • Line Location: ACTION+5
Function Call: WRITE
  • Prompt: !?13,"FILE#: ",$P(X0,U,2),?46,"API NAME: ",$P(X0,U,3)
  • Line Location: ACTION+6
Function Call: WRITE
  • Prompt: !,$$RJ^XLFSTR(X,18)_": "_$P(X0,U,4)
  • Line Location: ACTION+11
Function Call: WRITE
  • Prompt: !
  • Line Location: ACTION+12
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: ^(1)
  • Line Location: HDR2+2
Function Call: WRITE
  • Prompt: !,$P(DIPOL,U,2),?(IOM-$L(DIACHDR)-$L(DIACPG)-1),DIACHDR_DIACPG
  • Line Location: HDR2+3
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM-1)," ","-"),!
  • Line Location: HDR2+4
Info |  Source |  Entry Points |  Interaction Calls