| 1 | GECSPPRE ;WISC/RFJ-version 2 pre-init ;28 Jun 94
|
|---|
| 2 | ;;2.0;GCS;;MAR 14, 1995
|
|---|
| 3 | N %,DA,DIC,DIK,X,Y
|
|---|
| 4 | ; remove AZ cross reference for field 9 (date created) in file 2100
|
|---|
| 5 | ; if the x-ref exists, remove the field, the init will re-install it
|
|---|
| 6 | I $D(^DD(2100,0,"IX","AZ",2100,9)) S DIK="^DD(2100,",DA(1)=2100,DA=9 D ^DIK K ^GECS(2100,"AZ")
|
|---|
| 7 | ;
|
|---|
| 8 | ; remove C cross reference for field 9.1 (amis mo/yr) in file 2100
|
|---|
| 9 | ; if the x-ref exists, remove the field, the init will re-install it
|
|---|
| 10 | I $D(^DD(2100,0,"IX","C",2100,9.1)) S DIK="^DD(2100,",DA(1)=2100,DA=9.1 D ^DIK K ^GECS(2100,"C")
|
|---|
| 11 | ;
|
|---|
| 12 | ; remove AT cross reference for field 2 (transmit y/n) in 2101.12
|
|---|
| 13 | ; if the x-ref exists, remove the field, the init will re-install it
|
|---|
| 14 | I $D(^DD(2101.12,0,"IX","AT",2101.12,2)) D
|
|---|
| 15 | . S DIK="^DD(2101.12,",DA(1)=2101.12,DA=2 D ^DIK
|
|---|
| 16 | . S %=0 F S %=$O(^GECS(2101.1,%)) Q:'% K ^GECS(2101.1,%,2,"AT")
|
|---|
| 17 | ;
|
|---|
| 18 | ; clean up duplicates in file 2101.2
|
|---|
| 19 | S GECSNAME="" F S GECSNAME=$O(^GECS(2101.2,"B",GECSNAME)) Q:GECSNAME="" S DA=$O(^GECS(2101.2,"B",GECSNAME,0)) Q:'DA F S DA=$O(^GECS(2101.2,"B",GECSNAME,DA)) Q:'DA S DIK="^GECS(2101.2," D ^DIK
|
|---|
| 20 | ;
|
|---|
| 21 | ; remove id from 2101.2 to prevent duplicates from being installed
|
|---|
| 22 | K ^DD(2101.2,0,"ID",2)
|
|---|
| 23 | Q
|
|---|
