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

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

    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
    Info |  Source |  Entry Points |  Interaction Calls