| [613] | 1 | ORQQCN3 ; 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 | ;
|
|---|
| 4 | GETMED(ORY,GMRCO) ; Return available med results for proc request
|
|---|
| 5 | Q:+$G(GMRCO)=0
|
|---|
| 6 | D GETMED^GMRCGUIU(GMRCO,.ORY)
|
|---|
| 7 | Q
|
|---|
| 8 | MEDCOMP(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
|
|---|
| 20 | GETRES(ORY,GMRCO) ; return array of associated med results
|
|---|
| 21 | Q:+$G(GMRCO)=0
|
|---|
| 22 | D GETRES^GMRCGUIU(GMRCO,.ORY)
|
|---|
| 23 | Q
|
|---|
| 24 | REMOVE(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
|
|---|
| 32 | DISPMED(ORY,GMRCRES) ; Detailed display of a med result
|
|---|
| 33 | Q:+$G(GMRCRES)=0
|
|---|
| 34 | D DISPMED^GMRCGUIU(GMRCRES,.ORY)
|
|---|
| 35 | Q
|
|---|
| 36 |
|
|---|
