HMPMETA ;SLC/PJH,ASM/RRB,CPC-collect domains, uids, & stamptimes ;Jan 20, 2017 17:18:18
Source file <HMPMETA.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD(HMPDMNM,HMPUID,HMPSTMP) | ; Build array for metastamp - called from HMPDJ0* routines
|
|
| DONE(HMPFDFN,HMPBATCH) | ; Check if metastamp compile is complete
|
|
| OPD(HMPFHMP) | ;Check if OPD metastamp is ready to collect
|
|
| INIT(HMPBATCH,HMPFDFN,ARGS) | ; Set metastamp status as in progress
|
|
| UPD(HMPDOM) | ; Update metastamp domain as complete
|
|
| MERGE1(HMPBATCH,HMPDOM) | ; US11019 Merge a single domain
|
|
| MERGE(HMPBATCH) | ; Merge metastamp data into XTMP and mark domain complete in metastamp
|
|
| METAPT(A,HMPCDOM) | ; MetaStamp for patient data (within its own syncStart chunk).;US11019 added second parameter
; --Input parameter ; A = "^^HMPFX~hmp-development-box~"<DFN> (e.g. ^^HMPFX~hmp-development-box~3) ; HMPCDOM = Single domain US11019 |
|
| METAOP(A) | ; MetaStamp for operational data (within its own syncStart chunk)
; A = HMPFX~hmp-development-box~OPD |
|
| STATUS(STOP,HMPFHMP) | ; Set HMP GLOBAL USAGE MONITOR status
|
|
| SET(STOP,HMPSRV) | ; Flag set/reset, Stamptime set
|
|
| CHECK(HMPFHMP) | ; Check storage status and send MailMan message if appropriate
; Input HMPFHMP - server name |
|
| MSG(HMPFLG) | ; send email about space limit for ^XTMP("HMP*")
|
|
| MSGLN(TXTARY,LN) | ; add LN to TXTARY (passed by ref.) for MailMan message
|
