source: FOIAVistA/tag/r/ENGINEERING-EN/ENSA3.m@ 1618

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

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1ENSA3 ;(WASH ISC)/DH-Process MedTester Data ;4.22.99
2 ;;7.0;ENGINEERING;**14,54**;Aug 17, 1993
3NOLBL ;No barcode label scanned
4 S EN="" I ENMOD]"",$D(^ENG(6914,"E",ENMOD)) S I=0 F J=0:0 S I=$O(^ENG(6914,"E",ENMOD,I)) Q:I'=+I I $D(^ENG(6914,I,1)),$P(^(1),U,3)=ENSN D MATCH,POST^ENSA4 Q
5 ;If match found EN will be killed
6 I $D(EN) D
7 . S ENMSG="ITEM NOT FOUND IN DATABASE. MedTester REC # "_ENREC
8 . S ENMSG(0,1)="Model: "_$S(ENMOD]"":ENMOD,1:"Unknown")
9 . S ENMSG(0,2)="Serial Number: "_$S(ENSN]"":ENSN,1:"Unknown")
10 . D XCPTN^ENSA2
11 Q
12MATCH ;Equipment unlabelled but present in 6914
13 S ENEQ=I D UPDATE1^ENSA2
14 K EN Q
15 ;
16HOLD U IO(0) W !,"Press RETURN to continue..." R X:DTIME
17 Q
18ERR ;Error message (Forced exit)
19 W !!,*7,"FATAL ERROR OR USER ABORT.",*7
20 W !!,"Unrecoverable error has occurred. You will need to start the MedTester",!,"upload again from the beginning."
21 S ENY=0 D HOLD
22EXIT I $E(IOST,1,2)="C-",$D(ENY),ENY>0 D HOLD
23 K:$D(ENTID) ^ENG("TMP",ENTID)
24EXIT1 K EN,ENSA1,ENSA2,ENEQ,ENLBL,ENMSG,ENY,ENBRANCH,ENCAT,ENFAIL,ENFLG,ENMAN,ENMOD,ENMEN,ENDATE,ENSTA,ENSTAL
25 K ENLOC,ENOLDLOC,ENEMP,ENPM,ENPMDT,ENPMWO,ENSHABR,ENSTDT,ENSHOP,ENSHKEY,ENDTCP,ENH,ENINV,ENPG,ENWOX,ENW,ENCOST
26 K ENPAPER,ENPMN,ENREC,ENSN,ENTEC,ENWP,ENX,ENY,ENTID,EN1,EN2,ENAUTO,ENCTCLOS,ENCTEOFF,ENCTEON,ENCTOPEN,ENCTTYPE,ENTIME,ENTEST
27 K %,I,I1,J,K,DA,DIC,DIE,DR,ENDEL,X,Y,X1,X2,%DT,DNX
28 W @IOF I $E(IOST,1,2)="P-",'$D(ZTQUEUED) D ^%ZISC
29 K ^TMP($J)
30 Q
31 ;ENSA3
Note: See TracBrowser for help on using the repository browser.