ORQQCN3 ; slc/REV - RPCs for Consults/Medicine Resulting ;01:56 PM 12 May 2000
;;3.0;ORDER ENTRY/RESULTS REPORTING;**85**;Dec 17, 1997
;
GETMED(ORY,GMRCO) ; Return available med results for proc request
Q:+$G(GMRCO)=0
D GETMED^GMRCGUIU(GMRCO,.ORY)
Q
MEDCOMP(ORY,GMRCO,GMRCRSLT,GMRCAD,GMRCORNP,ORALTO) ; Attach a medicine result to a consult
;GMRCO - Internal file number of consult from File 123
;GMRCRSLT - pointer to medicine result
;GMRCAD - Date/Time Consult was resulted.
;GMRCORNP - Provider who attached the result to the consult
;ORALTO - array of alert recipient IENs
Q:+$G(GMRCO)=0
N ORDUZ,X,I
I $G(ORALTO)'="" D
.F I=1:1 S X=$P(ORALTO,";",I) Q:X="" S ORDUZ(X)=""
D MEDCOMP^GMRCMED(GMRCO,GMRCRSLT,GMRCAD,GMRCORNP,.ORDUZ)
Q
GETRES(ORY,GMRCO) ; return array of associated med results
Q:+$G(GMRCO)=0
D GETRES^GMRCGUIU(GMRCO,.ORY)
Q
REMOVE(ORY,GMRCO,GMRCRSLT,GMRCAD,GMRCORNP) ; Remove a medicine result from a consult
;GMRCO - Internal file number of consult from File 123
;GMRCRSLT - pointer to medicine result
;GMRCAD - Date/Time medicine result was removed
;GMRCORNP - Provider who removed the result from the consult
Q:+$G(GMRCO)=0
D REMOVE^GMRCDIS(GMRCO,GMRCRSLT,GMRCAD,GMRCORNP)
Q
DISPMED(ORY,GMRCRES) ; Detailed display of a med result
Q:+$G(GMRCRES)=0
D DISPMED^GMRCGUIU(GMRCRES,.ORY)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORQQCN3 1387 printed Oct 16, 2024@18:34:10 Page 2
ORQQCN3 ; slc/REV - RPCs for Consults/Medicine Resulting ;01:56 PM 12 May 2000
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**85**;Dec 17, 1997
+2 ;
GETMED(ORY,GMRCO) ; Return available med results for proc request
+1 if +$GET(GMRCO)=0
QUIT
+2 DO GETMED^GMRCGUIU(GMRCO,.ORY)
+3 QUIT
MEDCOMP(ORY,GMRCO,GMRCRSLT,GMRCAD,GMRCORNP,ORALTO) ; Attach a medicine result to a consult
+1 ;GMRCO - Internal file number of consult from File 123
+2 ;GMRCRSLT - pointer to medicine result
+3 ;GMRCAD - Date/Time Consult was resulted.
+4 ;GMRCORNP - Provider who attached the result to the consult
+5 ;ORALTO - array of alert recipient IENs
+6 if +$GET(GMRCO)=0
QUIT
+7 NEW ORDUZ,X,I
+8 IF $GET(ORALTO)'=""
Begin DoDot:1
+9 FOR I=1:1
SET X=$PIECE(ORALTO,";",I)
if X=""
QUIT
SET ORDUZ(X)=""
End DoDot:1
+10 DO MEDCOMP^GMRCMED(GMRCO,GMRCRSLT,GMRCAD,GMRCORNP,.ORDUZ)
+11 QUIT
GETRES(ORY,GMRCO) ; return array of associated med results
+1 if +$GET(GMRCO)=0
QUIT
+2 DO GETRES^GMRCGUIU(GMRCO,.ORY)
+3 QUIT
REMOVE(ORY,GMRCO,GMRCRSLT,GMRCAD,GMRCORNP) ; Remove a medicine result from a consult
+1 ;GMRCO - Internal file number of consult from File 123
+2 ;GMRCRSLT - pointer to medicine result
+3 ;GMRCAD - Date/Time medicine result was removed
+4 ;GMRCORNP - Provider who removed the result from the consult
+5 if +$GET(GMRCO)=0
QUIT
+6 DO REMOVE^GMRCDIS(GMRCO,GMRCRSLT,GMRCAD,GMRCORNP)
+7 QUIT
DISPMED(ORY,GMRCRES) ; Detailed display of a med result
+1 if +$GET(GMRCRES)=0
QUIT
+2 DO DISPMED^GMRCGUIU(GMRCRES,.ORY)
+3 QUIT
+4
