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

Package: IHS Changes To Lab

Routine: BLRAG05A


Information

BLRAG05A ; IHS/MSC/SAT - SUPPORT FOR LABORATORY ACCESSION GUI RPCS ; 05-Apr-2016 08:52 ; MKK

Source Information

Source file <BLRAG05A.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 4 EN^DDIOL  UPDATE^DIE  $$GET1^DIQ  ^DIR  
IHS Changes To Lab 2 UNL69ERR^BLRAG05D  ERR^BLRAGUT  
Kernel 2 (CLOSE,OPEN,USE)^%ZISUTL  ($$DT,$$HTFM)^XLFDT  
Lab Service 1 ($$URGA,LBLTYP,LRBAR)^LRLABLD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 2 BLRAG05  BLRAG05D  

Entry Points

Name Comments DBIA/ICR reference
BD ; Bad device - abort, timeout, unsuccessful selection
STORF69D(LRODT,LRSP,LROT,ICDSTR) ; EP - Called from STORDIAG^BLRAG05.
BLRTSTL(BLRTSTL) ;collect all tests for each specimen
; .BLRTSTL = (required) If all tests for a given specimen were not selected
; and passed in, BLRTSTL will be returned with all tests
; that are associated with the specimens represented in
; this input.
; The "TEST POINTERS" portion of this data comes
; element 39 in the return from BLR ALL NON-ACCESSIONED.
; List of test pointers with ICD9 pointers for each
; test/procedure being accessioned separated by ^.
; Each ^ piece is made up of these pipe pieces:
; TEST POINTERS | [ICD9_IEN:ICD9_IEN:...] ^ ...
; Test pointers = pointers to the LAB ORDER ENTRY
; file 69 - DATE:SPECIMEN:TEST
; ICD9_IEN - pointer to ICD DIAGNOSIS file 80
K ; Close devices
1 ;
3
2
T ; Print test label

External References

Name Field # of Occurrence
CLOSE^%ZISUTL K+1, K+2
OPEN^%ZISUTL 1+6, 2, 3+12
USE^%ZISUTL 2+11, 2+25, 3+1, 3+14, T+1, T+30, T+31
UNL69ERR^BLRAG05D BD+2
ERR^BLRAGUT BD+3
EN^DDIOL 2+26, 3+15
UPDATE^DIE STORF69D+13
$$GET1^DIQ 1+12, STORF69D+9
^DIR 2+20, 3+7, T+7, T+37, T+46
$$URGA^LRLABLD T+20
LBLTYP^LRLABLD 3+19
LRBAR^LRLABLD T+29
$$DT^XLFDT STORF69D+15
$$HTFM^XLFDT STORF69D+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: 3+3
Function Call: WRITE
  • Prompt: !!,"Using label routine: ",LRLABEL,!
  • Line Location: T+3
Function Call: WRITE
  • Prompt: !
  • Line Location: T+34
Function Call: WRITE
  • Prompt: !
  • Line Location: T+43
Routine Call
  • DIE
  • Line Location:
    • STORF69D+13
