Routine: APCHTAXM

Information

APCHTAXM ; IHS/CMI/LAB - INTERFACE TO SELECT ICD CODES ;

Source Information

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIR
Patient Care Component	2	(DISPLAY,SHOW)^APCHTAXM ^APCHTAXN
DRG Grouper	1	$$CPT^ICPTCOD

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Patient Care Component	2	APCHTAXL APCHTAXM

Entry Points

Name	Comments	DBIA/ICR reference
A
RANGES	;DISPLAY TABLE OF ALL RANGES
BEGIN
SETDIR	; ENTRY POINT - SETS HELP AND DIR FOR INIT SUBROUTINE OF APCHCODE
ASK1	;
LOOK	; ENTRY POINT - LOOKUP USER RESPONSE; SET UTILITY NODES
SHOW	; ENTRY POINT - ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
PROCESS	;EVALUATE USER RESPONSE
EOJ	;
ASK2	;ASKS USER IF WANTS TO DISPLAY/PRINT RESULTS TO THIS POINT
TAX	;PLACE CODES FROM SELECTED TAXONOMY IN APCHTBLE
CHECK	;ASKS USER IF SATISFIED WITH ENTERED RANGES
A1
INIT	;
X3
X2
X
X1
DISPLAY	;EP - SHOW CODES IN RANGE SELECTED
X5

Name	Field # of Occurrence
DISPLAY^APCHTAXM	LOOK+5
SHOW^APCHTAXM	ASK2+2
^APCHTAXN	LOOK+4, LOOK+5
^DIC	TAX+2, TAX+3, LOOK+1
YN^DICN	ASK2+2
^DIR	ASK1+3, CHECK+1
$$CPT^ICPTCOD	DISPLAY+3, DISPLAY+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7)," ?? Not allowed" Line Location: PROCESS+2
Function Call: WRITE	Prompt: $C(7)," ?? No previous codes entered!" Line Location: PROCESS+5
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: PROCESS+6
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: PROCESS+7
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: PROCESS+8
Function Call: WRITE	Prompt: ! Line Location: PROCESS+11
Function Call: WRITE	Prompt: ! Line Location: PROCESS+13
Function Call: WRITE	Prompt: $P(APCH("LOW")," ") Line Location: DISPLAY+2
Function Call: WRITE	Prompt: ?9,$P(^ICPT(APCHDFN,0),U,2) Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !!,"CPT codes in this range =>",!! Line Location: DISPLAY+3
Function Call: WRITE	Prompt: $P(APCH("LOW")," ") Line Location: DISPLAY+3
Function Call: WRITE	Prompt: $P(APCH("LOW")," ") Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,$P(APCH," "),?9,$P(^ICPT(APCHDFN,0),U,2) Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,$P(APCH," "),?9,$P($$CPT^ICPTCOD(APCHDFN),U,3) Line Location: DISPLAY+7
Function Call: READ	Prompt: "<>" Formatting: ! Timeout: DTIME Variable: APCHR Line Location: A1+0
Function Call: WRITE	Prompt: ! Line Location: A1+2
Function Call: WRITE	Prompt: !!,"CPT Code Range(s) Selected So Far =>",! Line Location: RANGES+2
Function Call: WRITE	Prompt: ! Line Location: RANGES+4
Function Call: READ	Timeout: 300 Variable: APCH("N") Line Location: A+0
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: A+0
Function Call: WRITE	Prompt: ! Line Location: X3+0
Function Call: WRITE	Prompt: ! Line Location: CHECK+1
Function Call: WRITE	Prompt: ! Line Location: CHECK+2
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: LOOK+2
Function Call: WRITE	Prompt: !,$C(7),"Low and high codes of range must both start either with a letter or a number.",! Line Location: LOOK+7
Function Call: WRITE	Prompt: !,$C(7),"Low code is higher than high code.",! Line Location: LOOK+8
Function Call: WRITE	Prompt: !!,"A code range has yet to be selected. A display cannot be generated.",! Line Location: ASK2+1
Function Call: WRITE	Prompt: !!,"Do you want to display the codes from a range you have already selected" Line Location: ASK2+2
Function Call: WRITE	Prompt: !!,"A table of ranges you have selected is displayed above. You may ask for the",!,"codes in one of the ranges to be displayed.",! Line Location: ASK2+4
Routine Call	DIC Line Location: TAX+2 TAX+3 LOOK+1
Routine Call	DIR Line Location: ASK1+3 CHECK+1

