RMPR9CE ;HOIFO/SPS - GUI 2319 TAB 2 CLINIC ENROLLEMNT  ;9/19/02  11:29
 ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
A1(IEN) G A2
EN(RESULTS,IEN) ;broker entry point
A2 ;
 S DFN=$P($G(^RMPR(668,IEN,0)),U,2)
 I DFN="" S RESULTS(0)="NOTHING TO REPORT" G EXIT
 ;Clinic Enrollment segment
 D SDE^VADPT
 I '$D(^UTILITY("VAEN",$J)) G EXIT
 S CNT=0,RO=0 F  S RO=$O(^UTILITY("VAEN",$J,RO)) Q:RO'>0  D
 . I CNT>0 S CNT=CNT+1
 . S RESULTS(CNT)=$P(^UTILITY("VAEN",$J,RO,"E"),U,1)_"^"_$P(^UTILITY("VAEN",$J,RO,"E"),U,2)_"^"_$P(^UTILITY("VAEN",$J,RO,"E"),U,3)
 . S CNT=CNT+1
EXIT ;common exit point
 I '$D(RESULTS) S RESULTS(0)="NOTHING TO REPORT"
 K CNT,DFN,RO,^UTILITY("VAEN",$J)
 ;END