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
|