FileNo	Call Tags
^ICPT - [#81]	Classic Fileman Calls
^ATXAX - [#9002226]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	TAX+5
^ICPT - [#81]	LOOK+3, LOOK+5
^ICPT("BA"	DISPLAY+3, DISPLAY+7

Label References

Name	Line Occurrences
@(	BEGIN+2
A	A
A1	A1
ASK1	BEGIN, ASK1+8
ASK2	ASK2+4
CHECK	BEGIN+2
DISPLAY	A+1
EOJ	X
INIT	APCHTAXM+5
LOOK	PROCESS+4, PROCESS+11, PROCESS+12, PROCESS+13
PROCESS	ASK1+5
RANGES	INIT+3, ASK1+6, SHOW+1, A+2
SETDIR	ASK1+3
TAX	PROCESS+3
X	BEGIN+1
X1	ASK1+4
X2	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8
X3	TAX+4
X5	LOOK+2

Name	Field # of Occurrence
^(	DISPLAY+7, TAX+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK2+2*, ASK2+3, ASK2+4
APCH	DISPLAY+6, DISPLAY+7, RANGES+3, A+1, EOJ+1!
APCH("BANG"	RANGES+4, A+2*!
APCH("CODE"	TAX+5*
APCH("ENTER"	INIT+4*
APCH("HI"	ASK1+2!, DISPLAY+7, A+1, LOOK+4, LOOK+5*, LOOK+6, LOOK+8
APCH("LOW"	ASK1+2!, DISPLAY+3, DISPLAY+6, A+1, LOOK+3, LOOK+4, LOOK+6, LOOK+8
APCH("MODIFY"	INIT+3*
APCH("N"	A*, A+1
APCH("NO DISP	LAY" , INIT+1, ASK1+6, ASK1+7, PROCESS+2, PROCESS+6, PROCESS+7, PROCESS+8, LOOK+2, LOOK+5 , LOOK+7, LOOK+8*
APCH("NOT TAX	" , INIT+5*
APCH("NUM"	RANGES+3*, A
APCH("S"	TAX+1*, TAX+2, TAX+3
APCHA	ASK1+1, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+11, PROCESS+13, EOJ+1!, LOOK+2*
APCHCNT	DISPLAY+6, DISPLAY+7, EOJ+1!
APCHDFN	DISPLAY+3, DISPLAY+7, EOJ+1!
APCHFLG	EOJ+1!
APCHI	A+1*, EOJ+1!
APCHONE	PROCESS+1, PROCESS+4, PROCESS+12*, EOJ+1!, LOOK+4
APCHR	DISPLAY+7, A1, A1+1, A1+3!, EOJ+1!
APCHSAVE	EOJ+1!
APCHSAVE("X"	PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+13
APCHSTP	BEGIN+1*, EOJ+1!
APCHSUB	PROCESS+1, PROCESS+9, EOJ+1!
>> APCHTBLE	BEGIN+2, INIT+3, ASK1+3, ASK1+6, PROCESS+5, ASK2+1
>> APCHTBLE(	RANGES+3, A+1, TAX+5*
APCHTYP	PROCESS+4, PROCESS+11, PROCESS+12, PROCESS+13, EOJ+1!, LOOK+3, LOOK+4, LOOK+5
>> APCHX	INIT+2, TAX+1
DIC	TAX+2!, TAX+3!, LOOK+1*!
DIC("A"	TAX+1*
DIC("S"	TAX+2, TAX+3
DIC(0	TAX+2, TAX+3, LOOK+1*
DIR	ASK1+3!, CHECK+1!, EOJ+1!
DIR("?"	SETDIR+1, SETDIR+2, SETDIR+3, SETDIR+4, SETDIR+5*
DIR("??"	SETDIR+6*
DIR("A"	ASK1+3, CHECK+1
DIR("B"	CHECK+1*
DIR(0	CHECK+1, SETDIR+1
DR	LOOK+1!
DTIME	A1, A1+1
IOF	DISPLAY+1, RANGES+1
IOSL	DISPLAY+6, DISPLAY+7
U	DISPLAY+3, DISPLAY+7, A1+1, LOOK+3, LOOK+5
>> X	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11* , PROCESS+12, PROCESS+13, TAX+2, TAX+3
>> Y	BEGIN+1, BEGIN+2, ASK1+4, TAX+4, TAX+5, LOOK+2, LOOK+3, LOOK+5

Customize PDF page

Package: Patient Care Component

Routine: APCHTAXM

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: