Routine: APCHS6

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

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

Source Information

Source file <APCHS6.m>

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

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

Call Graph Total: 8