| 1 | RMPR9DM2 ;HOIFO/HNC - GUI PFFS DISABILITY AND PERCENT ;9/18/02 17:01
|
|---|
| 2 | ;;3.0;PROSTHETICS;**96**;Feb 09, 1996
|
|---|
| 3 | A1(IEN) G A2
|
|---|
| 4 | ENR(DFN) ;entry point for roll and scroll
|
|---|
| 5 | G ENC
|
|---|
| 6 | EN(RESULTS,IEN) ;broker entry point
|
|---|
| 7 | A2 ;
|
|---|
| 8 | S DFN=$P($G(^RMPR(660,IEN,0)),U,2)
|
|---|
| 9 | I DFN="" S RESULTS(0)="NOTHING FOUND" G EXIT
|
|---|
| 10 | ;new code
|
|---|
| 11 | ENC ;roll and scroll starts here
|
|---|
| 12 | K RA
|
|---|
| 13 | D GETS^DIQ(2,DFN,".3721*","E","RA")
|
|---|
| 14 | I '$D(RA) G EXIT
|
|---|
| 15 | ;RA(2.04,"1,110,",.01,"E")=GOUT
|
|---|
| 16 | ;RA(2.04,"1,110,",2,"E")=10
|
|---|
| 17 | ;RA(2.04,"1,110,",3,"E")=YES
|
|---|
| 18 | S CNT=1,REC=0
|
|---|
| 19 | F S REC=$O(RA(2.04,REC)) Q:REC="" D
|
|---|
| 20 | .S RESULTS(CNT)=RA(2.04,REC,.01,"E")_U
|
|---|
| 21 | .S RESULTS(CNT)=RESULTS(CNT)_$G(RA(2.04,REC,2,"E"))_U
|
|---|
| 22 | .S RESULTS(CNT)=RESULTS(CNT)_$G(RA(2.04,REC,3,"E"))
|
|---|
| 23 | .S CNT=CNT+1
|
|---|
| 24 | ;
|
|---|
| 25 | EXIT ;common exit point
|
|---|
| 26 | I '$D(RESULTS) S RESULTS(0)="NOTHING FOUND"
|
|---|
| 27 | K RA,IEN,REC,DFN,CNT
|
|---|
| 28 | ;END
|
|---|
