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

Package: Kernel

Routine: XQALBUTL


Information

XQALBUTL ; ISC-SF/JLI - Utilities for OE/RR notifications ;10/19/18 13:24

Source Information

Source file <XQALBUTL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
RECIPURG(XQX) ; SR. ICR #3010 (supported)
; Called by option ORB PURG RECIP - purge existing notifs: recipient/DUZ
  • ICR #3010
    • Status: Active
    • Usage: Supported
    PTPURG(DFN) ; SR. ICR #3010 (supported)
    ; Called by option ORB PURG PATIENT - purge existing notifs: patient
  • ICR #3010
    • Status: Active
    • Usage: Supported
    NOTIPURG(Y) ; SR. ICR #3010 (supported)
    ; Called by option ORB PURG NOTIF - purge existing notifs: notification
  • ICR #3010
    • Status: Active
    • Usage: Supported
    OLDPURG ;called by RECIPURG, PTPURG, NOTIPURG - KILLs specified alert entries
    AHISTORY(XQAID,ROOT) ; SR. ICR #2778 (supported)
    ; Returns information from alert tracking file for alert with XQAID as its alert ID. The data is returned desendent from the closed root passed in ROOT.
  • ICR #2788
    • Status: Active
    • Usage: Supported
    PENDING(XQAUSER,XQAID) ; SR. ICR #2778 (supported)
    ; Returns whether the user specified has the alert indicated by XQAID pending. (1=YES, 0=NO)
  • ICR #2788
    • Status: Active
    • Usage: Supported
    PKGPEND(XQAUSER,XQAPKG) ; SR. ICR #2778 (supported)
    ; Returns 1 if the user indicated by XQAUSER has any pending alerts with the first ';'-piece of XQAID contains the package identifier indicated by XQAPKG.
  • ICR #2788
    • Status: Active
    • Usage: Supported
    ALERTDAT(XQAID,ROOT) ; SR. ICR #2778 (supported)
    ; Returns information from alert tracking file for alert with XQAID in array XQALERTD. If the alert is not present, the array is undefined.
  • ICR #2788
    • Status: Active
    • Usage: Supported
    USERLIST(XQAID,ROOT) ; SR. ICR #2778 (supported)
    ; Returns recipients of alert with ID of XQAID from alert tracking file in array XQALUSER
  • ICR #2788
    • Status: Active
    • Usage: Supported
    USERDATA(XQAID,XQAUSER,ROOT) ; SR. ICR #2778 (supported)
    ; Returns information from alert tracking file related to alert with ID of XQAID for user specified by XQAUSER
  • ICR #2788
    • Status: Active
    • Usage: Supported
    MAKELIST(ARRAY,FILE,IENS) ; Makes a list of fields as subscripts in ARRAY with the values of the fields as the value. If internal and external differ, the value is given as internal^external.
    DELSTAT(XQAIDVAL,VALUES) ; .SR ICR #3197 (supported)
    BKUPREVW ;OPT - SET BACKUP REVIEWER(S) IN PARAMETER FILE - Moved from XQALDEL
    BK1 ; Select NEW PERSON entry as backup reviewer
    BK2
    NEWPERSN() ;
    ; Select a Backup Reviewer, then select parameter cases for this Backup
    ; Reviewer. You may then select another Backup Reviewer for additional
    ; parameter cases if necessary.
    NEWLOOP ;
    ENTTYPE(XQALVALS,XQALLAST) ;
    CHKCURR(ENTITY,XQALBKUP) ;
    GETINST(ENTITY,XQALBKUP) ;
    LOOP ;
    LISTCURR(XQALBKUP) ;
    LISTGET(XQALBKUP,XLIST) ;

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: NEWLOOP+1
    Function Call: WRITE
    • Prompt: !,$C(7),"This is not an ACTIVE USER... Select an Active user",!
    • Line Location: NEWLOOP+4
    Function Call: WRITE
    • Prompt: " ...Done"
    • Line Location: CHKCURR+2
    Function Call: WRITE
    • Prompt: " ...Done"
    • Line Location: CHKCURR+3
    Function Call: WRITE
    • Prompt: !,"There "_$S(XQAA=1:"is",1:"are")_" currently "_XQAA_" instance"_$S(XQAA>1:"s",1:"")_" for this entity"
    • Line Location: LOOP+1
    Function Call: WRITE
    • Prompt: !,?5,+XQAA(I),?10,$$GET1^DIQ(200,IEN_",",.01)
    • Line Location: LOOP+3
    Function Call: WRITE
    • Prompt: $C(7),!!,"To "_$S(XQATYP="r":"REPLACE",1:"DELETE")_" an entry enter an instance number from the list."
    • Line Location: LOOP+11
    Function Call: WRITE
    • Prompt: !,"Currently Backup Reviewer for:"
    • Line Location: LISTCURR+3
    Function Call: WRITE
    • Prompt: !?10,$S(FILNUM=4:"Division",FILNUM=4.2:"System",FILNUM=49:"Service",FILNUM=200:"User",1:"UNKNOWN???")_":",?25,$$GET1^DIQ(FILNUM,ENTIEN_",",.01)
    • Line Location: LISTCURR+6
    Info |  Source |  Entry Points |  Interaction Calls