source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORQQCN3.m

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

initial load of FOIAVistA 6/30/08 version

File size: 1.3 KB
Line 
1ORQQCN3 ; slc/REV - RPCs for Consults/Medicine Resulting ;01:56 PM 12 May 2000
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85**;Dec 17, 1997
3 ;
4GETMED(ORY,GMRCO) ; Return available med results for proc request
5 Q:+$G(GMRCO)=0
6 D GETMED^GMRCGUIU(GMRCO,.ORY)
7 Q
8MEDCOMP(ORY,GMRCO,GMRCRSLT,GMRCAD,GMRCORNP,ORALTO) ; Attach a medicine result to a consult
9 ;GMRCO - Internal file number of consult from File 123
10 ;GMRCRSLT - pointer to medicine result
11 ;GMRCAD - Date/Time Consult was resulted.
12 ;GMRCORNP - Provider who attached the result to the consult
13 ;ORALTO - array of alert recipient IENs
14 Q:+$G(GMRCO)=0
15 N ORDUZ,X,I
16 I $G(ORALTO)'="" D
17 .F I=1:1 S X=$P(ORALTO,";",I) Q:X="" S ORDUZ(X)=""
18 D MEDCOMP^GMRCMED(GMRCO,GMRCRSLT,GMRCAD,GMRCORNP,.ORDUZ)
19 Q
20GETRES(ORY,GMRCO) ; return array of associated med results
21 Q:+$G(GMRCO)=0
22 D GETRES^GMRCGUIU(GMRCO,.ORY)
23 Q
24REMOVE(ORY,GMRCO,GMRCRSLT,GMRCAD,GMRCORNP) ; Remove a medicine result from a consult
25 ;GMRCO - Internal file number of consult from File 123
26 ;GMRCRSLT - pointer to medicine result
27 ;GMRCAD - Date/Time medicine result was removed
28 ;GMRCORNP - Provider who removed the result from the consult
29 Q:+$G(GMRCO)=0
30 D REMOVE^GMRCDIS(GMRCO,GMRCRSLT,GMRCAD,GMRCORNP)
31 Q
32DISPMED(ORY,GMRCRES) ; Detailed display of a med result
33 Q:+$G(GMRCRES)=0
34 D DISPMED^GMRCGUIU(GMRCRES,.ORY)
35 Q
36
Note: See TracBrowser for help on using the repository browser.