Routine: APCHTAXE

Information

APCHTAXE ; IHS/CMI/LAB - DISPLAY IND LISTS ;

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIR
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS VA Utilities	2	$$VAL^XBDIQ1 ^XBFMK
Kernel	1	DISP^XQORM1
Patient Care Component	1	ICPTADD^APCHTAXL

Entry Points

Name	Comments	DBIA/ICR reference
LABADD	;
HDR	; -- header code
EOJ	;EP
BACK	;go back to listman
EXPND	; -- expand code
EN	;EP -- main entry point for
ICD9ADD	;
REM	;
ICD0ADD	;
HELP	; -- help code
INIT	; -- init variables and list array
PAUSE	;EP
CANDISP	;
ADD	;EP - add an item to the selected list - called from a protocol
MINPROC	;EP
EP	;EP - CALLED FROM OPTION
REMX	;
MAJPROC	;EP
LAB	;
ADDX	;
ICPTADD	;
EXIT	; -- exit code

External References

Name	Field # of Occurrence
ICPTADD^APCHTAXL	ICPTADD+1
^DIC	ADD+10, LABADD+2
FILE^DICN	ADD+21, LABADD+11
^DIE	REM+27, REM+28
^DIR	PAUSE+2, REM+16, REM+21, REM+23
EN^VALM	EN+1
TERM^VALM0	BACK+1
CLEAR^VALM1	EN+2
FULL^VALM1	EN+3, REM+1, ADD+1
$$VAL^XBDIQ1	INIT+8, REM+23
^XBFMK	EOJ+1, REM+26, REMX+1
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to update the list of CPT codes that" Line Location: MAJPROC+2
Function Call: WRITE	Prompt: !,"should be included in the History of Surgery component of the" Line Location: MAJPROC+3
Function Call: WRITE	Prompt: !,"health summary. This taxonomy should contain only CPT codes" Line Location: MAJPROC+4
Function Call: WRITE	Prompt: !,"for procedures/surgeries that you would expect to see on the" Line Location: MAJPROC+5
Function Call: WRITE	Prompt: !,"history of surgery section of the health summary.",!! Line Location: MAJPROC+6
Function Call: WRITE	Prompt: !!,"This option is used to update the list of CPT codes that" Line Location: MINPROC+2
Function Call: WRITE	Prompt: !,"should be included in the History of MINOR Surgery component of the" Line Location: MINPROC+3
Function Call: WRITE	Prompt: !,"health summary. This taxonomy should contain only CPT codes" Line Location: MINPROC+4
Function Call: WRITE	Prompt: !,"for procedures/surgeries that you would expect to see on the" Line Location: MINPROC+5
Function Call: WRITE	Prompt: !,"MINOR surgery section of the health summary.",!! Line Location: MINPROC+6
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,IORVON,"Please NOTE:",IORVOFF Line Location: REM+2
Function Call: WRITE	Prompt: !,"To remove a CPT code from the list you must put a minus sign before" Line Location: REM+3
Function Call: WRITE	Prompt: !,"the code. For example, to remove code 56011 from this taxonomy you must type" Line Location: REM+4
Function Call: WRITE	Prompt: !,"-56011 at the ENTER ANOTHER CPT prompt." Line Location: REM+5
Function Call: WRITE	Prompt: ! Line Location: REM+6
Function Call: WRITE	Prompt: !!,"The ",$P(^ATXLAB(APCHTAXI,0),U)," Taxonomy is READ ONLY.",!,"You can not update it." Line Location: REM+8
Function Call: WRITE	Prompt: !!,"The ",$P(^ATXAX(APCHTAXI,0),U)," Taxonomy is READ ONLY.",!,"You can not update it." Line Location: REM+9
Function Call: WRITE	Prompt: ! Line Location: REM+10
Function Call: WRITE	Prompt: !,"No item selected." Line Location: REM+17
Function Call: WRITE	Prompt: !,"No item selected." Line Location: REM+18
Function Call: WRITE	Prompt: ! Line Location: ADD+2
Function Call: WRITE	Prompt: !!,"The ",$P(^ATXLAB(APCHTAXI,0),U)," is READ ONLY.",!,"You can not update it." Line Location: ADD+3
Function Call: WRITE	Prompt: !!,"The ",$P(^ATXAX(APCHTAXI,0),U)," is READ ONLY.",!,"You can not update it." Line Location: ADD+4
Function Call: WRITE	Prompt: !!,"That item is already in the taxonomy." Line Location: ADD+12
Function Call: WRITE	Prompt: !!,"adding ITEM failed." Line Location: ADD+22
Function Call: WRITE	Prompt: !!,"Lab test ",$P(^LAB(60,+Y,0),U)," is already in the taxonomy." Line Location: LABADD+4
Function Call: WRITE	Prompt: !!,"adding lab test failed." Line Location: LABADD+12
Routine Call	VALM Line Location: EN+1
Routine Call	DIE Line Location: REM+27 REM+28
Routine Call	DIC Line Location: ADD+10 LABADD+2
Routine Call	DIR Line Location: PAUSE+2 REM+16 REM+21 REM+23

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(60 - [#60]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	MAJPROC+10, MINPROC+10, INIT+2, INIT+4, INIT+6, INIT+8, CANDISP+2, CANDISP+4, REM+9, REM+23 , REM+28, ADD+4, ADD+10, ADD+12, ADD+16, ADD+20*, ADD+22
^ATXAX("B"	MAJPROC+8, MINPROC+8
^ATXLAB - [#9002228]	LAB+2, LAB+4, REM+8, REM+27, ADD+3, LABADD+4, LABADD+10*, LABADD+12
^AUTTCOM - [#9999999.05]	ADD+12, ADD+15
^LAB(60 - [#60]	LAB+5, REM+21, LABADD+4

Label References

Name	Line Occurrences
ADD	ADD+12, ADD+22, LABADD+4, LABADD+12
ADDX	ADD+3, ADD+4, ADD+5, ADD+6, ADD+7, ADD+8, ADD+11, ADD+23, LABADD+3
BACK	REMX+2, ADDX+2
CANDISP	INIT+2
EN	EP+1, MAJPROC+11, MINPROC+11
EOJ	EN+5
HDR	BACK+4
ICD0ADD	REM+12, ADD+7
ICD9ADD	REM+11, ADD+6
ICPTADD	REM+13, ADD+8
INIT	BACK+3
LAB	INIT+1
LABADD	ADD+5
PAUSE	MAJPROC+7, MINPROC+7, REM+7, REM+8, REM+9, ADD+3, ADD+4
REM	REM+24
REMX	REM+8, REM+9, REM+11, REM+12, REM+13, REM+17, REM+18, REM+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCHFILE	MAJPROC+9, MINPROC+9, EOJ+2!, INIT+1, INIT+7, REM+8, REM+9, REM+11, REM+12, REM+13 , REM+21, REM+22, REM+23, REM+27, REM+28, ADD+3, ADD+4, ADD+5, ADD+6, ADD+7 , ADD+8, ADD+12, ADD+15, ADD+16*
APCHHIGH	EOJ+2!, INIT+3, INIT+11, CANDISP+1, CANDISP+7, LAB+1, LAB+8, REM+15
APCHITEM	EOJ+2!, INIT+3!, CANDISP+1!, LAB+1!
APCHITEM(	INIT+7, INIT+8, CANDISP+4, LAB+5
APCHITEM("IDX"	INIT+9, CANDISP+5, LAB+6*, REM+19
APCHITMI	EOJ+2!, INIT+6, INIT+7, INIT+8, INIT+9, LAB+4, LAB+5, LAB+6, REM+19*, REM+21 , REM+23, REM+27, REM+28
APCHTAXI	MAJPROC+8, MAJPROC+10, MINPROC+8, MINPROC+10, EOJ+2!, INIT+2, INIT+4, INIT+6, INIT+8, CANDISP+2 , CANDISP+4, LAB+2, LAB+4, REM+8, REM+9, REM+23, REM+27, REM+28, ADD+3, ADD+4 , ADD+10, ADD+12, ADD+13, ADD+16, ADD+17, ADD+22, LABADD+4, LABADD+5, LABADD+7, LABADD+12
APCHTAXN	MAJPROC+10, MINPROC+10, EOJ+2!, HDR+1
>> APCHTAXT	REM+22
APCHTXLI	EOJ+2!, ADD+14, ADD+15, ADD+19, ADD+22, LABADD+6*, LABADD+12, ADDX+1!
APCHX	EOJ+2!, INIT+4, INIT+6, CANDISP+2, CANDISP+4, CANDISP+5, LAB+2*, LAB+4
>> C	INIT+3, INIT+5, INIT+7, INIT+8, INIT+9, INIT+11, CANDISP+1, CANDISP+3, CANDISP+4, CANDISP+5 , CANDISP+7, LAB+1, LAB+3, LAB+5, LAB+6, LAB+8
DA	REM+21!, REM+23!, REM+27, REM+28, ADD+13, ADD+18, ADD+20, LABADD+5, LABADD+8, LABADD+10 , ADDX+1!
DA(1	REM+27, REM+28, ADD+17, LABADD+7
DD	ADD+19!, LABADD+9!, ADDX+1!
DIC	ADD+9!, ADD+10, ADD+18, LABADD+1!, LABADD+2, LABADD+8, ADDX+1!
DIC("A"	LABADD+2*
DIC("DR"	ADD+19*
DIC(0	ADD+10, ADD+19, LABADD+2, LABADD+9
>> DIE	REM+27, REM+28
DIR	PAUSE+2!, BACK+5!, REM+10!, REM+16!, REM+21!, REM+22!, REM+23!
DIR("A"	PAUSE+2, REM+15, REM+21, REM+23
DIR("B"	REM+21, REM+23
DIR(0	PAUSE+2, REM+15, REM+21, REM+23
>> DIRUT	PAUSE+2, REM+16, REM+18, REM+25
DO	ADD+19!, LABADD+9!, ADDX+1!
DR	REM+27, REM+28, ADDX+1!
>> DUOUT	PAUSE+2, REM+16
I	BACK+6!
IO	PAUSE+1
IO(0	PAUSE+1
IOF	MAJPROC+1, MINPROC+1, EN+4
>> IORVOFF	REM+2
>> IORVON	REM+2
IOST	PAUSE+1
U	MAJPROC+10, MINPROC+10, INIT+2, INIT+6, INIT+8, CANDISP+4, LAB+4, LAB+5, REM+8, REM+9 , REM+21, REM+23, ADD+3, ADD+4, ADD+10, ADD+12, ADD+15, ADD+16, LABADD+4
>> VALMBCK	BACK+2*
>> VALMCNT	INIT+11, CANDISP+7, LAB+8*
>> VALMHDR(1	HDR+1*
X	HELP+1, BACK+6!, ADD+14, ADD+15, LABADD+6
Y	BACK+6!, REM+17, REM+19, REM+24, ADD+11, ADD+12, ADD+14, ADD+15, LABADD+3, LABADD+4 , LABADD+6
Z	BACK+6!

Customize PDF page

Package: Patient Care Component

Routine: APCHTAXE

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: