vhGFN ;Global First Node [ 11/08/2003  3:18 PM ]
 D:'$D(FMTB) ^cA604
 Write !,"      Van Hoecke nv "
 Write !," Global First Node Lister "
GFN2 Read !!,"Input : ^",Input
 Quit:Input=""
 Set Name=""
 Set:$D(@Input) Name=Input
 If Name="",$D(@("^"_Input)) Set Name="^"_Input
 If Name="" Write !,"Global of local bestaat niet" Goto GFN2
 Read !,"MaxLevel (Default=1) : ",MaxLevel
 Set:MaxLevel'>0 MaxLevel=1
 Set MaxLines=23,Lines=""
 Write !
 Do LIST(Name,0,9999)
 
 Quit
LIST(Ref,Level,Qty) 
 New Key
 Set Key=""
 Set Level=Level+1
 For  Set Key=$O(@Ref@(Key)) Quit:Key=""  Do
 .Set Lines=Lines+1+($L($NAME(@Ref@(Key))_"="_$G(@Ref@(Key)))\80)
 .If Lines>MaxLines Write $C(13),">>" Read *K Set Lines=""
 .Write:MaxLevel=1!(Level>1) $C(13),$NAME(@Ref@(Key)),"=",$G(@Ref@(Key)),!
 .Write:MaxLevel'=1&(Level=1) $C(13),@FMTI,$NAME(@Ref@(Key)),"=",$G(@Ref@(Key)),@FMTi,!
 .Do:Level<MaxLevel LIST($NA(@Ref@(Key)),Level,999)
 Quit