|
Last change
on this file since 1474 was 623, checked in by George Lilly, 15 years ago |
|
revised back to 6/30/08 version
|
|
File size:
359 bytes
|
| Line | |
|---|
| 1 | YS31POST ;DALCIOFO/MJD-PATCH YS*5.01*31 POST RTN. ;09/23/97
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**31**;Dec 30, 1994
|
|---|
| 3 | ;
|
|---|
| 4 | ; Unless the site has modified this file the zero node
|
|---|
| 5 | ; for file #601 MH INSTRUMENT should look like:
|
|---|
| 6 | ; ^YTT(601,0) = MH INSTRUMENT^601^233^88
|
|---|
| 7 | S:$P(^YTT(601,0),U,3)="225" $P(^YTT(601,0),U,3)=233
|
|---|
| 8 | S $P(^YTT(601,0),U,4)=$P(^YTT(601,0),U,4)+8
|
|---|
| 9 | ;
|
|---|
| 10 | QUIT
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
