Routine: ATXCODE

Package	Total	Call Graph
Taxonomy	4	LST^ATXAPI ^ATXCOD1 SHOW^ATXCODE ^ATXTAXI
VA Fileman	3	^DIC YN^DICN ^DIR
DRG Grouper	1	$$ICDDX^ICDEX
Kernel	1	$$STRIP^XLFSTR

Package	Total	Caller Graph
Taxonomy	5	ATXCODE ATXCODE0 ATXEMP ATXTAXF ATXTAXI

Entry Points

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

External References

Name	Field # of Occurrence
LST^ATXAPI	STAR+3, DISPLAY+6
^ATXCOD1	LOOK+4, LOOK+5, STAR+9
SHOW^ATXCODE	ASK2+2
^ATXTAXI	ATXCODE+5
^DIC	ICDCS+5, LOOK+1, TAX+2, TAX+3
YN^DICN	ASK2+2
^DIR	ASK1+5, EOP+4, DISPLAY+12, CHECK+1
$$ICDDX^ICDEX	LOOK+3, LOOK+5, DISPLAY+9, DISPLAY+10
$$STRIP^XLFSTR	DISPLAY+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Updating codes in the ",$P(^ATXAX(ATXTAXI,0),U)," Taxonomy.",! Line Location: ASK1+1
Function Call: WRITE	Prompt: !!,"To remove a code from the list, enter an ""-"" before the code, e.g. -250.00 or -250.00-250.93",! Line Location: ASK1+3
Function Call: WRITE	Prompt: !,"You must enter the coding system from which you want to "_$S($G(ATXREMM):"remove ",1:" enter")_" a code,",!,"or range of codes.",! Line Location: ICDCS+4
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
Function Call: WRITE	Prompt: " ?? There are no codes in that range!" Line Location: STAR+4
Function Call: WRITE	Prompt: " ?? Not allowed" Line Location: PROCESS+2
Function Call: WRITE	Prompt: $C(7)," ?? No previous codes entered!" 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: $C(7)," ??" Line Location: PROCESS+9
Function Call: WRITE	Prompt: ! Line Location: PROCESS+13
Function Call: WRITE	Prompt: ! Line Location: PROCESS+15
Function Call: WRITE	Prompt: $P(ATX("LOW")," ") Line Location: DISPLAY+3
Function Call: WRITE	Prompt: ?9,$P(^ICD9(ATXDFN,0),U,3) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !!,"ICD codes in this range =>",!! Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,ATXX,?12,$E($P($$ICDDX^ICDEX($P(ATXARR(ATXX),U,1)),U,4),1,40),?60,$P(ATXARR(ATXX),U,4) Line Location: DISPLAY+9
Function Call: WRITE	Prompt: !,ATXX,?12,$E($P($$ICDDX^ICDEX($P(ATXARR(ATXX),U,1)),U,4),1,40),?60,$P(ATXARR(ATXX),U,4) Line Location: DISPLAY+10
Function Call: WRITE	Prompt: !!,"ICD Code Range(s) Selected So Far =>",! Line Location: RANGES+2
Function Call: WRITE	Prompt: ?30,$P(^ICDS($P(ATXTBLE(ATX),U,2),0),U,1) Line Location: RANGES+4
Function Call: WRITE	Prompt: ! Line Location: RANGES+5
Function Call: READ	Timeout: 300 Variable: ATX("N") Line Location: A+0
Function Call: WRITE	Prompt: " ??",$C(7) Line Location: A+0
Function Call: WRITE	Prompt: ! Line Location: X4+0
Function Call: WRITE	Prompt: ! Line Location: CHECK+1
Function Call: WRITE	Prompt: ! Line Location: CHECK+2
Routine Call	DIC Line Location: ICDCS+5 LOOK+1 TAX+2 TAX+3
Routine Call	DIR Line Location: ASK1+5 EOP+4 DISPLAY+12 CHECK+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls
^ICDS - [#80.4]	Classic Fileman Calls
^ATXAX - [#9002226]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	ASK1+1, TAX+8, TAX+9, TAX+10
^ICDS - [#80.4]	RANGES+4

Label References

Name	Line Occurrences
A	A
ASK1	BEGIN, ASK1+11
ASK2	ASK2+4
BEGIN	BEGIN+2
CHECK	BEGIN+2
DISPLAY	LOOK+5, STAR+9, A+1
EOJ	X
EOP	DISPLAY+8
ICDCS	PROCESS+4, PROCESS+5, PROCESS+10
INIT	ATXCODE+6
LOOK	PROCESS+5, PROCESS+13, PROCESS+14, PROCESS+15
PROCESS	ASK1+8
RANGES	INIT+3, ASK1+9, SHOW+1, A+2
SETDIR	ASK1+5
STAR	PROCESS+4
TAX	PROCESS+3
X	BEGIN+1
X1	ASK1+6, ASK1+7, ICDCS+6
X2	PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10
X3	LOOK+2
X4	TAX+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASK2+2*, ASK2+3, ASK2+4
A	TAX+6~, TAX+10*, TAX+11
ATX	RANGES+3, RANGES+4, A+1, EOJ+1!
ATX("BANG"	RANGES+5, A+2*!
ATX("ENTER"	INIT+4*
ATX("HI"	ASK1+4!, LOOK+4, LOOK+5, LOOK+6, LOOK+8, STAR+8, DISPLAY+6, A+1
ATX("LOW"	ASK1+4!, LOOK+3, LOOK+4, LOOK+6, LOOK+8, STAR+5, DISPLAY+6, A+1*
ATX("MODIFY"	INIT+3*
ATX("N"	A*, A+1
ATX("NO DISPL	AY" , INIT+1, ASK1+9, ASK1+10, LOOK+2, LOOK+5, LOOK+7, LOOK+8, STAR+4, PROCESS+2* , PROCESS+7, PROCESS+8, PROCESS+9*
ATX("NOT TAX"	, INIT+5*
ATX("NUM"	RANGES+3*, A
ATX("S"	TAX+1*, TAX+2, TAX+3
ATXA	ASK1+2, LOOK+2, PROCESS+7, PROCESS+8, PROCESS+9*, PROCESS+13, PROCESS+15, EOJ+1!
ATXARR	DISPLAY+2~
ATXARR(	DISPLAY+7, DISPLAY+9, DISPLAY+10
ATXCNT	EOJ+1!
ATXDFN	EOJ+1!
>> ATXFILE	ATXCODE+5
ATXFLG	EOJ+1!
ATXI	A+1*, EOJ+1!
ATXN	TAX+6~, TAX+7*, TAX+8, TAX+9, TAX+10
ATXONE	LOOK+4, PROCESS+1, PROCESS+5, PROCESS+14*, EOJ+1!
ATXQ	EOP+1, EOP+5, DISPLAY+2~, DISPLAY+7*, DISPLAY+8
ATXR	EOJ+1!
>> ATXREMM	ASK1+3, ICDCS+4
ATXSAVE	EOJ+1!
ATXSAVE("X"	PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15
ATXSTP	BEGIN+1*, EOJ+1!
ATXSUB	STAR+1, PROCESS+1, PROCESS+11*, EOJ+1!
>> ATXSYS	ICDCS+2, ICDCS+7, LOOK+1, LOOK+3, LOOK+5, STAR+3, PROCESS+4, PROCESS+5, PROCESS+10, DISPLAY+6
>> ATXTAXI	ASK1+1
>> ATXTBLE	BEGIN+2, INIT+3, ASK1+5, ASK1+9, ASK2+1, PROCESS+6
>> ATXTBLE(	RANGES+3, RANGES+4, A+1, TAX+11*
ATXTEMP	STAR+2~, STAR+4
ATXTEMP(	STAR+7
ATXTEMP(0	STAR+5
ATXTYP	LOOK+3, LOOK+4, LOOK+5, PROCESS+5, PROCESS+13, PROCESS+14, PROCESS+15, EOJ+1!
ATXX	INIT+2, DISPLAY+2~, DISPLAY+7*, DISPLAY+9, DISPLAY+10, TAX+1
B	TAX+6~, TAX+10*, TAX+11
C	STAR+6~, STAR+7, STAR+8, TAX+10, TAX+11
DFOUT	EOP+3!
DIC	ICDCS+5!, LOOK+1!, TAX+2!, TAX+3!
DIC("A"	TAX+1*
DIC("S"	ICDCS+5, TAX+2, TAX+3*
DIC(0	ICDCS+5, LOOK+1, TAX+2, TAX+3
DIR	ASK1+5!, EOP+2~, EOP+4!, DISPLAY+11~, CHECK+1!, EOJ+1!
DIR("?"	SETDIR+1, SETDIR+2, SETDIR+3, SETDIR+4, SETDIR+5, SETDIR+6
DIR("??"	SETDIR+7*
DIR("A"	ASK1+5, DISPLAY+12, CHECK+1*
DIR("B"	CHECK+1*
DIR(0	SETDIR+1, EOP+4, DISPLAY+12, CHECK+1
DIRUT	EOP+3!
DLOUT	EOP+3!
DR	LOOK+1!
DTOUT	EOP+3!
DUOUT	EOP+3!, EOP+5
>> ICDSYS	LOOK+1*
IOF	EOP+6, DISPLAY+1, RANGES+1
IOSL	DISPLAY+8
U	ASK1+1, LOOK+3, LOOK+5, DISPLAY+9, DISPLAY+10, RANGES+3, RANGES+4, TAX+10, TAX+11
X	ICDCS+3~, STAR+1, STAR+3, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8 , PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, TAX+2, TAX+3, TAX+6~, TAX+8 , TAX+9
Y	BEGIN+1, BEGIN+2, ASK1+6, ASK1+7, ICDCS+3~, ICDCS+6, ICDCS+7, LOOK+2, LOOK+3, LOOK+5 , TAX+4, TAX+7, TAX+9*, TAX+10
Z	STAR+6~, STAR+7*

Customize PDF page

Package: Taxonomy

Routine: ATXCODE

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: