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

Package: Patient Care Component Reports

Routine: APCLCODE


Information

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

Source Information

Source file <APCLCODE.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^DIC  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  
Patient Care Component Reports 1 (LOOK,SETDIR)^APCLCOD0  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component Reports 2 APCLCOD0  APCLTAXF  

Entry Points

Name Comments DBIA/ICR reference
A
RANGES ;DISPLAY TABLE OF ALL RANGES
BEGIN
ASK1 ;
SHOW ; ENTRY POINT - ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
PROCESS ;EVALUATE USER RESPONSE
EOJ ;
TAX ;PLACE CODES FROM SELECTED TAXONOMY IN APCLTBLE
CHECK ;ASKS USER IF SATISFIED WITH ENTERED RANGES
A1
INIT ;
X3
X2
X
X1
DISPLAY ;EP - SHOW CODES IN RANGE SELECTED

External References

Name Field # of Occurrence
LOOK^APCLCOD0 PROCESS+4, PROCESS+11, PROCESS+12, PROCESS+13
SETDIR^APCLCOD0 ASK1+3
^DIC TAX+2, TAX+3
^DIR ASK1+3, CHECK+1
$$ICDDX^ICDEX DISPLAY+3, DISPLAY+5

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(APCL("LOW")," ")
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: ?9,$P(^ICD9(APCLDFN,0),U,3)
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: !!,"ICD codes in this range =>",!!
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: $P(APCL("LOW")," ")
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: $P(APCL("LOW")," ")
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !,$P(APCL," "),?9,$P(^ICD9(APCLDFN,0),U,3)
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,$P(APCL," "),?9,$P($$ICDDX^ICDEX(APCLDFN),U,4)
  • Line Location: DISPLAY+5
Function Call: READ
  • Prompt: "<>"
  • Formatting: !
  • Timeout: DTIME
  • Variable: APCLR
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: A1+2
Function Call: WRITE
  • Prompt: !!,"ICD Code Range(s) Selected So Far =>",!
  • Line Location: RANGES+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RANGES+4
Function Call: READ
  • Timeout: 300
  • Variable: APCL("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
Routine Call
  • DIC
  • Line Location:
    • TAX+2
    • TAX+3
Routine Call
  • DIR
  • Line Location:
    • ASK1+3
    • CHECK+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
@( BEGIN+2
A A
A1 A1
ASK1 BEGIN, ASK1+8
CHECK BEGIN+2
DISPLAY A+1
EOJ X
INIT APCLCODE+5
PROCESS ASK1+5
RANGES INIT+3, ASK1+6, SHOW+1, A+2
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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCL DISPLAY+5*, RANGES+3*, A+1*, EOJ+1!
APCL("BANG" RANGES+4, A+2*!
APCL("CODE" TAX+5*
APCL("ENTER" INIT+4*
APCL("HI" ASK1+2!, DISPLAY+5, A+1*
APCL("LOW" ASK1+2!, DISPLAY+3, DISPLAY+5, A+1*
APCL("MODIFY" INIT+3*
APCL("N" A*, A+1
APCL("NO DISP LAY" , INIT+1*, ASK1+6, ASK1+7*, PROCESS+2*, PROCESS+6*, PROCESS+7*, PROCESS+8*
APCL("NOT TAX " , INIT+5*
APCL("NUM" RANGES+3*, A
APCL("S" TAX+1*, TAX+2, TAX+3
APCLA ASK1+1*, PROCESS+6*, PROCESS+7*, PROCESS+8*, PROCESS+11, PROCESS+13, EOJ+1!
APCLCNT DISPLAY+5*, EOJ+1!
APCLDFN DISPLAY+3*, DISPLAY+5*, EOJ+1!
APCLFLG EOJ+1!
APCLI A+1*, EOJ+1!
APCLONE PROCESS+1*, PROCESS+4*, PROCESS+12*, EOJ+1!
APCLR DISPLAY+5, A1*, A1+1*, A1+3!, EOJ+1!
APCLSAVE EOJ+1!
APCLSAVE("X" PROCESS+10*, PROCESS+11, PROCESS+12, PROCESS+13*
APCLSTP BEGIN+1*, EOJ+1!
APCLSUB PROCESS+1*, PROCESS+9*, EOJ+1!
>> APCLTBLE BEGIN+2, INIT+3, ASK1+3, ASK1+6, PROCESS+5
>> APCLTBLE( RANGES+3, A+1, TAX+5*
APCLTYP PROCESS+4*, PROCESS+11*, PROCESS+12*, PROCESS+13*, EOJ+1!
>> APCLX INIT+2, TAX+1
DIC TAX+2*!, TAX+3*!
DIC("A" TAX+1*
DIC("S" TAX+2*, TAX+3*
DIC(0 TAX+2*, TAX+3*
DIR ASK1+3!, CHECK+1!, EOJ+1!
DIR("A" ASK1+3*, CHECK+1*
DIR("B" CHECK+1*
DIR(0 CHECK+1*
DTIME A1, A1+1
IOF DISPLAY+1, RANGES+1
IOSL DISPLAY+5
U DISPLAY+3, DISPLAY+5, A1+1
>> 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
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