source:
WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YS31POST.m
Last change on this file was 623, checked in by , 14 years ago | |
---|---|
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.