| 1 | GECSPOST ;WISC/RFJ-version 2 post-init ;28 Jun 94
|
|---|
| 2 | ;;2.0;GCS;;MAR 14, 1995
|
|---|
| 3 | N %,D,DA,DIK,X,Y
|
|---|
| 4 | ; clean out data in file 2101.4 (template maps) which are not
|
|---|
| 5 | ; used in version 2
|
|---|
| 6 | S X=^GECS(2101.4,0) K ^GECS(2101.4) S ^GECS(2101.4,0)=$P(X,"^",1,2)
|
|---|
| 7 | ; clean out data in file 2101.6 (lock display)
|
|---|
| 8 | S X=^GECS(2101.6,0) K ^GECS(2101.6) S ^GECS(2101.6,0)=$P(X,"^",1,2)
|
|---|
| 9 | ;
|
|---|
| 10 | ; remove 'gecs batch edit' input template which is no longer used
|
|---|
| 11 | S DA=+$O(^DIE("F2100","GECS BATCH EDIT",0)) I DA S DIK="^DIE(" D ^DIK
|
|---|
| 12 | ;
|
|---|
| 13 | ; remove 2101.6, field 1 locked
|
|---|
| 14 | I $D(^DD(2101.6,1)) S DIK="^DD(2101.6,",DA(1)=2101.6,DA=1 D ^DIK
|
|---|
| 15 | ;
|
|---|
| 16 | ; remove 2101.7, field 2 days to retain code sheets
|
|---|
| 17 | S %=0 F S %=$O(^GECS(2101.7,%)) Q:'% I $D(^(%,0)) S $P(^(0),"^",3)=""
|
|---|
| 18 | I $D(^DD(2101.7,2)) S DIK="^DD(2101.7,",DA(1)=2101.7,DA=2 D ^DIK
|
|---|
| 19 | ;
|
|---|
| 20 | ; remove 2100, field .7 batch type
|
|---|
| 21 | I $D(^DD(2100,.7)) S DIK="^DD(2100,",DA(1)=2100,DA=.7 D ^DIK
|
|---|
| 22 | ;
|
|---|
| 23 | ; change yes/no for consistency
|
|---|
| 24 | ; file 2101.7, field 1 primary site
|
|---|
| 25 | S %=0 F S %=$O(^GECS(2101.7,%)) Q:'% S D=$P($G(^(%,0)),"^",2) I D'="" S $P(^(0),"^",2)=$S(D=1:"Y",1:"N")
|
|---|
| 26 | ;
|
|---|
| 27 | ; repoint pointer fields for transported file entries
|
|---|
| 28 | S GECSFIX=1 D GO^GECSVFY0
|
|---|
| 29 | D PATCH^GECSPOS1
|
|---|
| 30 | Q
|
|---|
