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

ORPRS02.m

Go to the documentation of this file.
  1. ORPRS02 ; slc/dcm - Jurasic Prints ;11/18/96 20:20
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**11,69,99,121,189**;Dec 17, 1997
  1. DAY ; Process 24-hr Order Summary
  1. N I,ORATTEND,ORTIT,ORPRES,ORSHORT,ORDG,ORGRP,ORSEL,ORSEQ
  1. S OREND=0,ORTIT="DAILY ORDER SUMMARY",ORPRES=1,ORSHORT=$$SHORT
  1. S ORDG=1,ORGRP("NAM")="ALL",ORGRP("ROOT")=1
  1. D WRT
  1. Q
  1. RANGE ; Order Summary for Date/time Range
  1. N I,ORATTEND,ORTIT,ORPRES,ORSHORT,ORDG,ORGRP,ORSEL,ORSEQ
  1. S OREND=0,ORTIT="ORDER SUMMARY",ORPRES=1,ORSHORT=$$SHORT
  1. S ORDG=1,ORGRP("NAM")="ALL",ORGRP("ROOT")=1
  1. D WRT
  1. Q
  1. CUSTOM ; Customized Order Summary
  1. N I,ORATTEND,ORTIT,ORSHORT,ORGRP,ORSEL,ORSEQ
  1. S OREND=0,ORSHORT=$$SHORT
  1. S ORGRP("NAM")=^ORD(100.98,ORDG,0),ORGRP("ROOT")=ORBUF,ORGRP("NAM")=$S($L($P(ORGRP("NAM"),"^",3)):$P(ORGRP("NAM"),"^",3),1:$E($P(ORGRP("NAM"),"^"),1,5))
  1. S ORTIT=$P(ORPRES,";",2)_" for "_ORGRP("NAM")_" SERVICES"
  1. D WRT
  1. Q
  1. CHART ; Set up call to print chart copy for patient
  1. N OREND,OREARLY,ORLATE,DFN
  1. S OREARLY=+$G(ORSSTRT),ORLATE=+$G(ORSSTOP)
  1. S DFN=+ORVP D PATIENT^ORPRS06(DFN,OREARLY,ORLATE,IO,21,+$G(ORL))
  1. Q
  1. WORK ;Set up call for Work Copy patient summary
  1. N OREND,OREARLY,ORLATE,DFN
  1. S OREARLY=+$G(ORSSTRT),ORLATE=+$G(ORSSTOP)
  1. S DFN=+ORVP D WORK^ORPRS06(DFN,OREARLY,ORLATE,IO)
  1. Q
  1. CONT ; Print Report
  1. N ZTRTN,ZTDESC
  1. S ZTRTN="WRT^ORPRS02",ZTDESC=ORTIT
  1. D @ZTRTN
  1. Q
  1. WRT ;Entry point for Batch Processing
  1. ;Setup display group list, patient list, and process reports
  1. N %,%H,%I,DFN,DX,DY,I,II,J,K,ODATE,ORAGE,ORDAD,ORDOB,ORFLAG,ORI,ORIFN
  1. N ORL,ORLIST,ORLST,ORMD,ORNP,ORODT,ORPD,ORPNM,ORPV,ORREQ,ORSEX
  1. N ORSSN,ORSTOP,ORSTRT,ORSTS,ORASTS,ORTERM,ORTM,ORTS,ORTX,ORUSER,ORWARD
  1. N ORSLTR,ORAW,VA,VAROOT,X,X0,X1,X3,Y,Z
  1. S ORAW=$S(+$$GET^XPAR("SYS","OR ORDER SUMMARY CONTEXT",1,"I"):"AW",1:"")
  1. U IO
  1. D EN^ORQ1(ORVP,ORDG,+ORPRES,0,+ORSSTRT,+ORSSTOP,0,1,ORAW,1)
  1. N ORPI,ORPA,ORPN,X,ORPIFN
  1. S ORPI=0 F S ORPI=$O(^TMP("ORR",$J,ORLIST,ORPI)) Q:'ORPI D
  1. . S ORPIFN=+^TMP("ORR",$J,ORLIST,ORPI),ORPA=$P(^(ORPI),";",2)
  1. . I $D(^OR(100,ORPIFN,8,ORPA,0)) S X=^(0),ORPN=$P(X,"^",12)
  1. . I $G(ORPN),$D(^ORD(100.02,ORPN,1)),'$P(^(1),"^",3) K ^TMP("ORR",$J,ORLIST,ORPI)
  1. I $$GET^XPAR("ALL","ORPF SUMMARY SORT FORWARD",1,"I") D SORT
  1. D @$S(ORSHORT:"EN^ORPRS04",1:"EN^ORPRS03")
  1. K ^TMP("ORR",$J,ORLIST)
  1. I $D(ZTQUEUED) S ZTREQ="@"
  1. Q
  1. SHORT() ; Check whether user prefers condensed or expanded printout
  1. Q +$$GET^XPAR("ALL","ORPF CONDENSED ORDER SUMMARY",1,"I")
  1. ;
  1. SORT ;Re sort ^TMP("ORR",$J in inverse order
  1. Q:'$D(^TMP("ORR",$J,ORLIST))
  1. K ^TMP("ORRF",$J)
  1. N I,C
  1. S C=0,I=9999999
  1. F S I=$O(^TMP("ORR",$J,ORLIST,I),-1) Q:I<1 S C=C+1,^TMP("ORRF",$J,C)=^(I)
  1. K ^TMP("ORR",$J,ORLIST)
  1. M ^TMP("ORR",$J,ORLIST)=^TMP("ORRF",$J)
  1. K ^TMP("ORRF",$J)
  1. Q