169 lines
7.4 KiB
Mathematica
169 lines
7.4 KiB
Mathematica
HLEVSTUP ;O-OIFO/LJA - Event Monitor SETUP ;02/04/2004 14:42
|
|
;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
|
|
;
|
|
E7761 ; Enter/Edit 776.1...
|
|
N DA,DIC,DIE,DR,IEN,X,Y
|
|
D HD,EX
|
|
F D QUIT:IEN'>0
|
|
. W !
|
|
. S IEN=$$ASKIEN^HLEVREP(776.1,"L") QUIT:'IEN ;->
|
|
. W !!,$$CJ^XLFSTR("---------------- editing entry ----------------",IOM)
|
|
. W !
|
|
. D EDIT(776.1,IEN,"[HLEV MONITOR ENTER/EDIT]")
|
|
. W !
|
|
. D ASKRUN^HLEVAPI1(+IEN)
|
|
. D HD,EX
|
|
Q
|
|
;
|
|
E7769 ; Edit 776.999...
|
|
N DA,DIC,DIE,DR,IEN,X,Y
|
|
W @IOF
|
|
D EDIT(776.999,1,"[HLEV MASTER JOB ENTER/EDIT]")
|
|
W !
|
|
S X=$$BTE^HLCSMON("Press RETURN to exit... ")
|
|
Q
|
|
;
|
|
EDIT(FILE,IEN,DR) ; Edit entry...
|
|
N DA,DIE
|
|
S DA=+IEN,DIE=FILE
|
|
D ^DIE
|
|
Q
|
|
;
|
|
HD W @IOF,$$CJ^XLFSTR("Event Monitoring System Enter/Edit",IOM)
|
|
W !,$$REPEAT^XLFSTR("=",IOM)
|
|
QUIT
|
|
;
|
|
EX N I,T F I=1:1 S T=$T(EX+I) QUIT:T'[";;" W !,$P(T,";;",2,99)
|
|
;;You may now enter new entries, and edit existing entries. Enter a new entry
|
|
;;now, or select the existing entry to be edited.
|
|
QUIT
|
|
;
|
|
HELP(FILE,FLD) D HELPM
|
|
;;776.1^2^HD^STATUS (#2)
|
|
;;776.1^2^TX^Enter ACTIVE to make this event monitor "available" to the master job for
|
|
;;776.1^2^TX^queuing. When set to ACTIVE the master job will run this event monitor
|
|
;;776.1^2^TX^according to the REQUEUE FREQUENCY (that you will be asked several prompts
|
|
;;776.1^2^TX^from now.)
|
|
;;776.1^2^TX^
|
|
;;776.1^2^TX^NOTE: If you're entering this event monitor for the first time, you should
|
|
;;776.1^2^TX^ set this field to INACTIVE until all fields have been filled in. Then,
|
|
;;776.1^2^TX^ change this field back to ACTIVE.^1
|
|
;;
|
|
;;776.1^3^HD^SHORT DESCRIPTION (#3)
|
|
;;776.1^3^TX^Enter a short description for this event monitor; something that is more
|
|
;;776.1^3^TX^complete and descriptive than the NAME.^1
|
|
;;
|
|
;;776.1^4^HD^REQUEUE FREQUENCY (#4)
|
|
;;776.1^4^TX^The master job will run this event monitor as often as you specify. And, this
|
|
;;776.1^4^TX^field is the way you specify rerun frequency. Enter the number of minutes
|
|
;;776.1^4^TX^that should elapse after this event monitor runs until it is run again.
|
|
;;776.1^4^TX
|
|
;;776.1^4^TX^NOTE: Enter '0' if you want this event to run every time the master job
|
|
;;776.1^4^TX^ checks this monitor.^1
|
|
;;
|
|
;;776.1^5^HD^REMOTE REQUESTABLE
|
|
;;776.1^5^TX^Some monitors can only be started locally at a site. Some monitors can be
|
|
;;776.1^5^TX^started locally, and also requested remotely. (A remote request occurs when
|
|
;;776.1^5^TX^someone at another site or location sends a Mailman message to your site - to
|
|
;;776.1^5^TX^your site's HL7 Event Monitor's server option - requesting that the monitor be
|
|
;;776.1^5^TX^run.)^1
|
|
;;776.1^5^TX^WARNING!! Does this monitor return a report to the requester containing
|
|
;;776.1^5^TX^ sensitive information? If so, you should not, under any
|
|
;;776.1^5^TX^ circumstances, set this field to YES.^1
|
|
;;776.1^5^TX^Please specify now whether this monitor can be requested remotely. Enter YES
|
|
;;776.1^5^TX^to allow remote users to run this monitor. Enter NO if remote requests should
|
|
;;776.1^5^TX^ignored.^1
|
|
;;
|
|
;;776.1^6^HD^M STARTUP LOCATION
|
|
;;776.1^6^TX^The master job uses this field to determine how to start this event monitor.
|
|
;;776.1^6^TX^So, enter the M location (subroutine and routine) where the event
|
|
;;776.1^6^TX^should be queued. Enter it in the SUBROUTINE~ROUTINE format, substituting
|
|
;;776.1^6^TX^a tilde (~) for the up-arrow.
|
|
;;776.1^6^TX^
|
|
;;776.1^6^TX^The M location you enter now is the location where queued jobs start.^1
|
|
;;
|
|
;;776.1^7^HD^M START CHECK (EXTRINSIC FUNCTION)
|
|
;;776.1^7^TX^Normally, the master job uses the monitor's requeue frequency in order to
|
|
;;776.1^7^TX^determine whether a new monitor job should be queued. Alternately, you may
|
|
;;776.1^7^TX^call an extrinsic function to determine whether a new monitor job should be
|
|
;;776.1^7^TX^started. Entry of the M check extrinsic function is optional.
|
|
;;776.1^7^TX^
|
|
;;776.1^7^TX^Extrinsic functions must follow these rules:
|
|
;;776.1^7^TX^
|
|
;;776.1^7^TX^ * Syntax = $$TAG~ROUTINE (where TAG and ROUTINE do not exceed 8 characters.)
|
|
;;776.1^7^TX^ * $$TAG~ROUTINE returns a 1 or 0.
|
|
;;776.1^7^TX^
|
|
;;776.1^7^TX^The extrinsic function should return '0' if a new monitor job should not be
|
|
;;776.1^7^TX^started, or a '1' to start a new monitor job.^1
|
|
;;
|
|
;;776.1^41^HD^PARAMETER NOTES
|
|
;;776.1^41^TX^Enter description and documentation of the just entered parameters.^1
|
|
;;
|
|
;;776.1^50^HD^EVENT MONITOR NOTES
|
|
;;776.1^50^TX^Enter overall comments about this event monitor.^1
|
|
;;
|
|
;;776.1^51^HD^MAIL GROUPs, USERs, REMOTE USERs
|
|
;;776.1^51^TX^Enter the mail groups and local users and remote users to which notification
|
|
;;776.1^51^TX^messages are to be sent. If no notification message will ever be sent, leave
|
|
;;776.1^51^TX^these fields blank.^1
|
|
;;
|
|
;;=====================================================================
|
|
;;776.999^.01^HD^MONITORING SYSTEM NAME
|
|
;;776.999^.01^TX^You may change the name of the monitoring system if you like. (But, it
|
|
;;776.999^.01^TX^makes no difference to the monitoring system!)^1
|
|
;;
|
|
;;776.999^2^HD^MASTER JOB STATUS
|
|
;;776.999^2^TX^Set this field to ACTIVE to enable the master job to run and monitor your
|
|
;;776.999^2^TX^system. (The master job is started and stopped using the 'Turn on/off
|
|
;;776.999^2^TX^monitoring system [HLEV EDIT MASTER ON-OFF]' menu option.) Set this field
|
|
;;776.999^2^TX^to INACTIVE to stop the master job (if it is running), and to ensure that
|
|
;;776.999^2^TX^the master job does not start^1
|
|
;;
|
|
;;776.999^3^HD^MASTER JOB INTERVAL (MINUTES)
|
|
;;776.999^3^TX^The master job is started every MASTER JOB INTERVAL minutes to evaluate your
|
|
;;776.999^3^TX^system. Enter the number of minutes now that should elapse between every
|
|
;;776.999^3^TX^"run" of the master job.^1
|
|
;;
|
|
;;776.999^4^HD^PURGE LIMIT FOR DATA
|
|
;;776.999^4^TX^Whenever the master job runs, data is created in the HL7 Monitor Master Job
|
|
;;776.999^4^TX^file (#776.2.) Whenever the master job spawns off a new background job for
|
|
;;776.999^4^TX^an event monitor, data is created in the HL7 Monitor Job file (#776.) Purging
|
|
;;776.999^4^TX^of this data occurs automatically. This parameter controls how much data to
|
|
;;776.999^4^TX^retain. For example, if you enter '96' now, then no data less than 96 hours
|
|
;;776.999^4^TX^old will be purged.^1
|
|
;;
|
|
;;776.999^6^TX^
|
|
;;776.999^6^TX^
|
|
;;776.999^6^TX^ --- EVENT MONITORING FIELDS ---
|
|
;;776.999^6^TX^
|
|
;;776.999^6^HD^STATUS OF EVENT MONITORING
|
|
;;776.999^6^TX^The master job periodically "fires off" event monitors. If you set this field
|
|
;;776.999^6^TX^to INACTIVE, the master job will continue to start and run, but no events
|
|
;;776.999^6^TX^will be started. When this field is set to ACTIVE, the master job will be
|
|
;;776.999^6^TX^able to run event monitors.^1
|
|
;
|
|
Q
|
|
;
|
|
HELPM ; Display of HELP logic...
|
|
N I,INFO,J,T,TYP
|
|
F I=1:1 S T=$T(HELP+I) Q:T'[";;" D
|
|
. S T=$P(T,";;",2,999)
|
|
. I +T=FILE,$P(T,U,2)=FLD D
|
|
. . S TYP=$P(T,U,3),INFO=$P(T,U,4)
|
|
. . W:TYP="HD" !!,$$CJ^XLFSTR(" "_INFO_" ",IOM,"=")
|
|
. . W:TYP="TX" !,INFO
|
|
. . W:TYP="FT" !,$$REPEAT^XLFSTR("=",IOM)
|
|
. . I $P(T,U,5)>0 F J=1:1:$P(T,U,5) W !
|
|
Q
|
|
;
|
|
IMPLEMNT ; Not yet implemented API...
|
|
N OPT
|
|
S OPT=$P($G(XQY0),U,2)_" ["_$P($G(XQY0),U)_"]"
|
|
W !!,$$CJ^XLFSTR("This '"_OPT_"' menu option",IOM)
|
|
W !,$$CJ^XLFSTR("is not yet implemented.",IOM)
|
|
W !
|
|
S X=$$BTE^HLCSMON("Press RETURN to return to menu...")
|
|
Q
|
|
;
|
|
EOR ;HLEVSTUP - Event Monitor SETUP ;5/16/03 14:42
|