| 1 | DGYVPST1 ;ALB/LD - Patch DG*5.3*64 Post-Init (cont.); 8/8/95
|
|---|
| 2 | ;;5.3;Registration;**64**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | PRTERR ;--Print errors which occurred during pop of file #45.7 Eff Date mult
|
|---|
| 8 | N DGPTE,DGPTM,DGPTMSG,DGPTS
|
|---|
| 9 | S (DGPTM,DGPTS,DGPTE)=0
|
|---|
| 10 | I $E(IOST,1,2)="C-" D HDR
|
|---|
| 11 | F S DGPTM=$O(^TMP("DGPTERR",$J,DGPTM)) Q:'DGPTM!($G(DGPTEX)) D
|
|---|
| 12 | .F S DGPTS=$O(^TMP("DGPTERR",$J,DGPTM,DGPTS)) Q:'DGPTS!($G(DGPTEX)) D
|
|---|
| 13 | ..F S DGPTE=$O(^TMP("DGPTERR",$J,DGPTM,DGPTS,DGPTE)) Q:'DGPTE!($G(DGPTEX)) D
|
|---|
| 14 | ...W !,"Specialty: ",$S($P($G(^DIC(42.4,DGPTM,0)),U)]"":$P($G(^DIC(42.4,DGPTM,0)),U),1:"UNKNOWN")
|
|---|
| 15 | ...W !,"Facility Treating Specialty: ",$S($P($G(^DIC(45.7,DGPTS,0)),U)]"":$P($G(^DIC(45.7,DGPTS,0)),U),1:"UNKNOWN")
|
|---|
| 16 | ...S DGPTMSG=$P($T(ERRMSG+DGPTE),";;",2)
|
|---|
| 17 | ...W !,DGPTMSG,!
|
|---|
| 18 | ...I $Y>(IOSL-5) D PAUSE Q:$G(DGPTEX) D HDR
|
|---|
| 19 | K DGPTEX
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | PAUSE ;--Pause for screen output
|
|---|
| 23 | Q:$E(IOST,1,2)'="C-"
|
|---|
| 24 | N XX,DIR,DIRUT,DUOUT
|
|---|
| 25 | F XX=$Y:1:(IOSL-3) W !
|
|---|
| 26 | S DIR(0)="E" D ^DIR I $D(DIRUT)!($D(DUOUT)) S DGPTEX=1
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | HDR ;--Screen header
|
|---|
| 30 | W @IOF,?21,"Patch DG*5.3*64 Post-Init Report",!!
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | ERRMSG ;--Error messages
|
|---|
| 34 | ;;Error with entry in file #42.4: Effective Date multiple zero node not found.
|
|---|
| 35 | ;;Error with entry in file #42.4: Incomplete Effective Date multiple zero node.
|
|---|
| 36 | ;;Error with entry in file #42.4: Missing Effective Date field in multiple.
|
|---|
| 37 | ;;Error with entry in file #45.7: Post-init terminated by user.
|
|---|
| 38 | ;;Effective Date multiple data already exists for this facility treating spec.
|
|---|
| 39 | ;
|
|---|
| 40 | INACT ;-- Report of inactive facility treating specialties. These
|
|---|
| 41 | ;-- should be edited through the Treating Specialty Set-up option
|
|---|
| 42 | ;-- [DG TREATING SETUP] under the ADT System Definition Menu.
|
|---|
| 43 | ;
|
|---|
| 44 | N DGFAC,DGI,DGJ,DGX,POP
|
|---|
| 45 | W !!,">>> Creating Inactive Treating Specialty Report...",! H 2
|
|---|
| 46 | F DGI=70,71,77 D
|
|---|
| 47 | .F DGJ=0:0 S DGJ=$O(^DIC(45.7,"ASPEC",DGI,DGJ)) Q:'DGJ S DGFAC(DGJ)=DGI_"^"_$P($G(^DIC(45.7,DGJ,0)),U)
|
|---|
| 48 | S %ZIS="MP" D ^%ZIS K %ZIS I POP Q
|
|---|
| 49 | U IO
|
|---|
| 50 | W @IOF,?23,"INACTIVE TREATING SPECIALTY REPORT",!
|
|---|
| 51 | W !!?4,"The following facility treating specialties point to treating specialties",!?4,"which are now inactive. These facility treating specialties should be"
|
|---|
| 52 | W !?4,"edited to point to active specialties through the Treating Specialty",!?4,"Set-up option [DG TREATING SETUP] under the ADT System Definition Menu.",!!
|
|---|
| 53 | W !?8,"FACILITY TREATING SPECIALTY",?46,"INACTIVE TREATING SPECIALTY"
|
|---|
| 54 | W !?8,"===========================",?46,"===========================",!
|
|---|
| 55 | F DGX=0:0 S DGX=$O(DGFAC(DGX)) Q:'DGX W !?8,$P($G(DGFAC(DGX)),U,2),?46,$P($G(^DIC(42.4,$P($G(DGFAC(DGX)),U),0)),U)
|
|---|
| 56 | I '$D(DGFAC) W !?4,"No inactive facility treating specialties found.",!
|
|---|
| 57 | D ^%ZISC
|
|---|
| 58 | INACTQ Q
|
|---|
