Routine: APCLTAX1

Package	Total	Call Graph
Patient Care Component Reports	2	(DIC,DIK,DIR,FILE)^APCLDIC (BACK,VALM)^APCLTAX0
IHS VA Utilities	1	$$VAL^XBDIQ1
Registration	1	CLEAR^VALM1

Package	Total	Caller Graph
Patient Care Component Reports	2	APCLTAX0 APCLTAX2

Entry Points

Name	Comments	DBIA/ICR reference
RXCLASS	;EP;ALLOW ADD OF ALL MEDS OF THE SAME DRUG CLASSIFICATION
YCON	;CONVERT IEN TO EXTERNAL FORMAT FOR DISPLAY
TAXDH	;DISPLAY HEADER FOR TAXONOMY SYSTEM
DXHEAD	;PRINT HEADER FOR TAXONOMY MANAGEMENT
TAXHEAD	;EP;PRINT HEADER FOR TAXONOMY MANAGEMENT
VERIFY
TAXHEAD1
LABTAX	;EP;PROCESS LAB TAXONOMIES
EN
TABACK
LABTADD	;EP;ADD NEW LAB TAXONOMY
LABH	;LAB TAXONOMY HEADER
OTHER	;PROCESS FOR DISPLAY
YCON1
EVAL	;EVALUATE USERS INPUT
IN	;CHECK IF SELECTED DX OR RANGE IS ALREADY IN ANOTHER RANGE
Y	;EP;EVALUATE OUTPUT FROM TAXONOMY FOR PROPER EXTERNAL DISPLAY
X	;EP;EVALUATE X FOR PROPER INTERNAL VALUE
SLAB	;EP;SELECT LAB TAXONOMY TO EDIT
LABTEST	;EP;
LABHEAD	;EP;PRINT HEADER FOR TAXONOMY MANAGEMENT
LAB	;EP;

External References

