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: BLRRLMU3

Package: IHS Changes To Lab

Routine: BLRRLMU3


Information

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

Source Information

Source file <BLRRLMU3.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Changes To Lab 1 (ADDTMENU,EEP,HEADERDT,HEADERPG,MENUDRVR,PRESSKEY)^BLRGMENU  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 ($$CJ,$$LJ)^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
DUPCINDX ; EP - Duplicate 'C' Index Entries
LAHDETAC ; EP -- Accession/UID Detail Report
LAHTESTI ; EP - Initialization
LAHLRASI ; EP - Initialization
LAHUIDS ; EP - List the UIDs found in the ^LAH global
LAHMENU ; EP - ^LAH Global Menu
DUPCNDXI() ; EP - Initialization
LRLLUIDS ; EP - Load/Work List UIDs Report
PEP ; EP
EEP ; Ersatz EP
DUPCNDXL ; EP - Line of Data
GETLRAS(UID) ; EP - Get the Accession # from the UID
SETBLRVR(TWO) ; EP - Set the BLRVERN variable(s)
LAHSPMS ; EP - ^LAH IHSSPM Values
LAHTESTU(UID6249) ; EP - Create UID index into 62.49
GETLOADW() ; EP - Get the LOAD/WORK LIST
LAHDETAI() ; EP - Initialization
LAHSPMSI() ; EP - Initialization
LAHLRASR ; EP - LAH LRAS Report
LAHTESTS ; EP - ^LAH 62.49 Tests Report

External References

Name Field # of Occurrence
ADDTMENU^BLRGMENU LAHMENU+5, LAHMENU+6, LAHMENU+7, LAHMENU+8, LAHMENU+9, LAHMENU+10, LAHMENU+11
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU LAHTESTI+18, LAHSPMSI+23, LAHLRASI+7, LAHUIDS+10, LRLLUIDS+5, LRLLUIDS+24, GETLOADW+3
HEADERPG^BLRGMENU DUPCNDXL+3
MENUDRVR^BLRGMENU LAHMENU+15
PRESSKEY^BLRGMENU LAHLRASR+18, LAHTESTS+21, LAHSPMS+12, LAHUIDS+28, LRLLUIDS+11, LRLLUIDS+38, DUPCINDX+18, GETLOADW+10
$$GET1^DIQ LAHSPMSI+9, LAHSPMSI+16, LAHUIDS+14
^DIR LRLLUIDS+8, GETLOADW+7
^XBFMK LRLLUIDS+6, GETLOADW+5
$$CJ^XLFSTR LAHMENU+15, LAHUIDS+16, LRLLUIDS+17
$$LJ^XLFSTR LAHUIDS+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?4,LAHIEN,?19,UID,?34,$G(^TMP("BLRRLMUU",$J,"UID",UID)),!
  • Line Location: LAHTESTS+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: LAHTESTS+14
Function Call: WRITE
  • Prompt: !,?9,"Number of UIDs in 62.49 = ",UID6249,!
  • Line Location: LAHTESTS+19
Function Call: WRITE
  • Prompt: IEN
  • Line Location: LAHSPMS+7
Function Call: WRITE
  • Prompt: ?9,$G(^LAH(LOADWORK,1,IEN,.3))
  • Line Location: LAHSPMS+8
Function Call: WRITE
  • Prompt: ?24,$E($G(^LAH(LOADWORK,1,IEN,"IHSSPM")),1,60)
  • Line Location: LAHSPMS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LAHSPMS+10
Function Call: WRITE
  • Prompt: ?4,LAHIEN,?19,UID,?34,$G(^TMP("BLRRLMUU",$J,"UID",UID)),?54,$$GETLRAS(UID),!
  • Line Location: LAHLRASR+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: LAHLRASR+13
Function Call: WRITE
  • Prompt: !,?5,$TR($$CJ^XLFSTR("@LOAD/WORK@LIST:@"_LOADWORK_"@["_IEN_"]@",66)," @","= "),!
  • Line Location: LAHUIDS+16