Routine Call
  • DIR
  • Line Location:
    • 2+20
    • 3+7
    • T+7
    • T+37
    • T+46

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^%ZIS(1 - [#3.5] GET1^DIQ
^ICD9 - [#80] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] 1+15, 1+17
^LRO(69 - [#69] BLRTSTL+32
^XTMP("BLRAG05" STORF69D+15*, STORF69D+16*, STORF69D+17*

Label References

Name Line Occurrences
1 3+13
2 2+9
@( T+30
BD 2+5, 3+8, T+8, T+38, T+47
K 2+27, 3, 3+11, T+39, T+51
T T+50

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS 1+3~
%ZIS("B" 1+8*, 1+13*, 1+15, 1+17*, 1+20
>> BLRICD BLRTSTL+40*, BLRTSTL+41*, BLRTSTL+42
BLRJ BLRTSTL+15~, BLRTSTL+22*, BLRTSTL+23, BLRTSTL+24, BLRTSTL+25, BLRTSTL+26, BLRTSTL+27, BLRTSTL+29*, BLRTSTL+30, BLRTSTL+31
BLRTN BLRTSTL+15~
BLRTSTA BLRTSTL+16~, BLRTSTL+20!, BLRTSTL+44!
BLRTSTA( BLRTSTL+26*, BLRTSTL+27*, BLRTSTL+33, BLRTSTL+34*, BLRTSTL+37, BLRTSTL+38, BLRTSTL+39, BLRTSTL+40, BLRTSTL+41
BLRTSTL BLRTSTL~, BLRTSTL+19*, BLRTSTL+22, BLRTSTL+23, BLRTSTL+24, BLRTSTL+25, BLRTSTL+26, BLRTSTL+27, BLRTSTL+29, BLRTSTL+30
, BLRTSTL+31, BLRTSTL+35*, BLRTSTL+42*
>> DILOCKTM STORF69D+1
DIR 1+3~, 2+10~, 3+4!, T+2!, T+33!, T+41!
DIR("?" 3+6*, T+36*, T+45*
DIR("A" 2+15*, 2+16*, 2+17*, 3+5*, T+5*, T+6*, T+35*, T+44*
DIR("B" 2+18*, 3+5*, T+35*, T+44*
DIR(0 2+14*, 3+5*, T+4*, T+35*, T+44*
DIRUT 1+3~, 2+10~, 3+4!, 3+8, T+2!, T+33!, T+38, T+41!, T+47
>> DISYS STORF69D+1
DOB T+12~, T+25*
DT STORF69D+1
DTIME STORF69D+1
DTOUT 1+3~, 2+10~, 3+4!, T+2!, T+33!, T+41!
DUOUT 1+3~, 2+10~, 3+4!, T+2!, T+33!, T+41!
DUZ STORF69D+1
DUZ(2 1+15, 1+17
ERRS STORF69D+11!, STORF69D+14, STORF69D+17
FDA STORF69D+11!, STORF69D+16
FDA( STORF69D+12*
I T+10~, T+18*
>> ICDCNT STORF69D+5*, STORF69D+6
>> ICDIEN STORF69D+6*, STORF69D+9, STORF69D+12
ICDSTR STORF69D~, STORF69D+1, STORF69D+5, STORF69D+6
IO STORF69D+1
IO("Q" 2+8
>> IOBS STORF69D+1
>> IOCPU 2+22, 2+24
IOF STORF69D+1
IOM 2+7, STORF69D+1
ION 2+7, 2+24, STORF69D+1
IOP 1+3~, 1+20*, 2
>> IOS 1+11, 1+12, STORF69D+1
IOSL 2+7, STORF69D+1
IOST 2+7, 2+9, STORF69D+1
>> IOT STORF69D+1
>> IOXY STORF69D+1
LRAA 3+17~, 3+18*, T+22*
LRACC T+11~, T+16*
>> LRAD T+23*
LRAN T+11~, T+18*
LRBAR T+11~
LRBARID T+11~, T+18*
LRCE T+11~, T+16*
LRDAT T+11~, T+15*
LRINFW T+11~, T+18*
LRLABEL 1+3~, T+3, T+30
LRLABLIO 1+1, 2+7*, 3+12, 3+16!, BD+1!
LRLABLIO("Q" 2+8*, 3
LRLLOC T+11~, T+15*
LRODT BLRTSTL+18~, BLRTSTL+23*, BLRTSTL+26, BLRTSTL+27, BLRTSTL+30*, BLRTSTL+32, BLRTSTL+33, BLRTSTL+34, BLRTSTL+36*, BLRTSTL+37*
, BLRTSTL+38, BLRTSTL+39, BLRTSTL+40, BLRTSTL+41, BLRTSTL+42, STORF69D~, STORF69D+1, STORF69D+4
LROT STORF69D~, STORF69D+1, STORF69D+4
>> LROTIEN STORF69D+4*, STORF69D+12
LRPREF T+11~, T+16*
LRRB T+11~, T+15*
LRSN BLRTSTL+18~, BLRTSTL+24*, BLRTSTL+26, BLRTSTL+27, BLRTSTL+31*, BLRTSTL+32, BLRTSTL+33, BLRTSTL+34, BLRTSTL+38*, BLRTSTL+39
, BLRTSTL+40, BLRTSTL+41, BLRTSTL+42
LRSP STORF69D~, STORF69D+1, STORF69D+4
LRTN BLRTSTL+18~, BLRTSTL+25*, BLRTSTL+26, BLRTSTL+32*, BLRTSTL+33, BLRTSTL+34, BLRTSTL+39*, BLRTSTL+40, BLRTSTL+42
LRTOP T+11~, T+17*
LRTS T+11~
LRTS(1 T+17*
LRTS(2 T+17*
LRUID T+11~, T+18*
LRURG T+11~, T+19*
LRURG0 T+11~, T+19*, T+20
LRURGA T+11~, T+20*
LRXL T+11~, T+18*
MSG 2+23~, 2+24*, 2+26
N T+10~, T+18*
PNM T+10~, T+15*
POP 1+3~, 2+5, 3+13
>> PROV T+24*
SEX T+12~, T+26*
SSN T+10~, T+15*
U 1+1*, 1+17, BLRTSTL+22, BLRTSTL+23, BLRTSTL+24, BLRTSTL+25, BLRTSTL+26, BLRTSTL+27, BLRTSTL+29, BLRTSTL+30
, BLRTSTL+31, STORF69D+1, STORF69D+15
X 1+3~, 1+12*, 1+13, 3+4!, T+2!, T+33!, T+41!
>> XPARSYS STORF69D+1
>> XQXFLG STORF69D+1
Y 1+3~, 2+9, 3+4!, 3+10*, 3+11, T+2!, T+8, T+33!, T+39, T+41!
, T+49*, T+50
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