MCARASE ;SLC/RWF,SAE-MEDICINE AUTO INSTRUMENT SETUP VAR FOR DATA COLLECTION ;5/2/96 13:52
;;2.3;Medicine;;09/13/1996
SETTSK S:$D(ZTQUEUED) ZTREQ="@" K ZTSK ;Clean up
Q:'$D(TSK) Q:TSK<1 L +^LA("LOCK") I $D(^LA("LOCK",TSK)) S TSK=0 L -^LA("LOCK") Q
S ^LA("LOCK",TSK)=$J L -^LA("LOCK")
K ^TMP($J),^TMP("LA",$J)
S X=^LAB(62.4,TSK,0),U="^" D TRAP:$P(X,U)=MCINST
Q
TRAP S TRAP=$P(^%ZOSF("TRAP"),"=")_"=""TRAP^"_LANM_""""
Q
NEW S ZTRTN=U_$P(^LAB(62.4,T,0),U,3),ZTDTH=$H,ZTIO=""
D SET,^%ZTLOAD:$L(ZTRTN)>3
Q
RESTART I $D(^LA(T,"I",0)) S ZTRTN=U_$P(^LAB(62.4,T,0),U,3),ZTDTH=$H,ZTIO="" D ^%ZTLOAD:$L(ZTRTN)>3
Q
SET S ER=$D(^LA(T,"I"))#2 Q:ER S ^LA(T,"I")=0,^("I",0)=0,^LA(T,"O")=0,^("O",0)=0
Q
ERROR S ^TMP($J,1)=LANM,^(2)=TSK I $G(^%ZOSF("ERRTN"))]"" D @^%ZOSF("ERRTN")
S LANM=^TMP($J,1),TSK=^(2),U="^"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCARASE 834 printed Nov 22, 2024@17:22:23 Page 2
MCARASE ;SLC/RWF,SAE-MEDICINE AUTO INSTRUMENT SETUP VAR FOR DATA COLLECTION ;5/2/96 13:52
+1 ;;2.3;Medicine;;09/13/1996
SETTSK ;Clean up
if $DATA(ZTQUEUED)
SET ZTREQ="@"
KILL ZTSK
+1 if '$DATA(TSK)
QUIT
if TSK<1
QUIT
LOCK +^LA("LOCK")
IF $DATA(^LA("LOCK",TSK))
SET TSK=0
LOCK -^LA("LOCK")
QUIT
+2 SET ^LA("LOCK",TSK)=$JOB
LOCK -^LA("LOCK")
+3 KILL ^TMP($JOB),^TMP("LA",$JOB)
+4 SET X=^LAB(62.4,TSK,0)
SET U="^"
if $PIECE(X,U)=MCINST
DO TRAP
+5 QUIT
TRAP SET TRAP=$PIECE(^%ZOSF("TRAP"),"=")_"=""TRAP^"_LANM_""""
+1 QUIT
NEW SET ZTRTN=U_$PIECE(^LAB(62.4,T,0),U,3)
SET ZTDTH=$HOROLOG
SET ZTIO=""
+1 DO SET
if $LENGTH(ZTRTN)>3
DO ^%ZTLOAD
+2 QUIT
RESTART IF $DATA(^LA(T,"I",0))
SET ZTRTN=U_$PIECE(^LAB(62.4,T,0),U,3)
SET ZTDTH=$HOROLOG
SET ZTIO=""
if $LENGTH(ZTRTN)>3
DO ^%ZTLOAD
+1 QUIT
SET SET ER=$DATA(^LA(T,"I"))#2
if ER
QUIT
SET ^LA(T,"I")=0
SET ^("I",0)=0
SET ^LA(T,"O")=0
SET ^("O",0)=0
+1 QUIT
ERROR SET ^TMP($JOB,1)=LANM
SET ^(2)=TSK
IF $GET(^%ZOSF("ERRTN"))]""
DO @^%ZOSF("ERRTN")
+1 SET LANM=^TMP($JOB,1)
SET TSK=^(2)
SET U="^"
+2 QUIT
