source:
WorldVistAEHR/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LARMK.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 319 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | LARMK ;SLC/FHS - SET UP REMARKS FOR AUTO-INSTRUMENTS ;10/10/90 18:16 |
2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994 | |
3 | EN ; | |
4 | I '$D(^LAH(LWL,1,ISQN,1,0))#2 S ^(0)="^63.041A^1^1",(^(1,0))=RMK Q | |
5 | F RMKI=1:1 Q:'$D(^LAH(LWL,1,ISQN,1,RMKI,0)) | |
6 | S ^(0)=RMK,$P(^LAH(LWL,1,ISQN,1,0),U,3)=RMKI,$P(^(0),U,4)=1+$P(^(0),U,4) K RMKI | |
7 | Q |
Note:
See TracBrowser
for help on using the repository browser.