source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENSA5.m@ 634

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

initial load of WorldVistAEHR

File size: 1.5 KB
Line 
1ENSA5 ;(WASH ISC)/DH-Post MedTester PMI ;4.27.99
2 ;;7.0;ENGINEERING;**14,35,48,54**;Aug 17, 1993
3POST1 ; No existing PM work order - Post directly to equip hist
4 I '$D(ENSHKEY) S DIC="^DIC(6922,",DIC(0)="X",X="BIOMEDICAL" D ^DIC Q:Y'>0 S ENSHKEY=+Y
5FAIL I ENFAIL D Q
6 . N PROBLEM S PROBLEM=$S($L(ENWP)>13:ENWP,1:"Device failed MedTester Inspection")
7 . S ENMSG="Equipment Entry # "_ENEQ_" FAILED INSPECTION. Corrective action required.",ENMSG(0,1)="MedTester upload."
8 . S ^TMP($J,"FAIL",ENEQ)=""
9 . D NEWWO^ENSA9 ; XCPTN^ENSA2 called from ENSA9
10PASS S ^TMP($J,"PASS",ENEQ)=""
11 N ENW,ENCOST,PMTOT,ENPMDT S (ENW,ENCOST)=""
12 I ENWP="" S ENWP="MedTester Electrical Safety Analysis "_ENTEST
13 I ENTEC>0,ENTIME>0 D D ^ENBCPM8
14 . S PMTOT(ENSHKEY,ENTEC)=ENTIME,ENPMDT=$S($D(ENSTDT):$E(ENSTDT,2,5),1:$E(DT,2,5))
15 . I $D(^ENG("EMP",ENTEC,0)) S ENW=$P(^(0),U,3)
16 . I ENW="",$D(^DIC(6910,1,0)) S ENW=$P(^(0),U,4)
17 . Q:ENW=""
18 . S X=ENW*ENTIME,X(0)=2 D ROUND^ENLIB S ENCOST=+Y
19 S:$L(ENWP)>140 ENWP=$E(ENWP,1,140) S ENDTCP=$S($G(ENSTDT):ENSTDT,1:DT),ENH=ENDTCP_"-E1"_U_ENPMWO_U_"P"_U_ENTIME_U_ENCOST_"^^^"_ENEMP_U_ENWP,ENINV=ENEQ
20 I $D(^ENG(6914,ENEQ,6)) F J=0:0 S J=$O(^ENG(6914,ENEQ,6,J)) Q:J'>0 I $P(^(J,0),"-")=ENDTCP,$P(^(0),U,9)["MedTester" K ENINV S:$P(^(0),U,2)]"" ENPMWO(0)=$P(^(0),U,2) Q
21 I '$D(ENINV) S ENMSG="MedTester Inspection already posted for Equip ID# "_ENEQ_".",ENMSG(0,1)="No action taken.",ENMSG(0,2)="MedTester REC # "_ENREC S:$D(ENPMWO(0)) ENMSG(0,2)=ENMSG(0,2)_" Work Order Ref: "_ENPMWO(0) D XCPTN^ENSA2
22 D:$D(ENINV) EXT^ENEQHS
23 Q
24 ;ENSA5
Note: See TracBrowser for help on using the repository browser.