U7840 ;Executes na update van versie 7840; U7840 [ 01/08/01  3:04 PM ]
 ;
 G YZ
 ;
 ;  Executes na update
N S I1=0
 F  S I1=$O(@("^"_Q_"PV(I1)")) Q:I1'?8N!(I1="")  D
 . S VC=0
 . F  S VC=$O(@("^"_Q_"PV(I1,VC)")) Q:VC=""  D
 .. S UR=0
 .. F  S UR=$O(@("^"_Q_"PV(I1,VC,UR)")) Q:UR=""  D
 ... I '$D(@("^"_Q_"PV(I1,VC,UR,1)")) Q
 ... S $P(@("^"_Q_"PV(I1,VC,UR,1)"),D,7)=$$BF^cAFA1
 ... W !,I1," ",VC," ",UR
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 10 u 15 * V7.84