source:
WorldVistAEHR/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWCPREI.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.