|
Last change
on this file since 820 was 628, checked in by George Lilly, 16 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
668 bytes
|
| Line | |
|---|
| 1 | RMPR9CE ;HOIFO/SPS - GUI 2319 TAB 2 CLINIC ENROLLEMNT ;9/19/02 11:29
|
|---|
| 2 | ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
|
|---|
| 3 | A1(IEN) G A2
|
|---|
| 4 | EN(RESULTS,IEN) ;broker entry point
|
|---|
| 5 | A2 ;
|
|---|
| 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
|
|---|
| 15 | EXIT ;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.
