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

Package: Patient Care Component

Routine: APCHTAXM


Information

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

Source Information

Source file <APCHTAXM.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
Patient Care Component 2 (DISPLAY,SHOW)^APCHTAXM  ^APCHTAXN  
DRG Grouper 1 $$CPT^ICPTCOD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component 2 APCHTAXL  APCHTAXM  

Entry Points

Name Comments DBIA/ICR reference
A
RANGES ;DISPLAY TABLE OF ALL RANGES
BEGIN
SETDIR ; ENTRY POINT - SETS HELP AND DIR FOR INIT SUBROUTINE OF APCHCODE
ASK1 ;
LOOK ; ENTRY POINT - LOOKUP USER RESPONSE; SET UTILITY NODES
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 APCHTBLE
CHECK ;ASKS USER IF SATISFIED WITH ENTERED RANGES
A1
INIT ;
X3
X2
X
X1
DISPLAY ;EP - SHOW CODES IN RANGE SELECTED
X5

External References

Name Field # of Occurrence
DISPLAY^APCHTAXM LOOK+5
SHOW^APCHTAXM ASK2+2
^APCHTAXN LOOK+4, LOOK+5
^DIC TAX+2, TAX+3, LOOK+1
YN^DICN ASK2+2
^DIR ASK1+3, CHECK+1
$$CPT^ICPTCOD DISPLAY+3, DISPLAY+7

Interaction Calls

Name Line Occurrences
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+5
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • 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: !
  • Line Location: PROCESS+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PROCESS+13
Function Call: WRITE
  • Prompt: $P(APCH("LOW")," ")
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: ?9,$P(^ICPT(APCHDFN,0),U,2)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"CPT codes in this range =>",!!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: $P(APCH("LOW")," ")
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: $P(APCH("LOW")," ")
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,$P(APCH," "),?9,$P(^ICPT(APCHDFN,0),U,2)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,$P(APCH," "),?9,$P($$CPT^ICPTCOD(APCHDFN),U,3)
  • Line Location: DISPLAY+7
Function Call: READ
  • Prompt: "<>"
  • Formatting: !
  • Timeout: DTIME
  • Variable: APCHR
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !!,"CPT Code Range(s) Selected So Far =>",!
  • Line Location: RANGES+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGES+4
Function Call: READ
  • Timeout: 300
  • Variable: APCH("N")
  • Line Location: A+0
Function Call: WRITE
  • Prompt: " ??",$C(7)
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !
  • Line Location: X3+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:
    • TAX+2
    • TAX+3
    • LOOK+1
Routine Call
  • DIR
  • Line Location:
    • ASK1+3
    • CHECK+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ICPT - [#81] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] TAX+5
^ICPT - [#81] LOOK+3, LOOK+5
^ICPT("BA" DISPLAY+3, DISPLAY+7

Label References

Name Line Occurrences
@( BEGIN+2
A A
A1 A1
ASK1 BEGIN, ASK1+8
ASK2 ASK2+4
CHECK BEGIN+2
DISPLAY A+1
EOJ X
INIT APCHTAXM+5
LOOK PROCESS+4, PROCESS+11, PROCESS+12, PROCESS+13
PROCESS ASK1+5
RANGES INIT+3, ASK1+6, SHOW+1, A+2
SETDIR ASK1+3
TAX PROCESS+3
X BEGIN+1
X1 ASK1+4
X2 PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8
X3 TAX+4
X5 LOOK+2

Naked Globals

Name Field # of Occurrence
^( DISPLAY+7, TAX+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK2+2*, ASK2+3, ASK2+4
APCH DISPLAY+6*, DISPLAY+7*, RANGES+3*, A+1*, EOJ+1!
APCH("BANG" RANGES+4, A+2*!
APCH("CODE" TAX+5*
APCH("ENTER" INIT+4*
APCH("HI" ASK1+2!, DISPLAY+7, A+1*, LOOK+4*, LOOK+5*, LOOK+6, LOOK+8
APCH("LOW" ASK1+2!, DISPLAY+3, DISPLAY+6, A+1*, LOOK+3*, LOOK+4, LOOK+6, LOOK+8
APCH("MODIFY" INIT+3*
APCH("N" A*, A+1
APCH("NO DISP LAY" , INIT+1*, ASK1+6, ASK1+7*, PROCESS+2*, PROCESS+6*, PROCESS+7*, PROCESS+8*, LOOK+2*, LOOK+5
, LOOK+7*, LOOK+8*
APCH("NOT TAX " , INIT+5*
APCH("NUM" RANGES+3*, A
APCH("S" TAX+1*, TAX+2, TAX+3
APCHA ASK1+1*, PROCESS+6*, PROCESS+7*, PROCESS+8*, PROCESS+11, PROCESS+13, EOJ+1!, LOOK+2*
APCHCNT DISPLAY+6*, DISPLAY+7*, EOJ+1!
APCHDFN DISPLAY+3*, DISPLAY+7*, EOJ+1!
APCHFLG EOJ+1!
APCHI A+1*, EOJ+1!
APCHONE PROCESS+1*, PROCESS+4*, PROCESS+12*, EOJ+1!, LOOK+4
APCHR DISPLAY+7, A1*, A1+1*, A1+3!, EOJ+1!
APCHSAVE EOJ+1!
APCHSAVE("X" PROCESS+10*, PROCESS+11, PROCESS+12, PROCESS+13*
APCHSTP BEGIN+1*, EOJ+1!
APCHSUB PROCESS+1*, PROCESS+9*, EOJ+1!
>> APCHTBLE BEGIN+2, INIT+3, ASK1+3, ASK1+6, PROCESS+5, ASK2+1
>> APCHTBLE( RANGES+3, A+1, TAX+5*
APCHTYP PROCESS+4*, PROCESS+11*, PROCESS+12*, PROCESS+13*, EOJ+1!, LOOK+3, LOOK+4, LOOK+5
>> APCHX INIT+2, TAX+1
DIC TAX+2*!, TAX+3*!, LOOK+1*!
DIC("A" TAX+1*
DIC("S" TAX+2*, TAX+3*
DIC(0 TAX+2*, TAX+3*, LOOK+1*
DIR ASK1+3!, CHECK+1!, EOJ+1!
DIR("?" SETDIR+1*, SETDIR+2*, SETDIR+3*, SETDIR+4*, SETDIR+5*
DIR("??" SETDIR+6*
DIR("A" ASK1+3*, CHECK+1*
DIR("B" CHECK+1*
DIR(0 CHECK+1*, SETDIR+1*
DR LOOK+1!
DTIME A1, A1+1
IOF DISPLAY+1, RANGES+1
IOSL DISPLAY+6, DISPLAY+7
U DISPLAY+3, DISPLAY+7, A1+1, LOOK+3, LOOK+5
>> X PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROCESS+9, PROCESS+10, PROCESS+11*
, PROCESS+12*, PROCESS+13*, TAX+2*, TAX+3*
>> Y BEGIN+1, BEGIN+2, ASK1+4, TAX+4, TAX+5, LOOK+2, LOOK+3, LOOK+5
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