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

Package: Taxonomy

Routine: ATXTAXI


Information

ATXTAXI ; IHS/CMI/LAB - INTERFACE TO SELECT ICD CODES ;

Source Information

Source file <ATXTAXI.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Taxonomy 4 LST^ATXAPI  TAX^ATXCODE  SHOW^ATXTAXI  ^ATXTAXJ  
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
DRG Grouper 1 $$ICDOP^ICDEX  
Kernel 1 $$STRIP^XLFSTR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Taxonomy 2 ATXCODE  ATXTAXI  

Entry Points

Name Comments DBIA/ICR reference
A
STAR ;
BEGIN
ICDCS ;
ASK1 ;
LOOK ; ENTRY POINT - LOOKUP USER RESPONSE; SET UTILITY NODES
SETDIR ; ENTRY POINT - SETS HELP AND DIR FOR INIT SUBROUTINE OF ATXCODE
SHOW ; ENTRY POINT - ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
PROCESS ;EVALUATE USER RESPONSE
EOJ ;
ASK2 ;ASKS USER IF WANTS TO DISPLAY/PRINT RESULTS TO THIS POINT
TAX ;PLACE CODES FROM SELECTED TAXONOMY IN ATXTBLE
CHECK ;ASKS USER IF SATISFIED WITH ENTERED RANGES
RANGES ;DISPLAY TABLE OF ALL RANGES
INIT ;
EOP ;
X2
X
X1
DISPLAY ;EP - SHOW CODES IN RANGE SELECTED
X4

External References

Name Field # of Occurrence
LST^ATXAPI STAR+3, DISPLAY+5
TAX^ATXCODE TAX+1
SHOW^ATXTAXI ASK2+2
^ATXTAXJ STAR+9, LOOK+4, LOOK+5
^DIC ICDCS+5, LOOK+1
YN^DICN ASK2+2
^DIR ASK1+4, DISPLAY+11, CHECK+1, EOP+4
$$ICDOP^ICDEX DISPLAY+8, DISPLAY+9, LOOK+3, LOOK+5
$$STRIP^XLFSTR DISPLAY+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Updating codes in the ",$P(^ATXAX(ATXTAXI,0),U)," Taxonomy.",!
  • Line Location: ASK1+1
Function Call: WRITE
  • Prompt: !,"You must enter the coding system from which you want to "_$S($G(ATXREMM):"remove ",1:" enter")_" a code,",!,"or range of codes.",!
  • Line Location: ICDCS+4
Function Call: WRITE
  • Prompt: " ?? There are no codes in that range!"
  • Line Location: STAR+4
Function Call: WRITE
  • Prompt: $C(7)," ?? Not allowed"
  • Line Location: PROCESS+2
Function Call: WRITE
  • Prompt: $C(7)," ?? No previous codes entered!"
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: PROCESS+7
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: PROCESS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !!,"ICD codes in this range =>",!!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,ATXX,?12,$E($P($$ICDOP^ICDEX($P(ATXARR(ATXX),U,1),,,"I"),U,5),1,40),?60,$P(ATXARR(ATXX),U,4)
  • Line Location: DISPLAY+8
Function Call: WRITE
  • Prompt: !,ATXX,?12,$E($P($$ICDOP^ICDEX($P(ATXARR(ATXX),U,1),,,"I"),U,5),1,40),?60,$P(ATXARR(ATXX),U,4)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !!,"ICD Code Range(s) Selected So Far =>",!
  • Line Location: RANGES+2
Function Call: WRITE
  • Prompt: ?30,$P(^ICDS($P(ATXTBLE(ATX),U,2),0),U,1)
  • Line Location: RANGES+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGES+5
Function Call: READ
  • Timeout: 300
  • Variable: ATX("N")
  • Line Location: A+0
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !,$C(7),"Low and high codes of range must both start either with a letter or a number.",!
  • Line Location: LOOK+7
Function Call: WRITE
  • Prompt: !,$C(7),"Low code is higher than high code.",!
  • Line Location: LOOK+8
Function Call: WRITE
  • Prompt: !!,"A code range has yet to be selected. A display cannot be generated.",!
  • Line Location: ASK2+1
Function Call: WRITE
  • Prompt: !!,"Do you want to display the codes from a range you have already selected"
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: !!,"A table of ranges you have selected is displayed above. You may ask for the",!,"codes in one of the ranges to be displayed.",!
  • Line Location: ASK2+4
Routine Call
  • DIC
  • Line Location:
    • ICDCS+5
    • LOOK+1
