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 |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRAG09C

Package: IHS Changes To Lab

Routine: BLRAG09C


Information

BLRAG09C ; IHS/MSC/SAT - LABORATORY ACCESSION GUI RPCS ; NOV 20, 2012

Source Information

Source file <BLRAG09C.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS Changes To Lab 5 MTL^BLRAG09A  $$TA^BLRAG09B  DEV^BLRAG09F  $$TMPGLB^BLRAGUT  ENTRYAUD^BLRUTIL  
Automated Lab Instruments 4 (SCBLD,SCHK)^LA7SM1  CHKREQI^LA7SM2  (ADD,LOCK68,UNLOCK68)^LA7SMB  ($$CHKTST,ACCSUP,SEUP,SMSUP)^LA7SMU  
Kernel 3 ^%ZTER  ^%ZTLOAD  ($$DT,$$NOW)^XLFDT  
IHS VA Utilities 1 ^XBKVAR  
VA Fileman 1 FILE^DIE  

Entry Points

Name Comments DBIA/ICR reference
LOCKSM ; Lock entry in file 62.8
UNLOCKSM ; Unlock entry in file 62.8
CLSHIP(BLRY,BLRSCFG,BLRSM,BLRCSF,BLRSHTIM,BLRDEV) ; Close/ship a shipping manifest
; BLR MANIFEST CLOSE/SHIP rpc
ERROR ;
REMVTST(BLRY,BLRSM,BLRMTL) ; Remove a test from manifest - actually flags test as "removed".
; BLR MANIFEST TEST REMOVE rpc
INIT ; Initialize variables
CLEANUP ; Cleanup variables
ADDTEST(BLRY,BLRSCFG,BLRSM,BLRTAL) ; Add tests to an existing manifest
; BLR MANIFEST TEST ADD rpc
TASKSM ; Task electronic transmission of manifest called from SHIP
SHIP ; Ship a manifest only called from CLSHIP
; Used to flag shipping manifest for shipping
; If electronically connected -> transmit shipping manifest in HL7 message.
ERR(BLRERR) ;Error processing
; BLRERR = Error text OR error code
; BLRI = pointer into return global array

External References

Name Field # of Occurrence
^%ZTER ERROR+4
^%ZTLOAD TASKSM+6
MTL^BLRAG09A ADDTEST+67, REMVTST+52
$$TA^BLRAG09B ADDTEST+68, REMVTST+54
DEV^BLRAG09F CLSHIP+47
$$TMPGLB^BLRAGUT CLSHIP+23, ADDTEST+30, REMVTST+25
ENTRYAUD^BLRUTIL ERROR+1
FILE^DIE SHIP+40, REMVTST+45
SCBLD^LA7SM1 ADDTEST+59
SCHK^LA7SM1 ADDTEST+61
CHKREQI^LA7SM2 SHIP+10
ADD^LA7SMB ADDTEST+65
LOCK68^LA7SMB ADDTEST+63
UNLOCK68^LA7SMB ADDTEST+66
$$CHKTST^LA7SMU SHIP+7
ACCSUP^LA7SMU REMVTST+51
SEUP^LA7SMU SHIP+43, REMVTST+49
SMSUP^LA7SMU CLSHIP+40, SHIP+30
^XBKVAR CLSHIP+20, ADDTEST+27, REMVTST+22
$$DT^XLFDT INIT+1
$$NOW^XLFDT SHIP+42, TASKSM+5, REMVTST+47

Used in RPC

