ORWRP1A.m

ORWRP1A ; slc/dcm - Report Calls Cont. ;5/8/01  09:27

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,160**;Dec 17, 1997

BCMA1(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ;BCMA Med Log

 Q:'$G(ORDFN)

 I $L($G(DTRANGE)),'$G(ALPHA) S ALPHA=$$FMADD^XLFDT(DT,-DTRANGE),OMEGA=$$NOW^XLFDT

 Q:'$G(ALPHA)  Q:'$G(OMEGA)

 I $L($T(RPC^PSBO)) D RPC^PSBO(.OROOT,"ML",ORDFN,ALPHA,OMEGA,"0^0^0^0^1^1")

 I '$L($G(OROOT)) Q

 I '$O(@OROOT@(0)) S @OROOT@(1)="",@OROOT@(2)="No report available..."

 Q

BCMA2(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ;BCMA MAH Report

 Q:'$G(ORDFN)

 I $L($G(DTRANGE)),'$G(ALPHA) S ALPHA=$$FMADD^XLFDT(DT,-DTRANGE),OMEGA=$$NOW^XLFDT

 Q:'$G(ALPHA)  Q:'$G(OMEGA)

 I $L($T(RPC^PSBO)) D RPC^PSBO(.OROOT,"MH",ORDFN,ALPHA,OMEGA,"")

 I '$L($G(OROOT)) Q

 I '$O(@OROOT@(0)) S @OROOT@(1)="",@OROOT@(2)="No report available..."

 Q

EM(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; -- get Electron Microscopy Report

 N I,C,LINES,X,ORSBHEAD,ORZIP

 K ^TMP("LRC",$J),^TMP("LRH",$J)

 S ORSBHEAD("EM")=""

 D EN^LR7OSUM(.ORZIP,ORDFN,,,,80,.ORSBHEAD)

 I '$O(^TMP("LRC",$J,0)) S ^TMP("LRC",$J,1,0)="",^TMP("LRC",$J,2,0)="No EM reports available..."

 S OROOT=$NA(^TMP("LRC",$J))

 K ^TMP("LRH",$J)

 Q

CY(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; -- get Cytology Report

 N I,C,LINES,X,ORSBHEAD,ORZIP

 K ^TMP("LRC",$J),^TMP("LRH",$J)

 S ORSBHEAD("CYTOPATHOLOGY")=""

 D EN^LR7OSUM(.ORZIP,ORDFN,,,,80,.ORSBHEAD)

 I '$O(^TMP("LRC",$J,0)) S ^TMP("LRC",$J,1,0)="",^TMP("LRC",$J,2,0)="No Cytology reports available..."

 S OROOT=$NA(^TMP("LRC",$J))

 K ^TMP("LRH",$J)

 Q

SP(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; -- get Surgical Pathology Report

 N I,C,LINES,X,ORSBHEAD,ORZIP

 K ^TMP("LRC",$J),^TMP("LRH",$J)

 S ORSBHEAD("SURGICAL PATHOLOGY")=""

 D EN^LR7OSUM(.ORZIP,ORDFN,,,,80,.ORSBHEAD)

 I '$O(^TMP("LRC",$J,0)) S ^TMP("LRC",$J,1,0)="",^TMP("LRC",$J,2,0)="No Surgical Pathology reports available..."

 S OROOT=$NA(^TMP("LRC",$J))

 K ^TMP("LRH",$J)

 Q

AU(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; -- get Autopsy Report

 N I,C,LINES,X,ORSBHEAD,ORZIP

 K ^TMP("LRC",$J),^TMP("LRH",$J)

 S ORSBHEAD("AUTOPSY")=""

 D EN^LR7OSUM(.ORZIP,ORDFN,,,,80,.ORSBHEAD)

 I '$O(^TMP("LRC",$J,0)) S ^TMP("LRC",$J,1,0)="",^TMP("LRC",$J,2,0)="No Autopsy report available..."

 S OROOT=$NA(^TMP("LRC",$J))

 K ^TMP("LRH",$J)

 Q

ORWRP1A   ; slc/dcm - Report Calls Cont. ;5/8/01  09:27

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**109,160**;Dec 17, 1997

BCMA1(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ;BCMA Med Log

 +1        IF '$GET(ORDFN)

               QUIT 

 +2        IF $LENGTH($GET(DTRANGE))

               IF '$GET(ALPHA)

                   SET ALPHA=$$FMADD^XLFDT(DT,-DTRANGE)

                   SET OMEGA=$$NOW^XLFDT

 +3        IF '$GET(ALPHA)

               QUIT 

           IF '$GET(OMEGA)

               QUIT 

 +4        IF $LENGTH($TEXT(RPC^PSBO))

               DO RPC^PSBO(.OROOT,"ML",ORDFN,ALPHA,OMEGA,"0^0^0^0^1^1")

 +5        IF '$LENGTH($GET(OROOT))

               QUIT 

 +6        IF '$ORDER(@OROOT@(0))

               SET @OROOT@(1)=""

               SET @OROOT@(2)="No report available..."

 +7        QUIT 

BCMA2(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ;BCMA MAH Report

 +1        IF '$GET(ORDFN)

               QUIT 

 +2        IF $LENGTH($GET(DTRANGE))

               IF '$GET(ALPHA)

                   SET ALPHA=$$FMADD^XLFDT(DT,-DTRANGE)

                   SET OMEGA=$$NOW^XLFDT

 +3        IF '$GET(ALPHA)

               QUIT 

           IF '$GET(OMEGA)

               QUIT 

 +4        IF $LENGTH($TEXT(RPC^PSBO))

               DO RPC^PSBO(.OROOT,"MH",ORDFN,ALPHA,OMEGA,"")

 +5        IF '$LENGTH($GET(OROOT))

               QUIT 

 +6        IF '$ORDER(@OROOT@(0))

               SET @OROOT@(1)=""

               SET @OROOT@(2)="No report available..."

 +7        QUIT 

EM(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; -- get Electron Microscopy Report

 +1        NEW I,C,LINES,X,ORSBHEAD,ORZIP

 +2        KILL ^TMP("LRC",$JOB),^TMP("LRH",$JOB)

 +3        SET ORSBHEAD("EM")=""

 +4        DO EN^LR7OSUM(.ORZIP,ORDFN,,,,80,.ORSBHEAD)

 +5        IF '$ORDER(^TMP("LRC",$JOB,0))

               SET ^TMP("LRC",$JOB,1,0)=""

               SET ^TMP("LRC",$JOB,2,0)="No EM reports available..."

 +6        SET OROOT=$NAME(^TMP("LRC",$JOB))

 +7        KILL ^TMP("LRH",$JOB)

 +8        QUIT 

CY(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; -- get Cytology Report

 +1        NEW I,C,LINES,X,ORSBHEAD,ORZIP

 +2        KILL ^TMP("LRC",$JOB),^TMP("LRH",$JOB)

 +3        SET ORSBHEAD("CYTOPATHOLOGY")=""

 +4        DO EN^LR7OSUM(.ORZIP,ORDFN,,,,80,.ORSBHEAD)

 +5        IF '$ORDER(^TMP("LRC",$JOB,0))

               SET ^TMP("LRC",$JOB,1,0)=""

               SET ^TMP("LRC",$JOB,2,0)="No Cytology reports available..."

 +6        SET OROOT=$NAME(^TMP("LRC",$JOB))

 +7        KILL ^TMP("LRH",$JOB)

 +8        QUIT 

SP(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; -- get Surgical Pathology Report

 +1        NEW I,C,LINES,X,ORSBHEAD,ORZIP

 +2        KILL ^TMP("LRC",$JOB),^TMP("LRH",$JOB)

 +3        SET ORSBHEAD("SURGICAL PATHOLOGY")=""

 +4        DO EN^LR7OSUM(.ORZIP,ORDFN,,,,80,.ORSBHEAD)

 +5        IF '$ORDER(^TMP("LRC",$JOB,0))

               SET ^TMP("LRC",$JOB,1,0)=""

               SET ^TMP("LRC",$JOB,2,0)="No Surgical Pathology reports available..."

 +6        SET OROOT=$NAME(^TMP("LRC",$JOB))

 +7        KILL ^TMP("LRH",$JOB)

 +8        QUIT 

AU(OROOT,ORDFN,ID,ALPHA,OMEGA,DTRANGE,REMOTE,ORMAX,ORFHIE) ; -- get Autopsy Report

 +1        NEW I,C,LINES,X,ORSBHEAD,ORZIP

 +2        KILL ^TMP("LRC",$JOB),^TMP("LRH",$JOB)

 +3        SET ORSBHEAD("AUTOPSY")=""

 +4        DO EN^LR7OSUM(.ORZIP,ORDFN,,,,80,.ORSBHEAD)

 +5        IF '$ORDER(^TMP("LRC",$JOB,0))

               SET ^TMP("LRC",$JOB,1,0)=""

               SET ^TMP("LRC",$JOB,2,0)="No Autopsy report available..."

 +6        SET OROOT=$NAME(^TMP("LRC",$JOB))

 +7        KILL ^TMP("LRH",$JOB)

 +8        QUIT