| 1 | RMPR9CL ;HOIFO/SPS - GUI 2319 TAB 2 LETTER LIST & DISPLAY ;9/26/02 10:09
|
|---|
| 2 | ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
|
|---|
| 3 | A1(IEN) G A2
|
|---|
| 4 | EN(RESULTS,IEN) ;broker entry point
|
|---|
| 5 | A2 ;
|
|---|
| 6 | S DFN=$P($G(^RMPR(668,IEN,0)),U,2)
|
|---|
| 7 | I DFN="" S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 8 | ;List of Letters on File
|
|---|
| 9 | S RMPRDFN=DFN
|
|---|
| 10 | I '$D(^RMPR(665.4,"AH",RMPRDFN)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 11 | N RMPRBDT,DIC,RB,RI,DR,DA,RMPLET,DIQ,Y,RO
|
|---|
| 12 | S (CNT,RMPRBDT,RI,RB,RO)=0,RMPRIN=-1,DIC=665.4,DR=".01;1;2;4;11",DIQ="RMPRLET"
|
|---|
| 13 | F S RMPRBDT=$O(^RMPR(665.4,"AH",RMPRDFN,RMPRBDT)) Q:RMPRBDT="" D Q:RO=1
|
|---|
| 14 | .S DA=0
|
|---|
| 15 | .F S DA=$O(^RMPR(665.4,"AH",RMPRDFN,RMPRBDT,DA)) Q:'DA D Q:RO=1
|
|---|
| 16 | ..S RI=RI+1,RI(RI)=DA D EN^DIQ1 Q:'$D(RMPRLET)
|
|---|
| 17 | ..S RESULTS(CNT)=DA_"^"_RMPRLET(665.4,DA,.01)_"^"_$G(RMPRLET(665.4,DA,1))_"^"_$E($G(RMPRLET(665.4,DA,4)),1,15)_"^"_$G(RMPRLET(665.4,DA,2))_$G(RMPRLET(665.4,DA,11))
|
|---|
| 18 | ..S CNT=CNT+1
|
|---|
| 19 | ..K RMPRLET
|
|---|
| 20 | Q
|
|---|
| 21 | A3(IEN) G A4
|
|---|
| 22 | EN1(RESULTS,IEN) ;
|
|---|
| 23 | A4 ;Print letter, IEN=internal entrie number of file 665.4
|
|---|
| 24 | I '$D(^RMPR(665.4,IEN)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 25 | M RMPRTMP=^RMPR(665.4,IEN,1)
|
|---|
| 26 | K RMPRTMP(0)
|
|---|
| 27 | S RTST=0
|
|---|
| 28 | F S RTST=$O(RMPRTMP(RTST)) Q:RTST="" D
|
|---|
| 29 | . I '$D(RMPRTMP(RTST,0)) Q
|
|---|
| 30 | . S RF=$L(RMPRTMP(RTST,0),"|")
|
|---|
| 31 | . F RP=0:1:RF I $P(RMPRTMP(RTST,0),"|",RP)["TAB" D
|
|---|
| 32 | .. S $P(RMPRTMP(RTST,0),"|",RP)=" "
|
|---|
| 33 | . S RMPRTMP(RTST,0)=$TR(RMPRTMP(RTST,0),"|","")
|
|---|
| 34 | . S RMPRTMP(RTST)=RMPRTMP(RTST,0)
|
|---|
| 35 | . K RMPRTMP(RTST,0)
|
|---|
| 36 | M RESULTS=RMPRTMP
|
|---|
| 37 | EXIT ;common exit point
|
|---|
| 38 | I '$D(RESULTS) S RESULTS(0)="NOTHING TO REPORT"
|
|---|
| 39 | K CNT,DFN,RMPRTMP,RF,RO,RP
|
|---|
| 40 | ;END
|
|---|
