Last change
on this file since 780 was 623, checked in by George Lilly, 15 years ago |
revised back to 6/30/08 version
|
File size:
359 bytes
|
Rev | Line | |
---|
[623] | 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.