cA348 ;Gebruik van ^HULPE ;%A348 ; [ 10/19/00  2:39 PM ]
 G 1
 ;
T0 ;Gebruik van ^HULPE ;
T1 ;Transacties;
 ;
T0F ;Utilisation ^HULPE ;
T1F ;Transactions;
 ;
T0E ;Gebruik van ^HULPE ;
T1E ;Transacties;
 ;
 ; Reservatie
1 N R1
11 D SL S R1=$G(^HULPE(0),1),^(0)=R1+1,^(R1)=DT_D_TD_D_$H_D_$G(QU)
13 L -^HULPE(0) S @R=R1
 ;
YZ Q
 ;
 ; Subroutine Lock
SL N RL
SL1 S RL=$$PLUS^cANLOCK("^HULPE(0)",2,$P($T(@("T1"_$G(QT))),U,2),$S($G(JOBBED):0,1:2)) I 'RL G SL1
SLZ Q
 ;
 ; Verwijderen
S1 N R1 S R1=@R
S1A D SL K ^HULPE(R1) I $O(^(R1))="" S ^(0)=R1 I R1>1,$O(^(0))="" S ^(0)=1
S1B L -^HULPE(0)
S1Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84