Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LADOWN1

LADOWN1.m

Go to the documentation of this file.
  1. LADOWN1 ;DALOI/DG - UTILITY PARTS OF DOWNLOAD ;7/20/90 08:07
  1. ;;5.2;AUTOMATED LAB INSTRUMENTS;**17,42,57**;Sep 27, 1994
  1. ;
  1. BUILD ; Build a test expansion and codes into ^TMP
  1. ;
  1. N LAI,T,P1,P2,P3,S1,J1
  1. S:$D(ZTQUEUED) ZTREQ="@"
  1. ;
  1. K ^TMP($J)
  1. ;
  1. S LAI=0
  1. F S LAI=$O(^LAB(62.4,LRINST,3,LAI)) Q:LAI'>0 D
  1. . S T=$G(^LAB(62.4,LRINST,3,LAI,0)),^TMP($J,+T,+T)=$P(T,"^",6)
  1. ;
  1. ; Expand the LL test.
  1. S P1=0
  1. F S P1=$O(^LRO(68.2,LRLL,10,P1)) Q:P1'>0 D
  1. . S P2=0
  1. . F S P2=$O(^LRO(68.2,LRLL,10,P1,1,P2)) Q:P2'>0 S P3=^(P2,0) D BU2
  1. ;
  1. Q
  1. ;
  1. ;
  1. BU2 S (J,S1)=0,(T,X)=+P3
  1. D TREE
  1. Q
  1. ;
  1. ;
  1. TREE ;
  1. ; Bad LRTEST number; from LREXPD
  1. I '$D(^LAB(60,X,0)) Q
  1. I $P(^LAB(60,X,0),U,5)]"",$D(^TMP($J,X,X)) S ^TMP($J,T,X)=^TMP($J,X,X)
  1. ; Not a panel
  1. Q:'$D(^LAB(60,X,2,0)) Q:$O(^(0))<1
  1. ;
  1. S S1=S1+1,S1(S1)=X,J1(S1)=J
  1. F J=0:0 S J=$O(^LAB(60,S1(S1),2,J)) Q:J<1 S X=+^(J,0) D TREE
  1. S J=J1(S1),X=S1(S1),S1=S1-1
  1. ;
  1. Q