source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XUP468.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1XUP468 ;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
5RPT1 ;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
19BKRV(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
Note: See TracBrowser for help on using the repository browser.