Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: APCLTAX0

Package: Patient Care Component Reports

Routine: APCLTAX0


Information

APCLTAX0 ; IHS/CMI/LAB - DMS TAXONOMY MANAGEMENT UTILITY ;

Source Information

Source file <APCLTAX0.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Patient Care Component Reports 4 (DDS,DIC,DIE,DIK,DIR,FILE)^APCLDIC  (,LAB,LABTEST,TAXHEAD,X,Y)^APCLTAX1  (ATTRIB,OTHER)^APCLTAX2  (LABINIT,PROCESS)^APCLTAX4  
Registration 3 EN^VALM  TERM^VALM0  CLEAR^VALM1  
IHS VA Utilities 1 $$DIR^XBDIR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Patient Care Component Reports 3 APCLTAX1  APCLTAX2  APCLTAX4  

Entry Points

Name Comments DBIA/ICR reference
LABADD ;EP;ADD LAB TO LAB TAXONOMY
TAXEDIT ;EP;EDIT AN EXISTING TAXONOMY
TAXEXIT
TEBACK
BACK ;EP;SETUP FOR RETURN TO LISTMAN
TAXDISP ;DISPLAY TAXONOMIES
TIADD ;EP;TO ADD ITEM TO TAXONOMY
SELECT ;SELECT AN EXISTING TAXONOMY
TERM ;EP;SET QMAN DICTIONARY OF TERMS VALUES
LE
APCLTF1 ;EP;
VALM(APCLX) ;EP;VALM INTERFACE
TISEL ;EP;SELECT EXISTING ITEM FROM A TAXONOMY
TAX ;EP;TAXONOMY MANAGEMENT
TAXRX1 ;
TIREMOVE ;EP;TO REMOVE ITEM FROM TAXONOMY
TAXINIT ;EP;INITIALIZE ARRAY FOR TAXONOMY DISPLAY
TAXRX ;PROCESS TAXONOMIES
LADD ;EP
PAUSE ;EP
DLAB ;EP;DELETE LAB FROM LAB TAXONOMY
TABACK
TIBACK
HEADER ;EP;TO SET HEADER CODE
Z(X) ;SET TMP NODE
TIINIT ;EP;TO LIST ITEMS ON TAXONOMY
APCLTF ;EP;
L1 ;
TE1 ;EP
TILIST ;EP;TO DISPLAY ITEMS ON TAXONOMY LIST
SLAB ;SELECT EXISTING LAB FROM LAB TAXONOMY
TAXADD ;EP;ENTER A NEW TAXONOMY
EDIT ;EP;EDIT A TAXONOMY
TI1
TAX1
LABEDIT ;EP;EDIT LAB IN LAB TAXONOMY

External References

Name Field # of Occurrence
DDS^APCLDIC EDIT+4
DIC^APCLDIC L1+9, TI1+19
DIE^APCLDIC LE+4
DIK^APCLDIC DLAB+7, TIREMOVE+11
DIR^APCLDIC TAX1+5, TAXRX1+7, TAXADD+15, SELECT+4, SLAB+4, TISEL+4, LADD+4
FILE^APCLDIC TAXADD+22, L1+20, TI1+31, LADD+11
^APCLTAX1 TI1+7
LAB^APCLTAX1 TAXRX1+16
LABTEST^APCLTAX1 LADD+14
TAXHEAD^APCLTAX1 TAX1+1
X^APCLTAX1 TI1+21
Y^APCLTAX1 TIINIT+15
ATTRIB^APCLTAX2 TAXADD+1
OTHER^APCLTAX2 TAX1+8
LABINIT^APCLTAX4 BACK+2
PROCESS^APCLTAX4 TAXINIT+3
^DIR TAX+7
EN^VALM VALM+3
TERM^VALM0 VALM+2, BACK+5
CLEAR^VALM1 VALM+4, L1+1, TI1+11
$$DIR^XBDIR PAUSE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This taxonomy setup option has been disabled. Each individual package"
  • Line Location: TAX+1
Function Call: WRITE
  • Prompt: !,"that requires taxonomy setup will have it's own menu option for setting"
  • Line Location: TAX+2
Function Call: WRITE
  • Prompt: !,"up the taxonomies required by the package. For example, to update the"
  • Line Location: TAX+3
Function Call: WRITE
  • Prompt: !,"taxonomies for the CRS report follow the menu path CI05-SET-TAX."
  • Line Location: TAX+4
Function Call: WRITE
  • Prompt: !,"To update the taxonomies required by the 2005 Diabetes Audit use"
  • Line Location: TAX+5
