Routine: VBECRPT

Information

VBECRPT ;HOIFO/RLM - APIS TO RETURN BLOOD BANK DATA FOR LAB ;Jan 31, 2020@13:10:43

Source file <VBECRPT.m>

Name	Comments	DBIA/ICR reference
EN	;Add sections as they are finished.	ICR #7203 Status: Pending Usage: Controlled Subscription
EXIT	;Set up to print and clean up.
HEADER	;Header for report
TEST	;Calls
OEAPI	;Call to OEAPI^VBECA3
ABORH	;Call to ABORH^VBECA1 for ABO/Rh - DBIA 3181
ABID	;Call to ABID^VBECA1 for Antibodies Identified - DBIA 3181, 3184
TREQ	;W !!,"Transfusion Requirements"
DFN	;Call to DFN^VBECA3A - DBIA 3879
VBDAT	;CONVERT DATE 3200114.16132
VBDAT1
AVUNIT	;Available Units
INSTLK	;Lookup Institution
CPRS	;Call to CPRS^VBECA3B - DBIA 3880
COMPREQ	;Component Requests
TRAN	;Call to TRAN^VBECA4 for Tranfused Units - DBIA 3176
TRRX	;Call to TRRX^VBECA1 for Transfusion Reactions - DBIA 3181, 3187
TRRXHDR	;Transfusion Reaction Header
PARSE	;Parse Record
WRT	; Writes the Transfusion Record for each day
INCRL(I)	;Increment line

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"CROSSMATCHED UNITS: " Line Location: TEST+3
Function Call: WRITE	Prompt: !?2,^(ID) Line Location: TEST+5
Function Call: WRITE	Prompt: !!!,"Array returned from OEAPI^VBECA3 API in ORVB():",! Line Location: OEAPI+5
Function Call: WRITE	Prompt: !!!,"Specimen: " Line Location: CPRS+4
Function Call: WRITE	Prompt: !?2,^(ID) Line Location: CPRS+6
Function Call: WRITE	Prompt: TD Line Location: WRT+3
Function Call: WRITE	Prompt: ?(((GMI2-1)*15)+13),GMA(GMJ) Line Location: WRT+7
Function Call: WRITE	Prompt: ! Line Location: WRT+8

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DIC(4 - [#4]	FIND^DIC