| [613] | 1 | ENSA3 ;(WASH ISC)/DH-Process MedTester Data ;4.22.99
|
|---|
| 2 | ;;7.0;ENGINEERING;**14,54**;Aug 17, 1993
|
|---|
| 3 | NOLBL ;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
|
|---|
| 12 | MATCH ;Equipment unlabelled but present in 6914
|
|---|
| 13 | S ENEQ=I D UPDATE1^ENSA2
|
|---|
| 14 | K EN Q
|
|---|
| 15 | ;
|
|---|
| 16 | HOLD U IO(0) W !,"Press RETURN to continue..." R X:DTIME
|
|---|
| 17 | Q
|
|---|
| 18 | ERR ;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
|
|---|
| 22 | EXIT I $E(IOST,1,2)="C-",$D(ENY),ENY>0 D HOLD
|
|---|
| 23 | K:$D(ENTID) ^ENG("TMP",ENTID)
|
|---|
| 24 | EXIT1 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
|
|---|
