Routine: SRBL

Information

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

Source file <SRBL.m>

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

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