Routine: HLEVAPI1

Information

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

Source Information

Source file <HLEVAPI1.m>

Caller Graph

Legends:

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

Package	Total	Caller Graph
Kernel	1	^DIC(19

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

Customize PDF page

Package: Health Level Seven