Routine: BLRHLTBL

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

BLRHLTBL ; cmi/anch/maw - BHL Import HL7 Tables ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRHLTBL.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Kernel	2	^%ZISC $$OPEN^%ZISH
VA Fileman	2	UPDATE^DIE ^DIR
IHS Changes To Lab	1	(HEADERPG,LINEWRAP,PRESSKEY)^BLRGMENU

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; EP -- display the values in an HL7 table
LOAD(DIR,FL)	;-- load from the file and bhl hl7 tables File
ASKOTAB()	;-- get the table number
DSPHLTBL(TABLE)	; EP - Display HL7 Table
DISPO	;-- display the values in an HL7 table
ADDO(TAB,VAL,DSC)
LOADO(DIR,FL)	;-- load from the file and bhl other tables File
BHLTBLL(DIR,FILE)	; EP
DSPOTTBL(TABLE)	; EP - Display OTHER Table
ASKTAB()	;-- get the table number
ADD(TAB,VAL,DSC)
ASKHTAB()	;-- get the table number

External References

Name	Field # of Occurrence
^%ZISC	LOAD+16, LOADO+16
$$OPEN^%ZISH	LOAD+2, LOADO+2
HEADERPG^BLRGMENU	DSPHLTBL+14, DSPOTTBL+14
LINEWRAP^BLRGMENU	DSPHLTBL+18, DSPOTTBL+18
PRESSKEY^BLRGMENU	DISP+5, DISPO+3, DSPHLTBL+22, DSPOTTBL+22
UPDATE^DIE	ADD+6, ADDO+6
^DIR	ASKTAB+3, ASKHTAB+3, ASKOTAB+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Trouble Opening File, please fix and try again" Line Location: LOAD+5
Function Call: READ	Timeout: DTIME Variable: BLRX Line Location: LOAD+6
Function Call: WRITE	Prompt: !,"Trouble Opening File, please fix and try again" Line Location: LOADO+5
Function Call: READ	Timeout: DTIME Variable: BLRX Line Location: LOADO+6
Function Call: WRITE	Prompt: !!,?4,"HL7 table not on system" Line Location: DISP+5
Function Call: WRITE	Prompt: @IOF Line Location: DISP+8
Function Call: WRITE	Prompt: "HL7 Table "_HTAB Line Location: DISP+9
Function Call: WRITE	Prompt: !,"Value",?17,"Description" Line Location: DISP+10
Function Call: WRITE	Prompt: !,$P(DATA,U,2),?17,$P(DATA,U,3) Line Location: DISP+14
Function Call: WRITE	Prompt: !!,?4,"Other table not on system" Line Location: DISPO+3
Function Call: WRITE	Prompt: @IOF Line Location: DISPO+6
Function Call: WRITE	Prompt: "Other Table "_OTAB Line Location: DISPO+7
Function Call: WRITE	Prompt: !,"Value",?17,"Description" Line Location: DISPO+8
Function Call: WRITE	Prompt: !,$P(DATA,U,2),?27,$P(DATA,U,3) Line Location: DISPO+12
Function Call: WRITE	Prompt: ?4,$P(DATA,U,2) Line Location: DSPHLTBL+16
Function Call: WRITE	Prompt: ! Line Location: DSPHLTBL+19
Function Call: WRITE	Prompt: ?4,$P(DATA,U,2) Line Location: DSPOTTBL+16
Function Call: WRITE	Prompt: ! Line Location: DSPOTTBL+19
Routine Call	DIE Line Location: ADD+6 ADDO+6
Routine Call	DIR Line Location: ASKTAB+3 ASKHTAB+3 ASKOTAB+3

