ORQQCN3.m

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

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