SOWAPREI ;B'HAM ISC/DLR - PRE-INIT for new CDC account (651); [ 11/16/94  7:42 AM ]
V ;;3.0; Social Work ;**36**;27 Apr 93
 N XX
 K ^TMP($J)
PRE S XX=0 F  S XX=$O(^SOWK(651,XX)) Q:'XX  S:$P(^SOWK(651,XX,0),U,4) ^TMP($J,"CDC",$P(^SOWK(651,XX,0),U,4))=$P(^SOWK(651,XX,0),U,5)
 K ^SOWK(651) S ^SOWK(651,0)="COST DISTRIBUTION CENTER^651OI^0^0"
 Q