Routine: BLRRLMU4

Package	Total	Call Graph
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
Kernel	2	($$FMTE,$$HL7TFM)^XLFDT ($$CJ,$$UP)^XLFSTR
IHS Changes To Lab	1	(ADDTMENU,EEP,HEADERDT,HEADERPG,LINEWRAP,MENUDRVR,PRESSKEY)^BLRGMENU
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
SHOWSEG	; EP - Show segment and setup STR variable
SHOWDATE(HL7DT)	; EP - Take HL7 Date and display FM & External Date
UNIVERSI	; EP - Initialization
DISPNTE	; EP - Don't process anything in the NTE Segment
UNIVERSE	; EP - Universal Interface UIDs Report
PEP	; EP
EEP	; Ersatz EP
UNIVMENU	; EP - UNIVERSAL INTERFACE Menu
DISPSPM	; EP
UNIVERUD	; EP - For UNIVERSAL INTERFACE, Enter UID & Display ALL HL7 Segs
DISPPID	; EP - Don't process anything in the PID Segment
DISPORC	; EP - Don't process anything in the PID Segment
DISPOBR	; EP
DISPTQ1	; EP - Don't process anything in the TQ1 Segment
DISPOBX	; EP
DISPMSH	; EP - Don't process anything in the MSH Segment

External References

