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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: APCLTAX1

Package: Patient Care Component Reports

Routine: APCLTAX1


Information

APCLTAX1 ; IHS/CMI/LAB - TAXONOMY SYSTEM CON'T ;

Source Information

Source file <APCLTAX1.m>

Call Graph

Call Graph Total: 4

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  

Caller Graph

Caller Graph Total: 2

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
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 |  Naked Globals |  Local Variables |  All