LRMINEW2.m

LRMINEW2 ; IHS/DIR/FJE - NEW DATA TO BE REVIEWED/VERIFIED 2/19/91 10:49 ;

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

 ;

 ;;5.2;LAB SERVICE;;Sep 27, 1994

Q2 ;F I=0:0 W !,"Do you want to queue the data to print and review/approve it later" S %=1 D YN^DICN Q:%  W !,"Or you could look at it now!"

 F I=0:0 W !,"Do you want to queue the data to print and review/approve it later" S %=2 D YN^DICN Q:%  W !,"Or you could look at it now!"  ;IHS/ANMC/CLS 08/18/96

 Q:%=-1

 I %=1 S %ZIS="MQ",%ZIS("B")="",IOP="Q"

 W ! S ZTRTN="DQ^LRMINEW2" D IO^LRWU

 Q

DQ S:$D(ZTQUEUED) ZTREQ="@" U IO K ^TMP($J) S LREND=0,LRONETST="",LRONESPC=""

 S LRAN=0 F I=0:0 S LRAN=+$O(^LRO(68,LRAA,1,LRAD,"AC",LRSB,LRAN)) Q:LRAN<1!($G(LREND))  D:+^(LRAN)=LRDXZ!(LRDXZ=0) SORT

 ;S LRLOCA="" F I=0:0 S LRLOCA=$O(^TMP($J,LRLOCA)) Q:LRLOCA=""!($G(LREND))  S LRLTR=$E(LRLOCA,1,4) W @IOF D ^LRLTR:$E(IOST,1,2)'="C-" S LRAN=0 F I=0:0 S LRAN=+$O(^TMP($J,LRLOCA,LRAN)) Q:LRAN<1!($G(LREND))  D SENDUP Q:LREND

 S LRAN=0 F I=0:0 S LRAN=+$O(^TMP($J,LRAN)) Q:LRAN<1!($G(LREND))  S LRLOCA=+^(LRAN) D SENDUP Q:LREND  ;IHS/ANMC/CLS 08/18/96 sort by LRAN

 K ^TMP($J),LRWRDVEW

 Q

SORT Q:'$D(^LRO(68,LRAA,1,LRAD,1,LRAN,0))  S LRLOCA=$P(^(0),U,7) Q:LRLOCA=""

 ;S ^TMP($J,LRLOCA,LRAN)=""

 S ^TMP($J,LRAN)=LRLOCA  ;IHS/ANMC/CLS 08/18/96 sort by LRAN

 Q

SENDUP Q:'$D(^LRO(68,LRAA,1,LRAD,1,LRAN,3))!($G(LREND))  S LRIDT=9999999-^(3),LRDFN=+^(0),LRLLT=^LR(LRDFN,"MI",LRIDT,0),LRACC=$P(LRLLT,U,6),LRCMNT=$S($D(^(99)):^(99),1:""),LRPG=0 D EN^LRMIPSZ1 Q:LREND

 Q

LRMINEW2  ; IHS/DIR/FJE - NEW DATA TO BE REVIEWED/VERIFIED 2/19/91 10:49 ;

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

 +2       ;

 +3       ;;5.2;LAB SERVICE;;Sep 27, 1994

Q2        ;F I=0:0 W !,"Do you want to queue the data to print and review/approve it later" S %=1 D YN^DICN Q:%  W !,"Or you could look at it now!"

 +1       ;IHS/ANMC/CLS 08/18/96

           FOR I=0:0

               WRITE !,"Do you want to queue the data to print and review/approve it later"

               SET %=2

               DO YN^DICN

               IF %

                   QUIT 

               WRITE !,"Or you could look at it now!"

 +2        IF %=-1

               QUIT 

 +3        IF %=1

               SET %ZIS="MQ"

               SET %ZIS("B")=""

               SET IOP="Q"

 +4        WRITE !

           SET ZTRTN="DQ^LRMINEW2"

           DO IO^LRWU

 +5        QUIT 

DQ         IF $DATA(ZTQUEUED)

               SET ZTREQ="@"

           USE IO

           KILL ^TMP($JOB)

           SET LREND=0

           SET LRONETST=""

           SET LRONESPC=""

 +1        SET LRAN=0

           FOR I=0:0

               SET LRAN=+$ORDER(^LRO(68,LRAA,1,LRAD,"AC",LRSB,LRAN))

               IF LRAN<1!($GET(LREND))

                   QUIT 

               IF +^(LRAN)=LRDXZ!(LRDXZ=0)

                   DO SORT

 +2       ;S LRLOCA="" F I=0:0 S LRLOCA=$O(^TMP($J,LRLOCA)) Q:LRLOCA=""!($G(LREND))  S LRLTR=$E(LRLOCA,1,4) W @IOF D ^LRLTR:$E(IOST,1,2)'="C-" S LRAN=0 F I=0:0 S LRAN=+$O(^TMP($J,LRLOCA,LRAN)) Q:LRAN<1!($G(LREND))  D SENDUP Q:LREND

 +3       ;IHS/ANMC/CLS 08/18/96 sort by LRAN

           SET LRAN=0

           FOR I=0:0

               SET LRAN=+$ORDER(^TMP($JOB,LRAN))

               IF LRAN<1!($GET(LREND))

                   QUIT 

               SET LRLOCA=+^(LRAN)

               DO SENDUP

               IF LREND

                   QUIT 

 +4        KILL ^TMP($JOB),LRWRDVEW

 +5        QUIT 

SORT       IF '$DATA(^LRO(68,LRAA,1,LRAD,1,LRAN,0))

               QUIT 

           SET LRLOCA=$PIECE(^(0),U,7)

           IF LRLOCA=""

               QUIT 

 +1       ;S ^TMP($J,LRLOCA,LRAN)=""

 +2       ;IHS/ANMC/CLS 08/18/96 sort by LRAN

           SET ^TMP($JOB,LRAN)=LRLOCA

 +3        QUIT 

SENDUP     IF '$DATA(^LRO(68,LRAA,1,LRAD,1,LRAN,3))!($GET(LREND))

               QUIT 

           SET LRIDT=9999999-^(3)

           SET LRDFN=+^(0)

           SET LRLLT=^LR(LRDFN,"MI",LRIDT,0)

           SET LRACC=$PIECE(LRLLT,U,6)

           SET LRCMNT=$SELECT($DATA(^(99)):^(99),1:"")

           SET LRPG=0

           DO EN^LRMIPSZ1

           IF LREND

               QUIT 

 +1        QUIT