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

Package: VA Fileman

Routine: DIDH1


Information

DIDH1 ;SFISC-HDR FOR DD LISTS ;7:34 AM 29 Sep 2003 [ 12/09/2003 4:31 PM ]

Source Information

Source file <DIDH1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 (POINT,Q,TRIG,W,XR)^DIDH  LIST^DIKCP  (WRLN,WRPHI)^DIKCP1  PRINT^DIKKP  ($$WP,IJ)^DIUTL  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA Fileman 4 DID1  DID2  DIDH  DIDX  

Entry Points

Name Comments DBIA/ICR reference
W1
G
DE ;
Q
WR ;
W
PAGE1
UP1

External References

Name Field # of Occurrence
POINT^DIDH PAGE1+34
Q^DIDH DIDH1+16
TRIG^DIDH PAGE1+34
W^DIDH PAGE1+11
XR^DIDH PAGE1+6, PAGE1+34
LIST^DIKCP PAGE1+8, PAGE1+38
WRLN^DIKCP1 PAGE1+9
WRPHI^DIKCP1 PAGE1+27
PRINT^DIKKP PAGE1+33
$$WP^DIUTL PAGE1, PAGE1+2, PAGE1+3, DE+2
IJ^DIUTL DIDH1+4

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: M
  • Line Location: DIDH1+6
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(DIFF)&($Y)
  • Line Location: DIDH1+8
