| 1 | RMPR9VR ;HOIFO/SPS - VIEW CONSULT REQUESTS FOR GUI;01/29/03 11:38
|
|---|
| 2 | ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | A1(RMPRA) G A2
|
|---|
| 6 | EN(RESULTS,RMPRA) ; -- Broker callback to get list to display
|
|---|
| 7 | A2 ;
|
|---|
| 8 | I '$D(^RMPR(668,RMPRA,0)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 9 | K ADATE,PDAY
|
|---|
| 10 | ; ORDER DATE/SUSPENSE DATE
|
|---|
| 11 | S RESULTS(0)=$P(^RMPR(668,RMPRA,0),U,1),RESULTS(0)=$$DAT1^RMPRUTL1(RESULTS(0))
|
|---|
| 12 | ; REQUESTOR
|
|---|
| 13 | S RESULTS(1)=$P($G(^RMPR(668,RMPRA,0)),U,11)
|
|---|
| 14 | I RESULTS(1)'="" S RESULTS(1)=$P(^VA(200,RESULTS(1),0),U)
|
|---|
| 15 | ; SUSPENDED BY
|
|---|
| 16 | S RESULTS(2)=$P($G(^RMPR(668,RMPRA,0)),U,4)
|
|---|
| 17 | I RESULTS(2)'="" S RESULTS(2)=$P(^VA(200,RESULTS(2),0),U)
|
|---|
| 18 | ; INITIAL ACTION DATE
|
|---|
| 19 | S RESULTS(3)=$P(^RMPR(668,RMPRA,0),U,9),RESULTS(3)=$$DAT1^RMPRUTL1(RESULTS(3))
|
|---|
| 20 | ; COMPLETION DATE
|
|---|
| 21 | S RESULTS(4)=$P($G(^RMPR(668,RMPRA,0)),U,5)
|
|---|
| 22 | I RESULTS(4)>0 S RESULTS(4)=$$DAT1^RMPRUTL1(RESULTS(4))
|
|---|
| 23 | EXIT Q
|
|---|
| 24 | A3(RMPRA) G A4 ;display description
|
|---|
| 25 | EN2(RESULTS,RMPRA) ;
|
|---|
| 26 | A4 I '$D(^RMPR(668,RMPRA,0)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 27 | I '$D(^RMPR(668,RMPRA,2,0)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 28 | S (RMPRD,I)=0
|
|---|
| 29 | F S RMPRD=$O(^RMPR(668,RMPRA,2,RMPRD)) Q:RMPRD'>0 D
|
|---|
| 30 | .S RESULTS(I)=^RMPR(668,RMPRA,2,RMPRD,0)
|
|---|
| 31 | .S I=I+1
|
|---|
| 32 | Q
|
|---|
| 33 | A5(RMPRA) G A6 ;display Initial Action Note
|
|---|
| 34 | EN3(RESULTS,RMPRA) ;
|
|---|
| 35 | A6 I '$D(^RMPR(668,RMPRA,0)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 36 | I '$D(^RMPR(668,RMPRA,3,0)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 37 | S (RMPRD,I)=0
|
|---|
| 38 | F S RMPRD=$O(^RMPR(668,RMPRA,3,RMPRD)) Q:RMPRD'>0 D
|
|---|
| 39 | .S RESULTS(I)=^RMPR(668,RMPRA,3,RMPRD,0)
|
|---|
| 40 | .S I=I+1
|
|---|
| 41 | Q
|
|---|
| 42 | A7(RMPRA) G A8 ;display Completion Note
|
|---|
| 43 | EN4(RESULTS,RMPRA) ;
|
|---|
| 44 | A8 I '$D(^RMPR(668,RMPRA,0)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 45 | I '$D(^RMPR(668,RMPRA,4,0)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 46 | S (RMPRD,I)=0
|
|---|
| 47 | F S RMPRD=$O(^RMPR(668,RMPRA,4,RMPRD)) Q:RMPRD'>0 D
|
|---|
| 48 | .S RESULTS(I)=^RMPR(668,RMPRA,4,RMPRD,0)
|
|---|
| 49 | .S I=I+1
|
|---|
| 50 | Q
|
|---|
