Routine: GMRADSP8

Information

GMRADSP8 ;HIRMFO/WAA-DISPLAY ALLERGY ;26-Oct-2010 17:03;DU

Source file <GMRADSP8.m>

Package	Total	Call Graph
VA Fileman	1	^DIR

Package	Total	Caller Graph
Adverse Reaction Tracking	2	GMRADSP0 GMRANKA

Name	Comments	DBIA/ICR reference
WRITE(NL,TAB,STRING,GMRAOUT,HEAD)	; This will display all the ; text in a given string. ; Requited Variables: ; NL = Numeric repersentation of New lines ; = 0 No new line ; TAB = Number of tab spaces from the las given position ; STRING = The array of text to be printed. ; STRING(X) = Continue of string ; NOTE: This continuation will line feed and tab the same ; as the string itself. ; Optional variables ; GMRAOUT = The status of the Up-arrow out of a system. ; = "" use Page break function ; HEAD = HEADER SUB-ROUTINE
HEAD	;Print the top of page for the display
DISPLAY(ARRAY)	;This subroutine will print out the Reactant ; ARRAY is the array that is passed
PAGE(HEAD)	; Bottom of page program ; Input variable: ; HEAD = Header program to be run

Name	Field # of Occurrence
^DIR	PAGE+9

Name	Line Occurrences
Function Call: WRITE	Prompt: # Line Location: HEAD+1
Function Call: WRITE	Prompt: ?TAB,STRING Line Location: WRITE+17
Function Call: WRITE	Prompt: ! Line Location: WRITE+18
Function Call: WRITE	Prompt: ?TAB,STRING(GMAX) Line Location: WRITE+20
Function Call: WRITE	Prompt: ! Line Location: WRITE+21
Routine Call	DIR Line Location: PAGE+9

Name	Field # of Occurrence
ARRAY	DISPLAY~, DISPLAY+3, DISPLAY+4
CNT	DISPLAY+2~
DIR	PAGE+6~
DIR("?"	PAGE+8*
DIR("A"	PAGE+7*
DIR(0	PAGE+7*
DIROUT	PAGE+10, PAGE+12!
DIRUT	PAGE+12!
DTOUT	PAGE+10, PAGE+12!
DUOUT	PAGE+11, PAGE+12!
GMAI	WRITE+16~, WRITE+18, WRITE+21
GMAX	WRITE+16~, WRITE+20*
GMRAOUT	DISPLAY+4, WRITE~, WRITE+15, WRITE+17, WRITE+18, WRITE+20, WRITE+21, PAGE+4, PAGE+10, PAGE+11 , PAGE+14
HEAD	WRITE~, WRITE+15*, WRITE+18, WRITE+21, PAGE~, PAGE+9
IOSL	PAGE+5
NL	WRITE~, WRITE+18, WRITE+21
STRING	WRITE~, WRITE+17
STRING(	WRITE+20
TAB	WRITE~, WRITE+17, WRITE+20
Y	PAGE+6~, PAGE+9