Function Call: WRITE
  • Prompt: ?9
  • Line Location: LAHUIDS+17
Function Call: WRITE
  • Prompt: $$LJ^XLFSTR(UID,12)
  • Line Location: LAHUIDS+23
Function Call: WRITE
  • Prompt: !!,?4,"Invalid/No Entry. Routine Ends."
  • Line Location: LRLLUIDS+10
Function Call: WRITE
  • Prompt: LRIFN
  • Line Location: LRLLUIDS+31
Function Call: WRITE
  • Prompt: ?9,UID
  • Line Location: LRLLUIDS+32
Function Call: WRITE
  • Prompt: ?24,$$GETLRAS(UID)
  • Line Location: LRLLUIDS+33
Function Call: WRITE
  • Prompt: ?39,$E($G(^LAH(LRLL,1,LRIFN,0)),1,40)
  • Line Location: LRLLUIDS+34
Function Call: WRITE
  • Prompt: !
  • Line Location: LRLLUIDS+35
Function Call: WRITE
  • Prompt: !!,?4,"Invalid/No Entry. Routine Ends."
  • Line Location: GETLOADW+9
Function Call: WRITE
  • Prompt: ?4,NUM
  • Line Location: DUPCNDXL+5
Function Call: WRITE
  • Prompt: ?19,CNT2
  • Line Location: DUPCNDXL+6
Function Call: WRITE
  • Prompt: ?29,IEN2
  • Line Location: DUPCNDXL+7
Function Call: WRITE
  • Prompt: ?39,$G(^LAH(LRLL,1,IEN2,.3))
  • Line Location: DUPCNDXL+8
Function Call: WRITE
  • Prompt: ?54,$E($G(^LAH(LRLL,1,IEN2,"IHSSPM")),1,25)
  • Line Location: DUPCNDXL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DUPCNDXL+10
