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 |  Marked Items  | All
Print Page as PDF
Routine: HLEVX000

Package: Health Level Seven

Routine: HLEVX000


Information

HLEVX000 ;O-OIFO/LJA - VistA HL7 Event Monitor Code ;02/04/2004 15:25

Source Information

Source file <HLEVX000.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Health Level Seven 7 $$BTE^HLCSMON  $$YN^HLCSRPT4  (CHECKIN,CHECKOUT,MAILIT,START)^HLEVAPI  MSGTEXT^HLEVAPI1  $$LOG^HLEVAPI2  GENREP^HLEVUTI0  REPDINUM^HLEVX003  
Kernel 3 ENDR^%ZISS  ($$FMADD,$$NOW)^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Registration 1 $$SITE^VASITE  

Caller Graph

Legends:

Legend of Colors

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

Caller Graph Total: 1

Package Total Caller Graph
Health Level Seven 1 HLEVX002  

Entry Points

Name Comments DBIA/ICR reference
CHK870 ; Search for various file 870 problems...
SITE
EXPL
HDR
REP
ADD(TXT) ; Add to global for moving into report
MSG(TXT) ; Generic text displayer...
CHECKS(IEN870,WAY,MIEN870) ; Perform various checks on queue entry...
; CTDINUM,CTSKIP,CTSTUB -- req
DATA870(IEN870,WAY,MIEN870) ; Does record exist?
; CTSKIP,LINKNM -- req
CHKSTUB(IEN870,WAY,MIEN870) ; Check if a stub record that "hangs around"
; CTSTUB,LINKNM -- req
CHKDINUM(IEN870,WAY,MIEN870) ; Check for records not DINUMd for log link
; CTDINUM,LINKNM -- req
RECORD(PROBL,LINKNM,WAY,MIEN870) ; Record for later inclusion in report
CORRECT ; Correct a stub entry in HLCS(870)...
CONT
FIX(IEN870,WAY,MIEN870,STAT) ; Fix stub record...
WAY() ; In or Out?
LINK() ; Which 870 entry?
MIEN870(IEN870,WAY) ; Search for stub record...
HD
EX
EOR ;HLEVX000 - VistA HL7 Event Monitor Code ;5/30/03 15:25

External References

Name Field # of Occurrence
ENDR^%ZISS MIEN870+3
^DIC LINK+3
^DIE FIX+5
^DIR WAY+4
$$BTE^HLCSMON MSG+4, CONT+9
$$YN^HLCSRPT4 CONT+5
CHECKIN^HLEVAPI CHK870+27, CHK870+34, CHK870+40, CHK870+43
CHECKOUT^HLEVAPI CHK870+44
MAILIT^HLEVAPI CHK870+59, REP+23
START^HLEVAPI CHK870+12
MSGTEXT^HLEVAPI1 CHK870+55, REP+18
$$LOG^HLEVAPI2 DATA870+9, CHKSTUB+11
GENREP^HLEVUTI0 CHK870+52
REPDINUM^HLEVX003 CHK870+62
$$SITE^VASITE SITE
$$FMADD^XLFDT CHK870+19
$$NOW^XLFDT CHK870+18
$$CJ^XLFSTR HD
$$REPEAT^XLFSTR HDR+2, REP+5, REP+11, REP+14, HD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,TXT
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CORRECT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: !!,"Stub record# ",MIEN870," found. It's status is about to be changed to DONE..."
  • Line Location: CONT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+4
Function Call: WRITE
  • Prompt: " fixed... "
  • Line Location: CONT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+8
Function Call: WRITE
  • Prompt: !,IOINHI,"Searching for stub records...",IOINORM
  • Line Location: MIEN870+5
Function Call: WRITE
  • Prompt: @IOF,$$CJ^XLFSTR("Stub Record Correction",IOM)
  • Line Location: HD+0
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,$P(T,";;",2,99)
  • Line Location: EX+0
