Routine: APCHPALG

Name	Comments	DBIA/ICR reference
PROBALLG	;if allergy
EN	;EP - START HERE
PROBASCH	;active problem search
PROBA	;EP - CALLED TO CHECK PROBLEM LIST ; for PROBLEM LIST codes only!
TEST(CHECKIT)	;CHECK IF VERIFED AND NOT ENTERED IN ERROR
PROBACHK	;checking for allergy codes

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PROBACHK+3
^AUPNPROB - [#9000011]	PROBA+4, PROBASCH+2, PROBACHK+1, PROBACHK+3
^AUPNPROB("AC"	PROBA+2, PROBA+4
^GMR(120.8 - [#120.8]	EN+3, EN+7, EN+17, EN+18, EN+20, TEST+4
^GMRD(120.83 - [#120.83]	EN+19

Name	Field # of Occurrence
>> APCHALG	EN+3*, EN+5, EN+6, EN+7, EN+17, EN+18, EN+20, EN+26
>> APCHCNT	EN+22*, EN+25
APCHDATA	EN+16!, EN+22, EN+24, EN+25*
APCHDATA(	EN+19, EN+20, EN+22, EN+25
>> APCHDATE	EN+15*, EN+26
>> APCHDRUG	EN+13, EN+14, EN+26
>> APCHENT(	EN+26*
>> APCHMEC	EN+11*, EN+26
>> APCHNN	EN+21, EN+23, EN+24
>> APCHPEC	EN+7*, EN+8, EN+9, EN+11, EN+12, EN+13, EN+15
APCHPIEN	PROBA+4*, PROBA+6!, PROBASCH+2, PROBACHK+1, PROBACHK+3, PROBALLG+2, PROBALLG+3, PROBALLG+4
>> APCHREC	EN+17*, EN+18, EN+20
>> APCHRNUM	EN+18*, EN+19, EN+20
>> APCHSALG	PROBALLG+1*
>> APCHSDFN	EN+2, EN+3, PROBA+2, PROBA+4
>> APCHSFND	PROBA+3*
APCHSLEN	PROBA+3, PROBA+6!, PROBALLG+4
>> APCHSNKA	PROBACHK+2*
APCHSP	PROBA+6!, PROBASCH+2*
APCHSPT	PROBA+3!
APCHSPT(	PROBALLG+2, PROBALLG+3, PROBALLG+4
APCHSQ	PROBA+4*, PROBA+6!
>> APCHSQIT	EN+3
>> APCHVER	EN+4, EN+12
CHECK	TEST+1~, TEST+2, TEST+4, TEST+5
CHECKIT	TEST~, TEST+4
U	EN+9, EN+11, EN+12, EN+13, EN+15, EN+19, EN+20, TEST+4, PROBA+4, PROBASCH+2 , PROBACHK+1

Information