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-CONDENSED DD ;10:02 AM 4 Mar 2002 [ 12/09/2003 4:48 PM ]

Source Information

Source file <DIDC.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 4 %XY^%RCR  LIST^DIKCP  ^DIO  STOP^DIO4  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
VA Fileman 2 DID  DIO4  

Entry Points

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

External References

Name Field # of Occurrence
%XY^%RCR DD+3
LIST^DIKCP P+11
^DIO DD+4
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 has been installed in this UCI.)",!
  • Line Location: P+7
Function Call: WRITE
  • Prompt: !,"CROSS REFERENCED BY:",!,?5
  • Line Location: P+8
Function Call: WRITE
  • Prompt: !,?5
  • Condition for execution: $X>50&($L($P(^DD(NF,N1,0),"^",1)>20))
  • Line Location: P+10
Function Call: WRITE
  • Prompt: " ",$P(^DD(NF,N1,0),"^",1),"(",NY,") "
  • Line Location: P+10
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: "(#"_^(F,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
  • Timeout: DTIME
  • Variable: X
  • Line Location: L+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" P+1
^DD( EN, P+2, P+9, P+10, P2, MO, MO+1, PT+1, DD, DD+1
, DD+2
^DIC - [#1] P+2, P+4, DD+1, DD+2
^UTILITY($J PTR+1, PT+1, L+3!
^VA(200 - [#200] P+7

Label References

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

Naked Globals

Name Field # of Occurrence
^( P+9, P+10, PT, DD
^("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 P+10, M

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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