| [613] | 1 | ENY2UTL ;;(WIRMFO)/DH-Equipment Y2K Utilities ;11.24.98
|
|---|
| 2 | ;;7.0;ENGINEERING;**51,59**;August 17, 1993
|
|---|
| 3 | LOG ; log each change in Y2K CATEGORY
|
|---|
| 4 | ; expects DA as IEN for equipment file
|
|---|
| 5 | N ENI,ENFDA,CAT
|
|---|
| 6 | S CAT=$P($G(^ENG(6914,DA,11)),U)
|
|---|
| 7 | D NOW^%DTC
|
|---|
| 8 | S ENI(1)=DA,ENFDA(6918,"?+1,",.01)=DA
|
|---|
| 9 | S ENFDA(6918.01,"?+2,?+1,",.01)=%
|
|---|
| 10 | S ENFDA(6918.01,"?+2,?+1,",1)=CAT
|
|---|
| 11 | S ENFDA(6918.01,"?+2,?+1,",2)=DUZ
|
|---|
| 12 | D UPDATE^DIE("","ENFDA","ENI") D MSG^DIALOG()
|
|---|
| 13 | Q
|
|---|
| 14 | ;
|
|---|
| 15 | COST ; remove Y2K expectancies when appropriate, including open work order
|
|---|
| 16 | ; expects DA as IEN for equipment file
|
|---|
| 17 | Q:'$D(DA) Q:'$D(^ENG(6914,DA,11))
|
|---|
| 18 | N EQDA,WODA
|
|---|
| 19 | S EQDA=DA I "^NC^NA^"[(U_$P(^ENG(6914,DA,11),U)_U) D
|
|---|
| 20 | . S X=^ENG(6914,DA,11) F J=2,3,4,5,7,10 S $P(X,U,J)=""
|
|---|
| 21 | . S ^ENG(6914,DA,11)=X
|
|---|
| 22 | . S WODA=$P(X,U,8) I WODA,$D(^ENG(6920,WODA,0)),$P($G(^(5)),U,2)="" D
|
|---|
| 23 | .. S DA=WODA,DIK="^ENG(6920," D ^DIK K DIK S DA=EQDA
|
|---|
| 24 | .. S $P(^ENG(6914,DA,11),U,8)=""
|
|---|
| 25 | Q
|
|---|
| 26 | ;ENY2UTL
|
|---|
