LRARNPX0.m

LRARNPX0 ; IHS/DIR/AAB - NEW PERSON CONVERSION FOR ^LAR("Z" ;  [ 07/22/2002  1:07 PM ]

 ;;5.2;LR;**1002,1013**;JUL 15, 2002

 ;;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

LRARNPX0  ; IHS/DIR/AAB - NEW PERSON CONVERSION FOR ^LAR("Z" ;  [ 07/22/2002  1:07 PM ]

 +1       ;;5.2;LR;**1002,1013**;JUL 15, 2002

 +2       ;;5.2;LAB SERVICE;**59**;Sep 27, 1994

 +3       ;

 +4        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