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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRRLMU4

Package: IHS Changes To Lab

Routine: BLRRLMU4


Information

BLRRLMU4 ; IHS/MSC/MKK - Reference Lab Meaningful use Utilities, Part 4 ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRRLMU4.m>

Call Graph

Call Graph Total: 7

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

Marked Items

Name Field # of Occurrence
$T( UNIVMENU+3, UNIVERSI+1, UNIVERUD+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All