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

LRHYT2.m

Go to the documentation of this file.
  1. LRHYT2 ;DALOI/HOAK - RCEV CHECK FOR ALL SCANNED ;9/17/2000
  1. ;;5.2;LAB SERVICE;**405**;Sep 27, 1994;Build 93
  1. ;
  1. BUILD ;
  1. K ^TMP("LRHY3TST",$J)
  1. ; build a tmp global for all tests on order
  1. W !,"All tests on this order:"
  1. N LR3DT,LR3SN,LR3TST,LRIEN
  1. S LR3DT=0
  1. F S LR3DT=$O(^LRO(69,"C",LRCE,LR3DT)) Q:+LR3DT'>0 D
  1. . S LR3SN=0
  1. . F S LR3SN=$O(^LRO(69,"C",LRCE,LR3DT,LR3SN)) Q:+LR3SN'>0 D
  1. .. S LR3TST=0 S LRIEN=0
  1. .. S LR3NX0=$G(^LRO(69,LR3DT,1,LR3SN,0))
  1. .. F S LR3TST=$O(^LRO(69,LR3DT,1,LR3SN,2,"B",LR3TST)) Q:+LR3TST'>0 D
  1. ... S LRIEN=0 S LRIEN=$O(^LRO(69,LR3DT,1,LR3SN,2,"B",LR3TST,0))
  1. ... K LRNPEED
  1. ... I $D(^LRO(69,LR3DT,1,LR3SN,2,LRIEN,1.1)) D
  1. .... S LRNPEED=$G(^LRO(69,LR3DT,1,LR3SN,2,LRIEN,1.1,1,0))
  1. ... S ^TMP("LRHY3TST",$J,LRCE,LR3TST)=""
  1. ... ;
  1. ... S LRACC6="" N LRAD,LRAN,LRAA,LRN D ACCN
  1. ... S LRURGNCY=+$P(^LRO(69,LR3DT,1,LR3SN,2,LRIEN,0),U,2)
  1. ... I LRURGNCY S LRURGNCY=$P(^LAB(62.05,LRURGNCY,0),U)
  1. ... W !,$E($G(LRACC6),1,14),?15,$P($G(^LAB(60,LR3TST,0)),U)
  1. ... W ?40,$G(LRURGNCY)
  1. ... I $G(LRNPEED)'="" W !,?20,$G(LRNPEED)
  1. W ! F LRHYI=1:1:79 W "-"
  1. W !
  1. ;
  1. QUIT
  1. REMOVE ;
  1. ;
  1. ;
  1. QUIT
  1. ACCN ;
  1. S LRN=$G(^LRO(69,LR3DT,1,LR3SN,2,LRIEN,0))
  1. Q:'LRN
  1. S LRAD=$P(LRN,U,3)
  1. I 'LRAD S LRACC="--" QUIT
  1. S LRAA=$P(LRN,U,4) S LRAN=$P(LRN,U,5)
  1. S LRACC6=$E($P(^LRO(68,LRAA,0),U,11),1,2)_" "_$E(LRAD,4,7)_" "_LRAN
  1. QUIT