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 |  Local Variables  | All
Print Page as PDF
Routine: HLEVAPI1

Package: Health Level Seven

Routine: HLEVAPI1


Information

HLEVAPI1 ;O-OIFO/LJA - Event Monitor APIs ;02/04/2004 14:42

Source Information

Source file <HLEVAPI1.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Health Level Seven 9 $$DIFFDH^HLCSFMN1  $$BTE^HLCSMON  $$YN^HLCSRPT4  $$Q1TIME^HLEVAPI0  ($$ASKDATE,DEBUG,LOADBODY,LOADDGBL)^HLEVAPI2  CHECKMST^HLEVMST  TELL^HLEVMST0  $$ASKIEN^HLEVREP  
$$DHMSFM^HLEVUTIL  
Kernel 2 ($$FMTH,$$NOW)^XLFDT  ($$CJ,$$REPEAT,$$UP)^XLFSTR  
VA FileMan 2 ^DIE  ^DIM  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Health Level Seven 10 HLEV MENU MAIN  HLEV MENU SETUP  HLEV MENU SETUP-MASTER  HLEV ONE-TIME MONITOR RUN  HLEVAPI  HLEVAPI2  HLEVAPI3  HLEVSTUP  
HLEVX000  HLEVX002  

Entry Points

Name Comments DBIA/ICR reference
SYSETUP ; Called by option's entry action...
LAST7762() ; Return d/h/m/s since last master job run...
NEXT7762() ; Return d/h/m/s till next master job run...
DT7762(FIEN,NXT) ; Called by $$LAST7762 & NEXT7762...
LOADALL(HLEVIENJ,SVSUB) ; Load all sections into global for mailing...
LOADUSER(GBL,SVSUB) ; Load user data into Mailman message...
LOADDESC(HLEVIENJ,SVSUB) ; Load description if it exists...
LOADCOMP(HLEVIENJ,SVSUB) ; Load generic event monitor info into XMTEXT...
LOADVAR(HLEVIENJ,SVSUB) ; Load variable names...
ADD(TXT) ; Add TXT to global to be mailed out...
; SVSUB -- req
CURR(IEN776) ; Is job running and current?
APPSTAT(STATUS) ; Fill in application status...
; HLEVIENJ -- req
  • ICR #4227
    • Status: Withdrawn
    • Usage: Controlled Subscription
    RUNDIARY(GBL) ; Move GBL data into RUN DIARY...
    ; HLEVIENJ -- req
  • ICR #4227
    • Status: Withdrawn
    • Usage: Controlled Subscription
    MSGTEXT(GBL) ; Mark event job entry to NOTIFY MAIL GROUP...
    ; HLEVIENJ -- req
  • ICR #4227
    • Status: Withdrawn
    • Usage: Controlled Subscription
    GBLMOVE(HLEVIENJ,SUB,GBL) ; Move GBL data into entry's WP text...
    ONETIME ;Start a one-time run of event monitor (w/no master job)
    ASKRUN(HLEVIENE) ; Ask if want to run a one-time...
    QIT(QTIME) ; Queue it...
    EOR ;HLEVAPI1 - Event Monitor APIs ;5/16/03 14:42

    External References

    Name Field # of Occurrence
    ^DIE APPSTAT+12
    ^DIM LOADALL+13
    $$DIFFDH^HLCSFMN1 CURR+6
    $$BTE^HLCSMON QIT+7
    $$YN^HLCSRPT4 ASKRUN+7
    $$Q1TIME^HLEVAPI0 QIT+2
    $$ASKDATE^HLEVAPI2 ASKRUN+14
    DEBUG^HLEVAPI2 APPSTAT+4, RUNDIARY+3, MSGTEXT+3
    LOADBODY^HLEVAPI2 LOADALL+5
    LOADDGBL^HLEVAPI2 LOADALL+10, LOADALL+11
    CHECKMST^HLEVMST SYSETUP+4
    TELL^HLEVMST0 ASKRUN+5
    $$ASKIEN^HLEVREP ONETIME+11
    $$DHMSFM^HLEVUTIL DT7762+4
    $$FMTH^XLFDT CURR+5
    $$NOW^XLFDT DT7762+4, ASKRUN+8, ASKRUN+16
    $$CJ^XLFSTR SYSETUP+10, SYSETUP+11, SYSETUP+12, SYSETUP+15, ONETIME+2
    $$REPEAT^XLFSTR ONETIME+3
    $$UP^XLFSTR LOADALL+9

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!!,$$CJ^XLFSTR(STAT,IOM)
    • Line Location: SYSETUP+10
    Function Call: WRITE
    • Prompt: !,$$CJ^XLFSTR(X,IOM)
    • Line Location: SYSETUP+11
    Function Call: WRITE
    • Prompt: !,$$CJ^XLFSTR(X,IOM)
    • Line Location: SYSETUP+12
    Function Call: WRITE
    • Prompt: !,$$CJ^XLFSTR("-------- Event monitoring status is "_$S(STAT="A":"ACTIVE",STAT="I":"INACTIVE",1:"NOT SET YET")_" --------",IOM)
    • Line Location: SYSETUP+15
    Function Call: WRITE
    • Prompt: @IOF,$$CJ^XLFSTR("One-time Queueing of Event Monitor",IOM)
    • Line Location: ONETIME+2
    Function Call: WRITE
    • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
    • Line Location: ONETIME+3
    Function Call: WRITE
    • Prompt: !,"Normally, the master job evaluates every event monitor and queues a background"
    • Line Location: ONETIME+4
    Function Call: WRITE
    • Prompt: !,"job for those events ready for a new ""run."" This option allows the running"
    • Line Location: ONETIME+5
    Function Call: WRITE
    • Prompt: !,"of an event monitor between ""normal"" runs."
    • Line Location: ONETIME+6
    Function Call: WRITE
    • Prompt: !!,"Do you want to start a new ""in-between"" run of a monitor? If so, select"
    • Line Location: ONETIME+7
    Function Call: WRITE
    • Prompt: !,"it now. If not, press RETURN to exit..."
    • Line Location: ONETIME+8
    Function Call: WRITE
    • Prompt: !
    • Line Location: ONETIME+9
    Function Call: WRITE
    • Prompt: " exiting..."
    • Line Location: ONETIME+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: ONETIME+14
    Function Call: WRITE
    • Prompt: " exiting..."
    • Line Location: ASKRUN+8
    Function Call: WRITE
    • Prompt: !!,"You may queue this monitor to run ""one-time"" in the future. If so, enter a"
    • Line Location: ASKRUN+10
    Function Call: WRITE
    • Prompt: !,"future date/time now..."
    • Line Location: ASKRUN+11
    Function Call: WRITE
    • Prompt: !
    • Line Location: ASKRUN+12
    Function Call: WRITE
    • Prompt: " enter a future time..."
    • Line Location: ASKRUN+18
    Function Call: WRITE
    • Prompt: !!," Queued task# ",+QTASK," [#",$P(QTASK,U,2),"]..."
    • Line Location: QIT+3
    Function Call: WRITE
    • Prompt: !!," Error occurred. No monitor ""run"" started..."
    • Line Location: QIT+4
    Function Call: WRITE
    • Prompt: !
    • Line Location: QIT+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: QIT+6
    Routine Call
    • DIE
    • Line Location:
      • APPSTAT+12

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^HLEV(776 - [#776] LOADDESC+3, LOADDESC+4, LOADCOMP+3, LOADVAR+3, LOADVAR+8, LOADVAR+10, LOADVAR+11, LOADVAR+13, CURR+2, APPSTAT+10
    , GBLMOVE+4, GBLMOVE+9, GBLMOVE+10*, GBLMOVE+11, GBLMOVE+13*
    ^HLEV(776.1 - [#776.1] LOADCOMP+4, ASKRUN+3, ASKRUN+4
    ^HLEV(776.2 - [#776.2] LAST7762+4, LAST7762+6, LAST7762+7, NEXT7762+4, NEXT7762+6, NEXT7762+7, DT7762+2
    ^HLEV(776.999 - [#776.999] SYSETUP+6
    ^TMP("HLEVFLAG" APPSTAT+7, RUNDIARY+6, MSGTEXT+6
    ^TMP($J ADD+3, ADD+4*

    Label References

    Name Line Occurrences
    $$DT7762 LAST7762+12, NEXT7762+12
    $$LAST7762 SYSETUP+6, SYSETUP+11
    $$NEXT7762 SYSETUP+6, SYSETUP+12
    ADD LOADUSER+9, LOADDESC+6, LOADDESC+7, LOADCOMP+6, LOADCOMP+7, LOADVAR+5, LOADVAR+19
    ASKRUN ONETIME+15
    GBLMOVE RUNDIARY+8, MSGTEXT+8
    LOADCOMP LOADALL+4
    LOADDESC LOADALL+3
    LOADUSER LOADALL+14
    LOADVAR LOADALL+12
    QIT ASKRUN+8, ASKRUN+16

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CT GBLMOVE+1~, GBLMOVE+9*, GBLMOVE+10, GBLMOVE+11*, GBLMOVE+12
    CUT LOADVAR+1~, LOADVAR+16*, LOADVAR+17
    CUT(1 LOADVAR+16*
    CUT(2 LOADVAR+16*
    DA APPSTAT+2~, APPSTAT+11*
    DATA SYSETUP+1~, SYSETUP+6*, SYSETUP+8, SYSETUP+14, LAST7762+1~, LAST7762+7*, NEXT7762+1~, NEXT7762+7*, DT7762+1~, DT7762+2*
    , DT7762+3, DT7762+10, CURR+1~, CURR+2*, CURR+3, CURR+4, ASKRUN+1~
    DATE DT7762+1~, DT7762+3*, DT7762+4*, DT7762+5, DT7762+6*, DT7762+7*, DT7762+8, DT7762+9*, DT7762+10*
    DESC LOADDESC+1~, LOADDESC+4*, LOADDESC+6
    DIE APPSTAT+2~, APPSTAT+11*
    DIFF CURR+1~, CURR+6*, CURR+7, CURR+8, CURR+9*, CURR+11
    DR APPSTAT+2~, APPSTAT+11*
    FIEN LAST7762+1~, LAST7762+3*, LAST7762+4, LAST7762+6, LAST7762+8*, LAST7762+10, LAST7762+12, NEXT7762+1~, NEXT7762+3*, NEXT7762+4
    , NEXT7762+6, NEXT7762+8*, NEXT7762+10, NEXT7762+12, DT7762~, DT7762+2
    GBL LOADUSER~, LOADUSER+3, LOADUSER+6, LOADUSER+7, RUNDIARY~, RUNDIARY+8, MSGTEXT~, MSGTEXT+8, GBLMOVE~, GBLMOVE+8
    , GBLMOVE+10
    HLEVIENE LOADDESC+1~, LOADDESC+3*, LOADDESC+4, LOADCOMP+1~, LOADCOMP+3*, LOADCOMP+4, ONETIME+1~, ONETIME+11*, ONETIME+15, ASKRUN~
    , ASKRUN+3, ASKRUN+4, QIT+2
    HLEVIENJ LOADALL~, LOADALL+3, LOADALL+4, LOADALL+5, LOADALL+10, LOADALL+11, LOADALL+12, LOADDESC~, LOADDESC+3, LOADCOMP~
    , LOADCOMP+3, LOADVAR~, LOADVAR+3, LOADVAR+8, LOADVAR+10, LOADVAR+11, LOADVAR+13, APPSTAT+10, APPSTAT+11, RUNDIARY+8
    , MSGTEXT+8, GBLMOVE~, GBLMOVE+4, GBLMOVE+9, GBLMOVE+10, GBLMOVE+11, GBLMOVE+13
    HLEVNM LOADCOMP+1~, LOADCOMP+4*, LOADCOMP+6
    >> HLEVTXT( LOADALL+7, LOADALL+8
    IEN LAST7762+1~, LAST7762+5*, LAST7762+6*, LAST7762+7, LAST7762+8, NEXT7762+1~, NEXT7762+5*, NEXT7762+6*, NEXT7762+7, NEXT7762+8
    IEN776 CURR~, CURR+2
    IOF ONETIME+2
    IOM SYSETUP+10, SYSETUP+11, SYSETUP+12, SYSETUP+15, ONETIME+2, ONETIME+3
    IOSL QIT+6
    LAST SYSETUP+1~, SYSETUP+6*
    LASTDT LAST7762+1~, LAST7762+3*, LAST7762+4*, LAST7762+6, NEXT7762+1~, NEXT7762+3*, NEXT7762+4*, NEXT7762+6
    MIEN LOADVAR+1~, LOADVAR+9*, LOADVAR+10*, LOADVAR+11, LOADVAR+13
    NEXT SYSETUP+1~, SYSETUP+6*
    NO LOADALL+1~, LOADALL+6*, LOADALL+7*, LOADALL+8, LOADUSER+1~, LOADUSER+5*, LOADUSER+6*, LOADUSER+7, ADD+2~, ADD+3*
    , ADD+4, GBLMOVE+1~, GBLMOVE+7*, GBLMOVE+8*, GBLMOVE+10
    NODE GBLMOVE+1~, GBLMOVE+7*, GBLMOVE+12*, GBLMOVE+13
    NXT DT7762~, DT7762+3, DT7762+5, DT7762+8
    QTASK ONETIME+1~, ASKRUN+1~, QIT+1~, QIT+2*, QIT+3, QIT+4
    QTIME ASKRUN+1~, ASKRUN+14*, ASKRUN+15, ASKRUN+16, ASKRUN+17*, QIT~, QIT+2
    STAT SYSETUP+1~, SYSETUP+8*, SYSETUP+9*, SYSETUP+10, SYSETUP+14*, SYSETUP+15, CURR+1~, CURR+3*
    STATUS APPSTAT~, APPSTAT+9, APPSTAT+11
    SUB GBLMOVE~, GBLMOVE+3*, GBLMOVE+9, GBLMOVE+10, GBLMOVE+11, GBLMOVE+13
    SVSUB LOADALL~, LOADALL+2*, LOADALL+3, LOADALL+4, LOADALL+5, LOADALL+10, LOADALL+11, LOADALL+12, LOADALL+14, LOADUSER~
    , LOADDESC~, LOADDESC+2*, LOADCOMP~, LOADCOMP+2*, LOADVAR~, ADD+3, ADD+4
    TSTAMP CURR+1~, CURR+4*, CURR+5*, CURR+6
    TXT LOADALL+1~, LOADALL+8*, LOADALL+9*, LOADALL+10, LOADALL+11, LOADALL+12, LOADALL+13, LOADALL+14, LOADUSER+1~, LOADUSER+7*
    , LOADUSER+8, LOADUSER+9, LOADUSER+10*, LOADUSER+11*, LOADVAR+1~, LOADVAR+11*, LOADVAR+12*, LOADVAR+14*, LOADVAR+16, LOADVAR+17*
    , LOADVAR+18, LOADVAR+19, LOADVAR+20*, LOADVAR+21*, ADD~, ADD+4
    TXT(1 LOADVAR+13*, LOADVAR+14*, LOADVAR+15, LOADVAR+16, LOADVAR+17*, LOADVAR+22
    U SYSETUP+8, SYSETUP+14, LAST7762+7, NEXT7762+7, DT7762+3, DT7762+10, LOADDESC+3, LOADDESC+4, LOADCOMP+3, LOADCOMP+4
    , LOADVAR+12, CURR+3, CURR+4, CURR+9, GBLMOVE+12, ASKRUN+3, QIT+3
    VAR LOADVAR+1~, LOADVAR+7*, LOADVAR+8*, LOADVAR+10
    X SYSETUP+11*, SYSETUP+12*, LOADALL+13!*, QIT+7*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All