RMPR9DM1.m

RMPR9DM1 ;HOIFO/HNC - GUI 2319 MAS DISABILITY AND PERCENT ;9/18/02  17:01

 ;;3.0;PROSTHETICS;**59**;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(668,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

 ;END

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPR9DM1   835     printed  Apr 09, 2024@21:34:39                                                                                                                                                                                                     Page 2

RMPR9DM1  ;HOIFO/HNC - GUI 2319 MAS DISABILITY AND PERCENT ;9/18/02  17:01

 +1       ;;3.0;PROSTHETICS;**59**;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(668,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

 +3       ;END