source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWLRR.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 3.0 KB
Line 
1ORWLRR ;SLC/STAFF- rpc routing for lab results ;10/20/98 14:08
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**10**;Dec 17, 1997
3 ;
4 ; this routine simply routes CPRS rpc calls to the appropriate lab routine
5 ;
6ALLTESTS(ORY,FROM,DIR) ; from Remote Procedure file
7 D ALLTESTS^LR7OGO(.ORY,FROM,DIR)
8 Q
9 ;
10ATESTS(ORY,TEST) ; from Remote Procedure file
11 D ATESTS^LR7OGO(.ORY,TEST)
12 Q
13 ;
14ATG(ORY,TESTGP,USER) ; from Remote Procedure file
15 D ATG^LR7OGO(.ORY,TESTGP,USER)
16 Q
17 ;
18ATOMICS(ORY,FROM,DIR) ; from Remote Procedure file
19 D ATOMICS^LR7OGO(.ORY,FROM,DIR)
20 Q
21 ;
22CHART(ORY,DFN,DATE1,DATE2,SPEC,TEST) ; from Remote Procedure file
23 D CHART^LR7OGC(.ORY,DFN,DATE1,DATE2,SPEC,TEST)
24 Q
25 ;
26CHEMTEST(ORY,FROM,DIR) ; from Remote Procedure file
27 D CHEMTEST^LR7OGO(.ORY,FROM,DIR)
28 Q
29 ;
30GRID(ORY,DFN,DATE1,DATE2,SPEC,ORTESTS) ; from Remote Procedure file
31 D GRID^LR7OGG(.ORY,DFN,DATE1,DATE2,SPEC,.ORTESTS)
32 Q
33 ;
34INTERIM(ORY,DFN,DATE1,DATE2) ; Interim Report RPC (All Tests by Date)
35 N ROOT
36 S ROOT=$$SET()
37 I $$REMOTE(.DFN,.ROOT) D INTERIM^LR7OGM(.ORY,DFN,DATE1,DATE2)
38 D CLEAN(.ORY,.ROOT)
39 Q
40 ;
41INTERIMG(ORY,DFN,DATE1,DIR,FORMAT) ; from Remote Procedure file
42 D INTERIMG^LR7OGM(.ORY,DFN,DATE1,DIR,$G(FORMAT,1))
43 Q
44 ;
45INTERIMS(ORY,DFN,DATE1,DATE2,ORTESTS) ; from Remote Procedure file
46 D INTERIMS^LR7OGM(.ORY,DFN,DATE1,DATE2,.ORTESTS)
47 Q
48 ;
49MICRO(ORY,DFN,DATE1,DATE2) ; Micro Report RPC
50 N ROOT
51 S ROOT=$$SET()
52 I $$REMOTE(.DFN,.ROOT) D MICRO^LR7OGM(.ORY,DFN,DATE1,DATE2)
53 D CLEAN(.ORY,.ROOT)
54 Q
55 ;
56NEWOLD(ORY,DFN) ; from Remote Procedure file
57 D NEWOLD^LR7OGMU(.ORY,DFN)
58 Q
59 ;
60PARAM(ORY) ; from Remote Procedure file
61 D PARAM^LR7OGO(.ORY)
62 Q
63 ;
64SPEC(ORY,FROM,DIR) ; from Remote Procedure file
65 D SPEC^LR7OGO(.ORY,FROM,DIR)
66 Q
67 ;
68TG(ORY,USER) ; from Remote Procedure file
69 D TG^LR7OGO(.ORY,USER)
70 Q
71 ;
72USERS(ORY,FROM,DIR) ; from Remote Procedure file
73 D USERS^LR7OGO(.ORY,FROM,DIR)
74 Q
75 ;
76UTGA(ORY,ORTESTS) ; from Remote Procedure file
77 D UTGA^LR7OGO(.ORY,.ORTESTS)
78 Q
79 ;
80UTGD(ORY,TGRP) ; from Remote Procedure file
81 D UTGD^LR7OGO(.ORY,TGRP)
82 Q
83 ;
84UTGR(ORY,ORTESTS,TGRP) ; from Remote Procedure file
85 D UTGR^LR7OGO(.ORY,.ORTESTS,TGRP)
86 Q
87 ;
88INFO(ORY,ORTEST) ; Get Lab test description info
89 I '$L($T(ONE^LR7OR4)) S ORY(1)="Missing lab API (part of patch LR*5.2*256)" Q
90 D ONE^LR7OR4(.ORY,.ORTEST)
91 Q
92REMOTE(DFN,ROOT) ;Setup for remote data
93 N REMOTE,ORGO
94 S REMOTE=+$P(DFN,";",2),ORGO=1
95 I 'REMOTE S DFN=+DFN Q ORGO ;DFN = DFN;ICN for remote calls
96 I REMOTE D
97 . I '$L($T(GETDFN^MPIF001)) D SETITEM^ORWRP(.ROOT,"MPI routines missing on remote system") S ORGO=0 Q
98 . S ICN=+$P(DFN,";",2),DFN=+$$GETDFN^MPIF001(ICN)
99 . I DFN<0 D SETITEM^ORWRP(.ROOT,"Patient not found on remote system") S ORGO=0 Q
100 . S:'$D(DUZ("AG")) DUZ("AG")="" ;Broker not currently setting agency for remote sites
101 Q ORGO
102SET() ;Shared setup of ROOT node
103 K ^TMP("ORDATA",$J,"OUTPUT")
104 S ROOT=$NA(^TMP("ORDATA",$J,"OUTPUT"))
105 Q ROOT
106CLEAN(ORY,ROOT) ;Shared Clean-up
107 I '$O(@ROOT@(0)) S @ROOT@(1)="",@ROOT@(2)="No Data Found"
108 I $S($D(ORY):$S('$O(@ORY@(0)):1,1:0),1:$O(@ROOT@(0))) M @ORY=@ROOT
109 K ^TMP("ORDATA",$J,"OUTPUT")
110 Q
Note: See TracBrowser for help on using the repository browser.