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

Package: VA FileMan

Routine: DIACP


Information

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

Source Information

Source file <DIACP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 5 YX^%DTC  ^DIC  $$EXTERNAL^DILFD  EN1^DIP  ^DIR  
Kernel 3 ^%ZIS  (,$$S)^%ZTLOAD  $$RJ^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: 2

Package Total Caller Graph
VA FileMan 2 DIAC PRINT  DIACOPT  

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

External References

Name Field # of Occurrence
YX^%DTC INIT+2
^%ZIS EN2+5, EN2+18
^%ZTLOAD EN2+14
$$S^%ZTLOAD HEADER+4
^DIC SELECT+2
$$EXTERNAL^DILFD FCNS+6
EN1^DIP EN1+3
^DIR REPORT+6, HEADER+3
$$RJ^XLFSTR ACTION+11

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
Routine Call
  • DIC
  • Line Location:
    • SELECT+2
Routine Call
  • DIR
  • Line Location:
    • REPORT+6
    • HEADER+3
Routine Call
  • %ZIS
  • Line Location:
    • EN2+5
    • EN2+18

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS("C" END+2
^%ZTSK - [#14.4] EN2+4, EN2+9
^DIAC(1.6 - [#1.6] MAIN+10, PROC+3, ITEM+2, ITEM+15, ITEM+18, ITEM+19, ITEM+24, ITEM+27, ITEM+28, ITEM+34
, ITEM+37, ITEM+42, ITEM+45, ITEM+52
^DIAC(1.61 - [#1.61] ACTION+1, ACTION+3, ACTION+4, ACTION+7, ACTION+8, ACTION+9
^DIAC(1.62 - [#1.62] FNAME+1, FCNS+4, FCNS+11, FCNS+12, DESC+1, DESC+4

Label References

Name Line Occurrences
$$ACTYP ACTION+5
$$CONJ ITEM+17, ITEM+26
$$EFFECT ITEM+6
$$FNAME ITEM+7, ITEM+11, ITEM+30, ITEM+35, ITEM+38
$$REPORT EN+1
$$SELECT EN2+1
@( EN+2, MAIN+4, MAIN+10
ACTION MAIN+5
DESC FCNS+12
END EN2+9
FCNS MAIN+12
HEADER PG+1
INIT MAIN+3
ITEM MAIN+8, PROC+4
PG ITEM+4, ITEM+8, ITEM+10, ITEM+16, ITEM+20, ITEM+25, ITEM+29, ITEM+35, ITEM+36, ITEM+38
, ITEM+39, ITEM+43, ITEM+47, ITEM+50, ITEM+53, FCNS+5, FCNS+7, FCNS+11, FCNS+13, DESC+3
, DESC+4

Naked Globals

Name Field # of Occurrence
^( ITEM+18, ITEM+27, ITEM+45, DESC+4, ACTION+9
^(1 ACTION+7
^(5 ACTION+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% INIT+1~
%H INIT+1~, INIT+2*
%ZIS EN2+4*, EN2+5!
DA ITEM+1~, ITEM+18*, ITEM+19, ITEM+27*, ITEM+28, DESC~, DESC+1, DESC+4
DIACHDR MAIN+1~, INIT+3*, HDR2+3
DIACPG MAIN+1~, HDR2+1*, HDR2+3
DIACRT MAIN+1~, MAIN+4, INIT+4*, HEADER+1
DIACT ACTION+2~, ACTION+3*, ACTION+4, ACTION+7, ACTION+8, ACTION+9
DIC EN1+1~, EN1+2*, SELECT+1~, SELECT+2*
DIC(0 SELECT+2*
DIEN PROC+1~, PROC+3*, PROC+4, PROC+6, FCNS+1~, FCNS+3*, FCNS+4, FCNS+11, FCNS+12
DIFCN MAIN+1~
DIFCN( FCNS+3
DIFCN("A" ITEM+12*
DIFCN("C" ITEM+31*
DIFCN("O" ITEM+35*, ITEM+38*
DIFCN("R" ITEM+7*
DII DESC+2~, DESC+4*
DIPOL EN2+1~*, EN2+12, MAIN+8, MAIN+9, ACTION+1, ACTION+3, HDR2+3
DIR REPORT+1~, HEADER+2~
DIR("?" REPORT+4*, REPORT+5*
DIR("A" REPORT+3*
DIR(0 REPORT+2*, HEADER+3*
DIRUT MAIN+8, MAIN+10, MAIN+12, END+3!, ITEM+4, ITEM+8, ITEM+9, ITEM+10, ITEM+15, ITEM+16
, ITEM+18, ITEM+20, ITEM+24, ITEM+25, ITEM+27, ITEM+29, ITEM+35, ITEM+36, ITEM+38, ITEM+39
, ITEM+42, ITEM+43, ITEM+47, ITEM+50, ITEM+53, FCNS+2, FCNS+3, FCNS+5, FCNS+7, FCNS+11
, FCNS+12, FCNS+13, DESC+3, DESC+4, INIT+5!, PG+1, HEADER+1, HEADER+4*
DISEQ MAIN+1~, MAIN+9*, MAIN+10*, POP+1*, PROC+2, PROC+3, PROC+6*, ITEM+3
DISTK MAIN+1~, MAIN+8*, MAIN+9*, MAIN+10, POP+1*, PROC+2, PROC+3, PROC+6*, ITEM+5, ITEM+8
, ITEM+11, ITEM+17, ITEM+21, ITEM+26, ITEM+30, ITEM+35, ITEM+36, ITEM+38, ITEM+39, ITEM+44
, ITEM+48, ITEM+54
DISTK( MAIN+9*, MAIN+10, POP+1, PROC+2*, PROC+3, PROC+6*
DISTK(0 MAIN+8*
DITYP FCNS+1~, FCNS+2*, FCNS+3, FCNS+8
DTOUT REPORT+1~, END+3!, INIT+5!
DUOUT REPORT+1~, END+3!, INIT+5!
FLDS EN1+1~, EN1+2*
I ITEM+1~, ITEM+18*, ITEM+21, ITEM+27*, ITEM+30, ITEM+45*, ACTION+2~, ACTION+9*
IEN ITEM~, ITEM+2, ITEM+15, ITEM+18, ITEM+19, ITEM+24, ITEM+27, ITEM+28, ITEM+34, ITEM+37
, ITEM+42, ITEM+45, ITEM+52
IO EN2+20
IO("Q" EN2+9
IOF HDR1+1
IOM HDR2+3, HDR2+4
>> IOP EN2+18*
IOSL PG+1
IOST INIT+4
L EN1+1~, EN1+2*
NM ITEM+1~, ITEM+19*, ITEM+21, ITEM+28*, ITEM+30
POP EN2+5!, EN2+6!
T0 ITEM+1~, ITEM+19*, ITEM+28*, ITEM+31
TYPE EN+1~*, EN+2, ITEM+1~, ITEM+2*, ITEM+3, ITEM+6, ITEM+7, ITEM+52, ITEM+54
U EN2+12, POP+1, PROC+2, ITEM+2, ITEM+5, ITEM+6, ITEM+7, ITEM+8, ITEM+9, ITEM+11
, ITEM+12, ITEM+17, ITEM+19, ITEM+26, ITEM+28, ITEM+31, ITEM+36, ITEM+39, ITEM+46, ITEM+48
, FNAME+1, FCNS+5, FCNS+6, FCNS+7, FCNS+8, FCNS+9, ACTION+5, ACTION+6, ACTION+10, ACTION+11
, HDR2+3
VAL ITEM+1~, ITEM+19*, ITEM+21, ITEM+28*, ITEM+30
X REPORT+1~, SELECT+1~, ITEM+1~, ITEM+3*, ITEM+5, ITEM+34*, ITEM+35, ITEM+36, ITEM+37*, ITEM+38
, ITEM+39, ITEM+42*, ITEM+44, ITEM+46*, ITEM+48, CONJ~, CONJ+1, EFFECT~, EFFECT+1*, EFFECT+2
, FNAME~, FNAME+1, FCNS+9~*, FCNS+10, DESC+2~, DESC+4*, INIT+1~, ACTION+2~, ACTION+10*, ACTION+11
, ACTYP~, ACTYP+1*, ACTYP+2, HEADER+2~
X0 ITEM+1~, ITEM+2*, ITEM+5, ITEM+6, ITEM+7, ITEM+8, ITEM+9, ITEM+11, ITEM+12, ITEM+17
, ITEM+26, ITEM+45*, ITEM+46, ITEM+48, FCNS+1~, FCNS+4*, FCNS+5, FCNS+6, FCNS+7, FCNS+8
, FCNS+9, ACTION+2~, ACTION+4*, ACTION+5, ACTION+6, ACTION+9*, ACTION+10, ACTION+11
Y REPORT+1~, REPORT+6*, REPORT+7, SELECT+1~, SELECT+3, CONJ+1~*, CONJ+2*, CONJ+3, EFFECT+1~, EFFECT+2*
, EFFECT+3, INIT+1~, INIT+3, ACTYP+1~, ACTYP+2*, ACTYP+3, HEADER+2~
ZTDESC EN2+10~, EN2+12*
>> ZTQUEUED END+1, HEADER+4
>> ZTREQ END+1*
ZTRTN EN2+10~, EN2+11*
ZTSAVE EN2+10~
ZTSAVE("DIPOL" EN2+13*
ZTSK EN2+15, EN2+17!
>> ZTSTOP HEADER+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All