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

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

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1DGYVPST1 ;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 ;
7PRTERR ;--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 ;
22PAUSE ;--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 ;
29HDR ;--Screen header
30 W @IOF,?21,"Patch DG*5.3*64 Post-Init Report",!!
31 Q
32 ;
33ERRMSG ;--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 ;
40INACT ;-- 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
58INACTQ Q
Note: See TracBrowser for help on using the repository browser.