Name	Field # of Occurrence
ADDTMENU^BLRGMENU	UNIVMENU+5, UNIVMENU+6
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	UNIVERUD+53
HEADERPG^BLRGMENU	UNIVERSE+13
LINEWRAP^BLRGMENU	DISPOBR+11, DISPOBX+11
MENUDRVR^BLRGMENU	UNIVMENU+9
PRESSKEY^BLRGMENU	UNIVERSE+18, UNIVERUD+9, UNIVERUD+17, UNIVERUD+36, UNIVERUD+39, UNIVERUD+61
$$FIND1^DIC	UNIVERSI+4, UNIVERUD+5, DISPOBR+14, DISPOBX+14
$$GET1^DIQ	UNIVERSE+6, UNIVERUD+24, DISPOBR+17, DISPOBX+17
^DIR	UNIVERUD+14
^XBFMK	UNIVERUD+11
$$FMTE^XLFDT	UNIVERSE+6, UNIVERUD+24, SHOWDATE+6
$$HL7TFM^XLFDT	SHOWDATE+4
$$CJ^XLFSTR	UNIVMENU+9
$$UP^XLFSTR	UNIVERSE+6, UNIVERUD+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?4,MSGNUM,?19,DATETIME,?40,MSGSEG,?50,$P(UID,"^"),?65,$P(UID,"^",2),! Line Location: UNIVERSE+15
Function Call: WRITE	Prompt: !,?4,"Could not determine IEN of 'HL IHS LAB R01 MU IN' Interface. Routine Ends." Line Location: UNIVERUD+8
Function Call: WRITE	Prompt: !!,?4,"No/Invalid Entry. Routine Ends." Line Location: UNIVERUD+16
Function Call: WRITE	Prompt: !!,"LRUID:",LRUID,!,?4,"Searching" Line Location: UNIVERUD+20
Function Call: WRITE	Prompt: "." Line Location: UNIVERUD+26
Function Call: WRITE	Prompt: !,?4 Condition for execution: $X>74 Line Location: UNIVERUD+26
Function Call: WRITE	Prompt: !! Line Location: UNIVERUD+33
Function Call: WRITE	Prompt: ?4,"Could not find UID ",LRUID," in File 4001. Routine Ends." Line Location: UNIVERUD+35
Function Call: WRITE	Prompt: ?4,"Found UID ",LRUID," in File 4001 at MSGNUM:",FOUNDIT Line Location: UNIVERUD+38
Function Call: WRITE	Prompt: !! Line Location: UNIVERUD+41
Function Call: WRITE	Prompt: ?9,"TSTLOINC:",TSTLOINC,?39,"TESTNAME:" Line Location: DISPOBR+9
Function Call: WRITE	Prompt: ! Line Location: DISPOBR+11
Function Call: WRITE	Prompt: ?9,"ORIGTEXT:",ORIGTEXT,! Line Location: DISPOBR+12
Function Call: WRITE	Prompt: ?9,"F60IEN:",F60IEN,! Line Location: DISPOBR+15
Function Call: WRITE	Prompt: ?9,"DATANAME:",DATANAME,! Line Location: DISPOBR+18
Function Call: WRITE	Prompt: ?9,"OBSDTT:",OBSDTT Line Location: DISPOBR+21
Function Call: WRITE	Prompt: ! Line Location: DISPOBR+23
Function Call: WRITE	Prompt: ?9,"CHNGDTT:",CHNGDTT Line Location: DISPOBR+26
Function Call: WRITE	Prompt: ! Line Location: DISPOBR+28
Function Call: WRITE	Prompt: ?9,"DNDTT:",DNDTT Line Location: DISPOBR+31
Function Call: WRITE	Prompt: ! Line Location: DISPOBR+33
Function Call: WRITE	Prompt: ?9,"RCTOSTR:",RCTOSTR,!,?14,"SUBSTR2:",SUBSTR2,! Line Location: DISPOBR+40
Function Call: WRITE	Prompt: ?19,"SUBSTR2:",SUBSTR2,! Line Location: DISPOBR+44
Function Call: WRITE	Prompt: ?4,SEG,!,?9,"FOUNDIT:",FOUNDIT,?39,"SEGIEN:",SEGIEN,! Line Location: SHOWSEG+1
Function Call: WRITE	Prompt: ?39,FMDT Line Location: SHOWDATE+5
Function Call: WRITE	Prompt: ?59,$$FMTE^XLFDT(FMDT,"5MZ") Line Location: SHOWDATE+6
Function Call: WRITE	Prompt: ?9,"TSTLOINC:",TSTLOINC,?39,"TESTNAME:" Line Location: DISPOBX+9
Function Call: WRITE	Prompt: ! Line Location: DISPOBX+11
Function Call: WRITE	Prompt: ?9,"ORIGTEXT:",ORIGTEXT,! Line Location: DISPOBX+12
Function Call: WRITE	Prompt: ?9,"F60IEN:",F60IEN,! Line Location: DISPOBX+15
Function Call: WRITE	Prompt: ?9,"DATANAME:",DATANAME,! Line Location: DISPOBX+18
Function Call: WRITE	Prompt: ?9,"ANSDTT:",ANSDTT Line Location: DISPOBX+21
Function Call: WRITE	Prompt: ! Line Location: DISPOBX+23
Function Call: WRITE	Prompt: ?9,"STATUS:",STATUS,! Line Location: DISPOBX+26
Function Call: WRITE	Prompt: ?9,"CONDSPEC:",CONDSPEC,! Line Location: DISPSPM+6
Function Call: WRITE	Prompt: ?9,"REJREASN:",REJREASN,! Line Location: DISPSPM+9
Routine Call	DIC Line Location: UNIVERSI+4 UNIVERUD+5 DISPOBR+14 DISPOBX+14
Routine Call	DIR Line Location: UNIVERUD+14

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^INTHU - [#4001]	GET1^DIQ
^INRHD - [#4005]	FIND1^DIC
^LAB(60 - [#60]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^INTHU - [#4001]	UNIVERSE+9, UNIVERSE+10, UNIVERSE+11, UNIVERUD+27, UNIVERUD+28, UNIVERUD+29, UNIVERUD+55, UNIVERUD+56, SHOWSEG+2
^INTHU("AD"	UNIVERSE+5, UNIVERUD+23

Label References

Name	Line Occurrences
@(	UNIVERUD+59
SHOWDATE	DISPOBR+22, DISPOBR+27, DISPOBR+32, DISPOBX+22
SHOWSEG	DISPMSH+2, DISPPID+2, DISPOBR+3, DISPOBX+3, DISPORC+2, DISPSPM+3, DISPNTE+2, DISPTQ1+2
UNIVERSI	UNIVERSE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANSDTT	DISPOBX+1~, DISPOBX+20*, DISPOBX+21, DISPOBX+22
>> BLRVERN	UNIVMENU+3, UNIVERSI+1, UNIVERUD+3, UNIVERUD+47
>> BLRVERN2	UNIVERUD+47*
>> BLVERN2	UNIVERSI+2*
CHNGDTT	DISPOBR+1~, DISPOBR+25*, DISPOBR+26, DISPOBR+27, DISPOBR+30
>> CNT	UNIVERSI+18, UNIVERUD+45
CONDSPEC	DISPSPM+1~, DISPSPM+5*, DISPSPM+6
DATANAME	DISPOBR+1~, DISPOBR+17, DISPOBR+18, DISPOBX+1~, DISPOBX+17, DISPOBX+18
>> DATETIME	UNIVERSE+6, UNIVERSE+7, UNIVERSE+15, UNIVERUD+24*
>> DILOCKTM	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
>> DIR("A"	UNIVERUD+13*
>> DIR(0	UNIVERUD+12*
>> DIRUT	UNIVERUD+15
>> DISYS	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
DNDTT	DISPOBR+1~, DISPOBR+30*, DISPOBR+31, DISPOBR+32
>> DOTELL	UNIVERUD+58*, UNIVERUD+59
DT	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
DTIME	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
DUZ	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
F60IEN	DISPOBR+1~, DISPOBR+14, DISPOBR+15, DISPOBR+17, DISPOBX+1~, DISPOBX+14, DISPOBX+15, DISPOBX+17
FMDT	SHOWDATE+1~, SHOWDATE+4*, SHOWDATE+5, SHOWDATE+6
>> FOUNDIT	UNIVERSI+17, UNIVERUD+22, UNIVERUD+23, UNIVERUD+27, UNIVERUD+30*, UNIVERUD+34, UNIVERUD+38, UNIVERUD+55, UNIVERUD+56, SHOWSEG+1 , SHOWSEG+2
>> HDRONE	UNIVERUD+46*
>> HEADER(1	UNIVERSI+7, UNIVERUD+48
>> HEADER(2	UNIVERSI+8, UNIVERUD+49
>> HEADER(3	UNIVERSI+9*
>> HEADER(4	UNIVERSI+10, UNIVERSI+11, UNIVERSI+12, UNIVERSI+13, UNIVERSI+14, UNIVERSI+15
HL7DT	SHOWDATE~, SHOWDATE+4
IO	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
>> IOBS	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
IOF	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
IOM	UNIVMENU+1, UNIVMENU+9, UNIVERSE+1, UNIVERUD+1
ION	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
>> IOS	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
IOSL	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1, UNIVERUD+43
IOST	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
>> IOT	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
>> IOXY	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
>> LINES	UNIVERSE+13, UNIVERSE+16, UNIVERSI+20, UNIVERUD+44*
>> LRUID	UNIVERUD+19*, UNIVERUD+20, UNIVERUD+30, UNIVERUD+35, UNIVERUD+38, UNIVERUD+49
>> MAXLINES	UNIVERSE+13, UNIVERSI+20, UNIVERUD+43, UNIVERUD+44
>> MSGNUM	UNIVERSE+5, UNIVERSE+6, UNIVERSE+9, UNIVERSE+10, UNIVERSE+11, UNIVERSE+15, UNIVERSI+21, UNIVERUD+22, UNIVERUD+23, UNIVERUD+24 , UNIVERUD+27, UNIVERUD+28, UNIVERUD+29, UNIVERUD+30
>> MSGSEG	UNIVERSE+8, UNIVERSE+9, UNIVERSE+10, UNIVERSE+11, UNIVERSE+15, UNIVERUD+25, UNIVERUD+27, UNIVERUD+28, UNIVERUD+29
>> NOTMSG	UNIVERSE+8, UNIVERUD+25
OBRIEN	DISPOBR+1~, DISPOBX+1~
OBSDTT	DISPOBR+1~, DISPOBR+20*, DISPOBR+21, DISPOBR+22, DISPOBR+30
>> ORIGTEXT	DISPOBR+7, DISPOBR+12, DISPOBR+14, DISPOBX+7, DISPOBX+12, DISPOBX+14
>> PG	UNIVERSE+13, UNIVERSI+18, UNIVERUD+45
>> QFLG	UNIVERSE+5, UNIVERSE+9, UNIVERSE+13, UNIVERSI+19, UNIVERUD+46, UNIVERUD+55
RCTOSTR	DISPOBR+1~, DISPOBR+35*, DISPOBR+36, DISPOBR+37, DISPOBR+40
>> REJREASN	DISPSPM+8*, DISPSPM+9
>> SEG	UNIVERUD+56*, UNIVERUD+57, UNIVERUD+58, SHOWSEG+1
>> SEGIEN	UNIVERUD+54, UNIVERUD+55, UNIVERUD+56, SHOWSEG+1, SHOWSEG+2
SPMIEN	DISPSPM+1~
STATUS	DISPOBX+1~, DISPOBX+25*, DISPOBX+26
STR	DISPMSH+1~, DISPPID+1~, DISPOBR+1~, DISPOBR+5, DISPOBR+6, DISPOBR+7, DISPOBR+20, DISPOBR+25, DISPOBR+35, SHOWSEG+2* , DISPOBX+1~, DISPOBX+5, DISPOBX+6, DISPOBX+7, DISPOBX+20, DISPOBX+25, DISPORC+1~, DISPSPM+1~, DISPSPM+5, DISPSPM+8 , DISPNTE+1~, DISPTQ1+1~
>> SUBSTR2	DISPOBR+37, DISPOBR+38, DISPOBR+40, DISPOBR+43, DISPOBR+44
>> TAB	SHOWDATE+3*
TESTNAME	DISPOBR+1~, DISPOBR+6, DISPOBR+10, DISPOBR+11, DISPOBX+1~, DISPOBX+6, DISPOBX+10, DISPOBX+11
TSTLOINC	DISPOBR+1~, DISPOBR+5, DISPOBR+9, DISPOBX+1~, DISPOBX+5, DISPOBX+9
U	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
>> UID	UNIVERSE+11, UNIVERSE+12, UNIVERSE+15, UNIVERUD+29, UNIVERUD+30
>> UID6249	UNIVERUD+45*
>> WOTREF	UNIVERSE+5, UNIVERSI+4, UNIVERSI+5, UNIVERUD+5, UNIVERUD+7, UNIVERUD+23
>> X	UNIVERUD+19
>> XPARSYS	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1
>> XQXFLG	UNIVMENU+1, UNIVERSE+1, UNIVERUD+1

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLMU4

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items