| 1 | ORQRY01 ;SLC/JDL - Order query utility ;11/20/06 09:01
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**153,174,215,260**;Dec 17, 1997;Build 26
|
|---|
| 3 | ;
|
|---|
| 4 | ; DBIA 3869 GETPLIST^SDAMA202 ^TMP($J,"SDAMA202")
|
|---|
| 5 | ;
|
|---|
| 6 | DOCDT(DOCS) ;Date range for TIU
|
|---|
| 7 | N XDT,SDATE,EDATE
|
|---|
| 8 | S XDT=$O(DOCS("Reference",""))
|
|---|
| 9 | Q:'$L(XDT)
|
|---|
| 10 | S SDATE=$P(XDT,":"),EDATE=$P(XDT,":",2)
|
|---|
| 11 | S:SDATE=-1 SDATE=0
|
|---|
| 12 | I EDATE=-1 S EDATE=9999999+EDATE
|
|---|
| 13 | E S EDATE=EDATE+1
|
|---|
| 14 | K DOCS("Reference",XDT)
|
|---|
| 15 | S DOCS("Reference",SDATE_":"_EDATE)=""
|
|---|
| 16 | Q
|
|---|
| 17 | CLINPTS(ORY,CLIN,ORBDATE,OREDATE) ; RETURN LIST OF PTS W/CLINIC APPT W/IN DT RNG
|
|---|
| 18 | ;Copied from CLINPTS^ORQPTQ2 without maximum limitation
|
|---|
| 19 | S ORY="^TMP(""ORCLINPT"",$J)"
|
|---|
| 20 | K @ORY
|
|---|
| 21 | I +$G(CLIN)<1 S @ORY@(1)="^No clinic identified" Q
|
|---|
| 22 | I $$ACTLOC^ORWU(CLIN)'=1 S @ORY@(1)="^Clinic is inactive or Occasion Of Service" Q
|
|---|
| 23 | N DFN,NAME,I,J,X,ORERR,ORJ,ORSRV,ORNOWDT,CHKX,CHKIN,ORC,CLNAM
|
|---|
| 24 | S ORNOWDT=$$NOW^XLFDT
|
|---|
| 25 | S ORSRV=$$GET1^DIQ(200,DUZ,29,"I") I +ORSRV>0 S ORSRV=$P(ORSRV,U)
|
|---|
| 26 | S DFN=0,I=1
|
|---|
| 27 | I ORBDATE="" S ORBDATE=$$UP^XLFSTR($$GET^XPAR("USR^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORLP DEFAULT CLINIC START DATE",1,"E"))
|
|---|
| 28 | I OREDATE="" S OREDATE=$$UP^XLFSTR($$GET^XPAR("USR^SRV.`"_+$G(ORSRV)_"^DIV^SYS^PKG","ORLP DEFAULT CLINIC STOP DATE",1,"E"))
|
|---|
| 29 | ;CONVERT ORBDATE AND OREDATE INTO FILEMAN DATE/TIME
|
|---|
| 30 | D DT^DILF("T",ORBDATE,.ORBDATE,"","")
|
|---|
| 31 | D DT^DILF("T",OREDATE,.OREDATE,"","")
|
|---|
| 32 | I (ORBDATE=-1)!(OREDATE=-1) S @ORY@(1)="^Error in date range." Q
|
|---|
| 33 | S OREDATE=$P(OREDATE,".")_.5 ;ADD 1/2 DAY TO END DATE
|
|---|
| 34 | ; DBIA 3869
|
|---|
| 35 | N ORI,ORCSTAT
|
|---|
| 36 | K ^TMP($J,"SDAMA202","GETPLIST")
|
|---|
| 37 | D GETPLIST^SDAMA202(+CLIN,"1;3;4","",ORBDATE,OREDATE) ;DBIA 3869
|
|---|
| 38 | S ORERR=$$CLINERR
|
|---|
| 39 | I $L(ORERR) S @ORY@(1)=U_ORERR Q
|
|---|
| 40 | S ORI=0
|
|---|
| 41 | F S ORI=$O(^TMP($J,"SDAMA202","GETPLIST",ORI)) Q:ORI<1 D ;DBIA 3869
|
|---|
| 42 | . S ORCSTAT=+$G(^TMP($J,"SDAMA202","GETPLIST",ORI,3))
|
|---|
| 43 | . I ORCSTAT'="NT" Q:ORCSTAT="C" Q:ORCSTAT="N"
|
|---|
| 44 | . S ORJ=+$G(^TMP($J,"SDAMA202","GETPLIST",ORI,1))
|
|---|
| 45 | . S DFN=+$G(^TMP($J,"SDAMA202","GETPLIST",ORI,4))
|
|---|
| 46 | . I ORJ,DFN S @ORY@(I)=DFN_"^"_$P(^DPT(DFN,0),"^")_"^"_+CLIN_"^"_ORJ,I=I+1
|
|---|
| 47 | K ^TMP($J,"SDAMA202","GETPLIST")
|
|---|
| 48 | S:'$D(@ORY) @ORY@(1)="^No appointments."
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | SDA(ERR,ERRMSG) ; common call to scheduling to return new variables for errors - out of scope
|
|---|
| 52 | D SDA^VADPT
|
|---|
| 53 | S ERR=VAERR
|
|---|
| 54 | I ERR=1 S ERRMSG="^Error encountered^Error encountered" Q
|
|---|
| 55 | I ERR=2 S ERRMSG="^Database is unavailable^Database is unavailable" Q
|
|---|
| 56 | S ERRMSG=""
|
|---|
| 57 | Q
|
|---|
| 58 | ;
|
|---|
| 59 | CLINERR() ; $$ -> error msg or ""
|
|---|
| 60 | N ERR,MSG
|
|---|
| 61 | S MSG=""
|
|---|
| 62 | S ERR=+$O(^TMP($J,"SDAMA202","GETPLIST","ERROR",""))
|
|---|
| 63 | I ERR D
|
|---|
| 64 | . S MSG="Server Error #"_ERR_": "
|
|---|
| 65 | . S MSG=MSG_$G(^TMP($J,"SDAMA202","GETPLIST","ERROR",ERR))
|
|---|
| 66 | . K ^TMP($J,"SDAMA202","GETPLIST")
|
|---|
| 67 | Q MSG
|
|---|
