ORDV03.m

ORDV03 ; slc/dcm - OE/RR Report Extracts ;15-Jun-2010 21:07;PLS

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,208,1005,215,243**;Dec 17, 1997;Build 47

RI(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT)      ;Radiology impression

 ;External Calls: MAIN^GMTSRAE(1)

 ; Modified - IHS/MSC/PLS - 06/15/2010 - Line RR+33,RRDOD+34 - Annotation

 ; ^TMP("GMTSRAD",$J) used via DBIA 4333

 ; ^TMP("RAE",$J) used via DBIA 3968

 N ORDT,ORX0,ORJ,ORCNT,GMDATA,GMTSI,GMW,MAX,TEST,GMTSNDM,GMTS1,GMTS2,ORSITE,SITE,GO

 Q:'$L(OREXT)

 S GO=$P(OREXT,";")_"^"_$P(OREXT,";",2)

 Q:'$L($T(@GO))

 S IOST=$G(IOST),GMTSNDM=$S(+$G(ORMAX)>0:ORMAX,1:999),GMTS2=ORALPHA,GMTS1=OROMEGA

 S ORSITE=$$SITE^VASITE,ORSITE=$P(ORSITE,"^",2)_";"_$P(ORSITE,"^",3)

 K ^TMP("ORDATA",$J),^TMP("RAE",$J)  ;DBIA 3968

 D @GO

 S ORDT=GMTS1,ORCNT=0

 F  S ORDT=$O(^TMP("RAE",$J,ORDT)) Q:(ORDT'>0)!(ORDT>GMTS2)  D

 . S ORJ=0 F  S ORJ=$O(^TMP("RAE",$J,ORDT,ORJ)) Q:'ORJ  I $G(^(ORJ,0)) S ORX0=^(0) D

 .. S ORCNT=ORCNT+1

 .. S SITE=$S($L($G(^TMP("RAE",$J,ORDT,ORJ,"facility"))):^("facility"),1:ORSITE)

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",1)="1^"_SITE ;Station ID

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",2)="2^"_$$DATE^ORDVU($P(ORX0,U)) ;date

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",3)="3^"_$P(ORX0,U,2) ;procedure

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",4)="4^"_$P(ORX0,U,4) ;report status

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",5)="5^"_$P(ORX0,U,7) ;cpt code

 .. D SPMRG^ORDVU($NA(^TMP("RAE",$J,ORDT,ORJ,"I")),$NA(^TMP("ORDATA",$J,ORCNT,"WP",6)),6) ;impression

 .. I $O(^TMP("RAE",$J,ORDT,ORJ,"I",0)) S ^TMP("ORDATA",$J,ORCNT,"WP",8)="8^[+]" ;flag for detail

 K ^TMP("RAE",$J)

 S ROOT=$NA(^TMP("ORDATA",$J))

 Q

RR(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT)        ;Radiology report

 ;External Calls: MAIN^GMTSRAE(2)

 I $L($T(GCPR^OMGCOAS1)) D  ; Call if FHIE station 200

 . N BEG,END,MAX

 . Q:'$G(ORALPHA)  Q:'$G(OROMEGA)

 . S MAX=$S(+$G(ORMAX)>0:ORMAX,1:999)

 . S BEG=9999999-OROMEGA,END=9999999-ORALPHA

 . D GCPR^OMGCOAS1(DFN,"RR",BEG,END,MAX)

 N ORDT,ORX0,ORJ,ORCNT,GMDATA,GMTSI,GMW,MAX,TEST,GMTSNDM,GMTS1,GMTS2,ORSITE,SITE,GO,ORMORE

 Q:'$L(OREXT)

 S GO=$P(OREXT,";")_"^"_$P(OREXT,";",2)

 Q:'$L($T(@GO))

 K ^TMP("ORDATA",$J)

 S GMTSNDM=$S(+$G(ORMAX)>0:ORMAX,1:999),GMTS1=OROMEGA,GMTS2=ORALPHA

 S ORSITE=$$SITE^VASITE,ORSITE=$P(ORSITE,"^",2)_";"_$P(ORSITE,"^",3)

 I '$L($T(GCPR^OMGCOAS1)) D

 . K ^TMP("RAE",$J)

 . D @GO

 S ORDT=GMTS1,ORCNT=0

 F  S ORDT=$O(^TMP("RAE",$J,ORDT)) Q:(ORDT'>0)  D

 . S ORJ=0 F  S ORJ=$O(^TMP("RAE",$J,ORDT,ORJ)) Q:'ORJ  D

 .. S ORCNT=ORCNT+1,ORMORE=0

 .. S ORX0=$G(^TMP("RAE",$J,ORDT,ORJ,0))

 .. S SITE=$S($L($G(^TMP("RAE",$J,ORDT,ORJ,"facility"))):^("facility"),1:ORSITE)

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",1)="1^"_SITE ;Site ID

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",2)="2^"_$$DATE^ORDVU($P(ORX0,U)) ;date

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",3)="3^"_$P(ORX0,U,2) ;procedure

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",4)="4^"_$S($L($P(ORX0,U,4)):$P(ORX0,U,4),1:"No Report") ;report status

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",5)="5^"_$P(ORX0,U,7) ;cpt code

 .. I $O(^TMP("RAE",$J,ORDT,ORJ,"S",0)) S ORMORE=1 D SPMRG^ORDVU($NA(^TMP("RAE",$J,ORDT,ORJ,"S")),$NA(^TMP("ORDATA",$J,ORCNT,"WP",6,1)),6) ;reason for study

 .. I $O(^TMP("RAE",$J,ORDT,ORJ,"H",0)) S ORMORE=1 D SPMRG^ORDVU($NA(^TMP("RAE",$J,ORDT,ORJ,"H")),$NA(^TMP("ORDATA",$J,ORCNT,"WP",7,1)),7) ;clinical history

 .. I $O(^TMP("RAE",$J,ORDT,ORJ,"I",0)) S ORMORE=1 D SPMRG^ORDVU($NA(^TMP("RAE",$J,ORDT,ORJ,"I")),$NA(^TMP("ORDATA",$J,ORCNT,"WP",8,1)),8) ;impression

 .. I $O(^TMP("RAE",$J,ORDT,ORJ,"R",0)) S ORMORE=1 D SPMRG^ORDVU($NA(^TMP("RAE",$J,ORDT,ORJ,"R")),$NA(^TMP("ORDATA",$J,ORCNT,"WP",9,1)),9) ;report

 .. D ANNOT($P(ORX0,U,11),$P(ORX0,U,2),+ORX0,10) ;IHS/MSC/DKM - Added support for report annotations

 .. I ORMORE S ^TMP("ORDATA",$J,ORCNT,"WP",10)="10^[+]" ;flag for detail

 K ^TMP("RAE",$J)

 S ROOT=$NA(^TMP("ORDATA",$J))

 Q

RRDOD(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT)        ;Radiology report

 ;External Calls: MAIN^GMTSRAE(2)

 ;

 I $L($T(GCPR^OMGCOAS1)) D  ; Call if FHIE station 200

 . N BEG,END,MAX

 . Q:'$G(ORALPHA)  Q:'$G(OROMEGA)

 . S MAX=$S(+$G(ORMAX)>0:ORMAX,1:999)

 . S BEG=9999999-OROMEGA,END=9999999-ORALPHA

 . D GCPR^OMGCOAS1(DFN,"RR",BEG,END,MAX)

 ;

 N ORDT,ORX0,ORJ,ORCNT,GMDATA,GMTSI,GMW,MAX,TEST,GMTSNDM,GMTS1,GMTS2,ORSITE,SITE,GO,ORMORE

 Q:'$L(OREXT)

 S GO=$P(OREXT,";")_"^"_$P(OREXT,";",2)

 Q:'$L($T(@GO))

 K ^TMP("ORDATA",$J)

 S GMTSNDM=$S(+$G(ORMAX)>0:ORMAX,1:999),GMTS1=OROMEGA,GMTS2=ORALPHA

 S ORSITE=$$SITE^VASITE,ORSITE=$P(ORSITE,"^",2)_";"_$P(ORSITE,"^",3)

 I '$L($T(GCPR^OMGCOAS1)) D

 . K ^TMP("RAE",$J)

 . D @GO

 S ORDT=GMTS1,ORCNT=0

 F  S ORDT=$O(^TMP("RAE",$J,ORDT)) Q:(ORDT'>0)  D

 . S ORJ=0 F  S ORJ=$O(^TMP("RAE",$J,ORDT,ORJ)) Q:'ORJ  D

 .. S ORCNT=ORCNT+1,ORMORE=0

 .. S ORX0=$G(^TMP("RAE",$J,ORDT,ORJ,0))

 .. S SITE=$S($L($G(^TMP("RAE",$J,ORDT,ORJ,"facility"))):^("facility"),1:ORSITE)

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",1)="1^"_SITE ;Site ID

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",2)="2^"_$$DATE^ORDVU($P(ORX0,U)) ;date

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",3)="3^"_$P(ORX0,U,2) ;procedure

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",4)="4^"_$S($L($P(ORX0,U,4)):$P(ORX0,U,4),1:"No Report") ;report status

 .. S ^TMP("ORDATA",$J,ORCNT,"WP",5)="5^"_$P(ORX0,U,7) ;cpt code

 .. I $O(^TMP("RAE",$J,ORDT,ORJ,"H",0)) S ORMORE=1 D SPMRG^ORDVU($NA(^TMP("RAE",$J,ORDT,ORJ,"H")),$NA(^TMP("ORDATA",$J,ORCNT,"WP",6,1)),6) ;clinical history

 .. I $O(^TMP("RAE",$J,ORDT,ORJ,"I",0)) S ORMORE=1 D SPMRG^ORDVU($NA(^TMP("RAE",$J,ORDT,ORJ,"I")),$NA(^TMP("ORDATA",$J,ORCNT,"WP",7,1)),7) ;impression

 .. I $O(^TMP("RAE",$J,ORDT,ORJ,"R",0)) S ORMORE=1 D SPMRG^ORDVU($NA(^TMP("RAE",$J,ORDT,ORJ,"R")),$NA(^TMP("ORDATA",$J,ORCNT,"WP",8,1)),8) ;report

 .. D ANNOT($P(ORX0,U,11),$P(ORX0,U,2),+ORX0,10) ;IHS/MSC/DKM - Added support for report annotations

 .. I ORMORE S ^TMP("ORDATA",$J,ORCNT,"WP",9)="9^[+]" ;flag for detail

 K ^TMP("RAE",$J)

 S ROOT=$NA(^TMP("ORDATA",$J))

 Q

 ; IHS/MSC/DKM - Check for annotations

ANNOT(PKGREF,NAME,DATE,SUB) ;

 N TIUDA,UND,CANVIEW

 Q:'PKGREF

 S PKGREF=PKGREF_";RARPT("

 S ^TMP("ORDATA",$J,ORCNT,"WP",SUB)=SUB_U_PKGREF_";"_NAME_" performed on "_$$DATE^ORDVU(DATE)

 S TIUDA=0,UND=$$REPEAT^XLFSTR("-",80),SUB=SUB+1

 F  S TIUDA=$O(^TIU(8925,"G",PKGREF,TIUDA)) Q:'TIUDA  D

 .S CANVIEW=$$CANDO^TIULP(TIUDA,"VIEW")

 .I +CANVIEW>0 D

 .. N GBL,LP

 .. D TGET^TIUSRVR1(.GBL,TIUDA)

 .. S LP="",@GBL@(0)=UND

 .. F  S LP=$O(@GBL@(LP)) Q:'$L(LP)  S @GBL@(LP)=SUB_U_@GBL@(LP)

 .. M ^TMP("ORDATA",$J,ORCNT,"WP",SUB,TIUDA)=@GBL

 .. K @GBL

 .. S ORMORE=1

 Q

 ; IHS/MSC/DKM - End mod

RS(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Radiology status

 ;External calls: GET^GMTSRAD

 N ORSITE,SITE,CNT,ORDT,ORDA,ORDA2,REC,GMTSEND,GMTSBEG,GO,STAT

 Q:'$L(OREXT)

 S GO=$P(OREXT,";")_"^"_$P(OREXT,";",2)

 Q:'$L($T(@GO))

 S GMTSBEG=ORDBEG,GMTSEND=ORDEND

 S ORSITE=$$SITE^VASITE,ORSITE=$P(ORSITE,"^",2)_";"_$P(ORSITE,"^",3)

 K ^TMP("GMTSRAD",$J)  ;DBIA 4333

 D @GO

 S CNT=0,ORDT=OROMEGA

 F  S ORDT=$O(^TMP("GMTSRAD",$J,ORDT)) Q:(ORDT'>0)!(ORDT>ORALPHA)!(CNT'<ORMAX)  D

 .S ORDA=0

 .F  S ORDA=$O(^TMP("GMTSRAD",$J,ORDT,ORDA)) Q:'ORDA!(CNT'<ORMAX)  D

 ..S ORDA2=0

 ..F  S ORDA2=$O(^TMP("GMTSRAD",$J,ORDT,ORDA,ORDA2)) Q:'ORDA2!(CNT'<ORMAX)  S REC=^(ORDA2),STAT=$P(REC,"^",2) D

 ...S CNT=CNT+1

 ...S SITE=$S($L($G(^TMP("GMTSRAD",$J,ORDT,ORDA,ORDA2,"facility"))):^("facility"),1:ORSITE)

 ...S ^TMP("ORDATA",$J,ORDT,"WP",1)="1^"_SITE

 ...S ^TMP("ORDATA",$J,ORDT,"WP",2)="2^"_$$DATE^ORDVU($P(REC,"^"))

 ...S ^TMP("ORDATA",$J,ORDT,"WP",3)="3^"_$S(STAT="d":"Discontinued",STAT="c":"Complete",STAT="h":"Hold",STAT="p":"Pending",STAT="a":"Active",STAT="s":"Scheduled",STAT="u":"Unreleased",1:STAT)

 ...S ^TMP("ORDATA",$J,ORDT,"WP",4)="4^"_$P(REC,"^",3)

 ...S ^TMP("ORDATA",$J,ORDT,"WP",5)="5^"_$$DATE^ORDVU($P(REC,"^",4))

 ...S ^TMP("ORDATA",$J,ORDT,"WP",6)="6^"_$P(REC,"^",5)

 S ROOT=$NA(^TMP("ORDATA",$J))

 Q

RAD1 ;Get radiology impression

 D MAIN^GMTSRAE(1)

 Q

RAD2 ;Get radiology report

 D MAIN^GMTSRAE(2)

 Q

ORDV03    ; slc/dcm - OE/RR Report Extracts ;15-Jun-2010 21:07;PLS

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,208,1005,215,243**;Dec 17, 1997;Build 47

RI(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Radiology impression

 +1       ;External Calls: MAIN^GMTSRAE(1)

 +2       ; Modified - IHS/MSC/PLS - 06/15/2010 - Line RR+33,RRDOD+34 - Annotation

 +3       ; ^TMP("GMTSRAD",$J) used via DBIA 4333

 +4       ; ^TMP("RAE",$J) used via DBIA 3968

 +5        NEW ORDT,ORX0,ORJ,ORCNT,GMDATA,GMTSI,GMW,MAX,TEST,GMTSNDM,GMTS1,GMTS2,ORSITE,SITE,GO

 +6        IF '$LENGTH(OREXT)

               QUIT 

 +7        SET GO=$PIECE(OREXT,";")_"^"_$PIECE(OREXT,";",2)

 +8        IF '$LENGTH($TEXT(@GO))

               QUIT 

 +9        SET IOST=$GET(IOST)

           SET GMTSNDM=$SELECT(+$GET(ORMAX)>0:ORMAX,1:999)

           SET GMTS2=ORALPHA

           SET GMTS1=OROMEGA

 +10       SET ORSITE=$$SITE^VASITE

           SET ORSITE=$PIECE(ORSITE,"^",2)_";"_$PIECE(ORSITE,"^",3)

 +11      ;DBIA 3968

           KILL ^TMP("ORDATA",$JOB),^TMP("RAE",$JOB)

 +12       DO @GO

 +13       SET ORDT=GMTS1

           SET ORCNT=0

 +14       FOR 

               SET ORDT=$ORDER(^TMP("RAE",$JOB,ORDT))

               IF (ORDT'>0)!(ORDT>GMTS2)

                   QUIT 

               Begin DoDot:1

 +15               SET ORJ=0

                   FOR 

                       SET ORJ=$ORDER(^TMP("RAE",$JOB,ORDT,ORJ))

                       IF 'ORJ

                           QUIT 

                       IF $GET(^(ORJ,0))

                           SET ORX0=^(0)

                           Begin DoDot:2

 +16                           SET ORCNT=ORCNT+1

 +17                           SET SITE=$SELECT($LENGTH($GET(^TMP("RAE",$JOB,ORDT,ORJ,"facility"))):^("facility"),1:ORSITE)

 +18      ;Station ID

                               SET ^TMP("ORDATA",$JOB,ORCNT,"WP",1)="1^"_SITE

 +19      ;date

                               SET ^TMP("ORDATA",$JOB,ORCNT,"WP",2)="2^"_$$DATE^ORDVU($PIECE(ORX0,U))

 +20      ;procedure

                               SET ^TMP("ORDATA",$JOB,ORCNT,"WP",3)="3^"_$PIECE(ORX0,U,2)

 +21      ;report status

                               SET ^TMP("ORDATA",$JOB,ORCNT,"WP",4)="4^"_$PIECE(ORX0,U,4)

 +22      ;cpt code

                               SET ^TMP("ORDATA",$JOB,ORCNT,"WP",5)="5^"_$PIECE(ORX0,U,7)

 +23      ;impression

                               DO SPMRG^ORDVU($NAME(^TMP("RAE",$JOB,ORDT,ORJ,"I")),$NAME(^TMP("ORDATA",$JOB,ORCNT,"WP",6)),6)

 +24      ;flag for detail

                               IF $ORDER(^TMP("RAE",$JOB,ORDT,ORJ,"I",0))

                                   SET ^TMP("ORDATA",$JOB,ORCNT,"WP",8)="8^[+]"

                           End DoDot:2

               End DoDot:1

 +25       KILL ^TMP("RAE",$JOB)

 +26       SET ROOT=$NAME(^TMP("ORDATA",$JOB))

 +27       QUIT 

RR(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Radiology report

 +1       ;External Calls: MAIN^GMTSRAE(2)

 +2       ; Call if FHIE station 200

           IF $LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +3                NEW BEG,END,MAX

 +4                IF '$GET(ORALPHA)

                       QUIT 

                   IF '$GET(OROMEGA)

                       QUIT 

 +5                SET MAX=$SELECT(+$GET(ORMAX)>0:ORMAX,1:999)

 +6                SET BEG=9999999-OROMEGA

                   SET END=9999999-ORALPHA

 +7                DO GCPR^OMGCOAS1(DFN,"RR",BEG,END,MAX)

               End DoDot:1

 +8        NEW ORDT,ORX0,ORJ,ORCNT,GMDATA,GMTSI,GMW,MAX,TEST,GMTSNDM,GMTS1,GMTS2,ORSITE,SITE,GO,ORMORE

 +9        IF '$LENGTH(OREXT)

               QUIT 

 +10       SET GO=$PIECE(OREXT,";")_"^"_$PIECE(OREXT,";",2)

 +11       IF '$LENGTH($TEXT(@GO))

               QUIT 

 +12       KILL ^TMP("ORDATA",$JOB)

 +13       SET GMTSNDM=$SELECT(+$GET(ORMAX)>0:ORMAX,1:999)

           SET GMTS1=OROMEGA

           SET GMTS2=ORALPHA

 +14       SET ORSITE=$$SITE^VASITE

           SET ORSITE=$PIECE(ORSITE,"^",2)_";"_$PIECE(ORSITE,"^",3)

 +15       IF '$LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +16               KILL ^TMP("RAE",$JOB)

 +17               DO @GO

               End DoDot:1

 +18       SET ORDT=GMTS1

           SET ORCNT=0

 +19       FOR 

               SET ORDT=$ORDER(^TMP("RAE",$JOB,ORDT))

               IF (ORDT'>0)

                   QUIT 

               Begin DoDot:1

 +20               SET ORJ=0

                   FOR 

                       SET ORJ=$ORDER(^TMP("RAE",$JOB,ORDT,ORJ))

                       IF 'ORJ

                           QUIT 

                       Begin DoDot:2

 +21                       SET ORCNT=ORCNT+1

                           SET ORMORE=0

 +22                       SET ORX0=$GET(^TMP("RAE",$JOB,ORDT,ORJ,0))

 +23                       SET SITE=$SELECT($LENGTH($GET(^TMP("RAE",$JOB,ORDT,ORJ,"facility"))):^("facility"),1:ORSITE)

 +24      ;Site ID

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",1)="1^"_SITE

 +25      ;date

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",2)="2^"_$$DATE^ORDVU($PIECE(ORX0,U))

 +26      ;procedure

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",3)="3^"_$PIECE(ORX0,U,2)

 +27      ;report status

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",4)="4^"_$SELECT($LENGTH($PIECE(ORX0,U,4)):$PIECE(ORX0,U,4),1:"No Report")

 +28      ;cpt code

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",5)="5^"_$PIECE(ORX0,U,7)

 +29      ;reason for study

                           IF $ORDER(^TMP("RAE",$JOB,ORDT,ORJ,"S",0))

                               SET ORMORE=1

                               DO SPMRG^ORDVU($NAME(^TMP("RAE",$JOB,ORDT,ORJ,"S")),$NAME(^TMP("ORDATA",$JOB,ORCNT,"WP",6,1)),6)

 +30      ;clinical history

                           IF $ORDER(^TMP("RAE",$JOB,ORDT,ORJ,"H",0))

                               SET ORMORE=1

                               DO SPMRG^ORDVU($NAME(^TMP("RAE",$JOB,ORDT,ORJ,"H")),$NAME(^TMP("ORDATA",$JOB,ORCNT,"WP",7,1)),7)

 +31      ;impression

                           IF $ORDER(^TMP("RAE",$JOB,ORDT,ORJ,"I",0))

                               SET ORMORE=1

                               DO SPMRG^ORDVU($NAME(^TMP("RAE",$JOB,ORDT,ORJ,"I")),$NAME(^TMP("ORDATA",$JOB,ORCNT,"WP",8,1)),8)

 +32      ;report

                           IF $ORDER(^TMP("RAE",$JOB,ORDT,ORJ,"R",0))

                               SET ORMORE=1

                               DO SPMRG^ORDVU($NAME(^TMP("RAE",$JOB,ORDT,ORJ,"R")),$NAME(^TMP("ORDATA",$JOB,ORCNT,"WP",9,1)),9)

 +33      ;IHS/MSC/DKM - Added support for report annotations

                           DO ANNOT($PIECE(ORX0,U,11),$PIECE(ORX0,U,2),+ORX0,10)

 +34      ;flag for detail

                           IF ORMORE

                               SET ^TMP("ORDATA",$JOB,ORCNT,"WP",10)="10^[+]"

                       End DoDot:2

               End DoDot:1

 +35       KILL ^TMP("RAE",$JOB)

 +36       SET ROOT=$NAME(^TMP("ORDATA",$JOB))

 +37       QUIT 

RRDOD(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Radiology report

 +1       ;External Calls: MAIN^GMTSRAE(2)

 +2       ;

 +3       ; Call if FHIE station 200

           IF $LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +4                NEW BEG,END,MAX

 +5                IF '$GET(ORALPHA)

                       QUIT 

                   IF '$GET(OROMEGA)

                       QUIT 

 +6                SET MAX=$SELECT(+$GET(ORMAX)>0:ORMAX,1:999)

 +7                SET BEG=9999999-OROMEGA

                   SET END=9999999-ORALPHA

 +8                DO GCPR^OMGCOAS1(DFN,"RR",BEG,END,MAX)

               End DoDot:1

 +9       ;

 +10       NEW ORDT,ORX0,ORJ,ORCNT,GMDATA,GMTSI,GMW,MAX,TEST,GMTSNDM,GMTS1,GMTS2,ORSITE,SITE,GO,ORMORE

 +11       IF '$LENGTH(OREXT)

               QUIT 

 +12       SET GO=$PIECE(OREXT,";")_"^"_$PIECE(OREXT,";",2)

 +13       IF '$LENGTH($TEXT(@GO))

               QUIT 

 +14       KILL ^TMP("ORDATA",$JOB)

 +15       SET GMTSNDM=$SELECT(+$GET(ORMAX)>0:ORMAX,1:999)

           SET GMTS1=OROMEGA

           SET GMTS2=ORALPHA

 +16       SET ORSITE=$$SITE^VASITE

           SET ORSITE=$PIECE(ORSITE,"^",2)_";"_$PIECE(ORSITE,"^",3)

 +17       IF '$LENGTH($TEXT(GCPR^OMGCOAS1))

               Begin DoDot:1

 +18               KILL ^TMP("RAE",$JOB)

 +19               DO @GO

               End DoDot:1

 +20       SET ORDT=GMTS1

           SET ORCNT=0

 +21       FOR 

               SET ORDT=$ORDER(^TMP("RAE",$JOB,ORDT))

               IF (ORDT'>0)

                   QUIT 

               Begin DoDot:1

 +22               SET ORJ=0

                   FOR 

                       SET ORJ=$ORDER(^TMP("RAE",$JOB,ORDT,ORJ))

                       IF 'ORJ

                           QUIT 

                       Begin DoDot:2

 +23                       SET ORCNT=ORCNT+1

                           SET ORMORE=0

 +24                       SET ORX0=$GET(^TMP("RAE",$JOB,ORDT,ORJ,0))

 +25                       SET SITE=$SELECT($LENGTH($GET(^TMP("RAE",$JOB,ORDT,ORJ,"facility"))):^("facility"),1:ORSITE)

 +26      ;Site ID

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",1)="1^"_SITE

 +27      ;date

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",2)="2^"_$$DATE^ORDVU($PIECE(ORX0,U))

 +28      ;procedure

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",3)="3^"_$PIECE(ORX0,U,2)

 +29      ;report status

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",4)="4^"_$SELECT($LENGTH($PIECE(ORX0,U,4)):$PIECE(ORX0,U,4),1:"No Report")

 +30      ;cpt code

                           SET ^TMP("ORDATA",$JOB,ORCNT,"WP",5)="5^"_$PIECE(ORX0,U,7)

 +31      ;clinical history

                           IF $ORDER(^TMP("RAE",$JOB,ORDT,ORJ,"H",0))

                               SET ORMORE=1

                               DO SPMRG^ORDVU($NAME(^TMP("RAE",$JOB,ORDT,ORJ,"H")),$NAME(^TMP("ORDATA",$JOB,ORCNT,"WP",6,1)),6)

 +32      ;impression

                           IF $ORDER(^TMP("RAE",$JOB,ORDT,ORJ,"I",0))

                               SET ORMORE=1

                               DO SPMRG^ORDVU($NAME(^TMP("RAE",$JOB,ORDT,ORJ,"I")),$NAME(^TMP("ORDATA",$JOB,ORCNT,"WP",7,1)),7)

 +33      ;report

                           IF $ORDER(^TMP("RAE",$JOB,ORDT,ORJ,"R",0))

                               SET ORMORE=1

                               DO SPMRG^ORDVU($NAME(^TMP("RAE",$JOB,ORDT,ORJ,"R")),$NAME(^TMP("ORDATA",$JOB,ORCNT,"WP",8,1)),8)

 +34      ;IHS/MSC/DKM - Added support for report annotations

                           DO ANNOT($PIECE(ORX0,U,11),$PIECE(ORX0,U,2),+ORX0,10)

 +35      ;flag for detail

                           IF ORMORE

                               SET ^TMP("ORDATA",$JOB,ORCNT,"WP",9)="9^[+]"

                       End DoDot:2

               End DoDot:1

 +36       KILL ^TMP("RAE",$JOB)

 +37       SET ROOT=$NAME(^TMP("ORDATA",$JOB))

 +38       QUIT 

 +39      ; IHS/MSC/DKM - Check for annotations

ANNOT(PKGREF,NAME,DATE,SUB) ;

 +1        NEW TIUDA,UND,CANVIEW

 +2        IF 'PKGREF

               QUIT 

 +3        SET PKGREF=PKGREF_";RARPT("

 +4        SET ^TMP("ORDATA",$JOB,ORCNT,"WP",SUB)=SUB_U_PKGREF_";"_NAME_" performed on "_$$DATE^ORDVU(DATE)

 +5        SET TIUDA=0

           SET UND=$$REPEAT^XLFSTR("-",80)

           SET SUB=SUB+1

 +6        FOR 

               SET TIUDA=$ORDER(^TIU(8925,"G",PKGREF,TIUDA))

               IF 'TIUDA

                   QUIT 

               Begin DoDot:1

 +7                SET CANVIEW=$$CANDO^TIULP(TIUDA,"VIEW")

 +8                IF +CANVIEW>0

                       Begin DoDot:2

 +9                        NEW GBL,LP

 +10                       DO TGET^TIUSRVR1(.GBL,TIUDA)

 +11                       SET LP=""

                           SET @GBL@(0)=UND

 +12                       FOR 

                               SET LP=$ORDER(@GBL@(LP))

                               IF '$LENGTH(LP)

                                   QUIT 

                               SET @GBL@(LP)=SUB_U_@GBL@(LP)

 +13                       MERGE ^TMP("ORDATA",$JOB,ORCNT,"WP",SUB,TIUDA)=@GBL

 +14                       KILL @GBL

 +15                       SET ORMORE=1

                       End DoDot:2

               End DoDot:1

 +16       QUIT 

 +17      ; IHS/MSC/DKM - End mod

RS(ROOT,ORALPHA,OROMEGA,ORMAX,ORDBEG,ORDEND,OREXT) ;Radiology status

 +1       ;External calls: GET^GMTSRAD

 +2        NEW ORSITE,SITE,CNT,ORDT,ORDA,ORDA2,REC,GMTSEND,GMTSBEG,GO,STAT

 +3        IF '$LENGTH(OREXT)

               QUIT 

 +4        SET GO=$PIECE(OREXT,";")_"^"_$PIECE(OREXT,";",2)

 +5        IF '$LENGTH($TEXT(@GO))

               QUIT 

 +6        SET GMTSBEG=ORDBEG

           SET GMTSEND=ORDEND

 +7        SET ORSITE=$$SITE^VASITE

           SET ORSITE=$PIECE(ORSITE,"^",2)_";"_$PIECE(ORSITE,"^",3)

 +8       ;DBIA 4333

           KILL ^TMP("GMTSRAD",$JOB)

 +9        DO @GO

 +10       SET CNT=0

           SET ORDT=OROMEGA

 +11       FOR 

               SET ORDT=$ORDER(^TMP("GMTSRAD",$JOB,ORDT))

               IF (ORDT'>0)!(ORDT>ORALPHA)!(CNT'<ORMAX)

                   QUIT 

               Begin DoDot:1

 +12               SET ORDA=0

 +13               FOR 

                       SET ORDA=$ORDER(^TMP("GMTSRAD",$JOB,ORDT,ORDA))

                       IF 'ORDA!(CNT'<ORMAX)

                           QUIT 

                       Begin DoDot:2

 +14                       SET ORDA2=0

 +15                       FOR 

                               SET ORDA2=$ORDER(^TMP("GMTSRAD",$JOB,ORDT,ORDA,ORDA2))

                               IF 'ORDA2!(CNT'<ORMAX)

                                   QUIT 

                               SET REC=^(ORDA2)

                               SET STAT=$PIECE(REC,"^",2)

                               Begin DoDot:3

 +16                               SET CNT=CNT+1

 +17                               SET SITE=$SELECT($LENGTH($GET(^TMP("GMTSRAD",$JOB,ORDT,ORDA,ORDA2,"facility"))):^("facility"),1:ORSITE)

 +18                               SET ^TMP("ORDATA",$JOB,ORDT,"WP",1)="1^"_SITE

 +19                               SET ^TMP("ORDATA",$JOB,ORDT,"WP",2)="2^"_$$DATE^ORDVU($PIECE(REC,"^"))

 +20                               SET ^TMP("ORDATA",$JOB,ORDT,"WP",3)="3^"_$SELECT(STAT="d":"Discontinued",STAT="c":"Complete",STAT="h":"Hold",STAT="p":"Pending",STAT="a":"Active",STAT="s":"Scheduled",STAT="u":"Unreleased",1:STAT)

 +21                               SET ^TMP("ORDATA",$JOB,ORDT,"WP",4)="4^"_$PIECE(REC,"^",3)

 +22                               SET ^TMP("ORDATA",$JOB,ORDT,"WP",5)="5^"_$$DATE^ORDVU($PIECE(REC,"^",4))

 +23                               SET ^TMP("ORDATA",$JOB,ORDT,"WP",6)="6^"_$PIECE(REC,"^",5)

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +24       SET ROOT=$NAME(^TMP("ORDATA",$JOB))

 +25       QUIT 

RAD1      ;Get radiology impression

 +1        DO MAIN^GMTSRAE(1)

 +2        QUIT 

RAD2      ;Get radiology report

 +1        DO MAIN^GMTSRAE(2)

 +2        QUIT