145 lines
6.4 KiB
Mathematica
145 lines
6.4 KiB
Mathematica
ENEQPMP1 ;(WIRMFO)/DH/SAB-Maintain PMI Parameters ;7.29.97
|
|
;;7.0;ENGINEERING;**35,43**;Aug 17, 1993
|
|
PMSD ; Display device PM schedule
|
|
N DIC,DIE,DA,DR,X,I,J,I1,TAG,K
|
|
W @IOF,!! S DIC(0)="AEQM",(DIC,DIE)="^ENG(6914," D ^DIC G:Y'>0 EXIT S DA=+Y D DINV^ENEQPMP3 G:'$D(ENXP) PMSD G EXIT
|
|
;
|
|
DTD ; Display Equipment Category PM data
|
|
N DIC,DIE,DA,DR,X,I,J,I1,TAG,K
|
|
S DIC(0)="AEQM" D DTL G:ENDTYP'>0 EXIT D DDT^ENEQPMP3 W @IOF
|
|
Q
|
|
;
|
|
DTE ; Edit Equipment Category PM data
|
|
I '$D(^XUSEC("ENEDPM")) W !!,"Sorry, you need Security Key 'ENEDPM'." D HLD G EXIT
|
|
N DIC,DIE,DA,DR,I,J,X,I1,TAG,K
|
|
S DIC(0)="AEQML",DLAYGO=6911 D DTL K DLAYGO G:ENDTYP'>0 EXIT
|
|
L +^ENG(6911,ENDTYP):1 I '$T W !!,*7,"Someone else is editing this record." G EXIT
|
|
S DA=ENDTYP,DR="[ENEQPMP]"
|
|
DTE1 D DDT^ENEQPMP3,^DIE
|
|
L -^ENG(6911,ENDTYP)
|
|
G:'$D(DA) DTE
|
|
DTE2 W !,"Are you finished with this Equipment Category" S %=1 D YN^DICN G:%=2 DTE1 G:%<0 DTE I %=0 W !,"Please enter 'YES' or 'NO'." G DTE2
|
|
S ENDVTYP=$P($G(^ENG(6911,ENDTYP,0)),U)
|
|
DTE3 I $O(^ENG(6911,ENDTYP,4,0)) W !,"Do you wish to assign this PM schedule to ALL existing equipment records",!,"in the category of "_ENDVTYP
|
|
E W !,"Do you want to delete existing PM schedules (if any) from equipment records",!,"in the category of "_ENDVTYP
|
|
S %=2 D YN^DICN S TAG=$S(%=1:"DTE5",%=2:"DTE",1:"DTE4") G @TAG
|
|
DTE4 D DTEH G DTE3
|
|
DTE5 W !,"Do you wish to confirm each transaction" S %=2 D YN^DICN G:%<1 DTEH1 S ENCONF=$S(%=1:1,1:0)
|
|
F DA=0:0 S DA=$O(^ENG(6914,"G",ENDTYP,DA)) Q:DA'>0 W !,DA W:$D(^ENG(6914,DA,3)) ?10,$P(^(3),U,6) D DTE51
|
|
D HLD G DTE
|
|
DTE51 I 'ENCONF D PMSE3^ENEQPMP Q
|
|
W " OK" S %=1 D YN^DICN D:%=1 PMSE3^ENEQPMP
|
|
Q
|
|
;
|
|
DTL W @IOF,!! S (DIC,DIE)="^ENG(6911," D ^DIC S ENDTYP=+Y
|
|
Q
|
|
;
|
|
DTEH W !!,"'YES' will cause the system to immediately find every equipment record of",!,"type "_ENDVTYP_" and assign each of them the PM schedule just entered."
|
|
W !,"The ENTRY NUMBER of each affected equipment record will be displayed at",!,"your terminal, but you will not be asked to confirm the transaction unless",!,"you say that you want to."
|
|
W !,"Once this process has begun, it should not be interrupted."
|
|
Q
|
|
DTEH1 W !!,"You should enter 'YES' if you want to apply the revised schedule to some",!,ENDVTYP,"'s but not others."
|
|
W !,"Enter 'NO' if you want the revised schedule applied to all equipment of",!,"type ",ENDVTYP,"."
|
|
G DTE5
|
|
SKPCK ;SKP MNTHS = ENA ;Called by FileMan Input X-form
|
|
S ENA=X,ENB=$P(ENA,"-",2),ENA=$P(ENA,"-",1)
|
|
I ENA'="JUN",ENA'="SEP",ENA'="MAY",ENA'="OCT",ENA'="APR",ENA'="AUG",ENA'="JUL",ENA'="NOV",ENA'="MAR",ENA'="DEC",ENA'="FEB",ENA'="JAN" S ENA="ERR"
|
|
I ENB'="JUN",ENB'="SEP",ENB'="MAY",ENB'="OCT",ENB'="APR",ENB'="AUG",ENB'="JUL",ENB'="NOV",ENB'="MAR",ENB'="DEC",ENB'="FEB",ENB'="JAN" S ENA="ERR"
|
|
I ENA="ERR"!(ENB="ERR") D EN^DDIOL("You seem to have an invalid entry for 'SKIP MONTHS'. Valid abbreviations are") D EN^DDIOL("JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV, and DEC. Please re-edit.")
|
|
Q
|
|
HLD I $E(IOST,1,2)="C-" R !,"Press <RETURN> to continue...",X:DTIME
|
|
Q
|
|
EXIT K ENDTYP,ENDVTYP,ENA,ENB,ENCRIT,ENXP,ENC,ENCONF,ENX
|
|
Q
|
|
;
|
|
RT ;Reassign a Technicians PMI Responsibilities
|
|
;
|
|
RTASK ; ask user
|
|
W !
|
|
S DIC=6929,DIC(0)="AQEM",DIC("A")="Replace this TECHNICIAN: "
|
|
D ^DIC K DIC G:Y'>0 RTEX S ENTEC("O")=+Y,ENTECN("O")=$P(Y,U,2)
|
|
;
|
|
S DIC=6929,DIC(0)="AQEM",DIC("A")="With this TECHNICIAN: "
|
|
D ^DIC K DIC G:Y'>0 RTEX S ENTEC("N")=+Y,ENTECN("N")=$P(Y,U,2)
|
|
;
|
|
S DIR(0)="S^0:ONE RESPONSIBLE SHOP;1:ALL RESPONSIBLE SHOPS"
|
|
S DIR("A")="For PM schedules by",DIR("B")="ALL"
|
|
D ^DIR K DIR G:$D(DIRUT) RTEX S ENSHKEY("ALL")=Y
|
|
;
|
|
I 'ENSHKEY("ALL") D I ENSHKEY'>0 G RTEX
|
|
. S DIC=6922,DIC(0)="AQEM" D ^DIC K DIC S ENSHKEY=+Y,ENSHOP=$P(Y,U,2)
|
|
;
|
|
S DIR(0)="Y",DIR("A")="Do you want to individually edit each entry"
|
|
S DIR("B")="NO"
|
|
S DIR("?",1)="If YES is entered here, the system will pause after each entry"
|
|
S DIR("?",2)="for which TECHNICIAN "_ENTECN("O")_" has been changed"
|
|
S DIR("?",3)="and allow you to edit the TECHNICIAN field."
|
|
S DIR("?",4)=" "
|
|
S DIR("?")="Enter YES or NO"
|
|
D ^DIR K DIR G:$D(DTOUT) RTEX S ENEDTEC=Y
|
|
;
|
|
W !!,"All occurrences of TECHNICIAN in both the EQUIPMENT CATEGORY and"
|
|
W !,"EQUIPMENT INV. preventive maintenance schedules will be changed"
|
|
W !,"from ",ENTECN("O")," to ",ENTECN("N"),"."
|
|
W !,"This change will be made for "
|
|
I ENSHKEY("ALL") W "the PM schedules of ALL responsible shops."
|
|
E W "only the PM schedules of the ",ENSHOP," shop."
|
|
I ENEDTEC W !,"You will be able to individually edit the TECHNICAN."
|
|
W ! S DIR(0)="Y",DIR("A")="OK to Proceed"
|
|
D ^DIR K DIR G:'Y!$D(DIRUT) RTEX
|
|
;
|
|
RTDO S END=0
|
|
W !!,"Updating EQUIPMENT CATEGORY file"
|
|
I ENEDTEC S DIR(0)="E" D ^DIR K DIR I $D(DIRUT) S END=1 G RTEX
|
|
S (ENC,ENT)=0
|
|
S ENDA=0 F S ENDA=$O(^ENG(6911,ENDA)) Q:'ENDA D Q:END
|
|
. S ENI=0 F S ENI=$O(^ENG(6911,ENDA,4,ENI)) Q:'ENI D Q:END
|
|
. . S ENT=ENT+1
|
|
. . I 'ENEDTEC W:'(ENT#50) "."
|
|
. . S ENY=$G(^ENG(6911,ENDA,4,ENI,0))
|
|
. . S ENRS=$P(ENY,U)
|
|
. . I 'ENSHKEY("ALL"),ENRS'=ENSHKEY Q
|
|
. . I $P(ENY,U,2)'=ENTEC("O") Q
|
|
. . ;W !," ENDA: ",ENDA,?12,"ENI: ",ENI,?20,ENY
|
|
. . S $P(^ENG(6911,ENDA,4,ENI,0),U,2)=ENTEC("N")
|
|
. . S ENC=ENC+1
|
|
. . I ENEDTEC D
|
|
. . . S ENDTYP=ENDA,ENNOHLD=1 D DDT^ENEQPMP3
|
|
. . . W !!,"For the ",$P($G(^DIC(6922,ENRS,0)),U)," SHOP PM Schedule:"
|
|
. . . S DIE="^ENG(6911,"_ENDA_",4,",DA(1)=ENDA,DA=ENI,DR="1"
|
|
. . . D ^DIE K DA S:$D(Y) END=1
|
|
W !," ",ENC,$S(ENC=1:" entry was",1:" entries were")," changed."
|
|
G:END RTEX
|
|
;
|
|
W !!,"Updating EQUIPMENT INV. file"
|
|
I ENEDTEC S DIR(0)="E" D ^DIR K DIR I $D(DIRUT) S END=1 G RTEX
|
|
S (ENC,ENT)=0
|
|
I 'ENSHKEY("ALL") S ENRS=ENSHKEY D RTSHOP
|
|
I ENSHKEY("ALL") S ENRS=0 F S ENRS=$O(^ENG(6914,"AB",ENRS)) Q:'ENRS D RTSHOP Q:END
|
|
W !," ",ENC,$S(ENC=1:" entry was",1:" entries were")," changed."
|
|
;
|
|
RTEX ; reassign tech exit
|
|
K DA,DIC,DIE,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,Y
|
|
K ENC,END,ENDA,ENDTYP,ENDVTYP,ENEDTEC,ENI,ENNOHLD,ENRS
|
|
K ENSHKEY,ENSHOP,ENT,ENTEC,ENTECN,ENX,ENY
|
|
Q
|
|
;
|
|
RTSHOP ; update all entries for responsible shop ENRS
|
|
S ENDA=0 F S ENDA=$O(^ENG(6914,"AB",ENRS,ENDA)) Q:'ENDA D Q:END
|
|
. S ENT=ENT+1
|
|
. I 'ENEDTEC W:'(ENT#50) "."
|
|
. S ENI=$O(^ENG(6914,"AB",ENRS,ENDA,0))
|
|
. S ENY=$G(^ENG(6914,ENDA,4,ENI,0))
|
|
. I $P(ENY,U,2)'=ENTEC("O") Q
|
|
. ;W !," ENDA: ",ENDA,?12,"ENI: ",ENI,?20,ENY
|
|
. S $P(^ENG(6914,ENDA,4,ENI,0),U,2)=ENTEC("N")
|
|
. S ENC=ENC+1
|
|
. I ENEDTEC D
|
|
. . S DA=ENDA,ENNOHLD=1 D DINV^ENEQPMP3
|
|
. . W !!,"For the ",$P($G(^DIC(6922,ENRS,0)),U)," SHOP PM Schedule:"
|
|
. . S DIE="^ENG(6914,"_ENDA_",4,",DA(1)=ENDA,DA=ENI,DR="1"
|
|
. . D ^DIE K DA S:$D(Y) END=1
|
|
Q
|
|
;
|
|
;ENEQPMP1
|