| 1 | ORQQCN ; slc/CLA/REV - Functions which return patient consult requests and results ;08:19 AM 20 FEB 2001
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85**;Dec 17, 1997
|
|---|
| 3 | LIST(ORY,ORPT,ORSDT,OREDT,ORSERV,ORSTATUS) ; return patient's consult requests between start date and stop date for the service and status indicated:
|
|---|
| 4 | N I,J,SITE,SEQ,DIFF,ORSRV,ORLOC,GMRCOER
|
|---|
| 5 | S J=1,SEQ="",GMRCOER=2
|
|---|
| 6 | S:'$L($G(ORSDT)) ORSDT=""
|
|---|
| 7 | S:'$L($G(OREDT)) OREDT=""
|
|---|
| 8 | S:'$L($G(ORSERV))!(+$G(ORSERV)=0) ORSERV=""
|
|---|
| 9 | S:'$L($G(ORSTATUS)) ORSTATUS="" ;ALL STATI
|
|---|
| 10 | K ^TMP("GMRCR",$J)
|
|---|
| 11 | S ORY=$NA(^TMP("ORQQCN",$J,"CS"))
|
|---|
| 12 | D OER^GMRCSLM1(ORPT,ORSERV,ORSDT,OREDT,ORSTATUS,GMRCOER)
|
|---|
| 13 | M @ORY=^TMP("GMRCR",$J,"CS")
|
|---|
| 14 | K @ORY@("AD")
|
|---|
| 15 | K @ORY@(0)
|
|---|
| 16 | K ^TMP("GMRCR",$J)
|
|---|
| 17 | Q
|
|---|
| 18 | DETAIL(ORQY,CONSULT) ; return formatted consult request details (plus result note if available):
|
|---|
| 19 | N GMRCOER
|
|---|
| 20 | S GMRCOER=2
|
|---|
| 21 | S ORQY=$NA(^TMP("GMRCR",$J,"DT"))
|
|---|
| 22 | D DT^GMRCSLM2(CONSULT)
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
