Routine: GMRAPED1

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

GMRAPED1 ;HIRMFO/RM-EDIT DRUG CLASS FIELD ;11/16/07 10:06

Source Information

Source file <GMRAPED1.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
National Drug File	2	C^PSN50P65 DIC^PSNDI
VA FileMan	2	^DIC ^DIE
Kernel	1	$$DT^XLFDT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Adverse Reaction Tracking	1	GMRAPED0

Entry Points

Name	Comments	DBIA/ICR reference
DRGCLS	; EDIT VA DRUG CLASS MULTIPLE
RDCLS
DGDIC
EDDC

External References

Name	Field # of Occurrence
^DIC	DGDIC+2
^DIE	EDDC
C^PSN50P65	DRGCLS+2, RDCLS+6
DIC^PSNDI	DGDIC
$$DT^XLFDT	DGDIC

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: RDCLS+0
Function Call: WRITE	Prompt: !,"YOU CAN NOT DELETE A VA DRUG CLASS.",$C(7) Line Location: RDCLS+1
Function Call: WRITE	Prompt: ! Line Location: RDCLS+3
Function Call: WRITE	Prompt: !!?3,"Choose from:",! Line Location: RDCLS+5
Function Call: WRITE	Prompt: !,?3,$G(^TMP($J,"GMRACLASS",IEN,.01)),?$X+5,$G(^TMP($J,"GMRACLASS",IEN,1)) Line Location: RDCLS+6
Routine Call	DIC Line Location: DGDIC+2
Routine Call	DIE Line Location: EDDC

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(50.605 - [#50.605]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	DRGCLS+2, RDCLS+2, RDCLS+5, RDCLS+6, DGDIC+1
^TMP($J	DRGCLS+1!, DRGCLS+2, RDCLS+4!, RDCLS+6

Label References

Name	Line Occurrences
RDCLS	DGDIC, DGDIC+1, EDDC+1

Naked Globals

Name	Field # of Occurrence
^(	RDCLS+6
^(0	DRGCLS+2, RDCLS+2*
^(1	DRGCLS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	DGDIC+1*
>> DA(1	DGDIC+1*
DIC	DGDIC!, DGDIC+2!
DIC("W"	DGDIC*
DIC(0	DGDIC, DGDIC+2
>> DIE	EDDC*
DLAYGO	DGDIC+2*!
>> DR	EDDC*
DTIME	RDCLS
DTOUT	DGDIC!
DUOUT	DGDIC!
>> GMRAB	DRGCLS+2, RDCLS, EDDC
>> GMRAOUT	RDCLS, EDDC, EDDC+1
>> GMRAPA	DRGCLS+2, RDCLS+2, RDCLS+5, RDCLS+6, DGDIC+1, DGDIC+2, EDDC
IEN	RDCLS+4~, RDCLS+6*
SUB	RDCLS+4~, RDCLS+6*
U	DRGCLS+2
>> X	RDCLS, RDCLS+1, RDCLS+3, DGDIC, DGDIC+2*
>> Y	DGDIC, DGDIC+1, EDDC
>> Y(0	DGDIC+2