- 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 ---[H[J[2J[HRMPR9DM1 835 printed Feb 19, 2025@00:00:02 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