Routine Call
  • DIC
  • Line Location:
    • LINK+3
Routine Call
  • DIE
  • Line Location:
    • FIX+5
Routine Call
  • DIR
  • Line Location:
    • WAY+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HLCS(870 - [#870] CHK870+26, CHK870+29, CHK870+35, CHK870+36, DATA870+4, CHKSTUB+3, CHKDINUM+8, MIEN870+7, MIEN870+9, MIEN870+11
^TMP($J CHK870+15!, CHK870+49, CHK870+52, CHK870+55, CHK870+65!, REP+1, REP+4, REP+7, REP+18, REP+20!
, ADD+2, ADD+3*, RECORD+10*, RECORD+11*, RECORD+12*, RECORD+15*, RECORD+16*, RECORD+17*, RECORD+18*
^XTMP( CHK870+19*, CHK870+22, CHK870+46*, CHKSTUB+6, CHKSTUB+7*

Label References

Name Line Occurrences
$$DATA870 CHECKS+2
$$LINK CORRECT+6
$$MIEN870 CONT+1
$$WAY CORRECT+3
ADD SITE+1, SITE+2, EXPL, EXPL+1, EXPL+2, HDR, HDR+1, HDR+2, REP+10, REP+13
, REP+15, REP+16
CHECKS CHK870+41
CHKDINUM CHECKS+4
CHKSTUB CHECKS+3
CONT CONT+10
EX CORRECT+2
FIX CONT+6
HD CORRECT+2
MSG CORRECT+4, CORRECT+7, CONT+2
RECORD DATA870+11, CHKSTUB+13, CHKDINUM+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT MIEN870+1~, MIEN870+6*, MIEN870+8*
CT870 CHK870+4~, CHK870+25*, CHK870+28*, CHK870+46
>> CTDINUM CHK870+25*, CHK870+46, CHKDINUM+14*
CTERR CHK870+4~, CHK870+25*, CHK870+46, DATA870+12*, CHKSTUB+14*, CHKDINUM+14*
CTNO CHK870+4~, CHK870+25*, CHK870+39*, CHK870+40, CHK870+46, REP+3*, REP+8*
>> CTSKIP CHK870+25*, CHK870+46, DATA870+12*
CTSTUB CHK870+4~, CHK870+25*, CHK870+46, CHKSTUB+14*
DA FIX+1~, FIX+3*
DA(1 FIX+3*
DATA CHK870+4~, MIEN870+9*, MIEN870+11*
DATABEF CHK870+4~, CHKSTUB+2~, CHKSTUB+6*, CHKSTUB+7, CHKSTUB+8
DIC LINK+1~, LINK+2*
DIC("A" LINK+2*
DIC(0 LINK+2*
DIE FIX+1~, FIX+2*
DIR WAY+1~
DIR("A" WAY+3*
DIR(0 WAY+2*
DIRUT WAY+1~, WAY+5
DR FIX+1~, FIX+4*
DTOUT WAY+1~, WAY+5
DUOUT WAY+1~, WAY+5
>> HLEVTXT(1 CHK870+58*, REP+22*
I EX~*
IEN CHKDINUM+5~, CHKDINUM+8*, MIEN870+1~, MIEN870+6*, MIEN870+7*, MIEN870+9, MIEN870+11, MIEN870+12
IEN870 CHK870+4~, CHK870+25*, CHK870+26*, CHK870+29, CHK870+30, CHK870+35, CHK870+36, CHK870+41, CHECKS~, CHECKS+2
, CHECKS+3, CHECKS+4, DATA870~, DATA870+4, CHKSTUB~, CHKSTUB+3, CHKSTUB+6, CHKSTUB+7, CHKDINUM~, CHKDINUM+8
, CORRECT+1~, CORRECT+6*, CONT+1, CONT+6, FIX~, FIX+2, FIX+3, MIEN870~, MIEN870+7, MIEN870+9
, MIEN870+11
IOF HD
IOINHI MIEN870+1~, MIEN870+5
IOINORM MIEN870+1~, MIEN870+5
IOM HD, HD+1
IOSL MSG+3
>> LEVEL RECORD+5*, RECORD+6*, RECORD+7*, RECORD+10, RECORD+11, RECORD+12, RECORD+15, RECORD+16
LINKNM CHK870+4~, CHK870+29*, CHK870+30*, REP*, REP+1*, REP+2, REP+4, REP+7, DATA870+11, CHKSTUB+13
, CHKDINUM+13, RECORD~, RECORD+4*, RECORD+10, RECORD+11, RECORD+12, RECORD+15, RECORD+16
MIEN870 CHK870+4~, CHK870+35*, CHK870+37, CHK870+38*, CHK870+41, REP+6*, REP+7*, REP+9, REP+12, CHECKS~
, CHECKS+2, CHECKS+3, CHECKS+4, DATA870~, DATA870+4, DATA870+11, CHKSTUB~, CHKSTUB+3, CHKSTUB+6, CHKSTUB+7
, CHKSTUB+13, CHKDINUM~, CHKDINUM+8, CHKDINUM+13, RECORD~, RECORD+7*, RECORD+10, CORRECT+1~, CONT+1*, CONT+3
, CONT+6, FIX~, FIX+3, MIEN870+1~, MIEN870+6*, MIEN870+7, MIEN870+12*, MIEN870+14
MIEN870(1 CHK870+36*, CHK870+37, CHK870+38
NO ADD+1~, ADD+2*, ADD+3
NOW CHK870+5~, CHK870+18*, CHK870+19
PROBL RECORD~, RECORD+3*, RECORD+10, RECORD+11, RECORD+12, RECORD+15, RECORD+16, RECORD+17
>> SITE SITE*, SITE+1
STAT FIX~, FIX+4
STATUS CHK870+5~, CHKSTUB+2~, CHKSTUB+3*, CHKSTUB+4, MIEN870+1~
SUBDD FIX+1~
T EX~*
TXT CHK870+5~, REP+2*, REP+5*, REP+9, REP+10, REP+11*, REP+12*, REP+13, REP+14*, REP+15*
, REP+16*, ADD~, ADD+3, MSG~, MSG+1
U CHK870+19, CHK870+29, CHK870+46, SITE, CHKSTUB+3, MIEN870+9, MIEN870+11
VAR CHK870+5~, CHK870+8!, CHK870+10*, CHK870+11*, CHK870+12
VAR( CHK870+10*
WAY CHK870+5~, CHK870+32*, CHK870+33, CHK870+35, CHK870+36, CHK870+41, REP+3*, REP+4*, REP+5, REP+7
, CHECKS~, CHECKS+2, CHECKS+3, CHECKS+4, DATA870~, DATA870+4, DATA870+6, CHKSTUB~, CHKSTUB+3, CHKSTUB+5
, CHKDINUM~, CHKDINUM+8, CHKDINUM+10, RECORD~, RECORD+6*, RECORD+10, RECORD+11, RECORD+15, CORRECT+1~, CORRECT+3*
, CONT+1, CONT+6, FIX~, FIX+2, MIEN870~, MIEN870+7, MIEN870+9, MIEN870+11
WAY(1 CHK870+33*, DATA870+6*, DATA870+11, CHKSTUB+5*, CHKSTUB+6, CHKSTUB+7, CHKSTUB+13, CHKDINUM+10*, CHKDINUM+13
X MSG+4*, WAY+1~, LINK+1~, MIEN870+1~, MIEN870+3*
XTMPBEF CHK870+5~, CHK870+22*, CHKSTUB+6
XTMPNOW CHK870+5~, CHK870+18*, CHK870+19, CHK870+22, CHK870+46, CHKSTUB+7
Y WAY+1~, WAY+6, LINK+1~, LINK+4

Marked Items

Name Field # of Occurrence
$T(EX+I EX
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All