Routine Call
  • DIR
  • Line Location:
    • ASK1+4
    • DISPLAY+11
    • CHECK+1
    • EOP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICD0 - [#80.1] Classic Fileman Calls
^ICDS - [#80.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] ASK1+1
^ICDS - [#80.4] RANGES+4

Label References

Name Line Occurrences
A A
ASK1 BEGIN, ASK1+10
ASK2 ASK2+4
BEGIN BEGIN+2
CHECK BEGIN+2
DISPLAY STAR+9, A+1, LOOK+5
EOJ X
EOP DISPLAY+7
ICDCS PROCESS+4, PROCESS+5, PROCESS+10
INIT ATXTAXI+4
LOOK PROCESS+5, PROCESS+13, PROCESS+14, PROCESS+15
PROCESS ASK1+7
RANGES INIT+3, ASK1+8, SHOW+1, A+2
SETDIR ASK1+4
STAR PROCESS+4
TAX PROCESS+3
X BEGIN+1
X1 ASK1+5, ASK1+6, ICDCS+6
X2 PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10
X4 LOOK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK2+2*, ASK2+3, ASK2+4
ATX RANGES+3*, RANGES+4, A+1*, EOJ+1!
ATX("BANG" RANGES+5, A+2*!
ATX("ENTER" INIT+4*
ATX("HI" ASK1+3!, STAR+8*, DISPLAY+5, A+1*, LOOK+4*, LOOK+5*, LOOK+6, LOOK+8
ATX("LOW" ASK1+3!, STAR+5*, DISPLAY+5, A+1*, LOOK+3*, LOOK+4, LOOK+6, LOOK+8
ATX("MODIFY" INIT+3*
ATX("N" A*, A+1
ATX("NO DISPL AY" , INIT+1*, ASK1+8, ASK1+9*, STAR+4*, PROCESS+2*, PROCESS+7*, PROCESS+8*, PROCESS+9*, LOOK+2*
, LOOK+5, LOOK+7*, LOOK+8*
ATX("NOT TAX" , INIT+5*
ATX("NUM" RANGES+3*, A
ATXA ASK1+2*, PROCESS+7*, PROCESS+8*, PROCESS+9*, PROCESS+13, PROCESS+15, EOJ+1!, LOOK+2*
ATXARR DISPLAY+2~
ATXARR( DISPLAY+6, DISPLAY+8, DISPLAY+9
ATXCNT EOJ+1!
ATXDFN EOJ+1!
ATXFLG EOJ+1!
ATXI A+1*, EOJ+1!
ATXONE PROCESS+1*, PROCESS+5*, PROCESS+14*, EOJ+1!, LOOK+4
ATXQ DISPLAY+2~, DISPLAY+6*, DISPLAY+7, EOP+1*, EOP+5*
ATXR EOJ+1!
>> ATXREMM ICDCS+4
ATXSAVE EOJ+1!
ATXSAVE("X" PROCESS+12*, PROCESS+13, PROCESS+14, PROCESS+15*
ATXSTP BEGIN+1*, EOJ+1!
ATXSUB STAR+1*, PROCESS+1*, PROCESS+11*, EOJ+1!
>> ATXSYS ICDCS+3*, ICDCS+7*, STAR+3, PROCESS+4, PROCESS+5, PROCESS+10, DISPLAY+5, LOOK+1, LOOK+3, LOOK+5
>> ATXTAXI ASK1+1
>> ATXTBLE BEGIN+2, INIT+3, ASK1+4, ASK1+8, PROCESS+6, ASK2+1
>> ATXTBLE( RANGES+3, RANGES+4, A+1
ATXTEMP STAR+2~, STAR+4
ATXTEMP( STAR+7
ATXTEMP(0 STAR+5
ATXTYP PROCESS+5*, PROCESS+13*, PROCESS+14*, PROCESS+15*, EOJ+1!, LOOK+3, LOOK+4, LOOK+5
ATXX INIT+2, DISPLAY+2~, DISPLAY+6*, DISPLAY+8, DISPLAY+9
C STAR+6~, STAR+7*, STAR+8
DFOUT EOP+3!
DIC ICDCS+5*!, LOOK+1*!
DIC("S" ICDCS+5*
DIC(0 ICDCS+5*, LOOK+1*
DIR ASK1+4!, DISPLAY+10~, CHECK+1!, EOJ+1!, EOP+2~, EOP+4!
DIR("?" SETDIR+1*, SETDIR+2*, SETDIR+3*, SETDIR+4*, SETDIR+5*
DIR("??" SETDIR+6*
DIR("A" ASK1+4*, DISPLAY+11*, CHECK+1*
DIR("B" CHECK+1*
DIR(0 DISPLAY+11*, CHECK+1*, SETDIR+1*, EOP+4*
DIRUT EOP+3!
DLOUT EOP+3!
DR LOOK+1!
DTOUT EOP+3!
DUOUT EOP+3!, EOP+5
>> ICDSYS LOOK+1*
IOF DISPLAY+1, RANGES+1, EOP+6
IOSL DISPLAY+7
U ASK1+1, DISPLAY+8, DISPLAY+9, RANGES+3, RANGES+4, LOOK+3, LOOK+5
X ICDCS+1~, STAR+1, STAR+3, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8
, PROCESS+9, PROCESS+11, PROCESS+12, PROCESS+13*, PROCESS+14*, PROCESS+15*
Y BEGIN+1, BEGIN+2, ASK1+5, ASK1+6, ICDCS+1~, ICDCS+6, ICDCS+7, LOOK+2, LOOK+3, LOOK+5
Z STAR+6~, STAR+7*
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