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

Package: VA FileMan

Routine: DIDC


Information

DIDC ;SFISC/STAFF-CONDENSED DD ;26APR2010

Source Information

Source file <DIDC.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 LIST^DIKCP  ^DIO  STOP^DIO4  

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 DID  DIO4  

Entry Points

Name Comments DBIA/ICR reference
TODAY
EN
EXIT
P
AFOF
P1
P2
MO
M
PTR ;
PT
L ; CUSTOM LOOP
DD
SUBFILES
Q

External References

Name Field # of Occurrence
LIST^DIKCP AFOF+4
^DIO SUBFILES+3
STOP^DIO4 Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(DIFF)&($Y)
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !!,"CONDENSED DATA DICTIONARY---",NAME," FILE"," (#",N(0),")"
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?47,"UCI: "_Y
  • Line Location: P+1
Function Call: WRITE
  • Prompt: ?63,$S($G(^DD(N(0),0,"VR"))]"":" VERSION: "_$P(^("VR"),U),1:" ")
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,"STORED IN: ",$S($D(^DIC(N(0),0,"GL")):^("GL"),1:""),?58,DAT,?70,"PAGE ",P
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !!,?50,"FILE SECURITY"
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !,?35,"DD SECURITY : ",$S($D(^DIC(N(0),0,"DD")):^("DD"),1:""),?58,"DELETE SECURITY: ",$S($D(^("DEL")):^("DEL"),1:"")
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !,?35,"READ SECURITY : ",$S($D(^("RD")):^("RD"),1:""),?58,"LAYGO SECURITY : ",$S($D(^("LAYGO")):^("LAYGO"),1:"")
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !,?35,"WRITE SECURITY : ",$S($D(^("WR")):^("WR"),1:"")
  • Line Location: P+6
Function Call: WRITE
  • Prompt: !?10,"(NOTE: Kernel's File Access Security applies to this File.)",!
  • Line Location: AFOF+0
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCED BY:",!,?5
  • Line Location: AFOF+1
Function Call: WRITE
  • Prompt: !,?5
  • Condition for execution: $X>50&($L($P(^DD(NF,N1,0),"^",1)>20))
  • Line Location: AFOF+3
Function Call: WRITE
  • Prompt: " ",$P(^DD(NF,N1,0),"^",1),"(",NY,") "
  • Line Location: AFOF+3
Function Call: WRITE
  • Prompt: !!!,?33,"FILE STRUCTURE",!!
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: "FIELD",?10,"FIELD",!,"NUMBER",?10,"NAME",!
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !,M(0),?10,$P(^DD(N(0),M(0),0),U,1)," "
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !,?10+((K-1)*5),M(K),?15+((K-1)*5),$P(^DD(N(K),M(K),0),U,1)," "
  • Line Location: MO+1
Function Call: WRITE
  • Prompt: $S(+J:"(Multiple-"_+J,1:"("_J),"), [",$P(^(0),U,4),"]"
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,F_" "
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: !?19
  • Condition for execution: $X>24
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: "(#"_^(0)_") "
  • Line Location: PT+0
Function Call: WRITE
  • Prompt: ?33," ",$S(%=F(1):"",1:$P(^DD(%,0)," SUB-FIELD",1)_":")
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: ?34,$P(^DD(%,S,0),U)," (#"_S_")",!
  • Line Location: PT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" P+1
^DD( ENP+2, AFOF+2, AFOF+3, P2MOMO+1, PT+1, DDDD+1
DD+2
^DD("DD" TODAY
^DIC - [#1] P+2, P+4, DD+1, DD+2
^UTILITY($J PTR+1, PT+1, L+3!
^VA(200 - [#200] AFOF

Label References

Name Line Occurrences
DD DDDD+1
EXIT EN
M P2MO+1
MO P2MO+1
P EN
P1 P+3
P2 EN
PT PTR+1
Q L+1, L+2, DDDD+1

Naked Globals

Name Field # of Occurrence
^( AFOF+2, AFOF+3, PTDD
^("DD" P+4
^("DEL" P+4
^("GL" P+2
^("LAYGO" P+5
^("RD" P+5
^("UCI" P+1
^("VR" P+2
^("WR" P+6
^(0 AFOF+3, MPT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AFOF+3~*, PT+1*, PT+2*
%DT EXIT!
%ZIS EXIT!
C SUBFILES+2~*
>> D0 EXIT*
DAT TODAY*, EXIT!, P+2
>> DC SUBFILES+3*
>> DFF SUBFILES+3*, Q*
>> DIA SUBFILES+3
>> DIB DD*, DD+1, DD+2*, SUBFILES+3
>> DIB(1 DDDD+1, DD+2, Q
>> DIFF P+1*
>> DIJS SUBFILES+3
>> DIMS SUBFILES+3
>> DIPP SUBFILES
>> DIPP(0 DD+1
>> DIPQ SUBFILES+3
>> DISEARCH SUBFILES+3*
>> DJ L+2, SUBFILES+3*
DM TODAY*, EN, EXIT!, P*, P2MOMO+1, MO+2
>> DPP SUBFILES*
>> DPQ SUBFILES+3*
DT TODAY
DTIME PL+2
>> F PTR+1*, PTR+2*, PTPT+1
>> F(1 PT+1
I EN*, EXIT!, P+2*, PTR+1*
IOF P+1
IOM P+2
IOST PL+2
J EXIT!, P2MO+1, M*
K EXIT!, P2*, MOMO+1*, MO+2*
K1 EXIT!, P2*
KK EXIT!, AFOF+2*
>> L MO+1*, SUBFILES+3*
M EXIT!*, L+1, SUBFILES+3*
M( MO*, MO+1*
M(0 P2*
MO EXIT!
N EXIT!
N( MO*, MO+1
N(0 EN*, P+1, P+2, P+4, AFOFAFOF+2, AFOF+3, AFOF+4, P2
N1 EXIT!, AFOF+2*, AFOF+3
NAME EN*, EXIT!, P+1
NF EXIT!, AFOF+2*, AFOF+3
NY EXIT!, AFOF+2*, AFOF+3
P EN*, EXIT!, P*, P+2, P+3
POP EXIT!
>> S PT+1*, PT+2*
U P+2, AFOF+3, P2MOMO+1, MPT+1, L+1, L+2
V SUBFILES+2~*
X TODAY*, EXIT!, P2MOMO+1, MO+2, L+2*
X1 EN, EXIT!
X2 EN, EXIT!
Y TODAY*, EXIT!, P+1, L+1, SUBFILES+1*, SUBFILES+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All