Routine: PSJALG

Package	Total	Call Graph
Registration	3	EN^VALM PAUSE^VALM1 SET^VALM10
Adverse Reaction Tracking	2	^GMRADPT EN1^GMRAOR2
Kernel	1	DISP^XQORM1
Order Entry Results Reporting	1	$$CWAD^ORQPT2
Uncategorized	1	ENPAT^GMRPNCW
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for PSJ LM ALLERGY DETAIL
HELP	; -- help code
EXPND	; -- expand code
DETAIL	;
INIT	; -- init variables and list array
CWAD(DFN)	;
EXIT	; -- exit code
VIEW	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"No CWAD information for this patient." Line Location: CWAD+1
Function Call: WRITE	Prompt: !! Line Location: CWAD+2
Routine Call	VALM Line Location: EN+1
Routine Call	DIR Line Location: VIEW+4

Name	Line Occurrences (* Changed, ! Killed)
^TMP("PSJALLDT"	VIEW+7*
^TMP("PSJALLRG"	DETAIL+3, DETAIL+4, DETAIL+11*

Name	Field # of Occurrence
BLANKS	DETAIL+1~, DETAIL+8, VIEW+2~, VIEW+7
>> CAPTION	DETAIL+8, DETAIL+11, DETAIL+12
CAUSATIV	DETAIL+1~, DETAIL+10, DETAIL+11, VIEW+5, VIEW+6, VIEW+7
DATA	DETAIL+5~, DETAIL+6*
DFN	CWAD~, CWAD+1, CWAD+4
DIR	VIEW+4!
DIR("A"	VIEW+4*
DIR(0	VIEW+4*
>> GMRAL	DETAIL+3, DETAIL+4
>> GMRAL(	DETAIL+6
GMRPDFN	CWAD+3~, CWAD+4*
GMRPEN	CWAD+3~, CWAD+4*
GMRPOPT	CWAD+3~, CWAD+4*
GMTSPHDR	CWAD+3~
I	DETAIL+1, DETAIL+5~, DETAIL+6, DETAIL+8, DETAIL+9, DETAIL+10, VIEW+2
IEN	VIEW+2~, VIEW+6
J	DETAIL+5~, DETAIL+6, DETAIL+7, DETAIL+10, DETAIL+11, VIEW+6*, VIEW+7
LINE	INIT+1*, DETAIL+5~
NUM	DETAIL+5~
NUMBER	VIEW+2~, VIEW+6*
>> PSJAL(	DETAIL+6*, DETAIL+9, DETAIL+10, VIEW+5
>> PSJAL("TOTAL"	DETAIL+6*, VIEW+3
PSJARRAY	VIEW+8!
PSJARRAY("V"	VIEW+7
STRING	VIEW+2~, VIEW+7*
TOTAL	VIEW+2~, VIEW+3*, VIEW+4
TYPE	DETAIL+1~, DETAIL+6, DETAIL+7, DETAIL+8, DETAIL+9, DETAIL+10, VIEW+5*
>> VALMCNT	INIT+2*
>> X	HELP+1*
Y	VIEW+4, VIEW+5, CWAD+3~, CWAD+4*