Name	Line Occurrences (* Changed, ! Killed)
^BHLOTBL(	DSPOTTBL+13
^BHLOTBL("AVAL"	ADDO+1, DSPOTTBL+11, DSPOTTBL+12
^BHLOTBL("B"	ASKOTAB+6
^BHLTBL(	DSPHLTBL+13
^BHLTBL("AVAL"	ADD+1, DSPHLTBL+11, DSPHLTBL+12
^BHLTBL("B"	ASKHTAB+6

Name	Line Occurrences
$$ADD	LOAD+12
$$ADDO	LOADO+12
$$ASKHTAB	DISP+4
$$ASKOTAB	DISPO+2
$$ASKTAB	DISP+2
DISPO	DISP+3
DSPHLTBL	DISP+7
DSPOTTBL	DISPO+5
LOAD	BHLTBLL+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BHLFLG	BHLTBLL+7
>> BLRFLG	LOAD+4, LOADO+4
>> BLRI	LOAD+6, LOADO+6
>> BLRTI	LOAD+12, LOAD+13, LOADO+12, LOADO+13
>> BLRX	LOAD+6, LOAD+7, LOAD+8, LOAD+9, LOAD+11, LOADO+6, LOADO+7, LOADO+8, LOADO+9, LOADO+11
>> BLRY	LOAD+2, LOAD+3, LOADO+2, LOADO+3
>> C	BHLTBLL+5*, LOAD+8, LOAD+9, LOAD+11, LOADO+8, LOADO+9, LOADO+11
DATA	DISP+1~, DISPO+1~, DSPHLTBL+13, DSPHLTBL+15, DSPHLTBL+16, DSPOTTBL+13, DSPOTTBL+15, DSPOTTBL+16
DESC	LOAD+1~, LOAD+9, LOAD+10, LOAD+12, LOADO+1~, LOADO+9, LOADO+10, LOADO+12, DSPHLTBL+1~, DSPHLTBL+15* , DSPHLTBL+17, DSPHLTBL+18, DSPOTTBL+1~, DSPOTTBL+15*, DSPOTTBL+17, DSPOTTBL+18
DIR	BHLTBLL~, BHLTBLL+6, LOAD~, LOAD+2, LOADO~, LOADO+2
DIR("A"	ASKTAB+2, ASKHTAB+2, ASKOTAB+2*
DIR(0	ASKTAB+2, ASKHTAB+2, ASKOTAB+2*
>> DIRUT	ASKTAB+4, ASKHTAB+4, ASKOTAB+4
DSC	ADD~, ADD+5, ADDO~, ADDO+5
DTIME	LOAD+6, LOADO+6
FDA	ADD+2~, ADDO+2~
FDA(	ADD+3, ADD+4, ADD+5, ADDO+3, ADDO+4, ADDO+5
FERR	ADD+2~, ADDO+2~
FIENS	ADD+2~, ADDO+2~
FILE	BHLTBLL~, BHLTBLL+6
FL	LOAD~, LOAD+2, LOADO~, LOADO+2
HEADER	DSPHLTBL+1~, DSPOTTBL+1~
HEADER(1	DSPHLTBL+3, DSPOTTBL+3
HEADER(2	DSPHLTBL+4, DSPOTTBL+4
HEADER(3	DSPHLTBL+5, DSPOTTBL+5
HEADER(4	DSPHLTBL+6, DSPHLTBL+7, DSPOTTBL+6, DSPOTTBL+7
HTAB	DISP+1~, DISP+4*, DISP+5, DISP+7
IO	LOAD+6, LOADO+6
IOSL	DSPHLTBL+9, DSPOTTBL+9
LINES	DSPHLTBL+1~, DSPHLTBL+9, DSPHLTBL+14, DSPHLTBL+20, DSPOTTBL+1~, DSPOTTBL+9, DSPOTTBL+14, DSPOTTBL+20
MAXLINES	DSPHLTBL+1~, DSPHLTBL+9, DSPHLTBL+14, DSPOTTBL+1~, DSPOTTBL+9, DSPOTTBL+14
OTAB	DISPO+1~, DISPO+2*, DISPO+3, DISPO+5
PG	DSPHLTBL+1~, DSPHLTBL+9, DSPHLTBL+14, DSPOTTBL+1~, DSPOTTBL+9, DSPOTTBL+14
QFLG	DSPHLTBL+1~, DSPHLTBL+9, DSPHLTBL+11, DSPHLTBL+12, DSPHLTBL+14, DSPHLTBL+22, DSPOTTBL+1~, DSPOTTBL+9, DSPOTTBL+11, DSPOTTBL+12 , DSPOTTBL+14, DSPOTTBL+22
TAB	ADD~, ADD+1, ADD+3, ADDO~, ADDO+1, ADDO+3, ASKTAB+1~, ASKTAB+5, ASKTAB+6, ASKHTAB+1~ , ASKHTAB+5, ASKHTAB+6, ASKHTAB+7, ASKOTAB+1~, ASKOTAB+5*, ASKOTAB+6, ASKOTAB+7
TABL	DISP+1~, DISP+2*, DISP+3, DISPO+1~
TABLE	DSPHLTBL~, DSPHLTBL+4, DSPHLTBL+11, DSPHLTBL+12, DSPOTTBL~, DSPOTTBL+4, DSPOTTBL+11, DSPOTTBL+12
TB	LOAD+1~, LOAD+11, LOAD+12, LOADO+1~, LOADO+11, LOADO+12
TDA	DISP+1~, DISPO+1~, DSPHLTBL+11, DSPHLTBL+12, DSPOTTBL+11, DSPOTTBL+12
TIEN	DISP+1~, DISPO+1~, DSPHLTBL+12, DSPHLTBL+13, DSPOTTBL+12, DSPOTTBL+13
U	DSPHLTBL+15, DSPHLTBL+16, DSPOTTBL+15, DSPOTTBL+16
VAL	ADD~, ADD+1, ADD+4, ADDO~, ADDO+1, ADDO+4
VALUE	LOAD+1~, LOAD+8, LOAD+12, LOADO+1~, LOADO+8, LOADO+12
>> Y	ASKTAB+5, ASKHTAB+5, ASKOTAB+5

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRHLTBL

Call Graph Total: 5