source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSAPOST.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 884 bytes
RevLine 
[613]1YSAPOST ;DALIRMFO/MJD-EDIT MH INSTRUMENT (601) DATA ; 1/29/96
2 ;;5.01;MENTAL HEALTH;**10**;Dec 30, 1994
3 ;
4EN ;
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 ;
11177 ; 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 ;
15202 ; 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 ;
22105 ; 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.