Name	Field # of Occurrence
DIC^APCLDIC	EVAL+18
DIK^APCLDIC	VERIFY+29
DIR^APCLDIC	EN+10, VERIFY+23, LABTADD+5, LABTADD+15, RXCLASS+7, SLAB+5
FILE^APCLDIC	LABTADD+21, RXCLASS+19
BACK^APCLTAX0	TABACK+1
VALM^APCLTAX0	LABTEST+1, LAB+1, LABH+1
CLEAR^VALM1	EN, LABTADD+1
$$VAL^XBDIQ1	YCON+34, YCON+36

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Select diagnosis(es) to add to the" Line Location: EN+1
Function Call: WRITE	Prompt: !!?5,APCLTNAM," Taxonomy" Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: EN+9
Function Call: WRITE	Prompt: @IOF Line Location: VERIFY+0
Function Call: WRITE	Prompt: ! Line Location: VERIFY+22
Function Call: WRITE	Prompt: ! Line Location: LABTADD+4
Function Call: WRITE	Prompt: !!,"The ",Y," taxonomy already exists." Line Location: LABTADD+7
Function Call: WRITE	Prompt: !!,"The ",APCLTNAM," Lab Taxonomy does not exist on this system" Line Location: LABTADD+10
Function Call: WRITE	Prompt: ! Line Location: LABTADD+14
Function Call: WRITE	Prompt: @IOF Line Location: TAXHEAD+1
Function Call: WRITE	Prompt: @IOF Line Location: DXHEAD+1
Function Call: WRITE	Prompt: !?(80-$L(X))\2,X Line Location: DXHEAD+5
Function Call: WRITE	Prompt: @IOF Line Location: LABHEAD+1
Function Call: WRITE	Prompt: ! Line Location: RXCLASS+6
Function Call: WRITE	Prompt: ! Line Location: SLAB+4
Function Call: WRITE	Prompt: @IOF Line Location: LABH+3
Function Call: WRITE	Prompt: !?10,"Select one of the LAB Taxonomies" Line Location: LABH+4
Function Call: WRITE	Prompt: !?10,"or ADD a NEW Lab Taxonomy" Line Location: LABH+5
Function Call: WRITE	Prompt: !!?5,"Select one of the following" Line Location: LABH+6
Function Call: WRITE	Prompt: ! Line Location: LABH+7
Function Call: WRITE	Prompt: !?10,$J(J,2),?15,"Add NEW Lab Taxonomy" Line Location: LABH+18

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls
^ATXLAB - [#9002228]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	IN+3, IN+4, RXCLASS+13, RXCLASS+18*
^ATXLAB("B"	LABTAX+2, LABTADD+7, LABH+10, LABH+12
^AUTTADA - [#9999999.31]	YCON+29, YCON+30, OTHER+4, OTHER+5
^AUTTCOM - [#9999999.05]	X+4, X+12
^AUTTEDT - [#9999999.09]	YCON+21, YCON+22
^AUTTHF - [#9999999.64]	YCON+25, YCON+26
^DD(9000010.06	YCON+34, YCON+36
^DIC - [#1]	OTHER+7
^PSDRUG - [#50]	YCON+5, YCON+7, YCON+10, YCON+12, YCON+17, RXCLASS+1
^PSDRUG("VAC"	RXCLASS+11

Label References

Name	Line Occurrences
EVAL	EN+12
IN	VERIFY+1
LABTADD	LABTAX+3, LABTADD+7
LABTEST	LABTAX+5, SLAB+9
OTHER	YCON+1
TAXHEAD1	DXHEAD+2
VERIFY	EVAL+24
YCON	Y+2
YCON1	YCON+19, YCON+23, YCON+27, YCON+31, OTHER+14

Naked Globals

Name	Field # of Occurrence
^("ND"	RXCLASS+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APCL	EVAL+1!
APCL("FINAL"	VERIFY+2, VERIFY+5, VERIFY+16, VERIFY+18, VERIFY+30, VERIFY+31, VERIFY+32, IN+10, IN+13, IN+16*
APCL("HIGH"	EVAL+12, EVAL+21, EVAL+22, EVAL+23, VERIFY+3, VERIFY+8, VERIFY+9, VERIFY+10, VERIFY+11, VERIFY+14 , VERIFY+32, IN+10, IN+11, IN+13, IN+14, IN+16, RXCLASS+17
APCL("IN"	VERIFY+13, VERIFY+15, VERIFY+25, VERIFY+27, IN+9, IN+12, IN+15*
APCL("LOW"	EVAL+11, EVAL+20, EVAL+22, EVAL+23, VERIFY+9, VERIFY+10, VERIFY+12, VERIFY+31, IN+8, IN+11 , IN+13, IN+14, IN+16
APCL1	EVAL+2~, EVAL+3, EVAL+5, EVAL+7
APCL2	EVAL+2~, EVAL+4, EVAL+6, EVAL+8
>> APCLANAM	Y+2, X+1, X+5, X+6, X+7, X+8, X+9, X+10, X+11, X+12 , YCON+1, YCON+2, YCON+20, YCON+24, YCON+28, YCON+32
>> APCLCANN	X+1, X+5, OTHER+1
>> APCLFILE	OTHER+7
>> APCLGO	TABACK*
>> APCLHIGH	EVAL+10, Y+1, YCON+6, YCON+13, YCON+14, YCON+15, YCON+17, YCON+18, YCON+22, YCON+26 , YCON+30, YCON+36, YCON1, OTHER+4, OTHER+13*
>> APCLJ	SLAB+1, SLAB+2, LABH+17*
>> APCLJ(	SLAB+7, SLAB+8
>> APCLLOW	EVAL+9, EVAL+10, Y+1, YCON+4, YCON+5, YCON+21, YCON+25, YCON+29, YCON+34, YCON1 , OTHER+2, OTHER+4, OTHER+5, OTHER+12*
>> APCLQUIT	EN+11, EVAL+22, VERIFY+24, LABTADD+6, SLAB+6*
>> APCLRXDA	RXCLASS+1
>> APCLRXVC	RXCLASS+1*, RXCLASS+11
>> APCLTDA	VERIFY+26, IN+3, IN+4, LABTAX+2, LABTAX+3, LABTAX+4, LABTADD+16, LABTADD+22, RXCLASS+13, RXCLASS+14 , RXCLASS+15, RXCLASS+18, SLAB+7
>> APCLTFNA	X+4, OTHER+3
>> APCLTNAM	EN+2, VERIFY+4, LABTAX+1, LABTAX+2, LABTADD+8, LABTADD+9, LABTADD+10, LABTADD+17, LABTADD+20, SLAB+8
APCLX	EVAL+1!, EVAL+13, EVAL+14, EVAL+20, EVAL+21, IN+1~, LABTAX+1, RXCLASS+9~, RXCLASS+10, RXCLASS+11* , RXCLASS+12
APCLX(	EVAL+7, EVAL+8, EVAL+10, IN+5*, IN+7, IN+8, IN+9, IN+10, IN+12, IN+13 , IN+14, IN+15
APCLX(""	EVAL+9
APCLY	RXCLASS+9~
APCLZ	RXCLASS+9~
>> DA	VERIFY+27*
>> DA(1	VERIFY+26, VERIFY+28, RXCLASS+14
>> DIC	EVAL+15, LABTADD+18, RXCLASS+15*
>> DIC("DR"	LABTADD+20, RXCLASS+17
>> DIC(0	EVAL+16, LABTADD+19, RXCLASS+16*
>> DIK	VERIFY+28*
>> DIR("?"	EN+6, EN+7, EN+8*
>> DIR("A"	EN+4, EN+5, VERIFY+20, LABTADD+3, LABTADD+12, RXCLASS+3, RXCLASS+4, SLAB+3
>> DIR("B"	VERIFY+21, LABTADD+13, RXCLASS+5*
>> DIR(0	EN+3, VERIFY+19, LABTADD+2, LABTADD+11, RXCLASS+2, SLAB+2
DT	LABTADD+20
DUZ	LABTADD+20
IOF	VERIFY, TAXHEAD+1, DXHEAD+1, LABHEAD+1, LABH+3
>> J	LABH+8, LABH+13, LABH+14, LABH+15, LABH+16*, LABH+17, LABH+18
>> J(	LABH+15*
U	EVAL+20, EVAL+21, VERIFY+9, VERIFY+10, VERIFY+12, VERIFY+15, VERIFY+18, VERIFY+27, VERIFY+31, VERIFY+32 , IN+5, IN+8, IN+9, IN+10, IN+11, IN+12, IN+13, IN+14, IN+15, IN+16 , Y+1, Y+2, X+4, X+12, YCON+5, YCON+12, YCON+17, YCON+21, YCON+22, YCON+25 , YCON+26, YCON+29, YCON+30, YCON+34, YCON+36, OTHER+4, OTHER+5, OTHER+12, OTHER+13, RXCLASS+1 , RXCLASS+17, SLAB+8, LABH+15
X	EN+11, EVAL+3, EVAL+4, EVAL+14, IN+1~, IN+2, IN+3, IN+4, IN+5, IN+6 , IN+7, IN+8, IN+9, IN+10, IN+11, IN+12, IN+13, IN+14, IN+15, Y+1 , X+2, X+3, X+4, X+5, X+6, X+7, X+8, X+9, X+10, X+11* , X+12, LABTADD+8, LABTADD+17, YCON+8~, YCON+9, YCON+10, YCON+12, OTHER+6~, OTHER+7, OTHER+8 , OTHER+9, OTHER+10, OTHER+11, OTHER+12, OTHER+13, TAXHEAD1~, TAXHEAD1+1, TAXHEAD1+2, DXHEAD+3~, DXHEAD+4* , DXHEAD+5, LABHEAD+2~, LABHEAD+3, LABHEAD+4, RXCLASS+12, RXCLASS+13, LABH+9, LABH+10, LABH+12, LABH+14 , LABH+15
XX	YCON+3~, YCON+4*, YCON+7, YCON+10, YCON+12, YCON+18
Y	EVAL+19, VERIFY+24, IN+1~, IN+4, IN+5, X+2, X+3, X+6, X+7, X+8 , X+9, X+11, X+12, LABTADD+6, LABTADD+7, LABTADD+8, LABTADD+9, LABTADD+16, LABTADD+22, YCON+8~ , YCON+12, YCON+13, RXCLASS+8, SLAB+6, SLAB+7, SLAB+8, LABH+11, LABH+12, LABH+15
Y(0	EVAL+20, EVAL+21, X+2, X+5, X+10
Z	IN+1~, YCON+8~, YCON+11*, YCON+13

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLTAX1

Information

Source Information

Call Graph

Call Graph Total: 4

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: