PVORDW ;NEW PROGRAM [ 04/29/2003  12:05 PM ]
 S (CONSNr,ORDNr,OLUNr,SOLNr)=""
 ;S CONSNr=332297
 ;s CONSNr=CONSNr-1
 Lock ^ORDW
 For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do 
 . For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 .. For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do 
 ... For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
 .... Set Rec=^(SOLNr)
 .... Set PRNr=$P(Rec,D,1)
 .... Quit:$P(Rec,D,14)'=""
 .... Write PRNr," ",$P(Rec,D,10)," ",$P(Rec,D,5),"  "
 .... Set Mag=$$FYSMAG^EWORDF(PRNr,$P(Rec,D,10),$P(Rec,D,5))
 .... Set $P(Rec,D,14)=Mag
 .... Set ^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)=Rec
 .... W Mag,!
 l