| [613] | 1 | RMPR9LM ;HOIFO/SPS - GUI 2319 Tab 2 Last Patient Movement ;9/19/02 11:29
|
|---|
| 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 | S VAIP("D")="L" D DEM^VADPT,IN5^VADPT,ELIG^VADPT
|
|---|
| 9 | ;Header Info
|
|---|
| 10 | ;Last movement
|
|---|
| 11 | S RESULTS(0)=VADM(1) ;NAME
|
|---|
| 12 | S RESULTS(1)=VADM(2) ;SSN
|
|---|
| 13 | S RESULTS(2)=VADM(3) ;DOB
|
|---|
| 14 | S RESULTS(3)=VAEL(7) ;CLAIM #
|
|---|
| 15 | ;Last Movement
|
|---|
| 16 | S RESULTS(4)=$S(VAIP(1)>0:1,1:0) ;1=MOVEMENT,0=NONE
|
|---|
| 17 | S RESULTS(5)=$P(VAIP(2),U,2) ;Trans Type
|
|---|
| 18 | S RESULTS(6)=$P(VAIP(3),U,2) ;Date
|
|---|
| 19 | S RESULTS(7)=$P(VAIP(4),U,2) ;Type of Movement
|
|---|
| 20 | S RESULTS(8)=$P(VAIP(5),U,2) ;Ward
|
|---|
| 21 | S RESULTS(9)=$P(VAIP(7),U,2) ;Physician
|
|---|
| 22 | S RESULTS(10)=VAIP(9) ;Diagnosis
|
|---|
| 23 | ;2nd from Last Movement
|
|---|
| 24 | S RESULTS(11)=$S(VAIP(13)>0:1,1:0) ;1=MOVEMENT,0=NONE
|
|---|
| 25 | S RESULTS(12)=$P(VAIP(13,2),U,2) ;Trans. type
|
|---|
| 26 | S RESULTS(13)=$P(VAIP(13,1),U,2) ;Date
|
|---|
| 27 | S RESULTS(14)=$P(VAIP(13,3),U,2) ;Type of Movement
|
|---|
| 28 | S RESULTS(15)=$P(VAIP(13,4),U,2) ;Ward
|
|---|
| 29 | S RESULTS(16)=$P(VAIP(13,5),U,2) ;Physician
|
|---|
| 30 | S RESULTS(17)=VAIP(13,7) ;Diagnosis
|
|---|
| 31 | EXIT ;common exit point
|
|---|
| 32 | I '$D(RESULTS) S RESULTS(0)="NOTHING TO REPORT"
|
|---|
| 33 | K DFN,VADM,VAIL,VAIP
|
|---|
| 34 | ;END
|
|---|