Function Call: WRITE
  • Prompt: !,"the taxonomy setup option provided in the 2005 Diabetes Audit menu.",!!
  • Line Location: TAX+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TAXRX1+1
Function Call: WRITE
  • Prompt: !?10,"Select one of the following ",!?10
  • Line Location: TAXRX1+2
Function Call: WRITE
  • Prompt: "Diabetes Mgt System Taxonomy"
  • Line Location: TAXRX1+3
Function Call: WRITE
  • Prompt: "Categories to review."
  • Line Location: TAXRX1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: TAXADD+14
Function Call: WRITE
  • Prompt: !!,"The ",Y," taxonomy already exists."
  • Line Location: TAXADD+17
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+3
Function Call: WRITE
  • Prompt: !,"Lab tests currently in this taxonomy:"
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !,$P(^LAB(60,$P(^ATXLAB(APCLTDA,21,X,0),U),0),U)
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !!,"Select lab tests to add."
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: L1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SLAB+3
Function Call: WRITE
  • Prompt: !!,"The ",$P(^ATXAX(APCLTDA,0),U)," taxonomy is READ ONLY.",!,"You cannot add items to it."
  • Line Location: TIADD+1
Function Call: WRITE
  • Prompt: !!,"The ",$P(^ATXAX(APCLTDA,0),U)," taxonomy is READ ONLY.",!,"You cannot remove items from it."
  • Line Location: TIREMOVE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: TISEL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LADD+3
Function Call: WRITE
  • Prompt: !!,"The ",Y," taxonomy already exists."
  • Line Location: LADD+6
Routine Call
  • VALM
  • Line Location:
    • VALM+3
Routine Call
  • DIR
  • Line Location:
    • TAX+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls
