Routine: DIDH1

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

Customize PDF page

Package: VA FileMan

Routine: DIDH1

Information

Source Information

Entry Points

Interaction Calls

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