Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORWRPL

ORWRPL.m

Go to the documentation of this file. 
  1. ORWRPL ; slc/dcm - Background GUI Lab Print Driver;10:36 AM  14 Jan 2000 ; 08 Feb 2001  09:02AM [7/2/01 7:27am]
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,109**;Dec 17, 1997
  1. RPTLIST ; -- list of Lab reports
  1.  ; <ID> ^ <report name> ^ <qualifier type> ^
  1.  ; <qualifier type> = 0:none,2:DateTime
  1.  ;;21^Cumulative^2
  1.  ;;3^Interim^2
  1.  ;;4^Interim for Selected Tests^2
  1.  ;;20^Anatomic Path Report^0
  1.  ;;2^Blood Bank Report^0
  1.  ;;9^Microbiology Report^2
  1.  ;;10^Lab Status Report^2
  1.  ;;$$END
  1.  ;
  1. PRINT(ORY,ORIO,ORDFN,RPTID,ORDAYSBK,ORTESTS,ORALPHA,OROMEGA)        ; -- print report entry point
  1.  ;  See RPC definition for details on input and output parameters
  1.  IF '$$CHK() G PRINTQ
  1.  N ZTDTH,ZTRTN,ZTSK,ZTDESC,ZTSAVE
  1.  S ZTIO=ORIO,ZTDTH=$H
  1.  S ZTDESC="GUI Lab Report Print"
  1.  S ZTRTN="DEQUE^ORWRPL"
  1.  S ZTSAVE("ORDFN")="",ZTSAVE("RPTID")="",ZTSAVE("ORDAYSBK")="",ZTSAVE("DUZ(")="",ZTSAVE("ORTESTS(")="",ZTSAVE("ORALPHA")="",ZTSAVE("OROMEGA")=""
  1.  D ^%ZTLOAD
  1.  I $D(ZTSK) D
  1.  . S ORY="0^Report queued. (Task #"_ZTSK_")"
  1.  E  D
  1.  . S ORY="99^Task Rejected."
  1. PRINTQ Q
  1. REMOTE(ORY,ORIO,ORDFN,RPTID,ORHANDS) ;Print data for remote sites
  1.  ;  RPC: ORWRP PRINT REMOTE REPORT
  1.  N ZTDTH,ZTRTN,ZTSK,ZTDESC,ZTSAVE,I
  1.  S ZTIO=ORIO,ZTDTH=$H
  1.  S ZTDESC="Remote Lab Report Print"
  1.  S ZTRTN="DEQUE^ORWRPL"
  1.  F I="ORDFN","RPTID","ORHANDS(" S ZTSAVE(I)=""
  1.  D ^%ZTLOAD
  1.  I $D(ZTSK) D
  1.  . S ORY="0^Report queued. (Task #"_ZTSK_")"
  1.  E  D
  1.  . S ORY="99^Task Rejected."
  1.  Q
  1.  ;
  1. PRINTW(ORTEXT,ORDFN,RPTID,ORDAYSBK,ORTESTS,ORALPHA,OROMEGA) ;Windows device print
  1.  N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO
  1.  N IOM,IOSL,IOST,IOF,IOT,IOS
  1.  S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS"
  1.  S ORTEXT=$NA(^TMP(ORSUB,$J,1))
  1.  I '$$CHK() S @ORTEXT@(0)=ORY G PRINTWQ
  1.  S ORHFS=$$HFS^ORWRP()
  1.  D HFSOPEN^ORWRP("ORWRP",ORHFS,"W")
  1.  I POP D  Q
  1.  . I $D(ROOT) D SETITEM^ORWRP(.ROOT,"ERROR: Unable to open HFS file")
  1.  D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80")
  1.  N $ETRAP,$ESTACK
  1.  S $ETRAP="D ERR^ORWRP Q"
  1.  U IO
  1.  D DEQUE
  1.  D HFSCLOSE^ORWRP("ORWRP",ORHFS)
  1. PRINTWQ Q
  1. PRINTWR(ORTEXT,ORDFN,RPTID,ORHANDS) ;Windows Remote device print
  1.  N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO,ORHANDLE
  1.  N IOM,IOSL,IOST,IOF,IOT,IOS
  1.  S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORTEXT=$NA(^TMP(ORSUB,$J,1)),ORHANDLE="ORWRP"
  1.  S ORHFS=$$HFS^ORWRP()
  1.  D HFSOPEN^ORWRP(ORHANDLE,ORHFS,"W")
  1.  I POP D  Q
  1.  . I $D(ROOT) D SETITEM^ORWRP(.ROOT,"ERROR: Unable to open HFS file")
  1.  D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80")
  1.  N $ETRAP,$ESTACK
  1.  S $ETRAP="D ERR^ORWRP Q"
  1.  U IO
  1.  D DEQUE
  1.  D HFSCLOSE^ORWRP(ORHANDLE,ORHFS)
  1.  Q
  1. CHK() ; -- do checks for required data
  1.  N OROK,FALSE,TRUE,ORRPT,TXT
  1.  S FALSE=0,TRUE=1
  1.  IF $G(ORIO)']"" S OROK=FALSE,ORY="1^No device selected." G CHKQ
  1.  IF '$G(RPTID) S OROK=FALSE,ORY="2^No report specified." G CHKQ
  1.  ; -- get report definition
  1.  S (TXT,ORRPT)=""
  1.  F I=3:1 S TXT=$P($TEXT(RPTLIST+I),";;",2) Q:TXT="$$END"!(TXT="")  I +TXT=RPTID S ORRPT=TXT Q
  1.  IF +ORRPT'=RPTID S OROK=FALSE,ORY="3^Report type specified is not valid." G CHKQ
  1.  IF $P(ORRPT,U,3)=2,'$G(ORDAYSBK),'$G(ORALPHA) S OROK=FALSE,ORY="4^No date range specified." G CHKQ
  1.  IF '$D(^DPT(+$G(ORDFN),0)) S OROK=FALSE,ORY="6^Patient specified is not valid." G CHKQ
  1.  S OROK=TRUE
  1. CHKQ Q OROK
  1.  ;
  1. DEQUE ; -- logic to print queued report
  1.  ; -- call build report logic
  1.  I '$O(ORHANDS(0)) D LOOP Q
  1.  N ORI,ORX
  1.  S ORI=0
  1.  F  S ORI=$O(ORHANDS(ORI)) Q:'ORI  S ORX=ORHANDS(ORI) D
  1.  . N ORY,PAGE,ORALPHA,OROMEGA,ORID
  1.  . D RTNDATA^XWBDRPC(.ORY,$P(ORX,"^",2))
  1.  . S:ORY="" ORY="ORY"
  1.  . S PAGE=1,ORALPHA=$P(ORX,"^",3),OROMEGA=$P(ORX,"^",4),ORID=$$ID(RPTID)
  1.  . D HEAD^ORWRPP1(ORDFN,PAGE,ORID,$P(ORX,"^"))
  1.  . D HURL^ORWRPP1(.ORY,ORDFN,ORID,1,$P(ORX,"^"))
  1.  Q
  1. ID(ID) ;Get Report ID
  1.  I ID=21 Q "LAB CUMULATIVE ("_ORALPHA_" - "_OROMEGA_")"
  1.  I ID=3 Q "LAB INTERIM ("_ORALPHA_" - "_OROMEGA_")"
  1.  I ID=4 Q "LAB INTERIM FOR SELECTED TESTS ("_ORALPHA_" - "_OROMEGA_")"
  1.  I ID=20 Q "PATIENT ANATOMIC PATHOLOGY REPORT"
  1.  I ID=2 Q "PATIENT BLOOD BANK REPORT"
  1.  I ID=9 Q "MICROBIOLOGY REPORT ("_ORALPHA_" - "_OROMEGA_")"
  1.  I ID=10 Q "PATIENT LAB ORDER STATUS REPORT ("_ORALPHA_" - "_OROMEGA_")"
  1.  Q ""
  1. LOOP ;
  1.  IF RPTID=21 D  G DEQUEQ
  1.  . N ORY,PAGE,TEXT,X1,X2,X
  1.  . D CUM^ORWLR(.ORY,.ORDFN,.ORDAYSBK,.ORALPHA,.OROMEGA)
  1.  . Q:'$L(ORY)
  1.  . S PAGE=1,X1=DT,X2=-$G(ORDAYSBK,7)
  1.  . D C^%DTC
  1.  . S TEXT="LAB CUMULATIVE ("_$$FMTE^XLFDT(ORALPHA)_" - "_$$FMTE^XLFDT(OROMEGA)_")"
  1.  . D HEAD^ORWRPP1(ORDFN,PAGE,TEXT,$G(STATION))
  1.  . D HURL^ORWRPP1(.ORY,ORDFN,TEXT)
  1.  IF RPTID=3 D  G DEQUEQ
  1.  . N ORY,PAGE,TEXT,X
  1.  . I $L(ORDAYSBK),'$G(ORALPHA) S ORALPHA=$$FMADD^XLFDT(DT,-ORDAYSBK),OROMEGA=$$NOW^XLFDT
  1.  . Q:'$G(ORALPHA)  Q:'$G(OROMEGA)
  1.  . D INTERIM^ORWLRR(.ORY,.ORDFN,OROMEGA,.ORALPHA)
  1.  . Q:'$L(ORY)
  1.  . S PAGE=1,TEXT="LAB INTERIM ("_$$FMTE^XLFDT(ORALPHA)_" - "_$$FMTE^XLFDT(OROMEGA)_")"
  1.  . D HEAD^ORWRPP1(ORDFN,PAGE,TEXT,$G(STATION))
  1.  . D HURL^ORWRPP1(.ORY,ORDFN,TEXT,1)
  1.  IF RPTID=4 D  G DEQUEQ
  1.  . N ORY,PAGE,TEXT,X
  1.  . I $L(ORDAYSBK),'$G(ORALPHA) S ORALPHA=$$FMADD^XLFDT(DT,-ORDAYSBK),OROMEGA=$$NOW^XLFDT
  1.  . Q:'$G(ORALPHA)  Q:'$G(OROMEGA)
  1.  . D INTERIMS^ORWLRR(.ORY,.ORDFN,.OROMEGA,.ORALPHA,.ORTESTS)
  1.  . Q:'$L(ORY)
  1.  . S PAGE=1,TEXT="LAB INTERIM FOR SELECTED TESTS ("_$$FMTE^XLFDT(ORALPHA)_" - "_$$FMTE^XLFDT(OROMEGA)_")"
  1.  . D HEAD^ORWRPP1(ORDFN,PAGE,TEXT,$G(STATION))
  1.  . D HURL^ORWRPP1(.ORY,ORDFN,TEXT,1)
  1.  IF RPTID=20 D  G DEQUEQ
  1.  . N ORY,PAGE
  1.  . D AP^ORWRP1(.ORY,.ORDFN,.ID,.ORALPHA,.OROMEGA,.ORDTRNG,.REMOTE)
  1.  . Q:'$L(ORY)
  1.  . S PAGE=1
  1.  . D HEAD^ORWRPP1(ORDFN,PAGE,"PATIENT ANATOMIC PATHOLOGY REPORT",$G(STATION))
  1.  . D HURL^ORWRPP1(.ORY,ORDFN,"PATIENT ANATOMIC PATHOLOGY REPORT")
  1.  IF RPTID=2 D  G DEQUEQ
  1.  . N ORY,PAGE
  1.  . D BLR^ORWRP1(.ORY,.ORDFN,.ID,.ORALPHA,.OROMEGA,.ORDAYSBK,.REMOTE)
  1.  . Q:'$L(ORY)
  1.  . S PAGE=1
  1.  . D HEAD^ORWRPP1(ORDFN,PAGE,"PATIENT BLOOD BANK REPORT",$G(STATION))
  1.  . D HURL^ORWRPP1(.ORY,ORDFN,"PATIENT BLOOD BANK REPORT")
  1.  IF RPTID=9 D  G DEQUEQ
  1.  . N ORY,PAGE,TEXT,X
  1.  . I $L(ORDAYSBK),'$G(ORALPHA) S ORALPHA=$$FMADD^XLFDT(DT,-ORDAYSBK),OROMEGA=$$NOW^XLFDT
  1.  . Q:'$G(ORALPHA)  Q:'$G(OROMEGA)
  1.  . D MICRO^ORWLRR(.ORY,.ORDFN,.OROMEGA,.ORALPHA)
  1.  . Q:'$L(ORY)
  1.  . S PAGE=1,TEXT="MICROBIOLOGY REPORT ("_$$FMTE^XLFDT(ORALPHA)_" - "_$$FMTE^XLFDT(OROMEGA)_")"
  1.  . D HEAD^ORWRPP1(ORDFN,PAGE,TEXT,$G(STATION))
  1.  . D HURL^ORWRPP1(.ORY,ORDFN,TEXT,1)
  1.  IF RPTID=10 D  G DEQUEQ
  1.  . N ORY,PAGE,TEXT,X,ORVP
  1.  . S ORVP=ORDFN_";DPT("
  1.  . D EN1^LR7OSOS1(.ORY,ORVP,.ORALPHA,.OROMEGA,.ORDAYSBK)
  1.  . I '$O(^TMP("ORDATA",$J,1,0)) S ^TMP("ORDATA",$J,1,1,0)="",^TMP("ORDATA",$J,1,2,0)="No Orders found..."
  1.  . S PAGE=1,TEXT="PATIENT LAB ORDER STATUS REPORT ("_$$FMTE^XLFDT(ORALPHA)_" - "_$$FMTE^XLFDT(OROMEGA)_")"
  1.  . D HEAD^ORWRPP1(ORDFN,PAGE,TEXT,$G(STATION))
  1.  . D HURL^ORWRPP1(.ORY,ORDFN,TEXT)
  1. DEQUEQ Q