cA339 ;^TEMPS(boot,$J) -> Lokale variabelen ;%A339 ; [ 02/14/01  5:51 PM ]
 G 1
 ;
T0 ;^TEMPS(boot,$J) -> Lokale variabelen ;
T0F ;^TEMPS(boot,$J) -> Variables locales ;
T0E ;^TEMPS(boot,$J) -> Local variables ;
 ;
 ; Dit programma haalt de lokale variabelen terug uit ^TEMPS
 ; op voorwaarde dat ze werden gesaved via %A338
 ;
 ; Interne variabelen:
 ; %(0) = volgnummer in ^TEMPS(boot,$J)
 ; %(1) = naam variabele
 ; %(3) = volgnummer per variabele
 ; %(4) = volgnummer per blok van 255 bytes
 ;
 ; Start
1 S boot=0 I $ZV["MSM",$ZV["4." D MASTER^cQ5
 I $ZV'["MSM" D MASTER^cQ5
 S %(0)=$O(^TEMPS(boot,$J,""),-1)
 ;
INT ; Instappunt als applicatie zelf boot en %(0) bepaalt (af te raden)
 I %(0)="" W !!!,"***  ^TEMPS is empty  ***",!!! R %#5 Q
 S $ZT="TRAP^cAN000"
 K (%,boot)
 S %(3)=""
2 S %(3)=$O(^TEMPS(boot,$J,%(0),%(3))) I %(3)="" G YZ
 S %(1)=^(%(3))
 S @%(1)=$G(^TEMPS(boot,$J,%(0),%(3),1)),%(4)=1
3 S %(4)=$O(^TEMPS(boot,$J,%(0),%(3),%(4))) I %(4)="" G 2
 S @%(1)=@%(1)_^(%(4))
 G 3
 ;
YZ K ^TEMPS(boot,$J,%(0)),% Q
 ;
ZZ ; 30.03.01 - 13 u 39 * V7.85