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

ORWLRR.m

Go to the documentation of this file. 
  1. ORWLRR ;SLC/STAFF- rpc routing for lab results ;10/20/98  14:08
  1.  ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
  1.  ;
  1.  ; this routine simply routes CPRS rpc calls to the appropriate lab routine
  1.  ;
  1. ALLTESTS(ORY,FROM,DIR) ; from Remote Procedure file
  1.  D ALLTESTS^LR7OGO(.ORY,FROM,DIR)
  1.  Q
  1.  ;
  1. ATESTS(ORY,TEST) ; from Remote Procedure file
  1.  D ATESTS^LR7OGO(.ORY,TEST)
  1.  Q
  1.  ;
  1. ATG(ORY,TESTGP,USER) ; from Remote Procedure file
  1.  D ATG^LR7OGO(.ORY,TESTGP,USER)
  1.  Q
  1.  ;
  1. ATOMICS(ORY,FROM,DIR) ; from Remote Procedure file
  1.  D ATOMICS^LR7OGO(.ORY,FROM,DIR)
  1.  Q
  1.  ;
  1. CHART(ORY,DFN,DATE1,DATE2,SPEC,TEST) ; from Remote Procedure file
  1.  D CHART^LR7OGC(.ORY,DFN,DATE1,DATE2,SPEC,TEST)
  1.  Q
  1.  ;
  1. CHEMTEST(ORY,FROM,DIR) ; from Remote Procedure file
  1.  D CHEMTEST^LR7OGO(.ORY,FROM,DIR)
  1.  Q
  1.  ;
  1. GRID(ORY,DFN,DATE1,DATE2,SPEC,ORTESTS) ; from Remote Procedure file
  1.  D GRID^LR7OGG(.ORY,DFN,DATE1,DATE2,SPEC,.ORTESTS)
  1.  Q
  1.  ;
  1. INTERIM(ORY,DFN,DATE1,DATE2) ; Interim Report RPC (All Tests by Date)
  1.  N ROOT
  1.  S ROOT=$$SET()
  1.  I $$REMOTE(.DFN,.ROOT) D INTERIM^LR7OGM(.ORY,DFN,DATE1,DATE2)
  1.  D CLEAN(.ORY,.ROOT)
  1.  Q
  1.  ;
  1. INTERIMG(ORY,DFN,DATE1,DIR,FORMAT) ; from Remote Procedure file
  1.  D INTERIMG^LR7OGM(.ORY,DFN,DATE1,DIR,$G(FORMAT,1))
  1.  Q
  1.  ;
  1. INTERIMS(ORY,DFN,DATE1,DATE2,ORTESTS) ; from Remote Procedure file
  1.  D INTERIMS^LR7OGM(.ORY,DFN,DATE1,DATE2,.ORTESTS)
  1.  Q
  1.  ;
  1. MICRO(ORY,DFN,DATE1,DATE2) ; Micro Report RPC
  1.  N ROOT
  1.  S ROOT=$$SET()
  1.  I $$REMOTE(.DFN,.ROOT) D MICRO^LR7OGM(.ORY,DFN,DATE1,DATE2)
  1.  D CLEAN(.ORY,.ROOT)
  1.  Q
  1.  ;
  1. NEWOLD(ORY,DFN) ; from Remote Procedure file
  1.  D NEWOLD^LR7OGMU(.ORY,DFN)
  1.  Q
  1.  ;
  1. PARAM(ORY) ; from Remote Procedure file
  1.  D PARAM^LR7OGO(.ORY)
  1.  Q
  1.  ;
  1. SPEC(ORY,FROM,DIR) ; from Remote Procedure file
  1.  D SPEC^LR7OGO(.ORY,FROM,DIR)
  1.  Q
  1.  ;
  1. TG(ORY,USER) ; from Remote Procedure file
  1.  D TG^LR7OGO(.ORY,USER)
  1.  Q
  1.  ;
  1. USERS(ORY,FROM,DIR) ; from Remote Procedure file
  1.  D USERS^LR7OGO(.ORY,FROM,DIR)
  1.  Q
  1.  ;
  1. UTGA(ORY,ORTESTS) ; from Remote Procedure file
  1.  D UTGA^LR7OGO(.ORY,.ORTESTS)
  1.  Q
  1.  ;
  1. UTGD(ORY,TGRP) ; from Remote Procedure file
  1.  D UTGD^LR7OGO(.ORY,TGRP)
  1.  Q
  1.  ;
  1. UTGR(ORY,ORTESTS,TGRP) ; from Remote Procedure file
  1.  D UTGR^LR7OGO(.ORY,.ORTESTS,TGRP)
  1.  Q
  1.  ;
  1. INFO(ORY,ORTEST) ; Get Lab test description info
  1.  I '$L($T(ONE^LR7OR4)) S ORY(1)="Missing lab API (part of patch LR*5.2*256)" Q
  1.  D ONE^LR7OR4(.ORY,.ORTEST)
  1.  Q
  1. REMOTE(DFN,ROOT)  ;Setup for remote data
  1.  N REMOTE,ORGO
  1.  S REMOTE=+$P(DFN,";",2),ORGO=1
  1.  I 'REMOTE S DFN=+DFN Q ORGO ;DFN = DFN;ICN for remote calls
  1.  I REMOTE D
  1.  . I '$L($T(GETDFN^MPIF001)) D SETITEM^ORWRP(.ROOT,"MPI routines missing on remote system") S ORGO=0 Q
  1.  . S ICN=+$P(DFN,";",2),DFN=+$$GETDFN^MPIF001(ICN)
  1.  . I DFN<0 D SETITEM^ORWRP(.ROOT,"Patient not found on remote system") S ORGO=0 Q
  1.  . S:'$D(DUZ("AG")) DUZ("AG")="" ;Broker not currently setting agency for remote sites
  1.  Q ORGO
  1. SET()     ;Shared setup of ROOT node
  1.  K ^TMP("ORDATA",$J,"OUTPUT")
  1.  S ROOT=$NA(^TMP("ORDATA",$J,"OUTPUT"))
  1.  Q ROOT
  1. CLEAN(ORY,ROOT)   ;Shared Clean-up
  1.  I '$O(@ROOT@(0)) S @ROOT@(1)="",@ROOT@(2)="No Data Found"
  1.  I $S($D(ORY):$S('$O(@ORY@(0)):1,1:0),1:$O(@ROOT@(0))) M @ORY=@ROOT
  1.  K ^TMP("ORDATA",$J,"OUTPUT")
  1.  Q