- LRARNPX0 ;SLC/MRH/FHS/J0 - NEW PERSON CONVERSION FOR ^LAR("Z" ; 1/23/93
- ;;5.2;LAB SERVICE;**59**;Sep 27, 1994
- ;
- Q
- EXCEPT(LRFILE,LRD0) ;- LOGS EXCEPTIONS FROM CONVERSION OF DATA FROM 6 AND 16
- ; exceptions are put into a SORT template so the the site can
- ; then use fileman enter edit to correct problems found.
- ;
- N DIC,LRSORT,X,Y
- I '$D(^DIBT("B",LRFILE_"-EXCEPTIONS")) D ADD
- I '$D(LRSORT) S LRSORT=$O(^DIBT("B",LRFILE_"-EXCEPTIONS",0))
- S ^DIBT(LRSORT,1,LRD0)=""
- Q
- ;
- ADD ; add a new sort template to be used for exception logging and editing
- N X,Y
- S DIC="^DIBT(",DIC(0)="L",DLAYGO=0,DIC("DR")="2///^S X=""T"";4///^S X=$P(LRFILE,""-"",2);5///^S X=0;"
- S X=LRFILE_"-EXCEPTIONS" D FILE^DICN K DLAYGO S LRSORT=+Y
- Q
- ;
- DEVICE ; device selection for exception report for file conversions
- K %ZIS N POP
- S %ZIS="N",%ZIS("A")="PRINTER for EXCEPTION REPORT: ",%ZIS("B")="" D ^%ZIS
- I 'POP&($E(IOST,1,2)="P-") S LRIO=ION Q
- I POP S LRIO="POP" Q
- W !!,"A DEVICE must be chosen for the EXCEPTION report to print on",!,"That is defined as a """"P-"""" something.",!! G DEVICE
- Q
- ;
- HEAD(X) ; writes header for all exception reports
- N LRTIT
- S LRTIT=$P($G(^DIC($P(X,"-",2),0)),U),LRTIT="Exception report for file "_$P(X,"-",2)_": "_LRTIT_"."
- W !,?(IOM-$L(LRTIT))\2,LRTIT
- S LRTIT=$G(LRTSK) I LRTIT S LRTIT="Task # "_LRTIT W !,?(IOM-$L(LRTIT))\2,LRTIT
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRARNPX0 1390 printed Jan 18, 2025@03:10:12 Page 2
- LRARNPX0 ;SLC/MRH/FHS/J0 - NEW PERSON CONVERSION FOR ^LAR("Z" ; 1/23/93
- +1 ;;5.2;LAB SERVICE;**59**;Sep 27, 1994
- +2 ;
- +3 QUIT
- 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
- +2 ; then use fileman enter edit to correct problems found.
- +3 ;
- +4 NEW DIC,LRSORT,X,Y
- +5 IF '$DATA(^DIBT("B",LRFILE_"-EXCEPTIONS"))
- DO ADD
- +6 IF '$DATA(LRSORT)
- SET LRSORT=$ORDER(^DIBT("B",LRFILE_"-EXCEPTIONS",0))
- +7 SET ^DIBT(LRSORT,1,LRD0)=""
- +8 QUIT
- +9 ;
- ADD ; add a new sort template to be used for exception logging and editing
- +1 NEW X,Y
- +2 SET DIC="^DIBT("
- SET DIC(0)="L"
- SET DLAYGO=0
- SET DIC("DR")="2///^S X=""T"";4///^S X=$P(LRFILE,""-"",2);5///^S X=0;"
- +3 SET X=LRFILE_"-EXCEPTIONS"
- DO FILE^DICN
- KILL DLAYGO
- SET LRSORT=+Y
- +4 QUIT
- +5 ;
- DEVICE ; device selection for exception report for file conversions
- +1 KILL %ZIS
- NEW POP
- +2 SET %ZIS="N"
- SET %ZIS("A")="PRINTER for EXCEPTION REPORT: "
- SET %ZIS("B")=""
- DO ^%ZIS
- +3 IF 'POP&($EXTRACT(IOST,1,2)="P-")
- SET LRIO=ION
- QUIT
- +4 IF POP
- SET LRIO="POP"
- QUIT
- +5 WRITE !!,"A DEVICE must be chosen for the EXCEPTION report to print on",!,"That is defined as a """"P-"""" something.",!!
- GOTO DEVICE
- +6 QUIT
- +7 ;
- HEAD(X) ; writes header for all exception reports
- +1 NEW LRTIT
- +2 SET LRTIT=$PIECE($GET(^DIC($PIECE(X,"-",2),0)),U)
- SET LRTIT="Exception report for file "_$PIECE(X,"-",2)_": "_LRTIT_"."
- +3 WRITE !,?(IOM-$LENGTH(LRTIT))\2,LRTIT
- +4 SET LRTIT=$GET(LRTSK)
- IF LRTIT
- SET LRTIT="Task # "_LRTIT
- WRITE !,?(IOM-$LENGTH(LRTIT))\2,LRTIT
- +5 QUIT