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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRLINKU

Package: IHS Changes To Lab

Routine: BLRLINKU


Information

BLRLINKU ;IHS/OIT/MKK - IHS LABORATORY VISIT CREATION Utilities ; 25-Nov-2014 09:22 ; MKK

Source Information

Source file <BLRLINKU.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
IHS Changes To Lab 3 (HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU  ENTRYAUD^BLRUTIL  GETACCCP^BLRUTIL3  
VA Fileman 3 FIND^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DT,$$FMDIFF,$$HDIFF,$$HTE,$$HTFM)^XLFDT  ($$CJ,$$UP)^XLFSTR  
DRG Grouper 1 $$ICDDX^ICDEX  
IHS VA Utilities 1 ^XBFMK  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Changes To Lab 3 BLRLINK1  BLRLINK4  BLRPRE34  
Lab Service 1 LRWLST1  

Entry Points

Name Comments DBIA/ICR reference
REPTSINI ; EP -- Initialize Variables
STORVAL(WHERE,WHAT)
REPTSLIN ; EP - Write a line of Data
LAHREFR() ; EP - Return Flag/Ref Ranges/Units from ^LR, if possible
WARNINGS(MSG) ; EP
ICDCHEK(ICDCODE) ; EP - Check to see if passed string is in ICD dictionary.
CHKINHL7 ; EP
REFLAB68 ; EP -- Setup ^XTMP global with Ref Lab Accessions' IENs
; If purge date > Today, then RETURN
RPTSBRKO ; EP - Breakout values for variables
RESETX ; EP
; Delete the ^XTMP("BLRLINKU" global. This allows
; REFLAB68 (see above) to rebuild the global with
; the latest information.
REPTSTOR ; EP -- Progrmmaer Mode Only Report on ^XTMP("BLRSRCH") global
STORFIND(UID,WOT) ; EP - Store Time Before or After $Order through the ^INTHU global
GETINTHU(UID) ; EP -- Get Reference Range information from File 4001 (UNIVERSAL INTERFACE)
RESTART ; EP - Create ^XTMP("BLRSRCH") if it doesn't exist or restart it

External References

Name Field # of Occurrence
HEADERDT^BLRGMENU RESETX+7, RESETX+16, RESETX+21, RESETX+28
HEADERPG^BLRGMENU REPTSLIN+3
PRESSKEY^BLRGMENU REPTSTOR+10, RESETX+30, WARNINGS+9
ENTRYAUD^BLRUTIL CHKINHL7+1, CHKINHL7+21, CHKINHL7+31, GETINTHU+1, GETINTHU+70, LAHREFR+3, LAHREFR+17, LAHREFR+34
GETACCCP^BLRUTIL3 CHKINHL7+8
FIND^DIC REFLAB68+29
$$GET1^DIQ GETINTHU+11, LAHREFR+9, LAHREFR+10, LAHREFR+13
^DIR WARNINGS+6
$$ICDDX^ICDEX ICDCHEK+10
^XBFMK WARNINGS+2
$$DT^XLFDT REFLAB68+2, STORFIND+2
$$FMDIFF^XLFDT STORFIND+2
$$HDIFF^XLFDT RPTSBRKO+23
$$HTE^XLFDT RPTSBRKO+10, RPTSBRKO+21
$$HTFM^XLFDT REFLAB68+10, RESTART+2
$$CJ^XLFSTR REPTSINI+3, RESETX+15, RESETX+20
$$UP^XLFSTR GETINTHU+20, RPTSBRKO+10, RPTSBRKO+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: UID
  • Line Location: REPTSLIN+5
Function Call: WRITE
  • Prompt: ?11,LRAS
  • Line Location: REPTSLIN+6
Function Call: WRITE
  • Prompt: ?31,SDT
  • Line Location: REPTSLIN+7
Function Call: WRITE
  • Prompt: ?51,EDT
  • Line Location: REPTSLIN+8
Function Call: WRITE
  • Prompt: ?71,$J(DIFFTIME,9)
  • Line Location: REPTSLIN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: REPTSLIN+10
Function Call: WRITE
  • Prompt: ?9,"This option will reset the ^XTMP(""BLRLINKU"") Global.",!
  • Line Location: RESETX+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RESETX+9
Function Call: WRITE
  • Prompt: ?9,"The ^XTMP(""BLRLINKU"") Global is ONLY used for Reference Lab",!
  • Line Location: RESETX+10
Function Call: WRITE
  • Prompt: ?9,"processes.",!
  • Line Location: RESETX+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RESETX+12
Function Call: WRITE
  • Prompt: !!,?9,"^XTMP(""BLRLINKU"") Global has been reset.",!
  • Line Location: RESETX+29
Function Call: WRITE
  • Prompt: ?9,MSG
  • Line Location: WARNINGS+1
Function Call: WRITE
  • Prompt: !!,?14,"Invalid/Quit/No response. Routine Ends."
  • Line Location: WARNINGS+8
Routine Call
  • DIC
  • Line Location:
    • REFLAB68+29
Routine Call
  • DIR
  • Line Location:
    • WARNINGS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^INRHD - [#4005] FIND^DIC
^LAB(60 - [#60] GET1^DIQ
68.02 GET1^DIQ
^BLRSITE - [#9009029] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] REFLAB68+15
^BLRRL - [#9009026] REFLAB68+26, REFLAB68+39, REFLAB68+40
^BLRSITE - [#9009029] REFLAB68+13, REFLAB68+14, REFLAB68+25
^BLRTXLOG - [#9009022] CHKINHL7+7, CHKINHL7+14, STORVAL+4*, LAHREFR+12
^INTHU - [#4001] GETINTHU+32, GETINTHU+33, GETINTHU+35, GETINTHU+42, GETINTHU+44
^INTHU("AD" GETINTHU+30
^INTHU(0 REPTSINI+3
^LAB(62.4 - [#62.4] GETINTHU+14, GETINTHU+51, GETINTHU+54
^LR - [#63] LAHREFR+15
^LRO(68 - [#68] CHKINHL7+16, REFLAB68+42, RPTSBRKO+4, RPTSBRKO+5, RPTSBRKO+6, RPTSBRKO+7, LAHREFR+5
^TMP("BLR" CHKINHL7+23, GETINTHU+4, GETINTHU+64*, LAHREFR+30*, LAHREFR+33
^TMP("BLRLINKU" GETINTHU+66*
^XTMP("BLRLINKU" CHKINHL7+12, GETINTHU+23, REFLAB68+2, REFLAB68+7!, REFLAB68+10*, REFLAB68+35*, REFLAB68+36*, REFLAB68+42*, RESETX+25!
^XTMP("BLRSRCH" STORFIND+1, STORFIND+2, STORFIND+4, STORFIND+5*, STORFIND+6*, RESTART+1!, RESTART+2*, REPTSTOR+6, REPTSTOR+7, RPTSBRKO+9
, RPTSBRKO+13, RPTSBRKO+16, RPTSBRKO+20

Label References

Name Line Occurrences
$$GETINTHU CHKINHL7+19
$$LAHREFR GETINTHU+17
$$WARNINGS RESETX+13, RESETX+17, RESETX+22
REFLAB68 CHKINHL7+11, RESETX+26
REPTSINI REPTSTOR+4
REPTSLIN REPTSTOR+8
RESTART STORFIND+1, STORFIND+2
RPTSBRKO REPTSLIN+1
STORFIND GETINTHU+22, GETINTHU+68
STORVAL CHKINHL7+26, CHKINHL7+27, CHKINHL7+28, CHKINHL7+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ABN LAHREFR+22*, LAHREFR+30
ABNFLAG CHKINHL7+3~
AUTIF60P GETINTHU+6~, GETINTHU+54*, GETINTHU+64
AUTOINSN GETINTHU+6~
AUTOINSP GETINTHU+6~, GETINTHU+8~, GETINTHU+14*, GETINTHU+15, GETINTHU+51, GETINTHU+54
AUTOITST GETINTHU+6~
BLRDIVS REFLAB68+4~, REFLAB68+12*, REFLAB68+13*, REFLAB68+14, REFLAB68+25
>> BLRLOGDA CHKINHL7+5, CHKINHL7+7, CHKINHL7+14, STORVAL+4, LAHREFR+12
>> BLRVAL(20 STORVAL+3*
CNT GETINTHU+39*, GETINTHU+47*, STORFIND+4*, STORFIND+5, STORFIND+6, REPTSTOR+2~, REPTSTOR+6*, REPTSTOR+7, REPTSINI+12*, RPTSBRKO+9
, RPTSBRKO+13, RPTSBRKO+16, RPTSBRKO+18*, RPTSBRKO+20
DESTIEN REFLAB68+4~, REFLAB68+30*, REFLAB68+35
DESTNAME REFLAB68+4~, REFLAB68+27*, REFLAB68+29, REFLAB68+35
DIFFTIME REPTSTOR+2~, REPTSLIN+9, RPTSBRKO+2*, RPTSBRKO+23*
>> DIR("A" WARNINGS+4*
>> DIR("B" WARNINGS+5*
>> DIR(0 WARNINGS+3*
DNDESC CHKINHL7+2~
DNIEN CHKINHL7+2~
DUZ(2 CHKINHL7+12, GETINTHU+11, GETINTHU+23
EDT REPTSTOR+2~, REPTSLIN+8, RPTSBRKO+2*, RPTSBRKO+21*
ERRORS ICDCHEK+1~
F60IEN CHKINHL7+2~, CHKINHL7+14*, CHKINHL7+23, GETINTHU+4, LAHREFR+1~, LAHREFR+12*, LAHREFR+13, LAHREFR+30, LAHREFR+33
FOUNDIT GETINTHU+6~, GETINTHU+29*, GETINTHU+30, GETINTHU+32, GETINTHU+35*, GETINTHU+36, GETINTHU+39*, GETINTHU+42, GETINTHU+65*, GETINTHU+71
, LAHREFR+31*
HD1 REPTSTOR+1~, REPTSINI+11*, REPTSLIN+3
HDE RPTSBRKO+1~, RPTSBRKO+20*, RPTSBRKO+21, RPTSBRKO+23
HDS RPTSBRKO+1~, RPTSBRKO+9*, RPTSBRKO+10, RPTSBRKO+23
HEADER REPTSTOR+1~, RESETX+4~
HEADER(1 REPTSINI+1*, RESETX+5*
HEADER(2 REPTSINI+2*, RESETX+6*
HEADER(3 REPTSINI+3*, RESETX+15*, RESETX+19!, RESETX+20*, RESETX+24!
HEADER(4 REPTSINI+4*
HEADER(5 REPTSINI+5*, REPTSINI+6*, REPTSINI+7*, REPTSINI+8*, REPTSINI+9*
HL7TEST CHKINHL7+2~
ICDCODE ICDCHEK~, ICDCHEK+3*, ICDCHEK+4, ICDCHEK+10
INCOMIEN REFLAB68+4~
INSTIEN REFLAB68+5~, REFLAB68+15*, REFLAB68+35, REFLAB68+36, REFLAB68+42
IOM REPTSINI+3, RESETX+15, RESETX+20
ISQN LAHREFR+1~
LA7INST GETINTHU+8~, GETINTHU+11*, GETINTHU+12, GETINTHU+14, GETINTHU+20
LINES REPTSTOR+1~, REPTSINI+11*, REPTSLIN+3, REPTSLIN+11*
LOCIEN REFLAB68+5~, REFLAB68+14*, REFLAB68+15
LRAA CHKINHL7+2~, CHKINHL7+8, CHKINHL7+9, CHKINHL7+12, CHKINHL7+16, RPTSBRKO+1~, RPTSBRKO+4*, RPTSBRKO+5, RPTSBRKO+6, RPTSBRKO+7
, LAHREFR+5*, LAHREFR+6, LAHREFR+8
>> LRAAIEN LAHREFR+8*, LAHREFR+9, LAHREFR+10
LRAAREF REFLAB68+4~, REFLAB68+40*, REFLAB68+41, REFLAB68+42
LRAD CHKINHL7+2~, CHKINHL7+8, CHKINHL7+9, CHKINHL7+16, RPTSBRKO+1~, RPTSBRKO+5*, RPTSBRKO+6, RPTSBRKO+7, LAHREFR+5*, LAHREFR+6
, LAHREFR+8
LRAN CHKINHL7+2~, CHKINHL7+8, CHKINHL7+9, CHKINHL7+16, RPTSBRKO+1~, RPTSBRKO+6*, RPTSBRKO+7, LAHREFR+5*, LAHREFR+6, LAHREFR+8
LRAS CHKINHL7+2~, CHKINHL7+7*, CHKINHL7+8, REPTSTOR+2~, REPTSLIN+6, RPTSBRKO+2*, RPTSBRKO+7*
>> LRDFN LAHREFR+9*, LAHREFR+15
>> LRIDT LAHREFR+10*, LAHREFR+15
LRSB LAHREFR+1~, LAHREFR+13*, LAHREFR+15
LWL LAHREFR+1~
MAXLINES REPTSTOR+1~, REPTSINI+11*, REPTSLIN+3
MSG WARNINGS~, WARNINGS+1
MSGABN GETINTHU+7~, GETINTHU+60*, GETINTHU+61*, GETINTHU+64
MSGID GETINTHU+6~
MSGNUM GETINTHU+6~, GETINTHU+29*, GETINTHU+30*, GETINTHU+32, GETINTHU+33, GETINTHU+35, GETINTHU+42, GETINTHU+44, GETINTHU+66
MSGRESLT GETINTHU+7~, GETINTHU+56*, GETINTHU+64
MSGRHI GETINTHU+7~, GETINTHU+59*, GETINTHU+64
MSGRLOW GETINTHU+7~, GETINTHU+58*, GETINTHU+64
MSGSEG GETINTHU+6~, GETINTHU+31*, GETINTHU+32*, GETINTHU+33, GETINTHU+35, GETINTHU+40
>> MSGSEG2 GETINTHU+40*, GETINTHU+42*, GETINTHU+44
MSGSTR GETINTHU+6~, GETINTHU+44*, GETINTHU+45, GETINTHU+48, GETINTHU+56, GETINTHU+57, GETINTHU+58, GETINTHU+59, GETINTHU+60
>> MSGTEST GETINTHU+48*, GETINTHU+49, GETINTHU+51, GETINTHU+54
MSGUID GETINTHU+6~
MSGUNITS GETINTHU+7~, GETINTHU+57*, GETINTHU+64
NOTMSG GETINTHU+7~, GETINTHU+31*
>> OTHER LAHREFR+24*, LAHREFR+25, LAHREFR+26, LAHREFR+27
OUTARRAY REFLAB68+4~, REFLAB68+28!
OUTARRAY("DILIST" REFLAB68+30
PG REPTSTOR+1~, REPTSINI+11*, REPTSLIN+3
QFLG REPTSTOR+1~, REPTSTOR+6, REPTSTOR+7, REPTSINI+11*, REPTSLIN+3
REFHIGH CHKINHL7+3~
>> REFLABN REFLAB68+26*, REFLAB68+27
REFLLABN REFLAB68+4~
REFLLABS REFLAB68+4~, REFLAB68+25*, REFLAB68+26, REFLAB68+39, REFLAB68+40
REFLLRAA REFLAB68+4~, REFLAB68+38*, REFLAB68+39*, REFLAB68+40
REFLOW CHKINHL7+3~
RESULT LAHREFR+1~, LAHREFR+21*, LAHREFR+30
RHI LAHREFR+1~, LAHREFR+26*, LAHREFR+30
RLOW LAHREFR+1~, LAHREFR+25*, LAHREFR+30
SDT REPTSTOR+2~, REPTSLIN+7, RPTSBRKO+2*, RPTSBRKO+10*
>> SNAPSHOT GETINTHU+22
STR CHKINHL7+2~, CHKINHL7+23*, CHKINHL7+24, CHKINHL7+26, CHKINHL7+27, CHKINHL7+28, CHKINHL7+29, LAHREFR+15*, LAHREFR+19, LAHREFR+21
, LAHREFR+22, LAHREFR+24
TARGET ICDCHEK+1~
TMPBLRU LAHREFR+1~
TMPBLRU("BLR" LAHREFR+33*
U LAHREFR+21, LAHREFR+22, LAHREFR+24
UID CHKINHL7+2~, CHKINHL7+16*, CHKINHL7+17, CHKINHL7+19, CHKINHL7+23, GETINTHU~, GETINTHU+4, GETINTHU+22, GETINTHU+35, GETINTHU+64
, GETINTHU+68, STORFIND~, STORFIND+6, REPTSTOR+2~, REPTSTOR+7*, REPTSINI+12*, REPTSLIN+5, RPTSBRKO+4, RPTSBRKO+5, RPTSBRKO+6
, RPTSBRKO+9, RPTSBRKO+13, RPTSBRKO+16, RPTSBRKO+20, LAHREFR+5, LAHREFR+30, LAHREFR+33
UNITS CHKINHL7+3~, LAHREFR+1~, LAHREFR+27*, LAHREFR+30
WHAT STORVAL~, STORVAL+1, STORVAL+3, STORVAL+4
WHERE STORVAL~, STORVAL+3, STORVAL+4
WOT STORFIND~, STORFIND+6
WOTPIECE GETINTHU+8~, GETINTHU+20*, GETINTHU+48
WOTREF GETINTHU+8~, GETINTHU+23*, GETINTHU+24, GETINTHU+30
X ICDCHEK+1~
>> Y WARNINGS+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All