| [613] | 1 | RMPR9S8P ;HOIFO/SPS - GUI 2319 PRESCRIPTION INFO SCREEN 8 HOME OXYGEN
|
|---|
| 2 | ;;3.0;PROSTHETICS;**59**;Feb 09, 1996
|
|---|
| 3 | ; (IEN)=ien of file 660
|
|---|
| 4 | ;display detailed record
|
|---|
| 5 | A1(IEN) G A2
|
|---|
| 6 | EN(RESULTS,IEN) ;Broker
|
|---|
| 7 | A2 ;
|
|---|
| 8 | I '$D(^RMPR(660,IEN)) S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 9 | S RMPRDFN=$P(^RMPR(660,IEN,0),U,2)
|
|---|
| 10 | S RMPODFN=RMPRDFN
|
|---|
| 11 | D BPI,DPI
|
|---|
| 12 | K PTI,I,RX,Y,DT1,DT2,TRX,IENS,DFN
|
|---|
| 13 | Q
|
|---|
| 14 | BPI ; Build pt info hdr
|
|---|
| 15 | K PTI
|
|---|
| 16 | ; Name,SSN
|
|---|
| 17 | S DFN=RMPODFN D DEM^VADPT
|
|---|
| 18 | ; Current Rx (IEN on ACT DATE)
|
|---|
| 19 | S RX=$O(^RMPR(665,RMPODFN,"RMPOB"," "),-1)
|
|---|
| 20 | I 'RX S RESULTS(0)="NOTHING TO REPORT" Q
|
|---|
| 21 | S Y=$P(^RMPR(665,RMPODFN,"RMPOB",RX,0),U) X ^DD("DD") S DT1=Y
|
|---|
| 22 | S Y=$P(^RMPR(665,RMPODFN,"RMPOB",RX,0),U,3) X ^DD("DD") S DT2=Y
|
|---|
| 23 | S PTI(0)=RX
|
|---|
| 24 | ; Activation date
|
|---|
| 25 | S PTI(1)=DT1
|
|---|
| 26 | ; Expiration Date:
|
|---|
| 27 | S PTI(2)=DT2
|
|---|
| 28 | ; Rx Remarks
|
|---|
| 29 | K TRX
|
|---|
| 30 | S IENS=RX_","_RMPODFN_","
|
|---|
| 31 | D GETS^DIQ(665.193,IENS,3,,"TRX")
|
|---|
| 32 | S I=0 F S I=$O(TRX(665.193,IENS,3,I)) Q:I="" D
|
|---|
| 33 | . S PTI(2+I)=TRX(665.193,IENS,3,I)
|
|---|
| 34 | Q
|
|---|
| 35 | DPI ; Display pt info hdr
|
|---|
| 36 | S I="" F S I=$O(PTI(I)) Q:I="" S RESULTS(I)=PTI(I) ;W !,PTI(I)
|
|---|
| 37 | Q
|
|---|
| 38 | EXIT ;
|
|---|
| 39 | Q
|
|---|
