Routine: LA7UXQA

Information

LA7UXQA ;VA/DALOI/JMC - HL7 Utility - Send alert to users; Jan 12, 2004

Source file <LA7UXQA.m>

Package	Total	Caller Graph
Automated Lab Instruments	14	LA7LOG LA7UIIN LA7VCIN1 LA7VCN1A LA7VHL LA7VIN LA7VIN1 LA7VIN1A LA7VLIN1 LA7VLN1A LA7VQIN1 LA7VQN1A LA7VRIN1 LA7VRN1A
IHS Changes To Lab	4	BLRLIIN BLRQIIN BLRRIIN BLRUIIN
Lab Service	2	LRVRPOC LRVRPOCU

Name	Comments	DBIA/ICR reference
DEL(ID)	; Delete previous alerts if present ; Call with ID = alert id ; Clear previous alert with same pkg id.
XQA(LA7CTYP,LA76248,LA762485,LA76249,LA7AMSG,LA7DATA,LA7PALRT)	; Send alert when requested. ; Input ; LA7CTYP - Condition for alert (1=New Results, 2=Error on message, 3=New Orders) ; LA76248 - Pointer to file 62.48 ; LA762485 - Optional, pointer to file 62.485 if condition=2 ; LA76249 - Optional, pointer to file 62.49 if condition=2 or 3 ; LA7AMSG - Optional, alert message if missing will use default message ; LA7DATA - Optional, pass values for specific conditions ; LA7PALRT - Keep previous alerts (1-yes,0-no)
DISIC	; Display Integrity Checker alert.
DIS	; Display alert.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Missing message number, unable to proceed.",! Line Location: DIS+3
Function Call: WRITE	Prompt: !,$C(7),"Message number# ",XQADATA," has been deleted, unable to proceed.",! Line Location: DIS+4
Function Call: WRITE	Prompt: !,$C(7),"Missing error report to display, unable to proceed.",! Line Location: DISIC+3
Function Call: WRITE	Prompt: !,$C(7),"Message number# ",XQADATA," has been deleted, unable to proceed.",! Line Location: DISIC+6
Routine Call	DIR Line Location: DIS+6 DISIC+9

Name	Line Occurrences (* Changed, ! Killed)
^LAHM(62.48 - [#62.48]	XQA+17, XQA+29, XQA+33, XQA+34
^LAHM(62.49 - [#62.49]	DIS+4
^TMP("DDB"	DIS+2!
^TMP($J	DIS+2!
^XTMP(	DISIC+5

Name	Line Occurrences
DEL	XQA+41

Name	Field # of Occurrence
DIR	DIS+1~, DIS+6!, DISIC+1~, DISIC+9!
DIR("A"	DIS+5, DISIC+8
DIR("B"	DIS+5, DISIC+8
DIR(0	DIS+5, DISIC+8
I	DIS+1~, DISIC+1~
ID	DEL~, DEL+5
J	DIS+1~, DISIC+1~
K	DIS+1~, DISIC+1~
LA76248	XQA~, XQA+16, XQA+17, XQA+29, XQA+33, XQA+34
LA762485	XQA~, XQA+21
LA76249	XQA~, XQA+20, XQA+21, XQA+22, XQA+24, XQA+28
LA7AMSG	XQA~, XQA+13
LA7CTYP	XQA~, XQA+15, XQA+19, XQA+26, XQA+33
LA7DATA	XQA~, XQA+27*, XQA+28, XQA+29
LA7IC	DISIC+1~, DISIC+10*
LA7LIST	DIS+1~
LA7LIST(	DIS+7*
LA7PALRT	XQA~, XQA+41
X	XQA+12~, XQA+32, XQA+33, XQA+34, DIS+1~, DISIC+1~
XQA	XQA+12~, XQA+38, DEL+3~
XQA("G."	XQA+35*
XQA("G.LAB ME	SSAGING" , XQA+38*
XQADATA	XQA+12~, XQA+24*, DEL+3~, DIS+3, DIS+4, DIS+7, DISIC+2, DISIC+5, DISIC+6, DISIC+10
XQAFLAG	XQA+12~
XQAID	XQA+12~, XQA+16, XQA+20, XQA+28, XQA+41, DEL+3~, DEL+5
>> XQAKLL	DEL+4*
XQAMSG	XQA+12~, XQA+13, XQA+17, XQA+21, XQA+29, DEL+3~
XQAOPT	XQA+12~
XQAROU	XQA+12~, XQA+23*, DEL+3~
Y	XQA+12~, XQA+34*, XQA+35, DIS+1~, DIS+7, DISIC+1~, DISIC+10