F9() 
	K ^RPL5 
	S I=0 
	F J=1:1:12 {S T(J)=0}
	S VN=""
	S GD=0
F92	
	S GD=$O(^REPORT(8,GD)) 
	G:GD="" F91 
	S MES=0
F93	
	S MES=$O(^REPORT(8,GD,MES)) 
	G:MES="" F92
	S CR=0
F94	
	S CR=$O(^REPORT(8,GD,MES,CR))
	G:CR="" F93 
	S REG=0 
	S CRR=$S(CR=1:1,CR=2:1,CR=3:3,CR="K":"K")
F95	
	S REG=$O(^REPORT(8,GD,MES,CR,REG)) 
	G:REG="" F94 
	S VN=0
F96	
	S VN=$O(^REPORT(8,GD,MES,CR,REG,VN)) 
	G:VN="" F95
	S NR=0
F97	
	S NR=$O(^REPORT(8,GD,MES,CR,REG,VN,NR)) 
	G:NR="" F96 
	S AP=0
F98	
	S AP=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP)) 
	G:AP="" F97 
	S TIP=0
F99	
	S TIP=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP)) 
	G:TIP="" F98 
	S NN=0 
	F J=1:1:12 {S T1(J)=0}
F910	
	S NN=$O(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP,NN)) 
	G:NN="" F9I 
	S T=$G(^REPORT(8,GD,MES,CR,REG,VN,NR,AP,TIP,NN)) 
	F J=1:1:12 {S T(J)=$P(T,"/",J),T1(J)=T1(J)+T(J)} 
	G F910
F9I 
	S I=I+1,Z(GD,CRR,VN,I)=T1(3)_"\"_T1(4)_"\"_T1(7)_"\"_VN 
	G F99

F91 
	S I=0,GD=0
F911	
	S GD=$O(Z(GD)) 
	G:GD="" END 
	S CRR=0 
	F J=1:1:5 {S T1(J)=0}
F912	
	S CRR=$O(Z(GD,CRR)) 
	G:CRR="" F915 
	S VN=0 
	S MJD=$S(CRR=1:"в т.ч. Международные",CRR=3:"Внутренние")
F913	
	S VN=$O(Z(GD,CRR,VN)) 
	G:VN="" F912 
	S NN=0 
	F J=1:1:5 {S T(J)=0} 
	I VN="O" S VVN="ОТПРАВЛЕНО" 
	I VN="P" S VVN="ПРИБЫЛО"
F914	
	S NN=$O(Z(GD,CRR,VN,NN)) 
	G:NN="" F913 
	S T=$G(Z(GD,CRR,VN,NN)) 
	F J=1:1:5 {S T(J)=$P(T,"\",J),T1(J)=T1(J)+T(J)} 
	G F914
F915	
	F I=I+1 S ^RPL2(I)=5_"\"_GD_"\"_T1(1) G F911  ; Тут вообще ГоуТу в из тела цикла. Смысл цикла?
END
 	Q