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 |  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: APCHTAXE

Package: Patient Care Component

Routine: APCHTAXE


Information

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

Source Information

Source file <APCHTAXE.m>

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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All