Last change
on this file since 1578 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
343 bytes
|
Line | |
---|
1 | SOWAPREI ;B'HAM ISC/DLR - PRE-INIT for new CDC account (651); [ 11/16/94 7:42 AM ]
|
---|
2 | V ;;3.0; Social Work ;**36**;27 Apr 93
|
---|
3 | N XX
|
---|
4 | K ^TMP($J)
|
---|
5 | 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)
|
---|
6 | K ^SOWK(651) S ^SOWK(651,0)="COST DISTRIBUTION CENTER^651OI^0^0"
|
---|
7 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.