Function Call: WRITE
  • Prompt: $S(DHIT["DIDX":"BRIEF",DHIT["DIDG":"GLOBAL MAP",$D(DINM):"MODIFIED",1:"STANDARD")
  • Line Location: DIDH1+8
Function Call: WRITE
  • Prompt: " DATA DICTIONARY #"_DFF_" -- "_$O(^DD(DFF,0,"NM",0))_" "_$S(DIDHJ:"SUB-",1:"")_"FILE "
  • Line Location: DIDH1+9
Function Call: WRITE
  • Prompt: W:$L(W)+$X+2>IOM
  • Line Location: DIDH1+13
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $L(W)+$X+2>IOM
  • Line Location: DIDH1+13
Function Call: WRITE
  • Prompt: ?(IOM-$L(W)-1),W
  • Line Location: DIDH1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DIDH1+16
Function Call: WRITE
  • Prompt: W,?(IOM-$L(M1)-1),M1
  • Line Location: DIDH1+16
Function Call: WRITE
  • Prompt: S
  • Line Location: DIDH1+16
Function Call: WRITE
  • Prompt: W
  • Line Location: DIDH1+16
Function Call: WRITE
  • Prompt: !,W
  • Line Location: DIDH1+16
Function Call: WRITE
  • Prompt: G
  • Line Location: DIDH1+16
Function Call: WRITE
  • Prompt: "D",I-1,",",DIDHI(I),","
  • Line Location: DIDH1+17
Function Call: WRITE
  • Prompt: " *** NO DATA STORED YET ***"
  • Line Location: DIDH1+19
Function Call: WRITE
  • Prompt: !
  • Line Location: G+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !,?15,$P("READ^WRITE",U,I-7)," ACCESS: ",^(I)
  • Line Location: PAGE1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE1+10
Function Call: WRITE
  • Prompt: !,$P("FILE SCREEN (SCR-node) ^SPECIAL LOOKUP ROUTINE ^POST-SELECTION ACTION ^COMPILED CROSS-REFERENCE ROUTINE",U,%)_": "
  • Line Location: PAGE1+11
Function Call: WRITE
  • Prompt: D
  • Line Location: PAGE1+11
Function Call: WRITE
  • Prompt: G
  • Line Location: PAGE1+11
Function Call: WRITE
  • Prompt: !?(Z+Z+14-$L(N)),N," ACCESS: ",^(N)
  • Line Location: PAGE1+14
Function Call: WRITE
  • Prompt: !!?8,"(NOTE: Kernel's File Access Security has been installed in this UCI.)",!
  • Line Location: PAGE1+15
Function Call: WRITE
  • Prompt: !,"IDENTIFIED BY: "
  • Line Location: PAGE1+16
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($L(I1)+$X)+1>IOM
  • Line Location: PAGE1+17
Function Call: WRITE
  • Prompt: ?15,I1
  • Line Location: PAGE1+17
Function Call: WRITE
  • Prompt: ", "
  • Line Location: PAGE1+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE1+35
Function Call: WRITE
  • Prompt: !!?3,"CREATED ON: "_Y
  • Line Location: PAGE1+39
Function Call: WRITE
  • Prompt: " by "_$P(^(0),U)
  • Line Location: PAGE1+39
Function Call: WRITE
  • Prompt: W:$X+$L(W)+3>IOM
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,?$S(IOM-$L(W)-5<M:IOM-5-$L(W),1:M),S
  • Condition for execution: $X+$L(W)+3>IOM
  • Line Location: W+0
Function Call: WRITE
  • Prompt: $E(W,1,IOM-$X-1),S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: G
  • Line Location: W+0
Function Call: WRITE
  • Prompt: ?DDL2
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !?DDL2
  • Condition for execution: $L(DDV)+$X>IOM
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: DDV
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !?DDL1,$P("DESCRIPTION:^TECHNICAL DESCR:",U,%Y=23+1)
  • Line Location: DE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" DIDH1+15
^DD( DIDH1+7, DIDH1+9, PAGE1+2, PAGE1+11, PAGE1+12, PAGE1+13, PAGE1+16, PAGE1+17, PAGE1+21, PAGE1+23
, UP1, UP1+1, DE+2
^DD("DD" DIDH1+12, PAGE1+39
^DD("FUNC" - [#.5] DIDH1+12
^DD("IX" - [#.11] PAGE1+35
^DD("KEY" - [#.31] PAGE1+30
^DD("SITE" DIDH1+14
^DIC - [#1] DIDH1+10, PAGE1, PAGE1+14, PAGE1+39
^DIC(3 - [#3] PAGE1+39
^VA(200 - [#200] PAGE1+15, PAGE1+39

Label References

Name Line Occurrences
DIDH1 W1+1
Q PAGE1+11
UP1 UP1+1
W W

Naked Globals

Name Field # of Occurrence
^( PAGE1+4, PAGE1+11, PAGE1+14, PAGE1+39
^("SITE" DIDH1+14
^("UCI" DIDH1+15
^("UP" UP1+1
^("VR" DIDH1+7
^(0 DIDH1+20, PAGE1+17, PAGE1+39, WR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAGE1+11*, UP1, UP1+1*
>> %Y W*, DE+1, DE+2
>> DA DIDH1+5*, PAGE1, PAGE1+8, PAGE1+11, PAGE1+12, PAGE1+13, PAGE1+14, PAGE1+16, PAGE1+17, PAGE1+21
, PAGE1+23, PAGE1+30, PAGE1+33, PAGE1+35, PAGE1+38, PAGE1+39
>> DC DIDH1+5, DIDH1+13, G+1, W1+1*
>> DDL1 DE+1
>> DDL2 W1, DE+2
DDV W1*, W1+2!
DDV1 W1*, W1+2!
>> DFF DIDH1+4, DIDH1+5, DIDH1+9, PAGE1+2
>> DHIT DIDH1+8, DIDH1+16, DIDH1+21, PAGE1+5, PAGE1+10
>> DIC DIDH1+10*, DIDH1+17, DIDH1+19
DIDHI DIDH1+3~, DIDH1+4*
DIDHI( DIDH1+17
DIDHJ DIDH1+3~, DIDH1+4*, DIDH1+9, DIDH1+18, PAGE1, PAGE1+1, PAGE1+2
DIDHJ( PAGE1+2
DIDLN PAGE1+22~, PAGE1+27
DIDLN(0 PAGE1+24*, PAGE1+25*
DIDLN(1 PAGE1+23*
DIDPG PAGE1+7~, PAGE1+8, PAGE1+9, PAGE1+22~, PAGE1+27, PAGE1+31~, PAGE1+33, PAGE1+36~, PAGE1+38
DIDPG("H" PAGE1+7*, PAGE1+26*, PAGE1+32*, PAGE1+37*
>> DIDRANGE G+1
>> DIFF DIDH1+7*, DIDH1+8*
>> DINM DIDH1+8, PAGE1+21
DIOEND DIDH1+6!
>> DJ( DE+2
>> DN DIDH1+6*
DTIME DIDH1+6
>> DUB DIDH1+10
>> F( DE+2
>> F(1 DIDH1+5*, DIDH1+7
I DIDH1+4~, DIDH1+17*, DIDH1+20*, G*, PAGE1+4*
>> I1 PAGE1+17*
IOF DIDH1+8
IOM DIDH1+13, DIDH1+14, DIDH1+16, DIDH1+21, G, PAGE1+17, PAGE1+27, W, W1
IOSL W1+1
IOST DIDH1+6, DIDH1+7
J DIDH1+4~
J("" DIDH1+4
>> K W1*
>> M DIDH1+5*, DIDH1+6*, DIDH1+14*, PAGE1*, PAGE1+1, PAGE1+2*, PAGE1+3*, PAGE1+6, PAGE1+8, PAGE1+10
, PAGE1+11, PAGE1+21, PAGE1+28, PAGE1+34, PAGE1+35, W, DE+2*
>> M1 DIDH1+7*, DIDH1+16, DIDH1+21
>> N PAGE1+14*, PAGE1+39*
>> S DIDH1+14*, W
U DIDH1+6, DIDH1+7, DIDH1+20, PAGE1+1, PAGE1+2, PAGE1+3, PAGE1+4, PAGE1+6, PAGE1+8, PAGE1+10
, PAGE1+11, PAGE1+12, PAGE1+13, PAGE1+17, PAGE1+21, PAGE1+28, PAGE1+34, PAGE1+35, PAGE1+39, WR+1
, DE+1
W DIDH1+3~, DIDH1+13*, DIDH1+14*, DIDH1+15*, DIDH1+16*, DIDH1+21, G+1*, PAGE1+2*, PAGE1+3, PAGE1+4
, PAGE1+11*, W*, WR+1*, UP1*, UP1+1*, UP1+2*, W1
X DIDH1+11~, DIDH1+12, PAGE1+11*, PAGE1+17*, PAGE1+18*, PAGE1+21*, PAGE1+23, PAGE1+24
Y DIDH1+11~, DIDH1+12*, DIDH1+13, DIDH1+15, PAGE1+39*
>> Z DIDH1+5*, PAGE1+14, DE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All