| [613] | 1 | MCARASE ;SLC/RWF,SAE-MEDICINE AUTO INSTRUMENT SETUP VAR FOR DATA COLLECTION ;5/2/96 13:52
|
|---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
|---|
| 3 | SETTSK S:$D(ZTQUEUED) ZTREQ="@" K ZTSK ;Clean up
|
|---|
| 4 | Q:'$D(TSK) Q:TSK<1 L +^LA("LOCK") I $D(^LA("LOCK",TSK)) S TSK=0 L -^LA("LOCK") Q
|
|---|
| 5 | S ^LA("LOCK",TSK)=$J L -^LA("LOCK")
|
|---|
| 6 | K ^TMP($J),^TMP("LA",$J)
|
|---|
| 7 | S X=^LAB(62.4,TSK,0),U="^" D TRAP:$P(X,U)=MCINST
|
|---|
| 8 | Q
|
|---|
| 9 | TRAP S TRAP=$P(^%ZOSF("TRAP"),"=")_"=""TRAP^"_LANM_""""
|
|---|
| 10 | Q
|
|---|
| 11 | NEW S ZTRTN=U_$P(^LAB(62.4,T,0),U,3),ZTDTH=$H,ZTIO=""
|
|---|
| 12 | D SET,^%ZTLOAD:$L(ZTRTN)>3
|
|---|
| 13 | Q
|
|---|
| 14 | 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
|
|---|
| 15 | Q
|
|---|
| 16 | 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
|
|---|
| 17 | Q
|
|---|
| 18 | ERROR S ^TMP($J,1)=LANM,^(2)=TSK I $G(^%ZOSF("ERRTN"))]"" D @^%ZOSF("ERRTN")
|
|---|
| 19 | S LANM=^TMP($J,1),TSK=^(2),U="^"
|
|---|
| 20 | Q
|
|---|