^ATXLAB - [#9002228] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMQQ(1 - [#9009071] TERM+2
^AMQQ(5 - [#9009075] TAXRX1+18, TERM+1, APCLTF+1
^ATXAX - [#9002226] SELECT+8, TIINIT+4, TIINIT+10, TIINIT+12, TIINIT+13, TIADD+1, TI1+4, TI1+5, TI1+30*, TI1+31
, TIREMOVE+1
^ATXAX("B" TAXADD+17
^ATXLAB - [#9002228] L1+3, L1+11, L1+12, L1+14, L1+17*
^ATXLAB("B" LADD+6
^LAB(60 - [#60] L1+3
^TMP("APCLTMP" TAXINIT+1!
^TMP("APCLVR" TAXEXIT+2!, TAXINIT+1!, TAXINIT+24, TIINIT+2!, Z+2*

Label References

Name Line Occurrences
APCLTF TAXADD+3
BACK TABACK+1, TEBACK+1, EDIT+6, LABADD+2, LABEDIT+3, LABEDIT+5, DLAB+3, DLAB+8, TIBACK+1, TIREMOVE+13
L1 LABADD+1
LADD LADD+6
LE LABEDIT+4
PAUSE TIADD+1, TIREMOVE+1
SELECT TAXEDIT+1
SLAB LABEDIT+2, DLAB+2
TABACK TAXADD+16, TAXADD+24, LADD+5
TAX1 TAX+9
TAXADD TAXADD+17
TAXDISP TAXRX1+24
TAXEXIT TAX1
TAXINIT BACK+3
TAXRX TAX1+9
TAXRX1 TAXRX+1
TEBACK TAXEDIT+2
TERM TAXRX1+22
TI1 TIADD+2
TIBACK TI1+24, TIREMOVE+3
TIINIT BACK+4
TILIST TAXADD+25, TE1+1
TISEL TIREMOVE+2
VALM TAXDISP+1, TILIST+1
Z TAXINIT+7, TAXINIT+9, TAXINIT+11, TAXINIT+13, TAXINIT+22, TAXINIT+26, TIINIT+5, TIINIT+7, TIINIT+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A TAXINIT+5~, TAXINIT+18*, TAXINIT+19*, TAXINIT+20*, TAXINIT+21*, TAXINIT+22, TIINIT+8~, TIINIT+22*, TIINIT+23*, TIINIT+24*
, TIINIT+25*, TIINIT+26*, TIINIT+27*, TIINIT+28, TIINIT+30
APCL TI1!
APCL( TI1+6*
APCL("HIGH" TI1+23*, TI1+29
APCL("LOW" TI1+9, TI1+22*, TI1+25
APCLADA TAXEXIT!, TAXEXIT+1!, TAXRX1+18*, TAXRX1+19, TERM+1, APCLTF+1, TAXADD+1, TAXADD+2
APCLANAM TAXEXIT!, TAXEXIT+1!, TAXRX1+10*, TAXRX1+11*, TAXRX1+12*, TAXRX1+13*, TAXRX1+14*, TAXRX1+15*, TAXRX1+16*, TAXRX1+17*
, TAXRX1+18, TAXADD+4, TAXADD+5, TAXADD+6, TAXADD+7, TAXADD+8, TAXADD+9, TAXADD+10, TAXADD+11, TAXINIT+6
, TI1+2, TI1+16, TI1+17
APCLCANN TAXEXIT!, TAXEXIT+1!, TAXADD+4*, TAXADD+5*, TAXADD+6*, TAXADD+7*, TAXADD+8*, TAXADD+9*, TAXADD+10*, TAXADD+11*
, TAXADD+21
APCLFILE TAXEXIT+1!, APCLTF1+3*
APCLGO TAXEXIT!, TABACK*, TEBACK*, EDIT+5*, TIBACK*, TIREMOVE+12*, BACK+3, BACK+4
APCLHIGH TAXEXIT+1!, TIINIT+16, TIINIT+20*, TIINIT+27
APCLI TIREMOVE+4~, TIREMOVE+5*
APCLILE TAXEXIT+1!
APCLINK TAXEXIT!, TAXRX1+24, TERM+1*, TERM+2, TAXADD+21
APCLINK0 TAXEXIT!, TAXRX1+23, TERM+2*
APCLJ TAXEXIT!, SELECT+1, TAXINIT+2!, TAXINIT+27*, SLAB+1, TIINIT+2!, TIINIT+17*, TIINIT+21*, TIINIT+23, TIINIT+30
, TISEL+1
APCLJ( SELECT+6, SELECT+7, TAXINIT+23*, SLAB+6, SLAB+7, TIINIT+30*, TIREMOVE+6, TIREMOVE+7
APCLLDA TAXEXIT!, L1+12*, L1+21*, LE, SLAB+7*, DLAB+5, TIINIT+11*, TIINIT+12*, TIINIT+13, TIINIT+16
, TIINIT+29*, TIINIT+30, TIREMOVE+7*, TIREMOVE+9
APCLLOW TAXEXIT+1!, TIINIT+16, TIINIT+18*, TIINIT+19*, TIINIT+20, TIINIT+26, TIINIT+29
APCLOUT TAX+9, TAXEXIT!, TAXRX+1
APCLQUIT TAX+9, TAXEXIT!, TAX1+6*, TAXRX+1, TAXRX+2!, TAXRX1+8*, TAXADD+16*, TAXEDIT+2!, SELECT+5*, LABADD+1
, L1+10*, LABEDIT+3!, SLAB+5*, SLAB+6*, DLAB+3!, TIADD+2, TIADD+3!, TI1+8, TI1+20*, TI1+24
, TIREMOVE+3!, TISEL+5*, LADD+5*
APCLRXDA TAXEXIT+1!
APCLRXVC TAXEXIT+1!
>> APCLTAX TAXINIT+4
>> APCLTAX( TAXINIT+16, TAXINIT+23
APCLTDA TAXEXIT!, TAXEXIT+1!, TAXADD+23*, TAXADD+24, SELECT+7*, SELECT+8, EDIT+1, L1+3, L1+11, L1+12
, L1+14, L1+15, LE+1, SLAB+6, SLAB+7, DLAB+4, TIINIT+4, TIINIT+10, TIINIT+12, TIINIT+13
, TIINIT+30, TIADD+1, TI1+4, TI1+5, TI1+26, TI1+27, TI1+30, TI1+31, TIREMOVE+1, TIREMOVE+6
, TIREMOVE+7, TIREMOVE+8, LADD+12*, LADD+13
APCLTF TAXEXIT!, APCLTF+1*, APCLTF1+1, APCLTF1+2, TI1+14
APCLTFDA TAXEXIT!, APCLTF1+3*, TAXADD+21, TI1+2
APCLTFF TAXEXIT!, APCLTF1+1*, APCLTF1+2*, APCLTF1+3, APCLTF1+4
APCLTFNA TAXEXIT!, APCLTF1+4*, TI1+17
APCLTNAM TAXEXIT!, TAXEXIT+1!, TAXADD+18*, SELECT+8*, TI1+13, LADD+7*, LADD+10
APCLTYPE TAXEXIT+1!, TAX1+7*, TAX1+8
APCLWHCH TAXEXIT!, TAXRX1+9*, EDIT+2, EDIT+3, BACK+2
APCLX TAXEXIT!, TAXRX1+21, TAXINIT+25, VALM~, VALM+3, TIINIT+9*, TIINIT+10*, TIINIT+12, TIREMOVE+4~, TIREMOVE+5*
, TIREMOVE+6, TIREMOVE+7
APCLY TAXEXIT!, TIINIT+1!, TIREMOVE+5, TISEL+6*
APCLY( TIINIT+16*, TIINIT+19, TIINIT+20, TIINIT+29
APLCGO TAXEXIT+1!
APLCJ TAXEXIT+1!
B TIINIT+8~
>> DA EDIT+1*, LE*, DLAB+5*, TIREMOVE+9*
>> DA(1 L1+15*, L1+17, L1+18, LE+1*, LE+2, DLAB+4*, DLAB+6, TI1+26*, TIREMOVE+8*, TIREMOVE+10
>> DIC TAXADD+19*, L1+5*, L1+18*, TI1+14*, TI1+27*, LADD+8*
>> DIC("A" L1+7*, TI1+16*, TI1+17*
>> DIC("DR" TAXADD+21*, TI1+29*, LADD+10*
>> DIC(0 TAXADD+20*, L1+6*, L1+19*, TI1+15*, TI1+28*, LADD+9*
>> DIE EDIT+2*, LE+2*
>> DIK DLAB+6*, TIREMOVE+10*
DIR TAX+7!
DIR("A" TAX+7*, TAX1+4*, TAXRX1+6*, TAXADD+13*, SELECT+2*, LABEDIT+1*, SLAB+2*, DLAB+1*, TISEL+2*, LADD+2*
DIR(0 TAX+7*, TAX1+3*, TAXRX1+5*, TAXADD+12*, SELECT+1*, SLAB+1*, TISEL+1*, LADD+1*
>> DR EDIT+3*, LE+3*
DT TAXADD+21, LADD+10
>> DUOUT PAUSE+4
DUZ TAXADD+21, LADD+10
IO PAUSE+1
IO(0 PAUSE+1
IOF TAXRX1+1
IOST PAUSE+2
U TERM+1, APCLTF+1, APCLTF1+3, APCLTF1+4, SELECT+8, TAXINIT+23, L1+3, L1+17, TIINIT+4, TIINIT+16
, TIINIT+20, TIINIT+29, TIINIT+30, TIADD+1, TI1+6, TI1+9, TI1+25, TI1+29, TIREMOVE+1
>> VALMBCK BACK+1*
>> VALMCC VALM+1*
VALMCNT TAX1+2*, TAXINIT+2!*, TIINIT+3*, Z+1*, Z+2
>> VALMSG HEADER+1*
X TAXADD+18*, TAXINIT+5~, TAXINIT+6*, TAXINIT+7, TAXINIT+8*, TAXINIT+9, TAXINIT+10*, TAXINIT+11, TAXINIT+12*, TAXINIT+13
, TAXINIT+15*, TAXINIT+16*, TAXINIT+21, TAXINIT+23, TAXINIT+25*, TAXINIT+26, L1+3~*, L1+16*, TIINIT+4*, TIINIT+5
, TIINIT+6*, TIINIT+7, TIINIT+8~, TIINIT+13*, TIINIT+14, TI1+1~, TI1+3*, TI1+4*, TI1+5, TI1+6
, TI1+9*, TI1+22, TI1+25*, TI1+29, TI1+31, Z~, Z+2, LADD+7*
>> XBQ PAUSE+4*
Y TAX1+6, TAX1+7, TAXRX1+8, TAXRX1+9, TAXRX1+10, TAXRX1+11, TAXRX1+12, TAXRX1+13, TAXRX1+14, TAXRX1+15
, TAXRX1+16, TAXRX1+17, TAXADD+16, TAXADD+17, TAXADD+18, TAXADD+21, TAXADD+23, SELECT+5, SELECT+6, SELECT+7
, TAXINIT+5~, L1+10, L1+11, L1+12, L1+14, L1+16, L1+21, SLAB+5, SLAB+6, SLAB+7
, TIINIT+8~, TI1+1~, TI1+5*, TI1+6, TI1+20, TISEL+5, TISEL+6, LADD+5, LADD+6, LADD+7
, LADD+12, PAUSE+3*
Y(0 L1+13, L1+14
Z TAXINIT+5~, TAXINIT+14*, TAXINIT+17*, TAXINIT+18, TAXINIT+23, TAXINIT+27, TIINIT+8~, TI1+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All