source:
WorldVistAEHR/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWAPREI.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 343 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 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.
