Routine: APCHS6

Information

APCHS6 ; IHS/CMI/LAB - PART 6 OF APCHS -- SUMMARY PRODUCTION COMPONENTS 18 Jun 2008 10:07 AM ; 16 Dec 2015 2:42 PM

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Patient Care Component	4	DISPREF^APCHS3C FMH^APCHS61 $$DATE^APCHSMU (GETCPT,GETICDDX,GETICDOP,GETNARR,PRTICD)^APCHSUTL
DRG Grouper	2	$$ICDOP^ICDEX $$CPT^ICPTCOD
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Taxonomy	1	$$ICD^ATXAPI

Entry Points

Name	Comments	DBIA/ICR reference
PMHX
CPTALL	;EP - display all cpt codes, date limits are applicable
CPTMRE	;EP - most recent of each cpt
CPTALLC	;EP - CPT DISPLAY
HOSO	; HISTORY OF SURGERY * 9000010.08 (V PROCEDURE) ******* ; <SETUP>
HOSCHK	;PEP - CHECK TO SEE IF A PROCEDURE IS MINOR
MREDISP	;
CPTALLCX
PHDSP
CPTALLX
CPTALLC1	;EP - display all cpt codes, date limits are applicable
HOS	; HISTORY OF SURGERY * 9000010.08 (V PROCEDURE) & V CPT *******
FMH	; ******* FAMILY HISTORY * 9000014 *******
HOSOX
PMH	; ******** PERSONAL HISTORY * 9000013 *******
GETOPRV	;get Operating Prov
HOSX
HOSDSP

External References

