cI38 ;Zoekprogramma ivm J-2000 ;%I38 ; [ 05/08/98  11:23 AM ]
 ;
T1 ;1. Opsporen datumconversies in programma's;
T2 ;2. Opzoeken "L"-lijnen in programma's;
T3 ;3. Opzoeken datumnodes in globals;
T9 ;Keuze:;
 ;
 ; init + uitleg
1 S Q=$G(Q) D ^cA604
11 w !!,$P($T(+1),U,2),!!
13 f i=1:1 s j=$p($t(@("T"_i)),U,2) q:j=""  w j,!
 ;
 ; vraagstelling
2 w !,$p($t(T9),U,2) r k i k="-"!(k="^") g YZ
21 s k=+k i k,k<4 d @("^"_$t(+0)_k)
23 g 1
 ;
YZ w ! Q
 ;
ZZ ; 10.04.00 - 11 u 03 * V7.3