Routine: APCHS79

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

Package

Total

Call Graph

Kernel

$$FMTE^XLFDT $$CJ^XLFSTR

Patient Care Component Reports

($$LASTALR,$$LASTALU,$$LASTNAA)^APCLAPI6

Package	Total	Caller Graph
Patient Care Component	2	APCHPALG APCHS70
IHS View Patient Record	1	BVPENV

Package

Total

Caller Graph

Patient Care Component

APCHPALG APCHS70

IHS View Patient Record

BVPENV

Name	Comments	DBIA/ICR reference
INACTIVE(%)	;EP - is ALLERGY INACTIVE? 1- yes, 0- no
END	;CLEAN UP
EN	;START HERE
REV	;get date last reviewed and display
TEST(CHECKIT)	;CHECK IF VERIFED AND NOT ENTERED IN ERROR

Name	Field # of Occurrence
$$LASTALR^APCLAPI6	REV+1
$$LASTALU^APCLAPI6	REV+4
$$LASTNAA^APCLAPI6	REV+7
$$FMTE^XLFDT	EN+8, EN+14, EN+57, REV+3, REV+6, REV+10
$$CJ^XLFSTR	EN+8, EN+9, EN+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CJ^XLFSTR("WARNING: ENTRIES EXIST FOR DRUGS NOT VERIFIED",80),! Line Location: EN+45
Function Call: WRITE	Prompt: $S(APCHMEC="A":"ALLERGIES:",APCHMEC="P":"ADVERSE REACTIONS:",1:"UNSPECIFIED:"),! Line Location: EN+51
Function Call: WRITE	Prompt: $S(APCHMEC="A":"ALLERGIES:",APCHMEC="P":"ADVERSE REACTIONS:",APCHMEC="W":"UNVERIFIED:",1:"UNSPECIFIED:"),! Line Location: EN+52
Function Call: WRITE	Prompt: $S(APCHMEC="A":"ALLERGIES:",APCHMEC="P":"ADVERSE REACTIONS:",1:"UNSPECIFIED:"),! Line Location: EN+53
Function Call: WRITE	Prompt: ! Line Location: EN+59
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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(120.8 - [#120.8]	EN+6, EN+10, EN+11, EN+12, EN+16, EN+20, EN+33, EN+34, EN+36, TEST+4 , INACTIVE+2, INACTIVE+5, INACTIVE+6, INACTIVE+7
^GMR(120.86 - [#120.86]	EN+7, EN+8
^GMRD(120.83 - [#120.83]	EN+35
^VA(200 - [#200]	REV+3, REV+6, REV+10

Name	Line Occurrences
$$INACTIVE	EN+19
$$TEST	EN+18
END	EN+5, REV+11
REV	EN+6, EN+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INACTIVE~, INACTIVE+1, INACTIVE+2, INACTIVE+5, INACTIVE+6, INACTIVE+7
APCHALG	EN+16, EN+18, EN+19, EN+20, EN+33, EN+34, EN+36, EN+43, EN+49, EN+50 , EN+57, END+1!
>> APCHCNT	EN+38*, EN+41
APCHDATA	EN+32!, EN+38, EN+40, EN+41*, EN+43
APCHDATA(	EN+35, EN+36, EN+38, EN+41
APCHDATE	EN+31, EN+43, EN+48, EN+49, EN+50, EN+57, END+1!
APCHDFN	EN+1*, EN+3, EN+6!, EN+7, EN+8, EN+10, EN+11, EN+16
>> APCHDRUG	EN+27, EN+28, EN+29*, EN+43
APCHENT	END+1!
APCHENT(	EN+43*, EN+47, EN+48, EN+49, EN+50, EN+57
APCHMEC	EN+24, EN+43, EN+47, EN+48, EN+49, EN+50, EN+53, EN+54, EN+57, END+1!
>> APCHNKAD	EN+12*, EN+14
APCHNKAI	EN+2!, EN+11*, EN+12, EN+15
>> APCHNN	EN+37, EN+39, EN+40
>> APCHPEC	EN+20*, EN+21, EN+22, EN+24, EN+26, EN+27, EN+31
APCHPREV	EN+46, EN+53, EN+54, END+1!
>> APCHREC	EN+33*, EN+34, EN+36
>> APCHRNUM	EN+34*, EN+35, EN+36
>> APCHSBRK	EN+5
>> APCHSCKP	EN+5, EN+58, EN+59, REV+2, REV+5, REV+8
>> APCHSNPG	EN+5, EN+59
>> APCHSPAT	EN+1, REV+1, REV+4, REV+7
APCHSPCE	EN+29*, END+2!
>> APCHSQIT	EN+5, EN+16, EN+47, EN+48, EN+49, EN+58, EN+59, REV+2, REV+5, REV+8
>> APCHSX	REV+1, REV+3, REV+4, REV+6, REV+7*, REV+10
APCHVER	EN+17, EN+26, EN+43, END+2!
APCHWARN	END+1!
CHECK	TEST+1~, TEST+2, TEST+4, TEST+7
CHECKIT	TEST~, TEST+4
DT	REV+1, REV+4, REV+7
INACT	INACTIVE+3~, INACTIVE+6*, INACTIVE+8
INZ	INACTIVE+3~, INACTIVE+4, INACTIVE+8, INACTIVE+9
IOM	EN+9
REACT	INACTIVE+3~, INACTIVE+7*, INACTIVE+8
U	EN+7, EN+8, EN+12, EN+22, EN+24, EN+26, EN+27, EN+31, EN+35, EN+36 , REV+3, REV+6, REV+10, TEST+4, INACTIVE+6, INACTIVE+7
Z	INACTIVE+3~, INACTIVE+5*, INACTIVE+6, INACTIVE+7

Customize PDF page

Package: Patient Care Component

Routine: APCHS79

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: