|
Last change
on this file since 762 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
346 bytes
|
| Line | |
|---|
| 1 | SOWCPREI ;B'HAM ISC/DLR - PRE-INIT for 94 CDC account (651); 06 Dec 93 / 8:12 AM
|
|---|
| 2 | ;;3.0; Social Work ;**15,18**;27 Apr 93
|
|---|
| 3 | N XX
|
|---|
| 4 | K ^TMP($J)
|
|---|
| 5 | PRE F XX=0:0 S XX=$O(^SOWK(651,XX)) Q:XX'>0 S:$P(^SOWK(651,XX,0),U,4) ^TMP($J,"CDC",$P(^SOWK(651,XX,0),U,4),XX)=$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.
