Routine: GMRAVFY

Information

GMRAVFY ;HIRMFO/WAA,PWC-VERIFY AND SIGN OFF AN AGENT ; 5/23/07 10:32am

Source file <GMRAVFY.m>

Package	Total	Call Graph
Adverse Reaction Tracking	5	EN1^GMRAPET0 EN2^GMRAPEV0 PTBUL^GMRAROBS (SITE,UNLOCK)^GMRAUTL EN1^GMRAVAB
VA Fileman	2	YN^DICN ^DIE
Kernel	1	EN^XQOR
Registration	1	INP^VADPT

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRAPEM0 GMRAPEM4

Name	Comments	DBIA/ICR reference
Q1
EN1	;This is the main entry point for the verifier option.
EXIT
VERIFY	;Verify an agent

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Since this Causative Agent is an observed drug reaction and" Line Location: EN1+8
Function Call: WRITE	Prompt: !,"FDA Data is required you must enter the Observer information" Line Location: EN1+9
Function Call: WRITE	Prompt: !,"prior to verification." Line Location: EN1+10
Function Call: WRITE	Prompt: !!,"Currently you have verifier access." Line Location: VERIFY+1
Function Call: WRITE	Prompt: !?4,"ANSWER YES IF YOU WOULD LIKE TO VERIFY THIS DATA, ELSE ANSWER NO." Line Location: VERIFY+2
Function Call: WRITE	Prompt: @IOF,! Line Location: VERIFY+3
Routine Call	DIE Line Location: VERIFY+7 VERIFY+13

FileNo	Call Tags
^GMR(120.8 - [#120.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	VERIFY+4
^GMR(120.8 - [#120.8]	VERIFY+6, VERIFY+8, VERIFY+12, VERIFY+13
^GMR(120.85 - [#120.85]	EN1+7
^GMRD(120.84 - [#120.84]	EN1+5, EN1+6
^ORD(101 - [#101]	VERIFY+10
^TMP("GMRA"	VERIFY+4!
^TMP($J	VERIFY+4!

Name	Line Occurrences
EXIT	EN1+11, VERIFY+3, VERIFY+5
VERIFY	EN1+2, EN1+4, EN1+6, EN1+7

Name	Field # of Occurrence
^(0	VERIFY+13

Name	Field # of Occurrence
>> %	VERIFY+2*, VERIFY+3
DA	VERIFY+7, VERIFY+13, EXIT!
DFN	VERIFY+9~*
DIE	VERIFY+7, VERIFY+13, EXIT!
DR	VERIFY+7, VERIFY+13, EXIT!
DUZ	VERIFY+13
GMRACNT	VERIFY+9~
GMRADRUG	EN1+1, EN1+3, EXIT!
GMRAFLAG	EN1+2, EN1+3, EXIT!
>> GMRALLER	VERIFY+4*
>> GMRANAME	VERIFY+4*
>> GMRANEW	VERIFY+14
>> GMRAOUT	VERIFY+3, VERIFY+5, VERIFY+16
>> GMRAPA	EN1+7, VERIFY+4, VERIFY+6, VERIFY+7, VERIFY+8, VERIFY+12, VERIFY+13, VERIFY+16, Q1
>> GMRAPA(0	EN1+2, EN1+4, VERIFY+4, VERIFY+6, VERIFY+7, VERIFY+8, VERIFY+9, VERIFY+12, VERIFY+13, VERIFY+15 , VERIFY+16
>> GMRASITE	EN1+5, EN1+6
>> GMRASITE(0	EN1+5*
>> GMRATYPE	VERIFY+12*, VERIFY+15
>> GMRAVER	EN1+1*, VERIFY+4, VERIFY+5, VERIFY+13, VERIFY+16
GMRAVFY	VERIFY+3*!
IOF	VERIFY+3
OROLD	VERIFY+9~
U	EN1+2, EN1+4, EN1+6, VERIFY+4, VERIFY+7, VERIFY+9, VERIFY+12, VERIFY+15, VERIFY+16
VAIN	VERIFY+10!
X	VERIFY+10*!