| 1 | RMPR9PA ;HOIFO/SPS - GUI 2319 TAB 2 PENDING APPOINTMENTS ;3/26/07 07:27
|
|---|
| 2 | ;;3.0;PROSTHETICS;**59,88**;Feb 09, 1996;Build 2
|
|---|
| 3 | ;DDA 6 MAR 07 - Patch 88 - Added Scheduling Encapsulation database check
|
|---|
| 4 | ; for SDA^VADPT call and ^UTILITY("VASD", usage.
|
|---|
| 5 | ; Variable RMPRSDER will equal 2 if the COTS database is unavailable.
|
|---|
| 6 | ;
|
|---|
| 7 | A1(IEN) G A2
|
|---|
| 8 | EN(RESULTS,IEN) ;broker entry point
|
|---|
| 9 | A2 ;
|
|---|
| 10 | S DFN=$P($G(^RMPR(668,IEN,0)),U,2)
|
|---|
| 11 | I DFN="" S RESULTS(0)="NOTHING TO REPORT" G EXIT
|
|---|
| 12 | ;Pending Appointments
|
|---|
| 13 | D SDA^VADPT S RMPRSDER=VAERR
|
|---|
| 14 | I RMPRSDER=2!'$D(^UTILITY("VASD",$J)) G EXIT
|
|---|
| 15 | S CNT=0,RO=0 F S RO=$O(^UTILITY("VASD",$J,RO)) Q:RO'>0 D
|
|---|
| 16 | . I CNT>0 S CNT=CNT+1
|
|---|
| 17 | . S RESULTS(CNT)=$P(^UTILITY("VASD",$J,RO,"E"),U,1)_"^"_$P(^UTILITY("VASD",$J,RO,"E"),U,2)_"^"_$P(^UTILITY("VASD",$J,RO,"E"),U,3)_"^"_$P(^UTILITY("VASD",$J,RO,"E"),U,4)
|
|---|
| 18 | . S CNT=CNT+1
|
|---|
| 19 | EXIT ;common exit point
|
|---|
| 20 | I RMPRSDER=2 S RESULTS(0)="Fatal RSA error. See SDAM RSA ERROR LOG file."
|
|---|
| 21 | I '$D(RESULTS) S RESULTS(0)="NOTHING TO REPORT"
|
|---|
| 22 | K CNT,DFN,RMPRSDER,RO,^UTILITY("VASD",$J)
|
|---|
| 23 | ;END
|
|---|
