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

ORQRY01.m

Go to the documentation of this file.
  1. ORQRY01 ;SLC/JDL - Order query utility ;11/20/06 09:01
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**153,174,215,260**;Dec 17, 1997;Build 26
  1. ;
  1. ; DBIA 3869 GETPLIST^SDAMA202 ^TMP($J,"SDAMA202")
  1. ;
  1. DOCDT(DOCS) ;Date range for TIU
  1. N XDT,SDATE,EDATE
  1. S XDT=$O(DOCS("Reference",""))
  1. Q:'$L(XDT)
  1. S SDATE=$P(XDT,":"),EDATE=$P(XDT,":",2)
  1. S:SDATE=-1 SDATE=0
  1. I EDATE=-1 S EDATE=9999999+EDATE
  1. E S EDATE=EDATE+1
  1. K DOCS("Reference",XDT)
  1. S DOCS("Reference",SDATE_":"_EDATE)=""
  1. Q
  1. CLINPTS(ORY,CLIN,ORBDATE,OREDATE) ; RETURN LIST OF PTS W/CLINIC APPT W/IN DT RNG
  1. ;Copied from CLINPTS^ORQPTQ2 without maximum limitation
  1. S ORY="^TMP(""ORCLINPT"",$J)"
  1. K @ORY
  1. I +$G(CLIN)<1 S @ORY@(1)="^No clinic identified" Q
  1. I $$ACTLOC^ORWU(CLIN)'=1 S @ORY@(1)="^Clinic is inactive or Occasion Of Service" Q
  1. N DFN,NAME,I,J,X,ORERR,ORJ,ORSRV,ORNOWDT,CHKX,CHKIN,ORC,CLNAM
  1. S ORNOWDT=$$NOW^XLFDT
  1. S ORSRV=$$GET1^DIQ(200,DUZ,29,"I") I +ORSRV>0 S ORSRV=$P(ORSRV,U)
  1. S DFN=0,I=1
  1. I ORBDATE="" S ORBDATE=$$UP^XLFSTR($$GET^XPAR("USR^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORLP DEFAULT CLINIC START DATE",1,"E"))
  1. I OREDATE="" S OREDATE=$$UP^XLFSTR($$GET^XPAR("USR^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORLP DEFAULT CLINIC STOP DATE",1,"E"))
  1. ;CONVERT ORBDATE AND OREDATE INTO FILEMAN DATE/TIME
  1. D DT^DILF("T",ORBDATE,.ORBDATE,"","")
  1. D DT^DILF("T",OREDATE,.OREDATE,"","")
  1. I (ORBDATE=-1)!(OREDATE=-1) S @ORY@(1)="^Error in date range." Q
  1. S OREDATE=$P(OREDATE,".")_.5 ;ADD 1/2 DAY TO END DATE
  1. ; DBIA 3869
  1. N ORI,ORCSTAT
  1. K ^TMP($J,"SDAMA202","GETPLIST")
  1. D GETPLIST^SDAMA202(+CLIN,"1;3;4","",ORBDATE,OREDATE) ;DBIA 3869
  1. S ORERR=$$CLINERR
  1. I $L(ORERR) S @ORY@(1)=U_ORERR Q
  1. S ORI=0
  1. F S ORI=$O(^TMP($J,"SDAMA202","GETPLIST",ORI)) Q:ORI<1 D ;DBIA 3869
  1. . S ORCSTAT=+$G(^TMP($J,"SDAMA202","GETPLIST",ORI,3))
  1. . I ORCSTAT'="NT" Q:ORCSTAT="C" Q:ORCSTAT="N"
  1. . S ORJ=+$G(^TMP($J,"SDAMA202","GETPLIST",ORI,1))
  1. . S DFN=+$G(^TMP($J,"SDAMA202","GETPLIST",ORI,4))
  1. . I ORJ,DFN S @ORY@(I)=DFN_"^"_$P(^DPT(DFN,0),"^")_"^"_+CLIN_"^"_ORJ,I=I+1
  1. K ^TMP($J,"SDAMA202","GETPLIST")
  1. S:'$D(@ORY) @ORY@(1)="^No appointments."
  1. Q
  1. ;
  1. SDA(ERR,ERRMSG) ; common call to scheduling to return new variables for errors - out of scope
  1. D SDA^VADPT
  1. S ERR=VAERR
  1. I ERR=1 S ERRMSG="^Error encountered^Error encountered" Q
  1. I ERR=2 S ERRMSG="^Database is unavailable^Database is unavailable" Q
  1. S ERRMSG=""
  1. Q
  1. ;
  1. CLINERR() ; $$ -> error msg or ""
  1. N ERR,MSG
  1. S MSG=""
  1. S ERR=+$O(^TMP($J,"SDAMA202","GETPLIST","ERROR",""))
  1. I ERR D
  1. . S MSG="Server Error #"_ERR_": "
  1. . S MSG=MSG_$G(^TMP($J,"SDAMA202","GETPLIST","ERROR",ERR))
  1. . K ^TMP($J,"SDAMA202","GETPLIST")
  1. Q MSG