- 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