source: WorldVistAEHR/trunk/r/SOCIAL_WORK-SOW-SWBH-SWFG/SOWAPREI.m@ 1432

Last change on this file since 1432 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 343 bytes
RevLine 
[613]1SOWAPREI ;B'HAM ISC/DLR - PRE-INIT for new CDC account (651); [ 11/16/94 7:42 AM ]
2V ;;3.0; Social Work ;**36**;27 Apr 93
3 N XX
4 K ^TMP($J)
5PRE 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.