- RMPR9S6 ;HOIFO/HNC - GUI 2319 CRITICAL COMMENTS ;9/23/02 08:25
- ;;3.0;PROSTHETICS;**59,90**;Feb 09, 1996
- A1(IEN) G A2
- EN(RESULTS,IEN) ;broker entry point
- A2 ;
- S RMPRDFN=$P($G(^RMPR(668,IEN,0)),U,2)
- I RMPRDFN="" S RESULTS(0)="NOTHING TO REPORT" G EXIT
- ;
- D GETS^DIQ(665,RMPRDFN,"30","E","RA")
- I '$D(RA) S RESULTS(0)="NOTHING TO REPORT" G EXIT
- ;
- ;RA(665,"RMPRDFN,",30,1)=THIS IS LINE ONE
- ;
- S LN=0,CNT=0
- F S LN=$O(RA(665,RMPRDFN_",",30,LN)) Q:LN'>0 D
- .S RESULTS(CNT)=RA(665,RMPRDFN_",",30,LN)
- .S CNT=CNT+1
- ;
- EXIT ;common exit point
- K RA,LN,CNT
- ;END
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRMPR9S6 584 printed Jan 18, 2025@03:34:58 Page 2
- RMPR9S6 ;HOIFO/HNC - GUI 2319 CRITICAL COMMENTS ;9/23/02 08:25
- +1 ;;3.0;PROSTHETICS;**59,90**;Feb 09, 1996
- A1(IEN) GOTO A2
- EN(RESULTS,IEN) ;broker entry point
- A2 ;
- +1 SET RMPRDFN=$PIECE($GET(^RMPR(668,IEN,0)),U,2)
- +2 IF RMPRDFN=""
- SET RESULTS(0)="NOTHING TO REPORT"
- GOTO EXIT
- +3 ;
- +4 DO GETS^DIQ(665,RMPRDFN,"30","E","RA")
- +5 IF '$DATA(RA)
- SET RESULTS(0)="NOTHING TO REPORT"
- GOTO EXIT
- +6 ;
- +7 ;RA(665,"RMPRDFN,",30,1)=THIS IS LINE ONE
- +8 ;
- +9 SET LN=0
- SET CNT=0
- +10 FOR
- SET LN=$ORDER(RA(665,RMPRDFN_",",30,LN))
- if LN'>0
- QUIT
- Begin DoDot:1
- +11 SET RESULTS(CNT)=RA(665,RMPRDFN_",",30,LN)
- +12 SET CNT=CNT+1
- End DoDot:1
- +13 ;
- EXIT ;common exit point
- +1 KILL RA,LN,CNT
- +2 ;END