FBAFS ; conversie AFS ivm desinvesteringen ; FBAFS [ 08/29/00  11:59 AM ]
 ;
1 S INJ="" F  S INJ=$O(@("^"_Q_"AFS(INJ)")) Q:INJ=""  S CAT="" F  S CAT=$O(@("^"_Q_"AFS(INJ,CAT)")) Q:CAT=""  S LN="" F  S LN=$O(@("^"_Q_"AFS(INJ,CAT,LN)")) Q:LN=""  I $P(^(LN),D,9)=0 S $P(^(LN),D,9)=""
 ;
YZ Q
 ;
ZZ ; 29.08.00 - 16 u 46 * V7.41