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

ORQQCN.m

Go to the documentation of this file.
  1. ORQQCN ; SLC/CLA/REV - Functions which return patient consult requests and results ; APR 30, 2024@15:56
  1. ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10,85,620**;Dec 17, 1997;Build 2
  1. LIST(ORY,ORPT,ORSDT,OREDT,ORSERV,ORSTATUS) ; return patient's consult requests between start date and stop date for the service and status indicated:
  1. N I,J,SITE,SEQ,DIFF,ORSRV,ORLOC,GMRCOER
  1. S J=1,SEQ="",GMRCOER=2
  1. S:'$L($G(ORSDT)) ORSDT=""
  1. S:'$L($G(OREDT)) OREDT=""
  1. S:'$L($G(ORSERV))!(+$G(ORSERV)=0) ORSERV=""
  1. S:'$L($G(ORSTATUS)) ORSTATUS="" ;ALL STATI
  1. K ^TMP("GMRCR",$J)
  1. S ORY=$NA(^TMP("ORQQCN",$J,"CS"))
  1. I '$L($G(ORPT)) S ^TMP("ORQQCN",$J,"CS",1,0)="< ERROR DFN IS MISSING >" Q
  1. D OER^GMRCSLM1(ORPT,ORSERV,ORSDT,OREDT,ORSTATUS,GMRCOER)
  1. M @ORY=^TMP("GMRCR",$J,"CS")
  1. K @ORY@("AD")
  1. K @ORY@(0)
  1. K ^TMP("GMRCR",$J)
  1. Q
  1. DETAIL(ORQY,CONSULT) ; return formatted consult request details (plus result note if available):
  1. N GMRCOER
  1. S GMRCOER=2
  1. S ORQY=$NA(^TMP("GMRCR",$J,"DT"))
  1. D DT^GMRCSLM2(CONSULT)
  1. Q
  1. ;