Routine: BLRAG09C

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

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

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

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

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend: