Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XQARPRT1

Package: Kernel

Routine: XQARPRT1


Information

XQARPRT1 ;JLI/OAK_OIFO-ROUTINE TO PROVIDE COUNTS OF ALERTS ; Oct 03, 2022@03:26:24

Source Information

Source file <XQARPRT1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; OPT - generates a listing of the number of alerts a user has as well as last sign-on date, number of critical and/or abnomal imaging alerts, and the date of the oldest alert
EN2 ;
CRITICAL ; OPT - generates a listing of users with more than a specified number of alerts containing CRITICAL or ABNORMAL IMAGING
DATES ;
QUERYDIV ;
ORDER ;
DQ1 ;
G1 ;gather
PRT ;print
PRTLOC ;
HEADER ;
PRTNAME ;
PRTNUMBR ;
PRTSERVC ;
CHKSRV(XQAGLOB1,XQASRVC,XQACNAME,XQATYPE,XQANUM) ; Determine change to SERVICE/SECTION, XU*8*690
; Input:
; XQAGLOB1 - Value of ^TMP global root
; XQASRVC - Current Service
; XQASNAME - Current Name
; XQATYPE - Type of Report ("NUMB", "NAME")
; XQANUM - Number of Alerts (For Service report on Number)
PRINTVAL(XQAPAWS,FSTNOSVC) ;Print report value
; Input ; Add to indicate if report needs page break, XU*8*690
; XQAPAWS - 1: New Service
; 0: Same Service
; FSTNOSVC - 1: First line (No Service) written after ERROR LIMIT exceeded
; 0: First line NOT written after ERROR LIMIT exceeded
XQAPAUS(XQAQTVAR) ;; Pause API, XU*8*690
XQZMAXER() ;;Return KERNEL SYSTEM PARAMETER file (#8989.3) ERROR LIMIT field (#520.1), XU*8*690
DIVPRINT ;
OLDEST() ; Returns date of oldest entry in alert tracking file
VIEWTRAK ; OPT. View an entry in the Alert Tracking file in Captioned mode
VIEWDQ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ1+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: " COUNT of ",$S($D(XQAWORDS)>1:"SELECTED ",1:""),"ALERTS - users with more than ",XQAC1," on ",$$FMTE^XLFDT($$NOW^XLFDT())
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !," for date range ",$$FMTE^XLFDT(XQASDT,"5DZ")," to ",$$FMTE^XLFDT(XQAEDT,"5DZ")
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"CRIT column indicates number of alerts containing critical text"
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !!,?42,$S($D(XQAWORDS)>1:"Selected",1:" Total"),?70,"Oldest"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Name",?25,"Service/section",?43,"Alerts",?50,"Last Sign-on",?64,"CRIT Alert"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"-----------------",?25,"-----------------",?43,"------",?50,"------------",?64,"---- ----------"
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTVAL+41
Function Call: WRITE
  • Prompt: !," Daily Error Trap limit is "_$$XQZMAXER()_" errors for users missing SERVICE/SECTION."
  • Line Location: PRINTVAL+48
Function Call: WRITE
  • Prompt: !," Limit Reached. No more entries will be added for '<No Service>' users today!"
  • Line Location: PRINTVAL+49
Function Call: WRITE
  • Prompt: !," Daily Error Trap limit is "_$$XQZMAXER()_" errors for users missing SERVICE/SECTION."
  • Line Location: PRINTVAL+52
Function Call: WRITE
  • Prompt: !," Limit Reached. No more entries will be added for '<No Service>' users today!"
  • Line Location: PRINTVAL+53
Function Call: WRITE
  • Prompt: !,NAME,?25,SERVICE,?43,NUMBER,?50,LSIGNON,?64,NCRIT,?69,OLDEST
  • Line Location: PRINTVAL+55
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTVAL+58
Function Call: WRITE
  • Prompt: !,?5,"Division: ",$S(DIVNAME=0:"These users are not assigned to a division",DIVNAME=99999:"These users are assigned to multiple divisions",1:DIVNAME)
  • Line Location: DIVPRINT+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: VIEWDQ+2
Info |  Source |  Entry Points |  Interaction Calls