cA311 ;XECUTE EEN LIJN ;%A311; Go uit %A310 [ 09/06/00  3:32 PM ]
 ;
T0 ;Xecute een lijn ;
T1 ;X-lijn: ;Volgende lijn   [] = ok : .;Fout: ;
T2 ;Geef de uit te voeren lijn, zoals 'S ^HULP(123)=456';
 ;
T0F ;Xecuter une ligne ;
T1F ;Ligne X: ;Ligne suivante   [] = ok : .;Erreur: ;
T2F ;Donnez la ligne a exécuter, comme 'S ^HULP(123)=456';
 ;
T0E ;Xecute een lijn ;
T1E ;X-lijn: ;Volgende lijn   [] = ok : .;Fout: ;
T2E ;Geef de uit te voeren lijn, zoals 'S ^HULP(123)=456';
 ;
1 S SWMENU=$P($G(R),U,2)
 S $ZT="ER^cA311" U 0 W !?2,$P($T(@("T1"_QT)),";",2) R K:300 G 3:"-^HhQq"[K,1:K?.E1C.E
11 I K="?" U 0 W !!?2,$P($T(@("T2"_QT)),";",2),! G 1
12 S K=K_"  ZL "_$S($ZV["MSM":"%",1:"c")_"A311"
 U 0 W !! B 1 X K
13 U 0 W !!?2,$P($T(@("T1"_$G(QT))),";",3),$C(7),$C(8) R K:300
 ;
2 W !! D INI^cQ6 W @F1 G 1
 ;
3 B 0 S $ZT="^cA405"
 ;
YZ I '$G(SWMENU) G INT^cA310
 E  Q
 ;
ER U 0
 I $ZV["MSM",$ZE["<INTERRUPT>" S $ZT="^cA405" B 0 H 2 S $ZT="ER^cA311" G 2
 I $ZV'["MSM",$ZE["<INTERRUPT>" S $ZT="^cA405" B 0 H 2 S $ZT="ER^cA311" G 2
ERZ W !?2,$P($T(@("T1"_$G(QT))),";",4),$ZE G 2
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84