Routine: BLRAG09C

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Used in RPC
Global Variables Directly Accessed
Label References
Local Variables

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

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!

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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAG09C

Call Graph Total: 14