A400 ;LOKALE VARIABELEN -> ^CYBFA ;%A400; Do uit %A220,%A405, Do van %A105,%A106 [ 08/21/92  8:33 AM ]
 G 1
 ;
S1 S %(1)=%(1)+1,^(%(1))=%(2),^(%(1)+.1)=$E(@%(2),1,255)
S1Z Q
 ;
1 D ^cA105,^cA106
11 S %(0)=DT_"\"_TD_"\Job "_$J_" Dev "_$I_"\"_$S($D(%)#10:%,1:"")_"\"_$S($D(Q)#10:Q,1:"") I '$D(^CYBFA(0)) S ^(0)=1
13 S %(1)=^(0),^(0)=%(1)+1,^(%(1),0)=%(0),%(1)=0,%(2)="%"
15 N DD,DM,DJ,DT,TD
 ;
2 S %(2)=$O(@%(2)) G YZ:%(2)="" S %(3)=$D(@%(2)) D S1:%(3)#10 G YZ:%(1)>500,2:%(3)<10
21 S %(2)=%(2)_"(",%(4)=0,%(5)=$O(@(%(2)_""""")")) G 4:%(5)=""
 ;
3 S:%(4) %(2)=%(2)_"," S %(4)=%(4)+1,%(6)=""
31 F %(7)=1:0 S %(8)=$F(%(5),"""",%(7)) Q:%(8)=0  S %(6)=%(6)_$E(%(5),%(7),%(8)-1)_"""",%(7)=%(8)
32 S %(6)=%(6)_$E(%(5),%(7),255),%(2)=%(2)_""""_%(6)_"""",%(3)=$D(@(%(2)_")"))
33 I %(3)#10 S %(2)=%(2)_")" D S1 G YZ:%(1)>500 S %(2)=$E(%(2),1,$L(%(2))-1)
34 I %(3)>9 S %(5)=$O(@(%(2)_","""")")) G 3:%(5)'=""
35 S %(5)=$O(@(%(2)_")")),%(4)=%(4)-1,%(2)=$P(%(2),$E("(,",%(4)>0+1),1,%(4)=0+%(4)) S:'%(4) %(2)=%(2)_"(" G 3:%(5)'="",4:'%(4),35
 ;
4 S %(2)=$P(%(2),"(") G 2
 ;
YZ K %(1),%(2),%(3),%(4),%(5),%(6),%(7),%(8) Q
 ;
Z X ^cZ Q
ZZ ; 26.12.91 -  9 u 21 * 3.0.6-r1.0