Routine: APCHS40

Information

APCHS40 ; IHS/CMI/LAB -- SUMMARY PRODUCTION COMPONENTS ;

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
DRG Grouper	1	$$ICDDX^ICDEX
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	($$LASTALR,$$LASTALU,$$LASTNAA,$$LASTNAP,$$LASTPLR,$$LASTPLU)^APCLAPI6
Taxonomy	1	$$ICD^ATXAPI

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCC1C

Entry Points

Name	Comments	DBIA/ICR reference
PROBAX	;
PROBALLG	;if allergy
PROBASCH	;active problem search
PROBADSP	;display allergies
PROBADNR	;display "NONE RECORDED", if no allergies recorded
PROBA	; ************ ALLERGY PROB * 9000011 ********* ; for PROBLEM LIST codes only!
ALR	;
PROBACHK	;checking for allergy codes

External References

Name	Field # of Occurrence
$$LASTALR^APCLAPI6	ALR+2
$$LASTALU^APCLAPI6	ALR+5
$$LASTNAA^APCLAPI6	ALR+8
$$LASTNAP^APCLAPI6	ALR+19
$$LASTPLR^APCLAPI6	ALR+13
$$LASTPLU^APCLAPI6	ALR+16
$$ICD^ATXAPI	PROBACHK+4
$$ICDDX^ICDEX	PROBASCH+2
$$VAL^XBDIQ1	PROBACHK+23, PROBALLG+4, PROBALLG+9
$$FMTE^XLFDT	ALR+4, ALR+7, ALR+11, ALR+15, ALR+18, ALR+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PROBA+2
Function Call: WRITE	Prompt: ! Line Location: PROBA+6
Function Call: WRITE	Prompt: !,"Allergy List Reviewed On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: ALR+4
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: ALR+4
Function Call: WRITE	Prompt: "Allergy List Updated On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: ALR+7
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: ALR+7
Function Call: WRITE	Prompt: !,"No Active Problems: ",?24,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: ALR+10
Function Call: WRITE	Prompt: ?39,"Documented By: ",?54,$E($P($G(^VA(200,$P(APCHSX,U,3),0)),U),1,25),! Line Location: ALR+10
Function Call: WRITE	Prompt: "No Active Allergies documented On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: ALR+11
Function Call: WRITE	Prompt: ?51,"By: ",?56,$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,22),! Line Location: ALR+11
Function Call: WRITE	Prompt: !,"Problem List Reviewed On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: ALR+15
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: ALR+15
Function Call: WRITE	Prompt: "Problem List Updated On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: ALR+18
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: ALR+18
Function Call: WRITE	Prompt: !,"No Active Problems: ",?24,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: ALR+21
Function Call: WRITE	Prompt: ?39,"Documented By: ",?54,$E($P($G(^VA(200,$P(APCHSX,U,3),0)),U),1,25),! Line Location: ALR+21
Function Call: WRITE	Prompt: "No Active Problems Documented On: ",?36,$$FMTE^XLFDT($P(APCHSX,U,1)) Line Location: ALR+22
Function Call: WRITE	Prompt: ?51,"By: ",$E($S($P(APCHSX,U,3):$P($G(^VA(200,$P(APCHSX,U,3),0)),U),1:""),1,25),! Line Location: ALR+22
Function Call: WRITE	Prompt: ?((IOM-APCHSLEN-12)/2),"***** " Line Location: PROBADSP+2
Function Call: WRITE	Prompt: ?((IOM-APCHSLEN)/2)+$G(APCHSL1),APCHSPT(APCHSDFN) Line Location: PROBADSP+3
Function Call: WRITE	Prompt: ?((IOM+APCHSLEN)/2)," *****",! Line Location: PROBADSP+4
Function Call: WRITE	Prompt: ?((IOM-13-12)/2),"*** ",?((IOM-13)/2),"NONE RECORDED",?((IOM+13)/2)," ***",! Line Location: PROBADNR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	PROBACHK+4
^AUPNPROB - [#9000011]	PROBA+4, PROBASCH+2, PROBACHK+2, PROBACHK+4, PROBALLG+3
^AUPNPROB("AC"	PROBA+2, PROBA+4
^VA(200 - [#200]	ALR+4, ALR+7, ALR+11, ALR+15, ALR+18, ALR+22

Label References

Name	Line Occurrences
ALR	PROBA+2, PROBA+7
PROBACHK	PROBASCH+2
PROBADNR	PROBA+2, PROBA+7
PROBADSP	PROBA+8
PROBALLG	PROBASCH+2
PROBASCH	PROBA+4
PROBAX	PROBA+2, PROBA+5, PROBA+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCHSBRK	PROBA+2, PROBA+5
>> APCHSCKP	PROBA+2, PROBA+5, ALR+3, ALR+6, ALR+9, ALR+14, ALR+17, ALR+20
>> APCHSCVD	PROBALLG+3
APCHSDAT	PROBAX+1!, PROBALLG+3*, PROBALLG+4
APCHSDFN	PROBA+4, PROBA+8, PROBAX+1!, PROBASCH+2, PROBACHK+2, PROBACHK+4, PROBACHK+23, PROBADSP+1, PROBADSP+3, PROBALLG+3 , PROBALLG+4, PROBALLG+5, PROBALLG+9, PROBALLG+10, PROBALLG+11
APCHSFND	PROBA+3, PROBA+7, PROBAX+1!, PROBALLG+1
APCHSL1	PROBADSP+1*, PROBADSP+3, PROBADSP+5!
APCHSLEN	PROBA+3, PROBAX+1!, PROBADSP+1, PROBADSP+2, PROBADSP+3, PROBADSP+4, PROBALLG+5, PROBALLG+11*
APCHSNKA	PROBAX+1!, PROBACHK+1, PROBACHK+3, PROBACHK+23*, PROBALLG+2
>> APCHSNPG	PROBA+2, PROBA+5
>> APCHSP	PROBASCH+2*
>> APCHSPAT	PROBA+2, PROBA+4, ALR+2, ALR+5, ALR+8, ALR+13, ALR+16, ALR+19
APCHSPT	PROBA+3!, PROBAX+1!
APCHSPT(	PROBA+8, PROBADSP+1, PROBADSP+3, PROBALLG+4, PROBALLG+5, PROBALLG+9, PROBALLG+10*, PROBALLG+11
>> APCHSQ	PROBA+4, PROBA+8
>> APCHSQIT	PROBA+2, PROBA+5, ALR+3, ALR+6, ALR+9, ALR+14, ALR+17, ALR+20
>> APCHSX	ALR+2, ALR+4, ALR+5, ALR+7, ALR+8, ALR+11, ALR+13, ALR+15, ALR+16, ALR+18 , ALR+19, ALR+22
DT	ALR+2, ALR+5, ALR+8, ALR+13, ALR+16, ALR+19
IOM	PROBADSP+2, PROBADSP+3, PROBADSP+4, PROBADNR+1
>> N	PROBACHK+23*
U	PROBA+4, ALR+4, ALR+7, ALR+11, ALR+15, ALR+18, ALR+22, PROBASCH+2, PROBACHK+2, PROBALLG+3 , PROBALLG+5
>> Y	PROBALLG+3*

Customize PDF page

Package: Patient Care Component

Routine: APCHS40

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: