Routine: BHSCPT1

Package

Total

Call Graph

$$CPT^ICPTCOD

CKP^GMTSUP

$$DATE^BHSMU

($$VAL,$$VALI)^XBDIQ1

Name	Comments	DBIA/ICR reference
CPTALLX
CPT	;EP - display cpt codes for select items, date limits are applicable
SEL(ITEMS)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: "DATE",?10,"LOC",?30,"CODE",?36,"CPT NARRATIVE",?72,"UNITS",! Line Location: SEL+22
Function Call: WRITE	Prompt: "DATE",?10,"LOC",?30,"CODE",?36,"CPT NARRATIVE",?72,"UNITS",! Line Location: SEL+25
Function Call: WRITE	Prompt: ! Line Location: SEL+26
Function Call: WRITE	Prompt: "DATE",?10,"LOC",?30,"CODE",?36,"CPT NARRATIVE",?72,"UNITS",! Line Location: SEL+30
Function Call: WRITE	Prompt: ?10,$P($G(^AUTTLOC(%,0)),U,2) Line Location: SEL+32
Function Call: WRITE	Prompt: ?22,$P($G(^DIC(40.7,%,9999999)),U) Line Location: SEL+34

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	SEL+17, SEL+18, SEL+19
^AUPNVCPT("AA"	SEL+3, SEL+12, SEL+13
^AUTTLOC - [#9999999.06]	SEL+32
^DIC(40.7 - [#40.7]	SEL+34
^ICPT - [#81]	SEL+8
^ICPT("BA"	SEL+9

Name	Line Occurrences
SEL	CPT+7

Name	Field # of Occurrence
%	SEL+31, SEL+32, SEL+33, SEL+34, CPTALLX!
BHCPT	SEL+1~, SEL+14, SEL+17, SEL+18, SEL+19, SEL+24, SEL+26, SEL+27, SEL+29, SEL+31 , SEL+33, SEL+35, SEL+36, CPTALLX!
BHCPTA	SEL+1~, SEL+5!, CPTALLX!
BHCPTA(	SEL+17, SEL+18, SEL+19*, SEL+24, SEL+27, SEL+29, SEL+31, SEL+33, SEL+35, SEL+36
BHCPTI	SEL+1~, SEL+9*, SEL+10, SEL+12, SEL+13, SEL+17, CPTALLX!
BHIEN	SEL+1~, SEL+13, SEL+14, SEL+16, SEL+17, SEL+18, SEL+19, SEL+29, SEL+31, SEL+33 , SEL+35, SEL+36, CPTALLX!
BHSDAT	CPTALLX!
BHSIVD	SEL+1~, SEL+12, SEL+13, SEL+17, SEL+18, SEL+19, SEL+27, SEL+28, SEL+29, SEL+31 , SEL+33, SEL+35, SEL+36, CPTALLX!
BHSNAR	SEL+1~, SEL+16*, SEL+17, SEL+18
BHSPAT	SEL+1~, SEL+2*, SEL+3, SEL+12, SEL+13
CNT	SEL+1~, SEL+11, SEL+13, SEL+20
CODE	SEL+7*, SEL+8, CPTALLX!
CPT	CPT+2~, CPT+5*, CPT+6
CPTSEL	CPT+2~, CPT+7, CPTALLX!
CPTSEL(	CPT+6*
>> DFN	SEL+2
GMTSC	CPT+2~
>> GMTSDLM	SEL+12
>> GMTSEG(	CPT+3, CPT+4, CPT+5
>> GMTSEGN	CPT+3, CPT+4, CPT+5
GMTSF	CPT+2~
GMTSI	CPT+2~, CPT+4*, CPT+5
>> GMTSNDM	SEL+13
>> GMTSNPG	SEL+25, SEL+30
>> GMTSQIT	SEL+21, SEL+24, SEL+25, SEL+27, SEL+29, SEL+30
ITEMS	SEL~, SEL+6
ITEMS(	SEL+7
>> LKUP	SEL+8*, SEL+9
OLDCPT	SEL+1~, SEL+23, SEL+26
U	SEL+8, SEL+17, SEL+18, SEL+19, SEL+31, SEL+32, SEL+33, SEL+34, SEL+35, SEL+36
V	SEL+1~
Y	SEL+1~, SEL+19*

Information