Routine: PSN471P

Package	Total	Call Graph
Kernel	2	UPDATE^XPDID BMES^XPDUTL
Adverse Reaction Tracking	1	UPDATE^GMRAUTL2

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Call at entry point
CNT(PSNCLASS)	;Count the number of Patient Allergy entries for a specific class
UPDATE(PSNVAGEN,PSNOCL,PSNNCL,PSNTNCNT)	;Find Trade Names and update Allergies

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	CNT+3, CNT+4, CNT+5
^PSNDF(50.6 - [#50.6]	UPDATE+15
^PSNDF(50.67 - [#50.67]	UPDATE+11
^PSNDF(50.68 - [#50.68]	UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+10, UPDATE+16
^TMP("PSN471P"	EN+3!, EN+13!, UPDATE+12, UPDATE+21*
^TMP("PSNMSG"	EN+3!, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+15, EN+16, EN+17* , EN+18, EN+19, EN+20*

Name	Line Occurrences
$$CNT	EN+7, EN+8, EN+18, EN+19
UPDATE	EN+11

Name	Field # of Occurrence
MSG	EN+1~
PSNA	CNT+1~, CNT+2, CNT+3, CNT+4, CNT+5
PSNB	CNT+1~, CNT+2, CNT+4, CNT+5
PSNC	CNT+1~, CNT+2, CNT+5
PSNCLA	UPDATE+1~, UPDATE+20
PSNCLA("A"	UPDATE+3*
PSNCLA("D"	UPDATE+2*, UPDATE+17!
PSNCLASS	EN+1~, CNT~, CNT+4, CNT+5
PSNCNT	CNT+1~, CNT+2, CNT+6, CNT+7
PSNDCIEN	EN+1~, UPDATE+9, UPDATE+10, UPDATE+11
PSNDONTK	EN+1~, UPDATE+14, UPDATE+16, UPDATE+17
PSNGIEN	EN+1~, UPDATE+8*, UPDATE+12, UPDATE+13, UPDATE+15, UPDATE+21
PSNNCL	EN+11*, EN+22!, UPDATE~, UPDATE+3, UPDATE+7
PSNOCL	EN+11*, EN+22!, UPDATE~, UPDATE+2, UPDATE+16
PSNPRIEN	EN+1~, UPDATE+4, UPDATE+5, UPDATE+6, UPDATE+7, UPDATE+8, UPDATE+10
PSNTNCNT	EN+1~, EN+10, EN+11, UPDATE~, UPDATE+18, UPDATE+22
PSNTRNAM	EN+1~, UPDATE+11*, UPDATE+12, UPDATE+13, UPDATE+19, UPDATE+21
PSNVAGEN	EN+11*, EN+22!, UPDATE~, UPDATE+6
PSNVAPRD	EN+1~, UPDATE+14, UPDATE+15, UPDATE+16
PSNX	EN+1~, UPDATE+13*, UPDATE+20
XPDIDTOT	EN+1~, EN+2*

Name	Field # of Occurrence
$T(UPDATE^GMRAUTL2	UPDATE+20