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/ALL - HDR FOR DD LISTS;16NOV2012

Source Information

Source file <DIDH1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 7 $$EZBLD^DIALOG  $$OUT^DIALOGU  (POINT,Q,TRIG,W,XR)^DIDH  LIST^DIKCP  (WRLN,WRPHI)^DIKCP1  PRINT^DIKKP  ($$WP,IJ)^DIUTL  

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

Package Total Caller Graph
VA FileMan 4 DID1  DID2  DIDH  DIDX  

Entry Points

Name Comments DBIA/ICR reference
TODAY
G
FIRST
PAGE1
AFOF
CREATED
Q
W
WR ;
UP1
W1
DE ;

External References

Name Field # of Occurrence
$$EZBLD^DIALOG TODAY
$$OUT^DIALOGU TODAY
POINT^DIDH AFOF+19
Q^DIDH TODAY+3
TRIG^DIDH AFOF+19
W^DIDH PAGE1+11
XR^DIDH PAGE1+6, AFOF+19
LIST^DIKCP PAGE1+8, AFOF+23
WRLN^DIKCP1 PAGE1+9
WRPHI^DIKCP1 AFOF+12
PRINT^DIKKP AFOF+18
$$WP^DIUTL PAGE1PAGE1+2, PAGE1+3, DE+2
IJ^DIUTL DIDH1+8

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: M
  • Timeout: DTIME
  • Line Location: DIDH1+10
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(DIFF)&($Y)
  • Line Location: DIDH1+12
