| [613] | 1 | XUP468 ;OIFO-OAKLAND/RM - REPORT OF BACKUP ALERT REVIEWERS ;08/14/2007
|
|---|
| 2 | ;;8.0;KERNEL;**468**;Jul 10, 1995;Build 4
|
|---|
| 3 | ;This routines is in support of p468.
|
|---|
| 4 | Q
|
|---|
| 5 | RPT1 ;This report will generate a list of active users/providers that hold
|
|---|
| 6 | ;the ORES key and backup reviewers for ALERTS.
|
|---|
| 7 | N IEN S IEN=0
|
|---|
| 8 | F S IEN=$O(^VA(200,IEN)) Q:'IEN D
|
|---|
| 9 | .I ('$D(^VA(200,IEN,0)))#2 Q ;Check of zero node
|
|---|
| 10 | .Q:'$$ACTIVE^XUSER(IEN)
|
|---|
| 11 | .I $D(^XUSEC("ORES",IEN)) D
|
|---|
| 12 | ..S ^TMP("XQAL NO BKRV",$J,$P(^VA(200,IEN,0),U),IEN)=""
|
|---|
| 13 | ;WRITE REPORT
|
|---|
| 14 | N DIC,L,FLDS,BY
|
|---|
| 15 | S DIC="^VA(200,",L=0,FLDS="[XQAL NO BKUP REVIEWER]"
|
|---|
| 16 | S L(0)=2,BY(0)="^TMP(""XQAL NO BKRV"",$J,"
|
|---|
| 17 | D EN1^DIP
|
|---|
| 18 | Q
|
|---|
| 19 | BKRV(IEN) ;WRITE BACKUP REVEIWER
|
|---|
| 20 | ;This entry is called from the print template XQAL NO BKUP REVIEWER
|
|---|
| 21 | ;and will retieve all backup reveiwer for a provider. It will also
|
|---|
| 22 | ;check to see if the backup reviewer is an active user.
|
|---|
| 23 | N XQAA,BKIEN,BKNAME,I
|
|---|
| 24 | S BKNAME="",I=0
|
|---|
| 25 | D GETBKUP^XQALDEL(.XQAA,IEN)
|
|---|
| 26 | I $D(XQAA) S BKIEN=0 F S BKIEN=$O(XQAA(BKIEN)) Q:'BKIEN D
|
|---|
| 27 | .S I=I+1
|
|---|
| 28 | .I ('$D(^VA(200,BKIEN,0)))#2 Q ;Check of zero node
|
|---|
| 29 | .S BKNAME=$P(^VA(200,BKIEN,0),U)
|
|---|
| 30 | .I '$$ACTIVE^XUSER(BKIEN) S BKNAME="*"_BKNAME ;for an inactive user
|
|---|
| 31 | .W:I>1 !
|
|---|
| 32 | .W ?63,BKNAME ;print to report
|
|---|
| 33 | Q
|
|---|