Routine Call
  • DIR
  • Line Location:
    • LRLLUIDS+8
    • GETLOADW+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.4 - [#62.4] GET1^DIQ
^LRO(68.2 - [#68.2] GET1^DIQ
^BLRSITE - [#9009029] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62.4 - [#62.4] LAHSPMSI+13
^LAH( LAHSPMS+5, LAHSPMS+6, LAHSPMS+8, LAHSPMS+9, LAHUIDS+13, LAHUIDS+19, LAHUIDS+20, LAHUIDS+21, LRLLUIDS+27, LRLLUIDS+28
, LRLLUIDS+29, LRLLUIDS+34, DUPCINDX+8, DUPCINDX+12, DUPCNDXL+8, DUPCNDXL+9
^LAH(37 LAHTESTS+5, LAHTESTS+6, LAHLRASR+5, LAHLRASR+6
^LAHM(62.49 - [#62.49] LAHTESTU+6, LAHTESTU+10
^LRO(68 - [#68] GETLRAS+3, GETLRAS+5
^TMP("BLRRLMUU" LAHTESTS+8, LAHTESTS+10, LAHTESTU+3!, LAHTESTU+11*, LAHLRASR+9

Label References

Name Line Occurrences
$$DUPCNDXI DUPCINDX+6
$$GETLOADW DUPCINDX+4
$$GETLRAS LAHLRASR+9, LRLLUIDS+33
$$LAHDETAI LAHDETAC+3
$$LAHSPMSI LAHSPMS+3
DUPCNDXL DUPCINDX+15
LAHLRASI LAHLRASR+3
LAHTESTI LAHTESTS+3, LAHLRASI+1
LAHTESTU LAHTESTI+15
SETBLRVR DUPCINDX+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AUTOIEN LAHSPMSI+13*, LAHSPMSI+14, LAHSPMSI+16
>> BLRVERN LAHMENU+3*, LAHTESTI+1*, LAHSPMSI+1*, SETBLRVR+1*
>> BLRVERN2 SETBLRVR+2*
>> CNT LAHTESTS+12*, LAHTESTS+16, LAHTESTS+17, LAHTESTI+12*, LAHSPMSI+20*, LAHLRASR+11*, LAHLRASR+15, LAHLRASR+16, DUPCINDX+17, DUPCNDXI+12*
, DUPCNDXL+12*
>> CNT2 DUPCNDXL+1*, DUPCNDXL+2*, DUPCNDXL+4, DUPCNDXL+6
>> CNTNUM DUPCINDX+9*, DUPCINDX+17, DUPCNDXI+12*
>> DILOCKTM LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
>> DIR(0 LRLLUIDS+7*, GETLOADW+6*
>> DIRUT LRLLUIDS+9, GETLOADW+8
>> DISYS LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
DT LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
DTIME LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
DUZ LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
DUZ(2 LAHSPMSI+9
>> HDRONE LAHTESTI+13*, LAHSPMSI+21*, DUPCNDXI+13*
HEADER LAHUIDS+1~, LRLLUIDS+1~, GETLOADW+1~
HEADER(1 LAHTESTI+3*, LAHSPMSI+3*, LAHLRASI+2!, LAHLRASI+3*, LAHUIDS+3*, LRLLUIDS+3*, DUPCINDX+17, GETLOADW+2*, DUPCNDXI+1*
HEADER(2 LAHTESTI+5*, LAHSPMSI+4*, LAHUIDS+4*, LRLLUIDS+16*, DUPCNDXI+2*
HEADER(3 LAHTESTI+6*, LAHTESTI+7*, LAHTESTI+8*, LAHSPMSI+5*, LAHSPMSI+6*, LAHSPMSI+7*, LAHLRASI+4*, LAHUIDS+5*, LRLLUIDS+17*, DUPCNDXI+3*
HEADER(4 LAHUIDS+6*, LAHUIDS+7*, LAHUIDS+8*, LRLLUIDS+18*, DUPCNDXI+4*, DUPCNDXI+5*, DUPCNDXI+6*, DUPCNDXI+7*, DUPCNDXI+8*
HEADER(5 LRLLUIDS+19*, LRLLUIDS+20*, LRLLUIDS+21*, LRLLUIDS+22*
IEN LAHTESTU+1~, LAHTESTU+10*, LAHTESTU+11, LAHSPMS+5*, LAHSPMS+6, LAHSPMS+7, LAHSPMS+8, LAHSPMS+9, LAHSPMSI+22*, LAHUIDS+1~
, LAHUIDS+12*, LAHUIDS+13*, LAHUIDS+14, LAHUIDS+16, LAHUIDS+19, LAHUIDS+20, LAHUIDS+21, LRLLUIDS+1~, DUPCINDX+10*, DUPCINDX+12*
, DUPCINDX+14
>> IEN2 DUPCNDXL+4*, DUPCNDXL+7, DUPCNDXL+8, DUPCNDXL+9
IENCNT DUPCINDX+11!, DUPCINDX+13*, DUPCINDX+14, DUPCINDX+15
IENCNT( DUPCINDX+14*, DUPCNDXL+2, DUPCNDXL+4
INST LAHTESTU+1~, LAHTESTU+5*, LAHTESTU+6*, LAHTESTU+7, LAHTESTU+10
IO LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
>> IOBS LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
IOF LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
IOM LAHMENU+1, LAHMENU+15, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, LRLLUIDS+17, DUPCINDX+1
ION LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
>> IOS LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
IOSL LAHMENU+1, LAHTESTS+1, LAHTESTI+10, LAHSPMS+1, LAHSPMSI+18, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1, DUPCNDXI+10
IOST LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
>> IOT LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
>> IOXY LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
>> LA7INST LAHSPMSI+9*, LAHSPMSI+10, LAHSPMSI+11, LAHSPMSI+13
>> LAHIEN LAHTESTS+5*, LAHTESTS+6, LAHTESTS+10, LAHTESTI+17*, LAHLRASR+5*, LAHLRASR+6, LAHLRASR+9, LAHLRASI+6*
>> LINES LAHTESTS+11*, LAHTESTI+11*, LAHSPMSI+19*, LAHLRASR+10*, DUPCNDXI+11*, DUPCNDXL+3, DUPCNDXL+11*
>> LOADWORK LAHSPMS+5, LAHSPMS+6, LAHSPMS+8, LAHSPMS+9, LAHSPMSI+16*, LAHUIDS+14*, LAHUIDS+15*, LAHUIDS+16
LRAA GETLRAS+1~, GETLRAS+4*, GETLRAS+5
LRAD GETLRAS+1~, GETLRAS+4*, GETLRAS+5
LRAN GETLRAS+1~, GETLRAS+4*, GETLRAS+5
>> LRAS GETLRAS+5*, GETLRAS+6
LRIFN LRLLUIDS+1~, LRLLUIDS+28*, LRLLUIDS+29, LRLLUIDS+31, LRLLUIDS+34
LRLL LRLLUIDS+1~, LRLLUIDS+13*, LRLLUIDS+16, LRLLUIDS+27, LRLLUIDS+28, LRLLUIDS+29, LRLLUIDS+34, DUPCINDX+8, DUPCINDX+12, GETLOADW+12*
, DUPCNDXI+1, DUPCNDXL+8, DUPCNDXL+9
LRLLDESC LRLLUIDS+1~, LRLLUIDS+14*, LRLLUIDS+16, GETLOADW+13*, DUPCNDXI+1
>> LRUID LAHTESTS+1, LAHSPMS+1, LAHLRASR+1
>> MAXLINES LAHTESTI+10*, LAHTESTI+11, LAHSPMSI+18*, LAHSPMSI+19, DUPCNDXI+10*, DUPCNDXI+11, DUPCNDXL+3
>> NUM DUPCINDX+8*, DUPCINDX+12, DUPCNDXI+12*, DUPCNDXL+5
>> PG LAHTESTI+12*, LAHSPMSI+20*, DUPCNDXI+12*, DUPCNDXL+3
>> QFLG LAHTESTI+13*, LAHSPMSI+21*, DUPCINDX+8, DUPCINDX+12, DUPCNDXI+13*, DUPCNDXL+2, DUPCNDXL+3
TWO SETBLRVR~, SETBLRVR+2
U LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
UID LAHTESTS+6*, LAHTESTS+7, LAHTESTS+8, LAHTESTS+10, LAHTESTU+1~, LAHTESTU+7*, LAHTESTU+8, LAHTESTU+11, LAHLRASR+6*, LAHLRASR+7
, LAHLRASR+9, LAHUIDS+1~, LAHUIDS+18*, LAHUIDS+19*, LAHUIDS+20, LAHUIDS+23, LRLLUIDS+1~, LRLLUIDS+26*, LRLLUIDS+27*, LRLLUIDS+28
, LRLLUIDS+32, LRLLUIDS+33, GETLRAS~, GETLRAS+3
UID6249 LAHTESTS+19, LAHTESTI+12*, LAHTESTI+15, LAHTESTU~, LAHTESTU+12*
UIDCNT LAHUIDS+1~, LAHUIDS+18*, LAHUIDS+19, LAHUIDS+25*, LAHUIDS+26, LRLLUIDS+1~, LRLLUIDS+26*, LRLLUIDS+36*
UIDPTR LAHUIDS+1~, LAHUIDS+20*, LAHUIDS+21, LRLLUIDS+1~
X GETLRAS+1~, GETLRAS+3*, GETLRAS+4
>> XPARSYS LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
>> XQXFLG LAHMENU+1, LAHTESTS+1, LAHSPMS+1, LAHLRASR+1, LAHDETAC+1, DUPCINDX+1
>> Y LRLLUIDS+13, LRLLUIDS+14, GETLOADW+12, GETLOADW+13

Marked Items

Name Field # of Occurrence
$T( LAHMENU+3, LAHTESTI+1, LAHSPMSI+1, SETBLRVR+1
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