Routine: APCHS70

Information

APCHS70 ; IHS/CMI/LAB - HEALTH SUMMARY COMPONENT FOR ALLERGY FILE (PATIENT ALLERGY) ;

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$CJ^XLFSTR
Patient Care Component	1	$$INACTIVE^APCHS79
Patient Care Component Reports	1	($$LASTALR,$$LASTALU,$$LASTNAA)^APCLAPI6

Name	Comments	DBIA/ICR reference
END	;CLEAN UP
EN	;START HERE
REV	;get date last reviewed and display
TEST(CHECKIT)	;CHECK IF VERIFED AND NOT ENTERED IN ERROR

Name	Line Occurrences
Function Call: WRITE	Prompt: $S(APCHMEC="A":"Allergies:",APCHMEC="P":"Adverse Reactions:",1:"Unspecified:") Line Location: EN+46
Function Call: WRITE	Prompt: ! Line Location: EN+51
Function Call: WRITE	Prompt: !,"Allergy List Reviewed On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: REV+3
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,25),! Line Location: REV+3
Function Call: WRITE	Prompt: "Allergy List Updated On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: REV+6
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,25),! Line Location: REV+6
Function Call: WRITE	Prompt: !,"No Active Problems: ",?24,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: REV+9
Function Call: WRITE	Prompt: ?39,"Documented By: ",?54,$E($P($G(^VA(200,$P(APCHSX,U,3),0)),U),1,25),! Line Location: REV+9
Function Call: WRITE	Prompt: "No Active Allergies Documented On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: REV+10
Function Call: WRITE	Prompt: ?51,"By: ",?54,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,22),! Line Location: REV+10

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	EN+6, EN+10, EN+11, EN+12, EN+15, EN+19, EN+30, EN+31, EN+33, TEST+4
^GMR(120.86 - [#120.86]	EN+7, EN+8
^GMRD(120.83 - [#120.83]	EN+32
^VA(200 - [#200]	REV+3, REV+6, REV+10

Name	Field # of Occurrence
APCHALG	EN+15, EN+17, EN+18, EN+19, EN+30, EN+31, EN+33, EN+39, EN+44, EN+45 , EN+49, END+1!
>> APCHCNT	EN+35*, EN+38
APCHDATA	EN+29!, EN+35, EN+37, EN+38*, EN+39
APCHDATA(	EN+32, EN+33, EN+35, EN+38
APCHDATE	EN+27, EN+28, EN+39, EN+43, EN+44, EN+45, EN+49, END+1!
APCHDFN	EN+1*, EN+3, EN+6!, EN+7, EN+8, EN+10, EN+11, EN+15
>> APCHDRUG	EN+24, EN+25, EN+39
APCHENT	END+1!
APCHENT(	EN+39*, EN+42, EN+43, EN+44, EN+45, EN+49
APCHMEC	EN+22, EN+39, EN+42, EN+43, EN+44, EN+45, EN+46, EN+47, EN+48, EN+49 , END+1!
>> APCHNKAD	EN+12*, EN+13
APCHNKAI	EN+2!, EN+11*, EN+12, EN+14
>> APCHNN	EN+34, EN+36, EN+37
>> APCHPEC	EN+19*, EN+20, EN+21, EN+22, EN+23, EN+24, EN+27
APCHPREV	EN+41, EN+46, EN+48, END+1!
>> APCHREC	EN+30*, EN+31, EN+33
>> APCHRNUM	EN+31*, EN+32, EN+33
>> APCHSBRK	EN+5
>> APCHSCKP	EN+5, EN+50, REV+2, REV+5, REV+8
>> APCHSNPG	EN+5
>> APCHSPAT	EN+1, REV+1, REV+4, REV+7
APCHSPCE	END+2!
>> APCHSQIT	EN+5, EN+15, EN+42, EN+43, EN+44, EN+50, REV+2, REV+5, REV+8
>> APCHSX	REV+1, REV+3, REV+4, REV+6, REV+7*, REV+10
>> APCHT	EN+47*, EN+49
APCHVER	EN+16, EN+23, EN+39, END+2!
APCHWARN	END+1!
CHECK	TEST+1~, TEST+2, TEST+4, TEST+5
CHECKIT	TEST~, TEST+4
DT	REV+1, REV+4, REV+7
U	EN+7, EN+8, EN+12, EN+21, EN+22, EN+23, EN+24, EN+27, EN+32, EN+33 , REV+3, REV+6, REV+10, TEST+4