source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9VR.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1RMPR9VR ;HOIFO/SPS - VIEW CONSULT REQUESTS FOR GUI;01/29/03 11:38
2 ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
3 ;
4 ;
5A1(RMPRA) G A2
6EN(RESULTS,RMPRA) ; -- Broker callback to get list to display
7A2 ;
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))
23EXIT Q
24A3(RMPRA) G A4 ;display description
25EN2(RESULTS,RMPRA) ;
26A4 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
33A5(RMPRA) G A6 ;display Initial Action Note
34EN3(RESULTS,RMPRA) ;
35A6 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
42A7(RMPRA) G A8 ;display Completion Note
43EN4(RESULTS,RMPRA) ;
44A8 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
Note: See TracBrowser for help on using the repository browser.