Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XQALFWD

Package: Kernel

Routine: XQALFWD


Information

XQALFWD ;ISC/JLI,ISD/HGW - FORWARD ALERTS ;06/20/12 13:09

Source Information

Source file <XQALFWD.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 7 (,HOME)^%ZIS  ^%ZTLOAD  $$NOW^XLFDT  $$DAT8^XQALERT  DOIT^XQALERT1  LOOP1^XQALMAKE  $$REENT^XQALSET  
VA Fileman 2 (,$$FIND1)^DIC  ^DIR  
MailMan 1 ^XMD  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Kernel 4 XQALDEL  XQALERT1  XQALGUI  XQALSUR1  
IHS Electronic Health Record 1 BEHOXQ  
Order Entry Results Reporting 1 ORB31  

Entry Points

Name Comments DBIA/ICR reference
PRNT1 ;
; ZEXCEPT: IOF,X,XQACOMNT,XQAUSER
MAIL1 ;
; ZEXCEPT: X,XQALST,XQAUSER
PRNT ;
; ZEXCEPT: X,XQALST,XQAUSER
SETXQA ;
; ZEXCEPT: J,XQARECIP,XQAVALS
FORWARD1(XQAID,XQARECIP,XQATYPE,XQACOMNT,XQALTYPE) ;
FWDONE
SETXMY ;
; ZEXCEPT: J,XMY,XQARECIP
RESETUP(XQAIDVAL,XQA,XQACOMNT) ;
; ZEXCEPT: XQALTYPE,XQAUSER
FORWARD(XQALST,XQARECIP,XQATYPE,XQACOMNT) ; SR. ICR #3009 (Supported)
  • ICR #3009
    • Status: Active
    • Usage: Supported
    EXIT
    FWRD ; ENTRY POINT FOR SELECTION FROM 'VIEW ALERTS' SCREEN
    ; USER NEEDS TO SELECT ALERT(S) FOR FORWARDING
    ; TYPE (ALERT, MAIL MESSAGE, OR PRINT)
    ; AND RECIPIENT(S) OR DEVICE
    ; AND COMMENT IF ANY TO BE DISPLAYED WITH ALERT
    MAIL ;
    ; ZEXCEPT: X,XMSUB,XMTEXT,XQACOMNT,XQAUSER

    External References

    Name Field # of Occurrence
    ^%ZIS FORWARD+19
    HOME^%ZIS FORWARD+21
    ^%ZTLOAD FORWARD+21
    ^DIC FWDONE+2
    $$FIND1^DIC FORWARD+17
    ^DIR FWDONE, FWDONE+4
    $$NOW^XLFDT RESETUP+11
    ^XMD MAIL+4
    $$DAT8^XQALERT MAIL+3, PRNT1+3
    DOIT^XQALERT1 FWRD+9
    LOOP1^XQALMAKE FWDONE+1
    $$REENT^XQALSET RESETUP+12

    Interaction Calls

    Name Line Occurrences
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: FWRD+7
    Function Call: WRITE
    • Prompt: @IOF,!,"You may now Select the alert or alerts that you want forwarded:",!
    • Line Location: FWRD+7
    Function Call: WRITE
    • Prompt: !!,"You will now return to PROCESSING ALERTS, enter RETURN to continue:"
    • Line Location: EXIT+0
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: PRNT1+2
    Function Call: WRITE
    • Prompt: !!,"ALERT: "_$P(X,U,3),!!," Forwarded by: ",$P(^VA(200,XQAUSER,0),U)," Generated on: ",$$DAT8^XQALERT($P($P(X,U,2),";",3)),!!,$G(XQACOMNT)
    • Line Location: PRNT1+3
    Routine Call
    • %ZIS
    • Line Location:
      • FORWARD+21
    Routine Call
    • DIC
    • Line Location:
      • FORWARD+17
    Routine Call
    • DIC
    • Line Location:
      • FWDONE+2
    Routine Call
    • DIR
    • Line Location:
      • FWDONE
      • FWDONE+4
    Routine Call
    • %ZIS
    • Line Location:
      • FORWARD+19

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZIS(1 - [#3.5] FORWARD+18
    ^TMP("XQ" FWRD+12
    ^TMP($J MAIL+2!, MAIL+3*
    ^VA(200 - [#200] MAIL+3, PRNT1+3
    ^XTV(8992 - [#8992] MAIL1+3, MAIL1+4, PRNT+2, PRNT+3, RESETUP+5, RESETUP+6
    ^XTV(8992.1 - [#8992.1] RESETUP+8

    Label References

    Name Line Occurrences
    EXIT FWRD+13, FWDONE, FWDONE+1, FWDONE+2, FWDONE+4
    FORWARD FWDONE+6, FORWARD1+1
    MAIL MAIL1+3, MAIL1+4
    MAIL1 FORWARD+15
    PRNT1 PRNT+2, PRNT+3
    RESETUP FORWARD+12, FORWARD+13
    SETXMY MAIL1+3, MAIL1+4
    SETXQA FORWARD+12, FORWARD+13

    Naked Globals

    Name Field # of Occurrence
    ^(1 RESETUP+6
    ^(3 RESETUP+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %ZIS FORWARD+8~, FORWARD+19*
    DA RESETUP+2~
    DIC FWDONE+2*!
    DIC("A" FWDONE+2*
    DIC(0 FWDONE+2*
    DIR FWRD+8~, FWDONE!, FWDONE+5!
    DIR("?" FWDONE+3*
    DIR("A" FWDONE*, FWDONE+3*
    DIR("B" FWDONE*
    DIR(0 FWDONE*, FWDONE+3*
    >> DIROUT FWDONE+4
    DIRUT FWDONE, EXIT+1!
    DTIME FWRD+7, EXIT
    >> DTOUT FWDONE+4
    >> DUOUT FWDONE+4
    DUZ RESETUP+3
    I FORWARD+8~, MAIL1+2~
    IO PRNT1+2
    IO("Q" FORWARD+21!
    IOF FWRD+7, PRNT1+2
    >> IOP FORWARD+18*
    >> J SETXQA+3*, SETXMY+3*
    >> POP FORWARD+19
    RETVAL RESETUP+2~, RESETUP+12*
    U FWRD+12, FORWARD+18, MAIL+2, MAIL+3, PRNT1+3, RESETUP+8, RESETUP+9, RESETUP+10
    X FWRD+7*, FWDONE+4, EXIT*, MAIL1+3*, MAIL1+4*, MAIL+2, MAIL+3, PRNT+2*, PRNT+3*, PRNT1+3
    , RESETUP+2~, RESETUP+6*, RESETUP+7, RESETUP+8, RESETUP+9, RESETUP+10
    X1 RESETUP+2~, RESETUP+6*, RESETUP+10
    X3 RESETUP+2~, RESETUP+6*, RESETUP+10
    XMSUB MAIL1+2~, MAIL+2*
    XMTEXT MAIL1+2~, MAIL+2*
    XMY MAIL1+2~
    XMY( SETXMY+2*, SETXMY+3*
    XQA FWDONE+1, RESETUP~
    XQA( FWDONE+1!
    XQA1 RESETUP+2~, RESETUP+8*
    XQAARR FWDONE+2*, FWDONE+6, EXIT+1!
    XQAARR( FWDONE+1*
    XQACNT FWRD+8~
    XQACOMNT FWDONE+4*, FWDONE+6, EXIT+1!, FORWARD1~, FORWARD1+1, FORWARD~, FORWARD+12, FORWARD+13, MAIL+3, PRNT1+3
    , RESETUP~
    XQACTMSG RESETUP+2~, RESETUP+9*
    XQADA RESETUP+2~, RESETUP+8*
    XQADATA RESETUP+2~, RESETUP+10*
    XQADFN RESETUP+2~, RESETUP+10*
    XQAGUID RESETUP+2~, RESETUP+10*
    XQAI FWDONE+1~*, FORWARD+12~*, MAIL1+3~*, PRNT+3~*
    XQAID FORWARD1~, FORWARD1+1, RESETUP+2~, RESETUP+8*
    XQAIDVAL RESETUP~, RESETUP+5
    XQAIEN RESETUP+2~, RESETUP+5*, RESETUP+6
    XQALFWD FWRD+9*, FWDONE+5!, EXIT+1!
    XQALFWDL FWRD+10!, FWRD+13, FWDONE+6, EXIT+1!
    XQALFWDL( FWRD+12*
    XQALST FORWARD~, FORWARD+7, FORWARD+13, MAIL1+4, PRNT+2
    XQALST( FORWARD+12, MAIL1+3, PRNT+3
    XQALST("" FORWARD+13
    XQALTYPE FORWARD1~, FORWARD+8~, FORWARD+9*, RESETUP+4*
    XQAMSG RESETUP+2~, RESETUP+9*
    XQAOPT1 RESETUP+2~, RESETUP+9*
    XQAPRNT FORWARD+8~, FORWARD+17*, FORWARD+18
    XQARECIP FORWARD1~, FORWARD1+1, FORWARD~, FORWARD+7, FORWARD+17, SETXQA+2, SETXMY+2
    XQARECIP( SETXQA+3, SETXMY+3
    XQARESET RESETUP+2~, RESETUP+4*
    XQAREV FWRD+8~
    XQATYP FWDONE*, FWDONE+1, FWDONE+2, FWDONE+6, EXIT+1!
    XQATYPE FORWARD1~, FORWARD1+1, FORWARD~, FORWARD+10*, FORWARD+11, FORWARD+14, FORWARD+16
    >> XQAUSER MAIL1+3, MAIL1+4, MAIL+3, PRNT+2, PRNT+3, PRNT1+3, RESETUP+3*, RESETUP+5, RESETUP+6
    XQAVALS FORWARD+8~, FORWARD+12, FORWARD+13
    XQAVALS( SETXQA+2*, SETXQA+3*
    XQI FWRD+8~, RESETUP+2~
    XQJ RESETUP+2~
    XQK FWRD+8~, RESETUP+2~
    XQX RESETUP+2~, RESETUP+11*
    >> XQX1 FWRD+9*, FWRD+11*, FWRD+12*, EXIT*
    >> XQXOUT FWRD+11*
    >> Y FWDONE, FWDONE+2
    ZTDESC FORWARD+8~, FORWARD+20*
    ZTDTH FORWARD+8~, FORWARD+20*
    ZTRTN FORWARD+8~, FORWARD+20*
    ZTSAVE FORWARD+8~
    ZTSAVE("XQA*" FORWARD+20*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All