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 |  Marked Items |  All
Print Page as PDF
Routine: BLRLAHGU

Package: IHS Changes To Lab

Routine: BLRLAHGU


Information

BLRLAHGU ; IHS/MSC/MKK - LOAD/WORK List in the ^LAH Global ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRLAHGU.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  ($$CJ,$$LJ,$$TRIM)^XLFSTR  
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Changes To Lab 1 (EEP,HEADERDT,HEADERPG,PRESSKEY)^BLRGMENU  
IHS VA Utilities 1 ^XBFMK  
Lab Service 1 B^LRU  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Lab 1 BLRMIAUT  

Entry Points

Name Comments DBIA/ICR reference
REPORTB() ; EP - Breakout data
ACCFILEL ; EP
; NEW (DILOCKTM,DISYS,DT,DTIME,DUZ,IO,IOBS,IOF,IOM,ION,IOS,IOSL,IOST,IOT,IOXY,U,XPARSYS,XQXFLG)
SETLBRVS(TWO) ; EP - Set the BLRVERN & BLRVERN2 variables
ONGO(NOGO) ; EP - Continue?
PEP ; EP
EEP ; Ersatz EP
GETLWRKL() ; EP - Get the LOAD/WORK list
REPORTL ; EP - Line of data
REPORTI() ; EP - Initialization of variables
REPORT ; EP - Report on UIDs for a Specific LOAD/WORK LIST
GETAUTOI() ; EP - Get the AUTO INSTRUMENT
GETUID(LRSDT,LRLDT) ; EP
; The following code reads the ^LAH global for the LOAD/WORK LIST "tied" to
; the selected AUTO INSTRUMENT and creates the necessary string to setup
; the D ^DIR call to "select from a list"

External References

Name Field # of Occurrence
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU GETUID+49, GETAUTOI+2, GETLWRKL+2
HEADERPG^BLRGMENU REPORTL+3
PRESSKEY^BLRGMENU GETUID+30, GETUID+54, REPORT+9, GETAUTOI+9, GETAUTOI+19, GETLWRKL+10
$$GET1^DIQ GETUID+17, GETUID+20, REPORTB+10, REPORTB+11, REPORTB+12, REPORTB+13, GETAUTOI+15, GETAUTOI+16
^DIR GETUID+51, ONGO+5, GETAUTOI+6, GETLWRKL+7
B^LRU ACCFILEL+7
^XBFMK GETUID+35, ONGO+1, GETAUTOI+4, GETLWRKL+5
$$FMTE^XLFDT GETUID+29, REPORTB+12, REPORTB+13
$$CJ^XLFSTR REPORTI+3, GETAUTOI+23
$$LJ^XLFSTR GETUID+23
$$TRIM^XLFSTR GETUID+43

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,"No Entries for Date Range ",$$FMTE^XLFDT(LRSDT,"5DZ")," thru ",$$FMTE^XLFDT(LRLDT,"5DZ")
  • Line Location: GETUID+29
Function Call: WRITE
  • Prompt: !,?4,"No/Invalid Entry. Routine Ends."
  • Line Location: GETUID+53
Function Call: WRITE
  • Prompt: ?5,ENTRY
  • Line Location: REPORTL+5
Function Call: WRITE
  • Prompt: ?14,LRUID
  • Line Location: REPORTL+6
Function Call: WRITE
  • Prompt: ?27,LRAS
  • Line Location: REPORTL+7
Function Call: WRITE
  • Prompt: ?47,ORDERNUM
  • Line Location: REPORTL+8
Function Call: WRITE
  • Prompt: ?57,DATEORD
  • Line Location: REPORTL+9
Function Call: WRITE
  • Prompt: ?69,DRAWDATE
  • Line Location: REPORTL+10
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORTL+11
Function Call: WRITE
  • Prompt: !,?4,"No/Invalid Entry. Routine Ends."
  • Line Location: GETAUTOI+8
Function Call: WRITE
  • Prompt: !,?4,"No LOAD/WORK LIST associated with ",LRAUTON,". Routine Ends."
  • Line Location: GETAUTOI+18
Function Call: WRITE
  • Prompt: !,?4,"No/Invalid Entry. Routine Ends."
  • Line Location: GETLWRKL+9
