source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9CE.m@ 1046

Last change on this file since 1046 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 668 bytes
RevLine 
[613]1RMPR9CE ;HOIFO/SPS - GUI 2319 TAB 2 CLINIC ENROLLEMNT ;9/19/02 11:29
2 ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
3A1(IEN) G A2
4EN(RESULTS,IEN) ;broker entry point
5A2 ;
6 S DFN=$P($G(^RMPR(668,IEN,0)),U,2)
7 I DFN="" S RESULTS(0)="NOTHING TO REPORT" G EXIT
8 ;Clinic Enrollment segment
9 D SDE^VADPT
10 I '$D(^UTILITY("VAEN",$J)) G EXIT
11 S CNT=0,RO=0 F S RO=$O(^UTILITY("VAEN",$J,RO)) Q:RO'>0 D
12 . I CNT>0 S CNT=CNT+1
13 . 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)
14 . S CNT=CNT+1
15EXIT ;common exit point
16 I '$D(RESULTS) S RESULTS(0)="NOTHING TO REPORT"
17 K CNT,DFN,RO,^UTILITY("VAEN",$J)
18 ;END
Note: See TracBrowser for help on using the repository browser.