cI28 ;Hulpprogramma ivm overgang MSM->Caché ;%I28 ; [ 04/19/00  4:39 PM ]
 ;
T1 ;1. Opsporen mogelijke problemen met Caché;
T2 ;2. Conversie ivm P^cA612, W *13 en W #;
T9 ;Keuze:;
 ;
 ; init + uitleg
1 K QU 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="-")!(k="^") g YZ
21 s k=+k i k,k<3 d @("^"_$t(+0)_k)
23 g 1
 ;
YZ w ! Q
 ;
ZZ ; 30.06.00 - 16 u 02 * V7.4