Routine: SRBL

Information

SRBL ;BIR/ADM - BLOOD PRODUCT VERIFICATION FOR VBECS ;09/01/05

Source file <SRBL.m>

Package	Total	Caller Graph
Surgery	1	SRBLOOD

Name	Comments	DBIA/ICR reference
BAR	; test bar code reader
CODA	; interpret Codabar barcodes used to label the Unit ID of blood component
LIST
62	;;A POS;620
66	;;A;660
TST
84	;;AB POS;840
SCAN
28	;;AB NEG;280
ISBTUID(SRBLIN)	; Check for and display valid ISBT-128 Unit Id ; Valid codes are prefixed by "="
6	;;A NEG;060
ASK
ISBTBG(SRIN,SRBLABO,SRBLRH)	; check for ISBT-128 valid blood group and return ABO & Rh values ; Valid codes are prefixed by "=%".
END
G	;;
77	;;B;770
STRIP(X)	; strip off any ISBT-128 barcode identifier characters
73	;;B POS;730
95	;;O NEG;950
MATCH	; retrieve matching units from list of available units
17	;;B NEG;170
SRNO
55	;;O;550
51	;;O POS;510
88	;;AB;880
SRYES

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LIST+0
Function Call: WRITE	Prompt: Y Line Location: LIST+5
Function Call: WRITE	Prompt: ! Line Location: LIST+7
Function Call: WRITE	Prompt: !,"Eye Readable ID: ",$P(X,"^",3),! Line Location: MATCH+3
Function Call: WRITE	Prompt: ?45,"UNIT ID: ",SRUID Line Location: CODA+3
Function Call: WRITE	Prompt: !!!,?25,"No Discrepancies Found",!!! Line Location: SRYES+3
Function Call: WRITE	Prompt: !!,?30,"WARNING",!! Line Location: SRNO+0
Function Call: WRITE	Prompt: ?5,"There is no record that this unit has been assigned to this patient." Line Location: SRNO+1
Function Call: WRITE	Prompt: !!,?8," Please recheck the patient and blood product IDs.",!! Line Location: SRNO+2
Function Call: WRITE	Prompt: $C(13),$J("",79),$C(13),SRPROMPT,"(Bar code)" Line Location: BAR+7
Function Call: WRITE	Prompt: $C(7),!!?28,"Not a GROUP-TYPE label",!?15,"Press <ENTER> key if BAR CODE READER is not used",! Line Location: BAR+13
Function Call: WRITE	Prompt: " ",$P($T(G+A),";",3) Line Location: BAR+14
Function Call: WRITE	Prompt: $C(13),$J("",79),$C(13),SRPROMPT,?32,"(Bar code)" Line Location: ISBTUID+9
Routine Call	DIR Line Location: TST+1 LIST+8 SRYES+3 ASK BAR+6

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SCAN+1
^TMP("SRBL"	SCAN+1!, LIST, MATCH+1, MATCH+2, END!

Name	Field # of Occurrence
A	BAR+1~, BAR+12*
>> DFN	SCAN+1*, SCAN+2
DIR	TST!, TST+1!, LIST+7!, LIST+8!, SRYES+3!, ASK!, END!, BAR+2!, BAR+6!
DIR("?"	TST+1, BAR+5, BAR+6*
DIR("A"	TST, LIST+7, SRYES+3, ASK, BAR+2, BAR+3, BAR+4*
DIR("B"	ASK*
DIR(0	TST, LIST+7, SRYES+3, ASK, BAR+2*
DT	SRYES
>> DTOUT	TST+1, LIST+8, BAR+6
>> DUOUT	TST+1, LIST+8, BAR+6
SR	END!, BAR+1~, BAR+9, BAR+12*, BAR+13
SR(2	BAR+9, BAR+12
SRABO	BAR+1~, BAR+8, BAR+10
SRBL	END!
SRBL(	LIST+2, LIST+3, MATCH+3*, SRYES
SRBLABO	ISBTBG~, ISBTBG+7, ISBTBG+11, ISBTBG+12, ISBTBG+13, ISBTBG+14*
SRBLIN	ISBTUID~, ISBTUID+6, ISBTUID+7, ISBTUID+8, ISBTUID+10
SRBLRH	ISBTBG~, ISBTBG+7, ISBTBG+13
SREXP	LIST+3*, LIST+5, END!
SRI	LIST+2, LIST+6, LIST+7, END!
SRIDT	MATCH+1*, MATCH+2, END!
SRIN	ISBTBG~, ISBTBG+8, ISBTBG+9, ISBTBG+10
SRMATCH	TST+2, TST+3, MATCH+1, MATCH+3, SRYES+1, END!
SRNAME	LIST+1*, LIST+5, END!
SRPROD	LIST+3*, LIST+4, END!
SRPROMPT	TST, END!, BAR+1~, BAR+2, BAR+7, ISBTUID+9
SRQ	SCAN+1, TST+4, LIST+8, END!
SRRH	BAR+1~, BAR+8, BAR+10
SRSSN	LIST*, LIST+1, END!
>> SRTN	SCAN+1
SRUID	LIST+4, MATCH+3, CODA+1, CODA+2, CODA+3, END!
SRY	TST+3, TST+5, LIST+9*, SRYES, END!
SRZ	LIST+2*, LIST+3, LIST+4, END!
X	LIST+3, MATCH+2, MATCH+3, CODA+1, CODA+2, SRYES, END!, STRIP~, STRIP+1, STRIP+2 , BAR+1~, BAR+6, BAR+8, BAR+11*, BAR+12
X(1	BAR+12*
Y	TST+5, LIST, LIST+1, LIST+3, LIST+5, LIST+8, LIST+9, SRYES, ASK, END! , BAR+1~, BAR+12*
Z	LIST, LIST+3, END!, ISBTBG+7~, ISBTBG+10*, ISBTBG+11

Name	Field # of Occurrence
$T(G+A	BAR+12, BAR+14