Last change
on this file since 1800 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
884 bytes
|
Line | |
---|
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.