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

LRARNPX0.m

Go to the documentation of this file.
  1. LRARNPX0 ;SLC/MRH/FHS/J0 - NEW PERSON CONVERSION FOR ^LAR("Z" ; 1/23/93
  1. ;;5.2;LAB SERVICE;**59**;Sep 27, 1994
  1. ;
  1. Q
  1. EXCEPT(LRFILE,LRD0) ;- LOGS EXCEPTIONS FROM CONVERSION OF DATA FROM 6 AND 16
  1. ; exceptions are put into a SORT template so the the site can
  1. ; then use fileman enter edit to correct problems found.
  1. ;
  1. N DIC,LRSORT,X,Y
  1. I '$D(^DIBT("B",LRFILE_"-EXCEPTIONS")) D ADD
  1. I '$D(LRSORT) S LRSORT=$O(^DIBT("B",LRFILE_"-EXCEPTIONS",0))
  1. S ^DIBT(LRSORT,1,LRD0)=""
  1. Q
  1. ;
  1. ADD ; add a new sort template to be used for exception logging and editing
  1. N X,Y
  1. S DIC="^DIBT(",DIC(0)="L",DLAYGO=0,DIC("DR")="2///^S X=""T"";4///^S X=$P(LRFILE,""-"",2);5///^S X=0;"
  1. S X=LRFILE_"-EXCEPTIONS" D FILE^DICN K DLAYGO S LRSORT=+Y
  1. Q
  1. ;
  1. DEVICE ; device selection for exception report for file conversions
  1. K %ZIS N POP
  1. S %ZIS="N",%ZIS("A")="PRINTER for EXCEPTION REPORT: ",%ZIS("B")="" D ^%ZIS
  1. I 'POP&($E(IOST,1,2)="P-") S LRIO=ION Q
  1. I POP S LRIO="POP" Q
  1. W !!,"A DEVICE must be chosen for the EXCEPTION report to print on",!,"That is defined as a """"P-"""" something.",!! G DEVICE
  1. Q
  1. ;
  1. N LRTIT
  1. S LRTIT=$P($G(^DIC($P(X,"-",2),0)),U),LRTIT="Exception report for file "_$P(X,"-",2)_": "_LRTIT_"."
  1. W !,?(IOM-$L(LRTIT))\2,LRTIT
  1. S LRTIT=$G(LRTSK) I LRTIT S LRTIT="Task # "_LRTIT W !,?(IOM-$L(LRTIT))\2,LRTIT
  1. Q