RPC Name Call Tags
BLR MANIFEST TEST REMOVE REMVTST
BLR MANIFEST TEST ADD ADDTEST
BLR MANIFEST CLOSE/SHIP CLSHIP

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TRAP" CLSHIP+20, ADDTEST+27, REMVTST+22
^LAHM(62.8 - [#62.8] CLSHIP+36, SHIP+6, SHIP+8, SHIP+34, SHIP+35, ADDTEST+54, ADDTEST+56, REMVTST+37, REMVTST+41, REMVTST+53
, LOCKSM+1, UNLOCKSM+1
^LAHM(62.9 - [#62.9] SHIP+46, INIT+5
^LRO(68 - [#68] ADDTEST+46, ADDTEST+51, ADDTEST+52, ADDTEST+60
^TMP("BLRAG" CLSHIP+22!, ERR+5*, ADDTEST+29!, REMVTST+24!
^TMP("LA7ERR" INIT+7!, CLEANUP+5!

Label References

Name Line Occurrences
CLEANUP CLSHIP+35, CLSHIP+51, ERR+3
ERR ERROR+5
INIT CLSHIP+30
LOCKSM CLSHIP+33
SHIP CLSHIP+43
TASKSM SHIP+46
UNLOCKSM CLSHIP+35, CLSHIP+51, ERR+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BLRCNT REMVTST+28~, REMVTST+34*, REMVTST+36*, REMVTST+37
BLRCSF CLSHIP~, CLSHIP+38, CLSHIP+39, CLSHIP+42, CLSHIP+47
BLRDEV CLSHIP~, CLSHIP+47
BLREF CLSHIP+27~, CLSHIP+29*, CLSHIP+45, CLSHIP+48, SHIP+15*, SHIP+20*
>> BLREFF CLSHIP+29*, CLSHIP+45*, CLSHIP+48*, CLSHIP+49
BLRERR ERR~, ERR+5
BLRI CLSHIP+19~, CLSHIP+21*, CLSHIP+50*, ERR+4*, ERR+5, ADDTEST+26~, ADDTEST+28*, ADDTEST+71*, REMVTST+21~, REMVTST+23*
, REMVTST+58*
BLRJ ADDTEST+33~, ADDTEST+40*, ADDTEST+41, ADDTEST+42, ADDTEST+43, ADDTEST+44, ADDTEST+45, REMVTST+28~, REMVTST+35*, REMVTST+37
BLRMTL REMVTST~, REMVTST+35, REMVTST+37
>> BLRNTAL ADDTEST+68*, ADDTEST+71, REMVTST+54*, REMVTST+58
BLRSCFG CLSHIP~, ADDTEST~, ADDTEST+35, ADDTEST+68, REMVTST+53*, REMVTST+54, INIT+3
BLRSHTIM CLSHIP~, SHIP+29
BLRSM CLSHIP~, CLSHIP+32, ADDTEST~, ADDTEST+36, ADDTEST+67, ADDTEST+68, REMVTST~, REMVTST+31, REMVTST+37, REMVTST+52
, REMVTST+53, REMVTST+54
BLRTAL ADDTEST~, ADDTEST+40, ADDTEST+41, ADDTEST+42, ADDTEST+43, ADDTEST+44, ADDTEST+45
BLRTSTL ADDTEST+33~, ADDTEST+37*, ADDTEST+67, ADDTEST+71, REMVTST+28~, REMVTST+30*, REMVTST+52, REMVTST+58
BLRTXT CLSHIP+27~, CLSHIP+28*, CLSHIP+41*, CLSHIP+44*, CLSHIP+48*, CLSHIP+50
BLRY CLSHIP~, CLSHIP+23*, CLSHIP+25, CLSHIP+49, CLSHIP+50, ADDTEST~, ADDTEST+30*, ADDTEST+31, ADDTEST+70, ADDTEST+71
, REMVTST~, REMVTST+25*, REMVTST+26, REMVTST+56, REMVTST+58
DA CLEANUP+2!
DIC CLEANUP+2!
DIR CLSHIP+37~, SHIP+3~, REMVTST+29~, CLEANUP+2!
DIROUT CLSHIP+37~, SHIP+3~, REMVTST+29~
DIRUT CLSHIP+37~, SHIP+3~, REMVTST+29~, CLEANUP+2!
DT INIT+1*
DTOUT CLSHIP+37~, SHIP+3~, REMVTST+29~, CLEANUP+2!
DUOUT CLSHIP+37~, SHIP+3~, REMVTST+29~, CLEANUP+2!
ERRORMSG ERROR+2~, ERROR+3*, ERROR+4
FDA REMVTST+40~
FDA( SHIP+39*, REMVTST+44*
I SHIP+3~
LA760 ADDTEST+34~, ADDTEST+41*, ADDTEST+46, ADDTEST+57, REMVTST+29~, REMVTST+33!, CLEANUP+4!
LA760( REMVTST+37*, REMVTST+39, REMVTST+41, REMVTST+47, REMVTST+48, REMVTST+51
LA760(0 ADDTEST+46*, ADDTEST+47, ADDTEST+48
LA76205 ADDTEST+48*, ADDTEST+49*, CLEANUP+4!
LA7628 REMVTST+40~
LA762801 SHIP+38*, SHIP+39, REMVTST+41*, REMVTST+42, REMVTST+43*, REMVTST+44, CLEANUP+4!
LA768 REMVTST+40~
LA76805 ADDTEST+51*, CLEANUP+4!
LA7AA ADDTEST+34~, ADDTEST+43*, ADDTEST+46, ADDTEST+51, ADDTEST+52, ADDTEST+60, CLEANUP+3!
LA7ACTON CLEANUP+3!
LA7AD ADDTEST+34~, ADDTEST+44*, ADDTEST+46, ADDTEST+51, ADDTEST+52, ADDTEST+60, CLEANUP+3!
LA7AN ADDTEST+34~, ADDTEST+45*, ADDTEST+46, ADDTEST+51, ADDTEST+52, ADDTEST+60, CLEANUP+3!
LA7BY ADDTEST+34~
LA7DATA SHIP+42*, SHIP+43, REMVTST+40~, REMVTST+47*, REMVTST+49
LA7DIV ADDTEST+34~, ADDTEST+60*
>> LA7ERR SHIP+17
LA7EV CLEANUP+3!
LA7FLAG ADDTEST+62, CLEANUP+3!
LA7I SHIP+3~, SHIP+5*, SHIP+6*, SHIP+7, SHIP+8, SHIP+10, SHIP+32!, SHIP+33*, SHIP+34*, SHIP+35
, SHIP+38, ADDTEST+34~, ADDTEST+53*, ADDTEST+54*, ADDTEST+56, ADDTEST+64*, ADDTEST+65*, REMVTST+29~, CLEANUP+3!
LA7I(0 SHIP+35*, SHIP+36, SHIP+42, SHIP+43
LA7QUIT CLSHIP+34, SHIP+13*, SHIP+18*, ADDTEST+38*, ADDTEST+47*, ADDTEST+52*, ADDTEST+54, ADDTEST+57*, ADDTEST+58, ADDTEST+62*
, INIT+2*, LOCKSM+2*, CLEANUP+3!
LA7SCFG SHIP+46, ADDTEST+35*, ADDTEST+59, INIT+3*, INIT+5, CLEANUP+3!
LA7SCFG(0 INIT+5*
LA7SDT SHIP+29*, SHIP+30, CLEANUP+3!
LA7SM CLSHIP+32*, CLSHIP+36, CLSHIP+40, SHIP+6, SHIP+7, SHIP+8, SHIP+10, SHIP+30, SHIP+34, SHIP+35
, SHIP+38, SHIP+42, TASKSM+4, ADDTEST+36*, ADDTEST+54, ADDTEST+56, REMVTST+31*, REMVTST+41, REMVTST+43, LOCKSM+1
, UNLOCKSM+1, CLEANUP+3!
LA7SM(0 CLSHIP+36*, CLSHIP+40, CLSHIP+41, CLSHIP+48, SHIP+30
LA7ST CLSHIP+38*, CLEANUP+3!
LA7TCNT SHIP+3~, SHIP+5*, SHIP+9*, SHIP+12, REMVTST+29~
LA7UID ADDTEST+34~, ADDTEST+42*, ADDTEST+54, REMVTST+48*, REMVTST+49, REMVTST+51, CLEANUP+3!
LA7X ADDTEST+34~, REMVTST+39*, REMVTST+41, REMVTST+47, REMVTST+48, REMVTST+51, CLEANUP+3!
LA7X( ADDTEST+65
LA7Y REMVTST+29~
LA7YARRY CLEANUP+3!
MSG CLSHIP+37~, CLSHIP+44, SHIP+14*, SHIP+19*, TASKSM+8*, INIT+6*
U CLSHIP+40, CLSHIP+41, CLSHIP+48, SHIP+30, ADDTEST+71, REMVTST+37, REMVTST+41, REMVTST+53, REMVTST+58
X CLSHIP+20*, CLSHIP+37~, SHIP+3~, ADDTEST+27*, ADDTEST+51*, ADDTEST+55~, REMVTST+22*, REMVTST+29~, CLEANUP+2!
X(0 ADDTEST+56*, ADDTEST+57
Y CLSHIP+37~, SHIP+3~, REMVTST+29~, CLEANUP+2!
>> ZTDESC TASKSM+4*
ZTDTH TASKSM+2~, TASKSM+5*
ZTIO TASKSM+2~, TASKSM+5*
>> ZTQUEUED CLEANUP+1
>> ZTREQ CLEANUP+1*
ZTRTN TASKSM+2~, TASKSM+4*
ZTSAVE TASKSM+2~
ZTSAVE("LA7SM" TASKSM+5*
ZTSK TASKSM+2~, TASKSM+8
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables |  All