Routine: GMRAPVDE

Information

GMRAPVDE ;HIRMFO/RM,WAA-EDIT DATA FOR AN ALLERGY (POST VERIFICATION) ; 10/18/92

Source file <GMRAPVDE.m>

Package	Total	Call Graph
Adverse Reaction Tracking	5	EN1^GMRADPT EN1^GMRADSP0 EN1^GMRAPED0 EN1^GMRAPES0 ($$LOCK,SITE,UNLOCK)^GMRAUTL
Kernel	1	KILL^XUSCLEAN
Registration	1	(1,KVAR)^VADPT
VA Fileman	1	^DIC

Name	Comments	DBIA/ICR reference
Q1
EN1	; ENTRY FROM 'GMRA ENTER A/AR IN ERROR' OPTION
EN2	; EDIT A PATIENT A/AR WHERE DFN KNOWN ; INPUT VAR: DFN = PTR TO 2 ; OUTPUT VAR: DFN AND GMRAOUT = 0 IF NORMAL EXIT ELSE 1
Q2	;
SELECT

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN1+1
Function Call: WRITE	Prompt: !,"YOU CANNOT PICK AN UNVERIFIED ENTRY" Line Location: SELECT+0
Routine Call	DIC Line Location: EN1+1

Name	Field # of Occurrence
>> DFN	EN1+1*, EN2+3
DIC	EN1+1*!
DIC(0	EN1+1*
GMRADRUG	Q2+1!
GMRAER	EN2+4*!
GMRAERR	Q2+1!
GMRAHEAD	Q2+1!
>> GMRAL	EN2+4
GMRALAGO	SELECT*, Q2+1!
GMRALOC	EN2+3*, Q2+1!
GMRANAM	EN2+3*, Q2+1!
GMRANEW	Q2+1!
GMRAOTH	EN2+3*, Q2+1!
>> GMRAOUT	EN1+1, EN2+3, EN2+4, SELECT+1, Q2+2
GMRAPA	SELECT*, SELECT+1, SELECT+2, SELECT+4, Q2+1!
GMRAPA(0	SELECT
GMRAPG	Q2+1!
GMRAPRNT	Q2+1!
GMRASEX	EN2+3*, Q2+1!
GMRASWH	Q2+1!
U	EN2+3, SELECT
VA	EN2+3!
>> VADM(1	EN2+3
>> VADM(5	EN2+3
>> VAIN(4	EN2+3
VAROOT	EN2+3!
>> Y	EN1+1