VistA Analysis » VistA Reference » RPCs » ORWPS COVER

ORWPS COVER

Returns a list of medications to display on the CPRS GUI cover sheet for apatient.

Properties

Property Value
Label COVER
MUMPS Implementation ORWPS
Return Type ARRAY

MUMPS Method Description

Property Value
Method COVER^ORWPS
Method Comment retrieve meds for cover sheet
Input Parameters DFN, FILTER
Code 
 S FILTER=$G(FILTER,0)
 K ^TMP("PS",$J)
 D OCL^PSOORRL(DFN,"","")
 N ILST,ITMP,X,VAIN,VAERR S ILST=0
 D:FILTER INP^VADPT
 S ITMP="" F  S ITMP=$O(^TMP("PS",$J,ITMP)) Q:'ITMP  D
 . I FILTER,$G(VAIN(1))>0,$P(^TMP("PS",$J,ITMP,0),U)["N;O" Q
 . S X=^TMP("PS",$J,ITMP,0)
 . I '$L($P(X,U,2)) S X="??"  ; show something if drug empty
 . I $D(^TMP("PS",$J,ITMP,"CLINIC",0)) S LST($$NXT)=$P(X,U,1,2)_U_$P(X,U,8,9)_U_"C"
 . E  S LST($$NXT)=$P(X,U,1,2)_U_$P(X,U,8,9)
 K ^TMP("PS",$J)

CPRS

File Type Description
Pascal File rCover.pas


Document generated on August 31st 2022, 2:55:43 pm