source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCARASE.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 814 bytes
Line 
1MCARASE ;SLC/RWF,SAE-MEDICINE AUTO INSTRUMENT SETUP VAR FOR DATA COLLECTION ;5/2/96 13:52
2 ;;2.3;Medicine;;09/13/1996
3SETTSK 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
9TRAP S TRAP=$P(^%ZOSF("TRAP"),"=")_"=""TRAP^"_LANM_""""
10 Q
11NEW S ZTRTN=U_$P(^LAB(62.4,T,0),U,3),ZTDTH=$H,ZTIO=""
12 D SET,^%ZTLOAD:$L(ZTRTN)>3
13 Q
14RESTART 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
16SET 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
18ERROR 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
Note: See TracBrowser for help on using the repository browser.