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