Last change
on this file since 1384 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
884 bytes
|
Rev | Line | |
---|
[613] | 1 | YSAPOST ;DALIRMFO/MJD-EDIT MH INSTRUMENT (601) DATA ; 1/29/96
|
---|
| 2 | ;;5.01;MENTAL HEALTH;**10**;Dec 30, 1994
|
---|
| 3 | ;
|
---|
| 4 | EN ;
|
---|
| 5 | ; This sets field #6 - ^YTT(601,75,"A")
|
---|
| 6 | N DA,DIE,DR,X,Y
|
---|
| 7 | S DIE="^YTT(601,",DA=75
|
---|
| 8 | S DR="6////D ^YTDRIV S YSEN=YSTEST,X=$G(^YTD(601.2,YSDFN,1,+YSEN,1,YSHD,1)),YSXX="""" F YSJXTP=1:1:25 S YSXX=YSXX_($E(X,YSJXTP)-1) S:YSJXTP=25 ^YTD(601.2,YSDFN,YSEN,1,YSHD,1)=YSXX"
|
---|
| 9 | D ^DIE
|
---|
| 10 | ;
|
---|
| 11 | 177 ; This sets field #22 - The 11th piece of the zero node of ^YTT(601,201
|
---|
| 12 | N DA,DIE,DR,X,Y
|
---|
| 13 | S DIE="^YTT(601,",DA=201,DR="22////177" D ^DIE
|
---|
| 14 | ;
|
---|
| 15 | 202 ; This sets field #2 of the multiple 601.2
|
---|
| 16 | N DA,DIE,DR,X,Y
|
---|
| 17 | S DIE="601",DA=202
|
---|
| 18 | S DR="1///274"
|
---|
| 19 | S DR(2,601.02)="2///I am so touchy on some subjects that I can't talk about them."
|
---|
| 20 | D ^DIE
|
---|
| 21 | ;
|
---|
| 22 | 105 ; This sets field #5 of the multiple 601.2
|
---|
| 23 | N DA,DIE,DR,X,Y
|
---|
| 24 | S DIE="601",DA=105
|
---|
| 25 | S DR="1///181"
|
---|
| 26 | S DR(2,601.02)="5///3,8"
|
---|
| 27 | D ^DIE
|
---|
| 28 | K DA,DIE,DR,X,Y
|
---|
| 29 | QUIT
|
---|
Note:
See
TracBrowser
for help on using the repository browser.