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

Package: Health Level Seven

Routine: HLEVUTIL


Information

HLEVUTIL ;O-OIFO/LJA - Event Monitor UTILITIES ;02/04/2004 14:42

Source Information

Source file <HLEVUTIL.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Health Level Seven 5 $$DIFFDH^HLCSFMN1  $$YN^HLCSRPT4  ($$PURGEM,UPDFLDM)^HLEVMST  $$SEC^HLEVMST0  (LASTIEN,MOVETMP)^HLEVUTI3  
Kernel 5 ENDR^%ZISS  DOLRO^%ZOSV  DQ^%ZTLOAD  ($$FMADD,$$FMTH,$$NOW)^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
VA FileMan 3 ^DIK  EN^DIQ1  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
Health Level Seven 9 HLCSMON1  HLEVAPI  HLEVAPI1  HLEVMST  HLEVMST0  HLEVREP2  HLEVX001  HLEVX002  
HLP109  

Entry Points

Name Comments DBIA/ICR reference
DHMSFM(DTFM,NOW,LONG) ; Convert Fileman d/t to Days-Hr-Min-Sec
DHMSH(DTH,NOW,LONG) ; Convert HORO d/t to Days-Hr-Min-Sec
EOR ;HLEVUTIL - Event Monitor UTILITIES ;5/16/03 14:42
PURGEME(IEN7762) ; Purge events "pointed to" by 776.2...
; NOPURG -- req
ENDIQ1(FILE,IEN,GBLSV) ; Create ^TMP($J,GBLSV,) data...
WPTXT(FILE,IEN,NODE,DDNO,TXT) ; Add text to multiple WP field...
UNQUEUE ; Unqueue any future master jobs...
LAST
DOLRO(SUB,KILL,DAYS) ; Store data in ^XTMP("HLEV-"_SUB)...
LASTIEN
SLM() ; Return info to Systems Link Monitor [HLCSMON1]...
DELETE(FILE,IEN) ; Delete entry...
PURGEV(HLEVIENM) ; Purge master job entries...
ADDMULT(FILE,GBL,IEN,LIM,FLDNM,FLD) ; Add LIM number of lines of multiple...
YN(PMT,DEF,FF) ; Generic YES/NO DIR call... ;HL*1.6*85
REMOVALL ; Remove all Event Monitor Job (#776) and HL7 Monitor Master
; Job (#776.2) data. Leave only setup file (#776.1 & 776.999)
; data untouched.
C(NO,UN) ; Convert to #[UN]...
PURGEALL(HLEVIENM) ; Purge all EVENT MONITORing files...
LAST773
LAST772
UNQ(IEN7762,TASKNO,REASON) ; Unqueue Taskman task and mark 776.2 properly...
ADDIQ(FILE,IEN,GBLSV) ; Add more data to ^TMP($J,GBLSV)
DICDR(FILE) ; Return fields for display by EN^DIQ1...

External References

Name Field # of Occurrence
ENDR^%ZISS SLM+3
DOLRO^%ZOSV DOLRO+16
DQ^%ZTLOAD UNQ+3
^DIK DELETE+4
EN^DIQ1 ENDIQ1+13
^DIR YN+5
$$DIFFDH^HLCSFMN1 SLM+24, DHMSH+7
$$YN^HLCSRPT4 REMOVALL+12
$$PURGEM^HLEVMST PURGEALL+8
UPDFLDM^HLEVMST UNQ+4, UNQ+5, PURGEALL+12
$$SEC^HLEVMST0 SLM+18, SLM+19
LASTIEN^HLEVUTI3 LAST, LASTIEN, LAST772, LAST773
MOVETMP^HLEVUTI3 ENDIQ1+21
$$FMADD^XLFDT DOLRO+12, PURGEV+11
$$FMTH^XLFDT SLM+18, DHMSFM+3, DHMSFM+4
$$NOW^XLFDT DHMSFM+3, DOLRO+6, PURGEV+11
$$CJ^XLFSTR REMOVALL+4
$$REPEAT^XLFSTR REMOVALL+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Purging of 776 and 776.2 (non-setup) Data",IOM)
  • Line Location: REMOVALL+4
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: REMOVALL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REMOVALL+6
Function Call: WRITE
  • Prompt: !,"There is no data to delete..."
  • Line Location: REMOVALL+8
Function Call: WRITE
  • Prompt: !,"No data to delete for file ",FILE,"..."
  • Line Location: REMOVALL+11
Function Call: WRITE
  • Prompt: " ... not deleted ..."
  • Line Location: REMOVALL+13
Function Call: WRITE
  • Prompt: " ... deleting!!"
  • Line Location: REMOVALL+14
Function Call: WRITE
  • Prompt: !
  • Line Location: YN+2
Routine Call
  • DIR
  • Line Location:
    • YN+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLEV( WPTXT+2, WPTXT+3, WPTXT+4*, WPTXT+5*, DELETE+2, REMOVALL+10, REMOVALL+15, REMOVALL+16!, REMOVALL+17*
^HLEV(776 - [#776] PURGEV+13, PURGEV+15, PURGEME+6, REMOVALL+7
^HLEV(776.2 - [#776.2] SLM+10, SLM+12, SLM+13, SLM+16, UNQUEUE+3, UNQUEUE+5, UNQUEUE+6, PURGEME+4, PURGEME+5, PURGEALL+3
, REMOVALL+7
^HLEV(776.999 - [#776.999] SLM+6, PURGEV+6, PURGEV+7, PURGEALL+6
^TMP($J ENDIQ1+3!
^UTILITY("DIQ1" ENDIQ1+3!, ENDIQ1+18, ENDIQ1+23!, ADDMULT+6*
^XTMP( DOLRO+9!, DOLRO+12*, DOLRO+15, DOLRO+16

Label References

Name Line Occurrences
$$DHMSH DHMSFM+5
$$DICDR ENDIQ1+7
$$PURGEV PURGEALL+9
ADDIQ ENDIQ1+16
ADDMULT ADDIQ+1, ADDIQ+2
C DHMSH+9, DHMSH+10, DHMSH+11, DHMSH+12
DELETE PURGEV+17, PURGEME+7
UNQ UNQUEUE+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAD SLM+1~, SLM+20, SLM+21*, SLM+23*
CT UNQUEUE+1~, UNQUEUE+2*, UNQUEUE+3, UNQUEUE+5
CUTIME PURGEV+1~, PURGEV+11*, PURGEV+13*, PURGEV+15
DA DELETE+1~, DELETE+3*, ENDIQ1+1~, ENDIQ1+8*
DATA SLM+1~, SLM+13*, SLM+16*, SLM+17, UNQUEUE+1~, UNQUEUE+6*, UNQUEUE+7, UNQUEUE+8, PURGEME+2~, PURGEME+5*
, PURGEME+6, ADDMULT+4*, ADDMULT+6
DATE SLM+1~, SLM+17*, SLM+18*, SLM+24
DATE(1 SLM+18*, SLM+20, SLM+22
DAY SLM+1~, SLM+25*, SLM+26
DAYS DOLRO~, DOLRO+5*, DOLRO+12
DDNO WPTXT~, WPTXT+5
DEF YN~, YN+4
DIC ENDIQ1+1~, ENDIQ1+6*
DIFF SLM+24*, SLM+25*, SLM+26, DHMSH+1~, DHMSH+7*, DHMSH+9, DHMSH+10, DHMSH+11, DHMSH+12
DIK DELETE+1~, DELETE+3*
DIQ ENDIQ1+1~
DIQ(0 ENDIQ1+10*
DIR YN+1~
DIR("A" YN+3*
DIR("B" YN+4*
DIR(0 YN+3*
DIRUT YN+1~, YN+6
DOWN SLM+1~, SLM+4*, SLM+6, SLM+7*, SLM+15, SLM+17, SLM+20, SLM+23*
DR ENDIQ1+1~, ENDIQ1+7*
DTFM DHMSFM~, DHMSFM+2, DHMSFM+4
DTH DHMSH~, DHMSH+3, DHMSH+5, DHMSH+6*, DHMSH+7
DTOUT YN+1~, YN+6
DUOUT YN+1~, YN+6
FF YN~, YN+2
FIEN SLM+1~, SLM+9*, SLM+10, SLM+12, SLM+14*, SLM+15, SLM+16
FILE WPTXT~, WPTXT+2, WPTXT+3, WPTXT+4, WPTXT+5, DELETE~, DELETE+2, DELETE+3, REMOVALL+3~, REMOVALL+9*
, REMOVALL+10, REMOVALL+11, REMOVALL+12, REMOVALL+15, REMOVALL+16, REMOVALL+17, ENDIQ1~, ENDIQ1+6, ENDIQ1+7, ENDIQ1+16
, ENDIQ1+21, ADDIQ~, ADDIQ+1, ADDIQ+2, ADDMULT~, ADDMULT+6, DICDR~, DICDR+1, DICDR+2, DICDR+3
, DICDR+4, DICDR+5, DICDR+6, DICDR+7, DICDR+8, DICDR+9
FLD ADDMULT~, ADDMULT+6
FLDNM ADDMULT~
FUTURE DHMSH+1~, DHMSH+4*, DHMSH+6*, DHMSH+15
GBL ADDMULT~, ADDMULT+3, ADDMULT+4
GBLSV ENDIQ1~, ENDIQ1+3, ENDIQ1+9*, ENDIQ1+21, ADDIQ~
HLEVIENM PURGEV~, PURGEALL~, PURGEALL+3, PURGEALL+8, PURGEALL+9, PURGEALL+12
HORO DHMSFM+1~, DHMSFM+4*, DHMSFM+5
HR SLM+1~, SLM+26*, SLM+28*, SLM+29
IEN SLM+1~, SLM+11*, SLM+12*, SLM+13, SLM+14, WPTXT~, WPTXT+2, WPTXT+3, WPTXT+4, WPTXT+5
, UNQUEUE+1~, UNQUEUE+4*, UNQUEUE+5*, UNQUEUE+6, UNQUEUE+9, PURGEV+1~, PURGEV+14*, PURGEV+15*, PURGEV+17, DELETE~
, DELETE+2, DELETE+3, ENDIQ1~, ENDIQ1+8, ENDIQ1+16, ENDIQ1+21, ADDIQ~, ADDIQ+1, ADDIQ+2, ADDMULT~
, ADDMULT+6
IEN776 PURGEME+2~, PURGEME+6*, PURGEME+7
IEN7762 UNQ~, UNQ+4, UNQ+5, PURGEME~, PURGEME+4, PURGEME+5
IOBOFF SLM+1~, SLM+4, SLM+7, SLM+23
IOBON SLM+1~, SLM+4, SLM+7, SLM+23
IOF REMOVALL+4
IOM REMOVALL+4, REMOVALL+5
KILL DOLRO~, DOLRO+9
LASTDT SLM+1~, SLM+9*, SLM+10*, SLM+12, UNQUEUE+1~, UNQUEUE+2*, UNQUEUE+3*, UNQUEUE+5
LIM ADDMULT~, ADDMULT+2*, ADDMULT+3
LONG DHMSFM~, DHMSFM+5, DHMSH~, DHMSH+2*, DHMSH+9, DHMSH+10, DHMSH+11, DHMSH+12
LOOPTM PURGEV+1~
MIEN PURGEME+2~, PURGEME+3*, PURGEME+4*, PURGEME+5, ADDMULT+1~, ADDMULT+2*, ADDMULT+3*, ADDMULT+4
MIN SLM+1~, SLM+26*, SLM+27*, SLM+28
NO C~, C+1, C+2, WPTXT+1~, WPTXT+3*, WPTXT+4, WPTXT+5, DOLRO+1~, DOLRO+15*, DOLRO+16
, ADDMULT+1~, ADDMULT+2*, ADDMULT+3, ADDMULT+5*, ADDMULT+6
NODE WPTXT~, WPTXT+3, WPTXT+4, WPTXT+5, REMOVALL+3~, REMOVALL+15*, REMOVALL+17
NOPURG PURGEV+1~, PURGEV+3*, PURGEV+16*, PURGEV+19, PURGEME+8*
NOPURGE PURGEALL+1~, PURGEALL+9*, PURGEALL+10, PURGEALL+11
NOPURGM PURGEALL+1~, PURGEALL+8*, PURGEALL+10, PURGEALL+11
NOW SLM+19*, SLM+24, DHMSFM~, DHMSFM+3*, DHMSFM+5, DHMSH~, DHMSH+4*, DHMSH+5, DHMSH+6*, DHMSH+7
, DOLRO+1~, DOLRO+6*, DOLRO+12
NOW(1 SLM+19*, SLM+20, SLM+22
PMT YN~, YN+3
REASON UNQ~, UNQ+5
RETHRM PURGEV+1~, PURGEV+6*, PURGEV+7*, PURGEV+8*, PURGEV+11
SEC SLM+1~, SLM+26*, SLM+27
SUB DOLRO~, DOLRO+4*, DOLRO+9, DOLRO+12, DOLRO+15, DOLRO+16
TASKNO UNQUEUE+8*, UNQUEUE+9, UNQ~, UNQ+2
TIME DHMSH+1~, DHMSH+8*, DHMSH+13*, DHMSH+14*, DHMSH+15*, DHMSH+16, C+2*
TXT WPTXT~, WPTXT+4, PURGEALL+1~, PURGEALL+11*, PURGEALL+12
U SLM+6, SLM+13, SLM+17, SLM+25, SLM+26, DHMSH+9, DHMSH+10, DHMSH+11, DHMSH+12, WPTXT+5
, DOLRO+12, UNQUEUE+7, UNQUEUE+8, PURGEV+7, PURGEALL+6, REMOVALL+15, YN+6
UN C~, C+2
X SLM+1~, SLM+3*, DHMSH+1~, DHMSH+6*, DOLRO+1~, DOLRO+16*, REMOVALL+12*, YN+1~, YN+2*
Y YN+1~, YN+7
ZTSK UNQ+1~, UNQ+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All