Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGYVPST1

DGYVPST1.m

Go to the documentation of this file.
  1. DGYVPST1 ;ALB/LD - Patch DG*5.3*64 Post-Init (cont.); 8/8/95
  1. ;;5.3;Registration;**64**;Aug 13, 1993
  1. ;
  1. ;
  1. ;
  1. ;
  1. PRTERR ;--Print errors which occurred during pop of file #45.7 Eff Date mult
  1. N DGPTE,DGPTM,DGPTMSG,DGPTS
  1. S (DGPTM,DGPTS,DGPTE)=0
  1. I $E(IOST,1,2)="C-" D HDR
  1. F S DGPTM=$O(^TMP("DGPTERR",$J,DGPTM)) Q:'DGPTM!($G(DGPTEX)) D
  1. .F S DGPTS=$O(^TMP("DGPTERR",$J,DGPTM,DGPTS)) Q:'DGPTS!($G(DGPTEX)) D
  1. ..F S DGPTE=$O(^TMP("DGPTERR",$J,DGPTM,DGPTS,DGPTE)) Q:'DGPTE!($G(DGPTEX)) D
  1. ...W !,"Specialty: ",$S($P($G(^DIC(42.4,DGPTM,0)),U)]"":$P($G(^DIC(42.4,DGPTM,0)),U),1:"UNKNOWN")
  1. ...W !,"Facility Treating Specialty: ",$S($P($G(^DIC(45.7,DGPTS,0)),U)]"":$P($G(^DIC(45.7,DGPTS,0)),U),1:"UNKNOWN")
  1. ...S DGPTMSG=$P($T(ERRMSG+DGPTE),";;",2)
  1. ...W !,DGPTMSG,!
  1. ...I $Y>(IOSL-5) D PAUSE Q:$G(DGPTEX) D HDR
  1. K DGPTEX
  1. Q
  1. ;
  1. PAUSE ;--Pause for screen output
  1. Q:$E(IOST,1,2)'="C-"
  1. N XX,DIR,DIRUT,DUOUT
  1. F XX=$Y:1:(IOSL-3) W !
  1. S DIR(0)="E" D ^DIR I $D(DIRUT)!($D(DUOUT)) S DGPTEX=1
  1. Q
  1. ;
  1. HDR ;--Screen header
  1. W @IOF,?21,"Patch DG*5.3*64 Post-Init Report",!!
  1. Q
  1. ;
  1. ERRMSG ;--Error messages
  1. ;;Error with entry in file #42.4: Effective Date multiple zero node not found.
  1. ;;Error with entry in file #42.4: Incomplete Effective Date multiple zero node.
  1. ;;Error with entry in file #42.4: Missing Effective Date field in multiple.
  1. ;;Error with entry in file #45.7: Post-init terminated by user.
  1. ;;Effective Date multiple data already exists for this facility treating spec.
  1. ;
  1. INACT ;-- Report of inactive facility treating specialties. These
  1. ;-- should be edited through the Treating Specialty Set-up option
  1. ;-- [DG TREATING SETUP] under the ADT System Definition Menu.
  1. ;
  1. N DGFAC,DGI,DGJ,DGX,POP
  1. W !!,">>> Creating Inactive Treating Specialty Report...",! H 2
  1. F DGI=70,71,77 D
  1. .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)
  1. S %ZIS="MP" D ^%ZIS K %ZIS I POP Q
  1. U IO
  1. W @IOF,?23,"INACTIVE TREATING SPECIALTY REPORT",!
  1. W !!?4,"The following facility treating specialties point to treating specialties",!?4,"which are now inactive. These facility treating specialties should be"
  1. 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.",!!
  1. W !?8,"FACILITY TREATING SPECIALTY",?46,"INACTIVE TREATING SPECIALTY"
  1. W !?8,"===========================",?46,"===========================",!
  1. 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)
  1. I '$D(DGFAC) W !?4,"No inactive facility treating specialties found.",!
  1. D ^%ZISC
  1. INACTQ Q