Routine Call
  • DIR
  • Line Location:
    • GETUID+51
    • ONGO+5
    • GETAUTOI+6
    • GETLWRKL+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.4 - [#62.4] GET1^DIQ
68.02 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAH( GETUID+9, GETUID+10, REPORT+7, REPORTB+1
^LRO(68 - [#68] GETUID+13, REPORTB+4

Label References

Name Line Occurrences
$$GETAUTOI ACCFILEL+10, REPORT+4
$$GETLWRKL GETAUTOI+12
$$REPORTB REPORTL+1
$$REPORTI REPORT+5
GETUID ACCFILEL+15
REPORTL REPORT+7
SETLBRVS ACCFILEL+5, REPORT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BELOW GETUID+5~, GETUID+39*, GETUID+42, GETUID+43, GETUID+44*
>> BLRVERN SETLBRVS+1*
>> BLRVERN2 SETLBRVS+2*
CNT GETUID+5~, GETUID+8*, GETUID+21*, GETUID+22, GETUID+23, GETUID+24, GETUID+25*, GETUID+26, GETUID+40*, GETUID+41*
, GETUID+42, GETUID+43, GETUID+44, REPORTI+12*, REPORTL+13*
>> DATEORD REPORTL+9, REPORTB+12*
>> DILOCKTM REPORT+1
>> DIR("A" GETUID+47*, ONGO+3*
>> DIR("B" ONGO+4*
>> DIR("L" GETUID+37*, GETUID+38*, GETUID+42*, GETUID+43*, GETUID+46*
>> DIR(0 GETUID+36*, ONGO+2*, GETAUTOI+5*, GETLWRKL+6*
>> DIRUT GETUID+52, GETAUTOI+7, GETLWRKL+8
DIRZERO GETUID+5~, GETUID+7*, GETUID+22*, GETUID+26*, GETUID+36
DIRZERO( GETUID+23*, GETUID+41, GETUID+43
>> DISYS REPORT+1
DRAWDATE GETUID+5~, GETUID+17*, GETUID+18, REPORTL+10, REPORTB+13*
DT REPORT+1
DTIME REPORT+1
DUZ REPORT+1
ENTRY GETUID+5~, GETUID+8*, GETUID+9*, GETUID+10, GETUID+24, REPORT+7*, REPORTI+12*, REPORTL+5, REPORTB+1
HEADER REPORTI+1!
HEADER(1 REPORTI+2*, GETAUTOI+1*, GETAUTOI+21!, GETAUTOI+22*, GETLWRKL+1*
HEADER(2 REPORTI+3*, GETAUTOI+23*, GETLWRKL+13*
HEADER(3 REPORTI+4*
HEADER(4 REPORTI+5*, REPORTI+6*, REPORTI+7*, REPORTI+8*, REPORTI+9*, REPORTI+10*
IENSTR GETUID+5~, GETUID+16*, GETUID+17, GETUID+20, REPORTB+8*, REPORTB+10, REPORTB+11, REPORTB+12, REPORTB+13
IO REPORT+1
>> IOBS REPORT+1
IOF REPORT+1
IOM REPORT+1, REPORTI+3, GETAUTOI+23
ION REPORT+1
>> IOS REPORT+1
IOSL REPORT+1
IOST REPORT+1
>> IOT REPORT+1
>> IOXY REPORT+1
>> LINES REPORTI+13*, REPORTL+3, REPORTL+12*
>> LRAA GETUID+13*, GETUID+14, GETUID+16, GETUID+24, GETUID+59*, REPORTB+4*, REPORTB+6, REPORTB+8
>> LRAD GETUID+13*, GETUID+14, GETUID+16, GETUID+24, GETUID+59*, REPORTB+4*, REPORTB+6, REPORTB+8
>> LRAN GETUID+13*, GETUID+14, GETUID+16, GETUID+24, GETUID+59*, REPORTB+4*, REPORTB+6, REPORTB+8
>> LRAS GETUID+20*, GETUID+23, REPORTL+7, REPORTB+11*
>> LRAUTO GETAUTOI+11*, GETAUTOI+15, GETAUTOI+16
>> LRAUTON REPORTI+2, GETAUTOI+11*, GETAUTOI+18, GETAUTOI+22
>> LREND GETUID+31*, GETUID+55*
>> LRIFN GETUID+59*
LRLDT ACCFILEL+8, ACCFILEL+15, GETUID~, GETUID+18, GETUID+29
>> LRLL ACCFILEL+3*, GETUID+9, GETUID+10, REPORT+7, REPORTB+1, GETAUTOI+15*, GETAUTOI+17, GETLWRKL+12*
>> LRLLNAME REPORTI+3, GETAUTOI+16*, GETAUTOI+23, GETLWRKL+12*, GETLWRKL+13
LRSDT ACCFILEL+8, ACCFILEL+15, GETUID~, GETUID+18, GETUID+29
LRUID GETUID+5~, GETUID+10*, GETUID+11, GETUID+13, GETUID+22, GETUID+23, GETUID+24, GETUID+34!, GETUID+58*, REPORTL+6
, REPORTB+1*, REPORTB+2, REPORTB+4
LUIDINDX GETUID+5~, GETUID+28
LUIDINDX( GETUID+24*, GETUID+57
>> MAXLINES REPORTI+13*, REPORTL+3
NOGO ACCFILEL+13*, ACCFILEL+14, ONGO~, ONGO+6*
NUMCOL GETUID+5~, GETUID+33*, GETUID+42, GETUID+43, GETUID+44
>> ORDERNUM REPORTL+8, REPORTB+10*
>> PG REPORTI+12*, REPORTL+3
>> QFLG REPORT+7, REPORTI+14*, REPORTL+3
STR GETUID+5~, GETUID+57*, GETUID+58, GETUID+59
TWO SETLBRVS~, SETLBRVS+2
U GETUID+24, GETUID+59, REPORT+1, GETAUTOI+11, GETLWRKL+12
>> X GETUID+13*, REPORTB+4*
>> XPARSYS REPORT+1
>> XQXFLG REPORT+1
>> Y GETUID+52, GETUID+57, ONGO+6, GETAUTOI+7, GETAUTOI+11, GETLWRKL+8, GETLWRKL+12

Marked Items

Name Field # of Occurrence
$T( SETLBRVS+1
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 |  Marked Items |  All