RMPR9DM2 ;HOIFO/HNC - GUI PFFS DISABILITY AND PERCENT ;9/18/02 17:01
;;3.0;PROSTHETICS;**96**;Feb 09, 1996
A1(IEN) G A2
ENR(DFN) ;entry point for roll and scroll
G ENC
EN(RESULTS,IEN) ;broker entry point
A2 ;
S DFN=$P($G(^RMPR(660,IEN,0)),U,2)
I DFN="" S RESULTS(0)="NOTHING FOUND" G EXIT
;new code
ENC ;roll and scroll starts here
K RA
D GETS^DIQ(2,DFN,".3721*","E","RA")
I '$D(RA) G EXIT
;RA(2.04,"1,110,",.01,"E")=GOUT
;RA(2.04,"1,110,",2,"E")=10
;RA(2.04,"1,110,",3,"E")=YES
S CNT=1,REC=0
F S REC=$O(RA(2.04,REC)) Q:REC="" D
.S RESULTS(CNT)=RA(2.04,REC,.01,"E")_U
.S RESULTS(CNT)=RESULTS(CNT)_$G(RA(2.04,REC,2,"E"))_U
.S RESULTS(CNT)=RESULTS(CNT)_$G(RA(2.04,REC,3,"E"))
.S CNT=CNT+1
;
EXIT ;common exit point
I '$D(RESULTS) S RESULTS(0)="NOTHING FOUND"
K RA,IEN,REC,DFN,CNT
;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR9DM2 835 printed Dec 13, 2024@02:33:34 Page 2
RMPR9DM2 ;HOIFO/HNC - GUI PFFS DISABILITY AND PERCENT ;9/18/02 17:01
+1 ;;3.0;PROSTHETICS;**96**;Feb 09, 1996
A1(IEN) GOTO A2
ENR(DFN) ;entry point for roll and scroll
+1 GOTO ENC
EN(RESULTS,IEN) ;broker entry point
A2 ;
+1 SET DFN=$PIECE($GET(^RMPR(660,IEN,0)),U,2)
+2 IF DFN=""
SET RESULTS(0)="NOTHING FOUND"
GOTO EXIT
+3 ;new code
ENC ;roll and scroll starts here
+1 KILL RA
+2 DO GETS^DIQ(2,DFN,".3721*","E","RA")
+3 IF '$DATA(RA)
GOTO EXIT
+4 ;RA(2.04,"1,110,",.01,"E")=GOUT
+5 ;RA(2.04,"1,110,",2,"E")=10
+6 ;RA(2.04,"1,110,",3,"E")=YES
+7 SET CNT=1
SET REC=0
+8 FOR
SET REC=$ORDER(RA(2.04,REC))
if REC=""
QUIT
Begin DoDot:1
+9 SET RESULTS(CNT)=RA(2.04,REC,.01,"E")_U
+10 SET RESULTS(CNT)=RESULTS(CNT)_$GET(RA(2.04,REC,2,"E"))_U
+11 SET RESULTS(CNT)=RESULTS(CNT)_$GET(RA(2.04,REC,3,"E"))
+12 SET CNT=CNT+1
End DoDot:1
+13 ;
EXIT ;common exit point
+1 IF '$DATA(RESULTS)
SET RESULTS(0)="NOTHING FOUND"
+2 KILL RA,IEN,REC,DFN,CNT
+3 ;END