Function Call: WRITE
  • Prompt: $S(DHIT["DIDX":"BRIEF",DHIT["DIDG":"GLOBAL MAP",$D(DINM):"MODIFIED",1:"STANDARD")
  • Line Location: DIDH1+12
Function Call: WRITE
  • Prompt: " DATA DICTIONARY #"_DFF_" -- "_$O(^DD(DFF,0,"NM",0))_" "_$S(DIDHJ:"SUB-",1:"")_"FILE "
  • Line Location: DIDH1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: TODAY+3
Function Call: WRITE
  • Prompt: W,?(IOM-$L(M1)-1),M1
  • Line Location: TODAY+3
Function Call: WRITE
  • Prompt: S
  • Line Location: TODAY+3
Function Call: WRITE
  • Prompt: W
  • Line Location: TODAY+3
Function Call: WRITE
  • Prompt: !,W
  • Line Location: TODAY+3
Function Call: WRITE
  • Prompt: G
  • Line Location: TODAY+3
Function Call: WRITE
  • Prompt: "D",I-1,",",DIDHI(I),","
  • Line Location: TODAY+4
Function Call: WRITE
  • Prompt: " *** NO DATA STORED YET ***"
  • Line Location: TODAY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: G+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !,$P(^(0),U)," FILE NAME: ",DIWR
  • Line Location: FIRST+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: ",",!?25
  • Line Location: PAGE1+16
Function Call: WRITE
  • Prompt: $S(%:", ",1:""),X
  • Line Location: PAGE1+17
Function Call: WRITE
  • Prompt: !!?8,"(NOTE: Kernel's File Access Security applies to this File.)",!
  • Line Location: AFOF+0
Function Call: WRITE
  • Prompt: !,"IDENTIFIED BY: "
  • Line Location: AFOF+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($L(I1)+$X)+1>IOM
  • Line Location: AFOF+2
Function Call: WRITE
  • Prompt: ?15,I1
  • Line Location: AFOF+2
Function Call: WRITE
  • Prompt: ", "
  • Line Location: AFOF+2
Function Call: WRITE
  • Prompt: !
  • Line Location: AFOF+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: CREATED+0
Function Call: WRITE
  • Prompt: ?3,"CREATED ON: "_Y
  • Line Location: CREATED+0
Function Call: WRITE
  • Prompt: ?3,"CREATED ON: "_Y
  • Line Location: CREATED+0
Function Call: WRITE
  • Prompt: " LAST MODIFIED: "_Y
  • Line Location: CREATED+1
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
Routine Call
  • DIALOG
  • Line Location:
    • TODAY
Routine Call
  • DIALOGU
  • Line Location:
    • TODAY

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("UCI" TODAY+2
^DD( DIDH1+11, DIDH1+13, PAGE1+2, PAGE1+11, PAGE1+12, PAGE1+13, AFOF+1, AFOF+2, AFOF+6, AFOF+8
UP1UP1+1, DE+2
^DD("DD" CREATEDCREATED+1
^DD("IX" - [#.11] AFOF+20
^DD("KEY" - [#.31] AFOF+15
^DD("SITE" TODAY+1
^DI( FIRST
^DIC - [#1] DIDH1+14, FIRSTPAGE1PAGE1+14, PAGE1+15, CREATEDCREATED+1
^DIC(3 CREATED
^VA(200 - [#200] AFOFCREATED

Label References

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

Naked Globals

Name Field # of Occurrence
^( FIRSTPAGE1+4, PAGE1+11, PAGE1+14, PAGE1+15, CREATED
^("SITE" TODAY+1
^("UCI" TODAY+2
^("UP" UP1+1
^("VR" DIDH1+11
^(0 TODAY+7, FIRSTAFOF+2, CREATEDWR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAGE1+11*, PAGE1+15*, PAGE1+16*, PAGE1+17*, UP1UP1+1*
>> %Y W*, DE+1, DE+2
>> DA DIDH1+9*, FIRSTPAGE1PAGE1+8, PAGE1+11, PAGE1+12, PAGE1+13, PAGE1+14, PAGE1+15, AFOF
AFOF+1, AFOF+2, AFOF+6, AFOF+8, AFOF+15, AFOF+18, AFOF+20, AFOF+23, CREATEDCREATED+1
>> DC DIDH1+9, TODAYG+1, W1+1*
>> DDL1 DE+1
>> DDL2 W1DE+2
DDV W1*, W1+2!
DDV1 W1*, W1+2!
>> DFF DIDH1+8, DIDH1+9, DIDH1+13, PAGE1+2
>> DG FIRST*
>> DHIT DIDH1+12, TODAY+3, TODAY+8, PAGE1+5, PAGE1+10
DIC DIDH1+7~, DIDH1+14*, TODAY+4, TODAY+6
DIDHI DIDH1+7~, DIDH1+8*
DIDHI( TODAY+4
DIDHJ DIDH1+7~, DIDH1+8*, DIDH1+13, TODAY+5, PAGE1PAGE1+1, PAGE1+2
DIDHJ( PAGE1+2
DIDLN AFOF+7~, AFOF+12
DIDLN(0 AFOF+9*, AFOF+10*
DIDLN(1 AFOF+8*
DIDPG PAGE1+7~, PAGE1+8, PAGE1+9, AFOF+7~, AFOF+12, AFOF+16~, AFOF+18, AFOF+21~, AFOF+23
DIDPG("H" PAGE1+7*, AFOF+11*, AFOF+17*, AFOF+22*
>> DIDRANGE G+1
>> DIFF DIDH1+11*, DIDH1+12*
>> DINM DIDH1+12, AFOF+6
DIOEND DIDH1+10!
>> DIWR FIRST*
>> DJ( DE+2
>> DN DIDH1+10*
DT TODAY
DTIME DIDH1+10
>> DUB DIDH1+14
>> F( DE+2
>> F(1 DIDH1+9*, DIDH1+11
I DIDH1+8~, TODAY+4*, TODAY+7*, G*, PAGE1+4*
>> I1 AFOF+2*
IOF DIDH1+12
IOM TODAYTODAY+1, TODAY+3, TODAY+8, GPAGE1+16, AFOF+2, AFOF+12, WW1
IOSL W1+1
IOST DIDH1+10, DIDH1+11
J DIDH1+8~
J("" DIDH1+8
>> K W1*
>> M DIDH1+9*, DIDH1+10*, TODAY+1*, PAGE1*, PAGE1+1, PAGE1+2*, PAGE1+3*, PAGE1+6, PAGE1+8, PAGE1+10
PAGE1+11, AFOF+6, AFOF+13, AFOF+19, AFOF+20, WDE+2*
M1 DIDH1+7~, DIDH1+11*, TODAY+3, TODAY+8
>> N PAGE1+14*, PAGE1+15*, CREATED*
>> S TODAY+1*, W
U DIDH1+10, DIDH1+11, TODAY+7, FIRSTPAGE1+1, PAGE1+2, PAGE1+3, PAGE1+4, PAGE1+6, PAGE1+8
PAGE1+10, PAGE1+11, PAGE1+12, PAGE1+13, AFOF+2, AFOF+6, AFOF+13, AFOF+19, AFOF+20, CREATED
WR+1, DE+1
W DIDH1+7~, TODAY*, TODAY+1*, TODAY+2*, TODAY+3*, TODAY+8, G+1*, PAGE1+2*, PAGE1+3, PAGE1+4
PAGE1+11*, W*, WR+1*, UP1*, UP1+1*, UP1+2*, W1
X DIDH1+15~, PAGE1+11*, PAGE1+15*, PAGE1+16, PAGE1+17, AFOF+2*, AFOF+3*, AFOF+6*, AFOF+8, AFOF+9
Y DIDH1+15~, TODAY+2, CREATED*, CREATED+1*
>> Z DIDH1+9*, 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