source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGYMPKG.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 913 bytes
Line 
1DGYMPKG ;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 ;
9EN ; 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 ;
23DG ;;REGISTRATION
24SD ;;SCHEDULING
25DPT ;;PATIENT FILE
Note: See TracBrowser for help on using the repository browser.