Name	Field # of Occurrence
DISPREF^APCHS3C	HOS+87, HOS+90, CPTALL+43, CPTALLC1+45
FMH^APCHS61	FMH+1
$$DATE^APCHSMU	CPTALL+30, CPTALLC1+36, MREDISP+4
GETCPT^APCHSUTL	HOS+39, HOS+65
GETICDDX^APCHSUTL	PHDSP+2
GETICDOP^APCHSUTL	HOS+16, HOSDSP+5
GETNARR^APCHSUTL	PHDSP+6, HOS+19, HOS+41, HOSDSP+8
PRTICD^APCHSUTL	PHDSP+8, HOS+75, HOS+81, HOSDSP+13
$$ICD^ATXAPI	HOS+32, HOS+59, HOSCHK+2
$$ICDOP^ICDEX	HOS+20, HOSDSP+9
$$CPT^ICPTCOD	HOS+44, HOS+63, CPTALL+8, CPTALL+23, CPTALLC1+8, CPTALLC1+23
$$VAL^XBDIQ1	HOS+45, HOS+56, HOS+66, CPTALL+7, CPTALL+8, CPTALL+19, CPTALLC1+7, CPTALLC1+8, CPTALLC1+19
$$VALI^XBDIQ1	CPTALL+8, CPTALL+9, CPTALL+23, CPTALL+24, CPTALLC1+8, CPTALLC1+9, CPTALLC1+23, CPTALLC1+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: APCHSDAT Line Location: PHDSP+8
Function Call: WRITE	Prompt: APCHSDS,?10,$E(APCHSOP,1,15) Line Location: HOS+75
Function Call: WRITE	Prompt: APCHSDS,?10,$E(APCHSOP,1,15) Line Location: HOS+81
Function Call: WRITE	Prompt: "Minor procedures are on file but have not been displayed.",! Line Location: HOS+82
Function Call: WRITE	Prompt: "Minor procedures are on file but have not been displayed.",! Line Location: HOSO+7
Function Call: WRITE	Prompt: APCHSDS Line Location: HOSDSP+13
Function Call: WRITE	Prompt: ?10,APCHSOP Line Location: HOSDSP+13
Function Call: WRITE	Prompt: ?28,"CODE",?34,"CPT NARRATIVE",?72,"UNITS",! Line Location: CPTALL+29
Function Call: WRITE	Prompt: ?28,"CODE",?35,"CPT NARRATIVE",?72,"UNITS",! Line Location: CPTALL+33
Function Call: WRITE	Prompt: ?9,$P($G(^AUTTLOC(%,0)),U,2) Line Location: CPTALL+35
Function Call: WRITE	Prompt: ?22,$P($G(^DIC(40.7,%,9999999)),U) Line Location: CPTALL+37
Function Call: WRITE	Prompt: ?1,"CODE",?7,"DATE",?17,"CPT NARRATIVE",?54,"UNITS",?60,"FACILITY",?74,"CLN",! Line Location: CPTALLC1+29
Function Call: WRITE	Prompt: ?1,"CODE",?7,"DATE",?17,"CPT NARRATIVE",?54,"UNITS",?60,"FACILITY",?74,"CLN",! Line Location: CPTALLC1+34
Function Call: WRITE	Prompt: ?60,$P($G(^AUTTLOC(%,0)),U,2) Line Location: CPTALLC1+40
Function Call: WRITE	Prompt: ?74,$E($P($G(^DIC(40.7,%,9999999)),U),1,3) Line Location: CPTALLC1+42
Function Call: WRITE	Prompt: ?1,"CODE",?7,"DATE",?17,"CPT NARRATIVE",?54,"UNITS",?60,"FACILITY",?74,"CLN",! Line Location: MREDISP+3
Function Call: WRITE	Prompt: ?60,$P($G(^AUTTLOC(%,0)),U,2) Line Location: MREDISP+8
Function Call: WRITE	Prompt: ?74,$P($G(^DIC(40.7,%,9999999)),U) Line Location: MREDISP+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	HOS+30, HOSCHK+2
^AUPNPH - [#9000013]	PHDSP
^AUPNPH("AC"	PMH+2, PMH+5
^AUPNVCPT - [#9000010.18]	HOS+37, HOS+45, CPTALL+8, CPTALL+9, CPTALLC1+8, CPTALLC1+9
^AUPNVCPT("AA"	HOS+31, HOS+34, HOS+35, CPTALL+1, CPTALL+4, CPTALL+5, CPTALL+6, CPTALLC1+1, CPTALLC1+4, CPTALLC1+5 , CPTALLC1+6
^AUPNVCPT("AC"	HOS+2
^AUPNVPRC - [#9000010.08]	HOS+11, HOS+12, HOSDSP
^AUPNVPRC("AA"	HOS+9, HOS+10, HOSO+6
^AUPNVPRC("AC"	HOS+2, HOSO+2
^AUPNVSIT - [#9000010]	HOS+15, HOS+17, HOS+20, HOS+43, HOS+52, HOS+53, HOSDSP+4, HOSDSP+6, HOSDSP+9, CPTALL+15 , CPTALL+16, CPTALLC1+15, CPTALLC1+16
^AUPNVTC - [#9000010.33]	HOS+49, HOS+50, HOS+57, HOS+66, CPTALL+12, CPTALL+13, CPTALL+21, CPTALL+23, CPTALL+24, CPTALLC1+12 , CPTALLC1+13, CPTALLC1+21, CPTALLC1+23, CPTALLC1+24
^AUPNVTC("AC"	HOS+2, HOS+48, CPTALL+1, CPTALL+11, CPTALLC1+1, CPTALLC1+11
^AUTTLOC - [#9999999.06]	CPTALL+35, CPTALLC1+40, MREDISP+8
^AUTTSITE(1	GETOPRV+5
^DIC(16 - [#16]	GETOPRV+5
^DIC(40.7 - [#40.7]	CPTALL+37, CPTALLC1+42, MREDISP+10
^ICPT - [#81]	HOS+46
^VA(200 - [#200]	GETOPRV+5

Label References

Name	Line Occurrences
CPTALLC1	CPTMRE+2
CPTALLCX	CPTALLC1+25
CPTALLX	CPTALL+25
GETOPRV	HOS+24, HOSDSP+11
HOSCHK	HOS+13, HOSDSP+2
HOSDSP	HOSO+6
HOSX	HOS+2
MREDISP	CPTALLC1+31
PHDSP	PMH+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CPTALL+34, CPTALL+35, CPTALL+36, CPTALL+37, CPTALLC1+39, CPTALLC1+40, CPTALLC1+41, CPTALLC1+42, MREDISP+7, MREDISP+8 , MREDISP+9, MREDISP+10
APCHCPT	HOS+56, HOS+61, CPTALL+7, CPTALL+8, CPTALL+9, CPTALL+19, CPTALL+20, CPTALL+22, CPTALL+23, CPTALL+24 , CPTALL+31, CPTALL+32, CPTALL+34, CPTALL+36, CPTALL+38, CPTALL+39, CPTALLX!, CPTALLC1+7, CPTALLC1+8, CPTALLC1+9 , CPTALLC1+19, CPTALLC1+20, CPTALLC1+22, CPTALLC1+23, CPTALLC1+24, CPTALLC1+28*, CPTALLC1+30, CPTALLC1+32, CPTALLC1+33, CPTALLC1+37 , CPTALLC1+38, CPTALLC1+39, CPTALLC1+41, CPTALLCX!, MREDISP+1, MREDISP+2, MREDISP+5, MREDISP+6, MREDISP+7, MREDISP+9
APCHCPTA	CPTALL+3!, CPTALL+25, CPTALLX!, CPTALLC1+3!, CPTALLC1+25, CPTALLCX!
APCHCPTA(	CPTALL+8, CPTALL+9, CPTALL+22, CPTALL+23, CPTALL+24, CPTALL+28, CPTALL+31, CPTALL+32, CPTALL+34, CPTALL+36 , CPTALL+38, CPTALL+39, CPTALLC1+8, CPTALLC1+9, CPTALLC1+22, CPTALLC1+23, CPTALLC1+24, CPTALLC1+28, CPTALLC1+32, CPTALLC1+33 , CPTALLC1+37, CPTALLC1+38, CPTALLC1+39, CPTALLC1+41, MREDISP+1, MREDISP+2, MREDISP+5, MREDISP+6, MREDISP+7, MREDISP+9
APCHCPTI	HOS+31, HOS+32, HOS+34, HOS+35, HOS+57, HOS+58, HOS+59, HOS+63, HOS+64, CPTALL+4* , CPTALL+5, CPTALL+6, CPTALL+8, CPTALL+21, CPTALL+23, CPTALLX!, CPTALLC1+4, CPTALLC1+5, CPTALLC1+6, CPTALLC1+8 , CPTALLC1+21*, CPTALLC1+23, CPTALLCX!
>> APCHCSVD	HOS+15, HOSDSP+4
APCHHOSA	HOS+1!, HOSX+1!
APCHHOSA(	HOS+25, HOS+45, HOS+66*, HOS+68, HOS+70, HOS+71, HOS+72, HOS+73, HOS+74, HOS+76 , HOS+77, HOS+78, HOS+79, HOS+80
APCHHOSC	HOS+1!, HOSX+1!
APCHHOSC(	HOS+46*, HOS+61
APCHIEN	HOS+70, HOS+71, HOS+72, HOS+73, HOS+74, HOS+76, HOS+77, HOS+78, HOS+79, HOS+80 , CPTALL+6, CPTALL+7, CPTALL+8, CPTALL+9, CPTALL+11, CPTALL+12, CPTALL+13, CPTALL+19, CPTALL+21, CPTALL+23 , CPTALL+24, CPTALL+32, CPTALL+34, CPTALL+36, CPTALL+38, CPTALL+39, CPTALLX!, CPTALLC1+6, CPTALLC1+7, CPTALLC1+8 , CPTALLC1+9, CPTALLC1+11, CPTALLC1+12, CPTALLC1+13, CPTALLC1+19, CPTALLC1+21, CPTALLC1+23, CPTALLC1+24, CPTALLC1+33, CPTALLC1+37 , CPTALLC1+38, CPTALLC1+39, CPTALLC1+41, CPTALLCX!, MREDISP+2*, MREDISP+5, MREDISP+6, MREDISP+7, MREDISP+9
>> APCHMRC	CPTALLC1+28, CPTALLC1+33, CPTALLC1+35*
APCHMRO	CPTALLC+1, CPTALLC1+31, CPTALLC1+46!, CPTMRE+1
>> APCHSBRK	PMH+3, HOS+3, HOSO+3, CPTALL+27, CPTALLC1+27
>> APCHSCKP	PMH+3, PHDSP+8, HOS+3, HOS+69, HOS+82, HOSO+3, HOSO+7, HOSDSP+12, CPTALL+26, CPTALL+29 , CPTALL+33, CPTALLC1+26, CPTALLC1+29, CPTALLC1+34, MREDISP+3
APCHSCNT	HOS+4, HOS+14, HOS+82, HOSX!, HOSO+4, HOSO+7, HOSOX!, HOSDSP+3
APCHSCOD	HOSX!, HOSOX!
>> APCHSCVD	PHDSP+3, PHDSP+4, HOS+17, HOS+22, HOS+23, HOS+36, HOS+54, HOSDSP+6, HOSDSP+10
APCHSDAT	PMHX!, PHDSP+3, PHDSP+8, HOS+17, HOSX!, HOSOX!, HOSDSP+6*, CPTALLX!, CPTALLCX!
APCHSDFN	PMH+5, PMHX!, PHDSP, HOS+10, HOS+11, HOS+12, HOS+25, HOSX!, HOSO+6*, HOSOX! , HOSDSP
>> APCHSDLM	CPTALL+5, CPTALL+18, CPTALLC1+5, CPTALLC1+18
APCHSDS	HOS+21, HOS+22, HOS+23, HOS+25, HOS+36, HOS+45, HOS+54, HOS+66, HOS+73, HOS+75 , HOS+79, HOS+81, HOSX!, HOSOX!, HOSDSP+10, HOSDSP+13
APCHSDTE	PHDSP+7!
APCHSDTH	PMHX!, PHDSP+4*, PHDSP+7
APCHSFN	HOS+85, HOS+88, HOSX!, CPTALL+43, CPTALL+44!, CPTALLC1+45, CPTALLC1+46!
APCHSICD	PMHX!, PHDSP+2, HOS+11, HOS+13, HOS+25, HOS+38, HOS+45, HOS+64, HOS+66, HOS+74* , HOS+80, HOSX!, HOSOX!, HOSDSP+1, HOSDSP+2, HOSCHK+2*
APCHSICL	PMHX!, PHDSP+8, HOS+75, HOS+81, HOSX!, HOSOX!, HOSDSP+13
>> APCHSIEN	HOS+35, HOS+37, HOS+45, HOS+48, HOS+49, HOS+50, HOS+56, HOS+57, HOS+66
>> APCHSIVC	CPTALLC1+5*
APCHSIVD	HOS+9, HOS+10, HOS+23, HOS+25, HOS+34, HOS+35, HOS+36, HOS+45, HOS+46, HOS+55* , HOS+61, HOS+66, HOS+68, HOS+70, HOS+71, HOS+72, HOS+73, HOS+74, HOS+76, HOS+77 , HOS+78, HOS+79, HOS+80, HOSX!, HOSO+6, HOSOX!, CPTALL+5, CPTALL+6, CPTALL+8, CPTALL+9 , CPTALL+17, CPTALL+18, CPTALL+22, CPTALL+23, CPTALL+24, CPTALL+28, CPTALL+30, CPTALL+31, CPTALL+32, CPTALL+34 , CPTALL+36, CPTALL+38, CPTALL+39, CPTALLX!, CPTALLC1+5, CPTALLC1+6, CPTALLC1+8, CPTALLC1+9, CPTALLC1+17, CPTALLC1+18 , CPTALLC1+22, CPTALLC1+23, CPTALLC1+24, CPTALLC1+32, CPTALLC1+33, CPTALLC1+36, CPTALLC1+37, CPTALLC1+38, CPTALLC1+39, CPTALLC1+41 , CPTALLCX!, MREDISP+1*, MREDISP+2, MREDISP+4, MREDISP+5, MREDISP+6, MREDISP+7, MREDISP+9
APCHSN	PMHX!, PHDSP, PHDSP+2, PHDSP+3, PHDSP+4, PHDSP+5, HOS+12, HOS+15, HOS+17, HOS+18 , HOS+20, HOS+22, HOS+37, HOS+38, HOS+40, HOS+43, HOS+44, HOS+46, HOSDSP, HOSDSP+1 , HOSDSP+4, HOSDSP+6, HOSDSP+7, HOSDSP+9, HOSDSP+10, GETOPRV+3
>> APCHSNPG	PMH+3, HOS+3, HOSO+3, CPTALL+27, CPTALL+29, CPTALL+33, CPTALLC1+27, CPTALLC1+29, CPTALLC1+34, MREDISP+3
APCHSNRQ	PMHX!, PHDSP+5, HOS+18, HOS+19, HOS+20, HOS+25, HOS+40, HOS+41, HOS+44, HOS+45 , HOS+63, HOS+66, HOS+72, HOS+78, HOSX!, HOSOX!, HOSDSP+7, HOSDSP+8, HOSDSP+9
>> APCHSNTE	PHDSP+7, HOS+75, HOS+81, HOSDSP+13
APCHSOP	HOS+25, HOS+71, HOS+75, HOS+77, HOS+81, HOSX!, HOSOX!, HOSDSP+13, HOSDSP+14!, GETOPRV+2* , GETOPRV+5*
APCHSOPN	HOSX!, HOSOX!, GETOPRV+1~, GETOPRV+3*, GETOPRV+4, GETOPRV+5
>> APCHSPAT	PMH+2, PMH+5, HOS+2, HOS+9, HOS+10, HOS+31, HOS+34, HOS+35, HOS+48, HOSO+2 , HOSO+6, CPTALL+1, CPTALL+4, CPTALL+5, CPTALL+6, CPTALL+11, CPTALLC1+1, CPTALLC1+4, CPTALLC1+5, CPTALLC1+6 , CPTALLC1+11
>> APCHSQ	PMH+5, HOSO+6
>> APCHSQIT	PMH+3, PHDSP+8, HOS+3, HOS+68, HOS+69, HOS+70, HOS+76, HOS+82, HOSO+3, HOSO+6 , HOSO+7, HOSDSP+12, CPTALL+26, CPTALL+28, CPTALL+29, CPTALL+31, CPTALL+32, CPTALL+33, CPTALLC1+26, CPTALLC1+28 , CPTALLC1+29, CPTALLC1+32, CPTALLC1+33, CPTALLC1+34, MREDISP+3
APCHSS	HOS+86, HOS+89, HOSX!
APCHST	HOS+85, HOS+88, HOSX!, CPTALL+43, CPTALL+44!, CPTALLC1+45, CPTALLC1+46!
APCHSVDT	HOS+42~, HOS+43*, HOS+44
>> APCHT	HOS+30*, HOS+32, HOS+59
U	PHDSP+2, PHDSP+3, PHDSP+4, PHDSP+5, HOS+11, HOS+15, HOS+17, HOS+18, HOS+20, HOS+22 , HOS+25, HOS+38, HOS+40, HOS+43, HOS+44, HOS+45, HOS+46, HOS+50, HOS+53, HOS+57 , HOS+63, HOS+66, HOS+71, HOS+72, HOS+73, HOS+74, HOS+77, HOS+78, HOS+79, HOS+80 , HOSDSP+1, HOSDSP+4, HOSDSP+6, HOSDSP+7, HOSDSP+9, HOSDSP+10, GETOPRV+3, GETOPRV+5, CPTALL+8, CPTALL+9 , CPTALL+13, CPTALL+16, CPTALL+21, CPTALL+23, CPTALL+24, CPTALL+34, CPTALL+35, CPTALL+36, CPTALL+37, CPTALL+38 , CPTALL+39, CPTALLC1+8, CPTALLC1+9, CPTALLC1+13, CPTALLC1+16, CPTALLC1+21, CPTALLC1+23, CPTALLC1+24, CPTALLC1+37, CPTALLC1+38 , CPTALLC1+39, CPTALLC1+40, CPTALLC1+41, CPTALLC1+42, MREDISP+5, MREDISP+6, MREDISP+7, MREDISP+8, MREDISP+9, MREDISP+10
>> V	HOS+50, HOS+51, HOS+52, HOS+53, HOS+54, HOS+55, HOS+63, CPTALL+13, CPTALL+14, CPTALL+15 , CPTALL+16, CPTALL+17, CPTALLC1+13, CPTALLC1+14, CPTALLC1+15, CPTALLC1+16, CPTALLC1+17
Y	PHDSP+3, PHDSP+4, HOS+17, HOS+22, HOS+23, HOS+36, HOS+54, HOSX!, HOSOX!, HOSDSP+6 , HOSDSP+10, CPTALL+9, CPTALL+24, CPTALLC1+9, CPTALLC1+24*

Customize PDF page

Package: Patient Care Component

Routine: APCHS6

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: