| 1 | DGYMPKG ;ALB/MLI - Clean-up MAS package names ; 3/28/95@1340
|
|---|
| 2 | ;;5.3;Registration;**56**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine cleans up old entries in the package file for
|
|---|
| 5 | ; all MAS package file entries (DG, DPT, SD). If there are
|
|---|
| 6 | ; multiple entries in the PACKAGE file which have the DG, SD,
|
|---|
| 7 | ; or DPT package namespace, the erroneous ones will be removed.
|
|---|
| 8 | ;
|
|---|
| 9 | EN ; clean up package file
|
|---|
| 10 | S DIK="^DIC(9.4,",DGFL=0
|
|---|
| 11 | F DGNMSP="DG","SD","DPT" S DGI=0 F S DGI=$O(^DIC(9.4,"C",DGNMSP,DGI)) Q:'DGI D
|
|---|
| 12 | . S DGX=$G(^DIC(9.4,DGI,0))
|
|---|
| 13 | . I $P(DGX,"^",1)=$P($T(@DGNMSP),";;",2) Q ; correct entry
|
|---|
| 14 | . S DA=DGI D ^DIK
|
|---|
| 15 | . W !,"...",$P(DGX,"^",1)," [",DGNMSP,"] entry deleted from PACKAGE file (IEN=",DA,")"
|
|---|
| 16 | . S DGFL=1
|
|---|
| 17 | W !!,"All set." I 'DGFL W "..No problems found."
|
|---|
| 18 | K DA,DIK,DGI,DGFL,DGNMSP,DGX
|
|---|
| 19 | Q
|
|---|
| 20 | ;
|
|---|
| 21 | ; the following are the official names of the package file entries
|
|---|
| 22 | ;
|
|---|
| 23 | DG ;;REGISTRATION
|
|---|
| 24 | SD ;;SCHEDULING
|
|---|
| 25 | DPT ;;PATIENT FILE
|
|---|
