| 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
|
---|