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

ORCXPNDR.m

Go to the documentation of this file.
  1. ORCXPNDR ; SLC/MKB,dcm - Expanded display of Reports ;2/12/97 13:48
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**25,85,215**;Dec 17, 1997
  1. EN ; -- build body of report
  1. N TYPE S TYPE=$P($G(^TMP("OR",$J,ORTAB,"IDX",NUM)),U,4)
  1. I '$L(TYPE)!(+TYPE) D XRAYS^ORCXPND1 Q ;TYPE=case# or null
  1. I $L(TYPE),$E(TYPE,1,4)="MED~" D MED(TYPE) Q ;TYPE=MED~procedure ID
  1. I $L($T(@TYPE)) D @TYPE
  1. Q
  1. PREP ;
  1. W !," ... hold on...building report..."
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. DAYS(NUM) ;
  1. ;NUM=# of days (default=7)
  1. ;Returns -1 if user aborts, otherwise # of days entered.
  1. D1 N X
  1. S:'$G(NUM) NUM=7
  1. W !,"Enter # of days to look back: "_NUM_"// " R X:DTIME Q:$E(X)="^" -1
  1. S:X="" X=NUM S:X?1"T-"1N.N X=$E(X,3,99)
  1. I $E(X)="?"!(X'?1N.N) W !,"Enter the number of days to look back for data." G D1
  1. Q X
  1. TIT(HDR) ;
  1. ;HDR=name of header to display
  1. S:'$D(HDR) HDR=""
  1. D FULL^VALM1 S VALMBCK="R"
  1. W !!,"For "_HDR
  1. Q
  1. ;
  1. GMTSS ; -- Health Summary
  1. N DFN,Y,I,DIC,X,GMTYP
  1. D TIT("Health Summary") Q:$$OS()
  1. D SELTYP^ORPRS13 I '$G(GMTYP(1)) Q
  1. D PREP
  1. D RPT^ORWRP(.Y,ID,1,+GMTYP(1))
  1. D ITEM^ORCXPND("Health Summary")
  1. S I=1 F S I=$O(^TMP("ORDATA",$J,1,I)) Q:I<1 S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=^TMP("ORDATA",$J,1,I)
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. ;
  1. GMTSA ; -- Ad Hoc Health Summary
  1. N DFN,Y,I,DIC,X,GMTSTYP,GMTSTITL,GMTSQIT
  1. D TIT("Adhoc Health Summary") Q:$$OS()
  1. S X="GMTS HS ADHOC",DIC=142,DIZ(0)="ZF" D ^DIC Q:Y'>0 S GMTSTYP=+Y
  1. S GMTSTITL="AD HOC" D BUILD^GMTSADOR
  1. Q:$D(GMTSQIT)
  1. D PREP
  1. D RPT^ORWRP(.Y,ID,15,GMTSTYP)
  1. D ITEM^ORCXPND("Adhoc Health Summary")
  1. S I=1 F S I=$O(^TMP("ORDATA",$J,1,I)) Q:I<1 S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=^TMP("ORDATA",$J,1,I)
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. ;
  1. GMRVC ; -- Vitals Cumulative Report
  1. N DFN,Y,I,X,BCNT
  1. D TIT("Vitals Cumulative Report") Q:$$OS()
  1. S X=$$DAYS(7) Q:X=-1
  1. D PREP
  1. D RPT^ORWRP(.Y,ID,5,,X,"VITCUM")
  1. D ITEM^ORCXPND("Vitals Cumulative Report")
  1. S I=3,BCNT=0
  1. F S I=$O(^TMP("ORDATA",$J,1,I)) Q:I<1 S X=^(I) D Q:X["No cumulative vitals data for this patient"
  1. . I '$L(X) S BCNT=BCNT+1 I BCNT>1 Q
  1. . S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=X S:$L(X) BCNT=0
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. FHP ; -- Dietetics profile
  1. N X,I S X=$$P^FHWOR71(+ORVP)
  1. D ITEM^ORCXPND("Dietetics Profile"),BLANK^ORCXPND
  1. I +X'>0 S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=$P(X,U,2) Q ; no rpt
  1. S I=0 F S I=$O(^TMP($J,"FHPROF",+ORVP,I)) Q:I'>0 S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=^TMP($J,"FHPROF",+ORVP,I)
  1. K ^TMP($J,"FHPROF",+ORVP)
  1. Q
  1. ;
  1. FHA ; -- Nurtritional Assessments
  1. N X,I S ID=$P(ID,";",2),X=$$FHWORASM^FHWORA(+ORVP,ID)
  1. D ITEM^ORCXPND("Nutritional Assessment on "_ID),BLANK^ORCXPND
  1. I X'>0 S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=$P(X,U,2) Q ; no rpt
  1. S I=0 F S I=$O(^TMP($J,"FHASM",+ORVP,I)) Q:I'>0 S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=^TMP($J,"FHASM",+ORVP,I)
  1. K ^TMP($J,"FHASM",+ORVP)
  1. Q
  1. ;
  1. ORS ; -- Daily Order Summary
  1. N DFN,Y,I,BCNT
  1. D TIT("Daily Order Summary") Q:$$OS()
  1. D PREP
  1. D RPT^ORWRP(.Y,ID,10,,1)
  1. D ITEM^ORCXPND("Daily Order Summary")
  1. S I=3,BCNT=0
  1. F S I=$O(^TMP("ORDATA",$J,1,I)) Q:I<1 S X=^(I) D Q:X["* END OF ORDERS *"
  1. . I '$L(X) S BCNT=BCNT+1 I BCNT>1 Q
  1. . S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=X S:$L(X) BCNT=0
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. ;
  1. ORD ; -- Order Summary for Date Range
  1. N DFN,Y,I,BCNT,OREND,ORSSTRT,ORSSTOP
  1. D TIT("Order summary for Date Range") Q:$$OS()
  1. D RANGE^ORCXPND3($S($G(ORWARD):7,1:180)) Q:OREND
  1. D PREP
  1. D RPT^ORWRP(.Y,ID,11,,,,+ORSSTRT,+ORSSTOP)
  1. D ITEM^ORCXPND("Order Summary for Date Range")
  1. S I=3,BCNT=0
  1. F S I=$O(^TMP("ORDATA",$J,1,I)) Q:I<1 S X=^(I) D Q:X["* END OF ORDERS *"
  1. . I '$L(X) S BCNT=BCNT+1 I BCNT>1 Q
  1. . S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=X S:$L(X) BCNT=0
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. ORC ; -- Customized order summary
  1. N DFN,Y,I,BCNT,ORDG,ORPRES,ORSSTRT,ORSSTOP,OREND
  1. D TIT("Custom Order Summary") Q:$$OS()
  1. D RANGE^ORCXPND3($S($G(ORWARD):7,1:180)) Q:OREND
  1. D CUSTOM^ORPRS01 Q:$G(OREND)
  1. D PREP
  1. D RPT^ORWRP(.Y,ID,14,,,,+ORSSTRT,+ORSSTOP)
  1. D ITEM^ORCXPND("Custom order summary")
  1. S I=3,BCNT=0
  1. F S I=$O(^TMP("ORDATA",$J,1,I)) Q:I<1 S X=^(I) D Q:X["* END OF ORDERS *"
  1. . I '$L(X) S BCNT=BCNT+1 I BCNT>1 Q
  1. . S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=X S:$L(X) BCNT=0
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. ORP ; -- Print Chart Copy Summary
  1. N DFN,Y,I,BCNT,ORSSTRT,ORSSTOP,OREND
  1. D TIT("Chart Copy Summary") Q:$$OS()
  1. D RANGE^ORCXPND3($S($G(ORWARD):7,1:180)) Q:OREND
  1. D PREP
  1. D RPT^ORWRP(.Y,ID,12,,,,+ORSSTRT,+ORSSTOP)
  1. D ITEM^ORCXPND("Chart Copy Summary")
  1. S I=.1,BCNT=0
  1. F S I=$O(^TMP("ORDATA",$J,1,I)) Q:I<1 S X=^(I) D
  1. . I '$L(X) S BCNT=BCNT+1 I BCNT>1 Q
  1. . S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=X S:$L(X) BCNT=0
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. PSO ; -- Outpatient Pharmacy Action Profile
  1. N DFN,Y,I,BCNT
  1. D TIT("Outpatient Pharmacy Action Profile") Q:$$OS()
  1. D PREP
  1. D RPT^ORWRP(.Y,ID,13)
  1. D ITEM^ORCXPND("Outpatient Pharmacy Action Profile")
  1. S I=.1,BCNT=0
  1. F S I=$O(^TMP("ORDATA",$J,1,I)) Q:I<1 S X=^(I) D
  1. . I '$L(X) S BCNT=BCNT+1 I BCNT>1 Q
  1. . S LCNT=LCNT+1,^TMP("ORXPND",$J,LCNT,0)=X S:$L(X) BCNT=0
  1. K ^TMP("ORDATA",$J)
  1. Q
  1. OS() ; Check OS- Temporary disabled for OpenM
  1. Q 0 ;Open M check disabled - remove if Wally's fix fixed.
  1. I $G(^%ZOSF("OS"))["OpenM" W !!,$C(7),"This report is currently unavailable from this menu.",!,"Please use 'OR Other Reports ...' to get this report." D READ^ORUTL
  1. Q $G(^%ZOSF("OS"))["OpenM"
  1. LRA ;AP Report
  1. D LRA^ORCXPND3
  1. Q
  1. LRAA ;AP Report (alt)
  1. D LRAA^ORCXPND3
  1. Q
  1. LRB1 ;BB Report
  1. D LRB1^ORCXPND3
  1. Q
  1. LRB ;BB Report (alt)
  1. D LRB^ORCXPND3
  1. Q
  1. LRC ;Lab cumulative
  1. D LRC^ORCXPND3
  1. Q
  1. LRG ;Lab Graph
  1. D LRG^ORCXPND3
  1. Q
  1. LRI ;Lab Interim by Day
  1. D LRI^ORCXPND3
  1. Q
  1. LRGEN ;Lab results by test
  1. D LRGEN^ORCXPND3
  1. Q
  1. STAT ;Lab order status
  1. D STAT^ORCXPND3
  1. Q
  1. MED(TYPE) ;Medicine Patient Procedure Summary
  1. D MED^ORCXPND3(TYPE)
  1. Q