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

Package: Patient Care Component Reports

Routine: APCLAUD5


Information

APCLAUD5 ; IHS/CMI/LAB - USER INTERFACE TO SELECT ICD CODES ;

Source Information

Source file <APCLAUD5.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Patient Care Component Reports 2 (LOOK,SETDIR)^APCLAUD6  ^APCLAUD7  
VA Fileman 2 ^DIC  ^DIR  
DRG Grouper 1 $$ICDDX^ICDEX  
Kernel 1 $$STRIP^XLFSTR  
Taxonomy 1 LST^ATXAPI  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component Reports 2 APCLAUD  APCLAUD6  

Entry Points

Name Comments DBIA/ICR reference
A
BEGIN ;
ASK1 ;
SHOW ; ENTRY POINT - ALLOW USER TO SELECT FROM RANGES TO DISPLAY CODES
PROCESS ;EVALUATE USER RESPONSE
EOJ ;ENTRY POINT
CHECK ;ASKS USER IF SATISFIED WITH ENTERED RANGES
RANGES ;DISPLAY TABLE OF ALL RANGES
SETUTIL ;SET UP UTILITY NODES TO STORE CODES
STAR ;
EOP ;
X2
X
X1
DISPLAY ;EP - SHOW CODES IN RANGE SELECTED

External References

Name Field # of Occurrence
LOOK^APCLAUD6 PROCESS+4, PROCESS+11, PROCESS+12, PROCESS+13
SETDIR^APCLAUD6 ASK1+8
^APCLAUD7 STAR+10
LST^ATXAPI DISPLAY+6, SETUTIL+5, STAR+3
^DIC ASK1+4
^DIR ASK1+8, DISPLAY+12, EOP+4, CHECK+2
$$ICDDX^ICDEX DISPLAY+9, DISPLAY+10
$$STRIP^XLFSTR DISPLAY+6, SETUTIL+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BEGIN+1
Function Call: WRITE
  • Prompt: !,"You must enter the coding system from which you want to enter a code,",!,"or range of codes.",!
  • Line Location: ASK1+3
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+3
Function Call: WRITE
  • Prompt: ?9,$P(^ICD9(APCLDFN,0),U,3)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !!,"ICD codes in this range =>",!!
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,APCLX,?12,$E($P($$ICDDX^ICDEX($P(APCLARR(APCLX),U,1)),U,4),1,40),?60,$P(APCLARR(APCLX),U,4)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !,APCLX,?12,$E($P($$ICDDX^ICDEX($P(APCLARR(APCLX),U,1)),U,4),1,40),?60,$P(APCLARR(APCLX),U,4)
  • Line Location: DISPLAY+10
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: CHECK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: " ?? There are no codes in that range!"
  • Line Location: STAR+4
Routine Call
  • DIC
  • Line Location:
    • ASK1+4
Routine Call
  • DIR
  • Line Location:
    • ASK1+8
    • DISPLAY+12
    • EOP+4
    • CHECK+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^XTMP("APCLAUD" SETUTIL+6*, SETUTIL+7*, SETUTIL+10*

Label References

Name Line Occurrences
@( BEGIN+5
A A
ASK1 BEGIN+3, ASK1+13
CHECK BEGIN+5
DISPLAY A+1, STAR+9
EOJ X+1
EOP DISPLAY+8
PROCESS ASK1+10
RANGES ASK1+11, SHOW+1, A+2
SETUTIL X
STAR PROCESS+3
X BEGIN+4
X1 ASK1+5, ASK1+9
X2 PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
APCL RANGES+3*, A+1*, EOJ+2!
APCL("BANG" RANGES+4, A+2*!
APCL("HI" ASK1+7!, DISPLAY+6, SETUTIL+2*, SETUTIL+5, SETUTIL+7, A+1*, STAR+8*
APCL("LOW" ASK1+7!, DISPLAY+6, SETUTIL+2*, SETUTIL+5, SETUTIL+6, A+1*, STAR+5*
APCL("N" A*, A+1
APCL("NO DISP LAY" , BEGIN+2*, ASK1+11, ASK1+12*, PROCESS+2*, PROCESS+6*, PROCESS+7*, PROCESS+8*, STAR+4*
APCL("NOT TAX " , EOJ+1
APCL("NUM" RANGES+3*, A
APCLA ASK1+2*, PROCESS+6*, PROCESS+7*, PROCESS+8*, PROCESS+11, PROCESS+13, EOJ+2!
APCLARR DISPLAY+2~, SETUTIL+1~, SETUTIL+4!
APCLARR( DISPLAY+7, DISPLAY+9, DISPLAY+10, SETUTIL+9, SETUTIL+10
>> APCLBT SETUTIL+6, SETUTIL+7, SETUTIL+10
APCLCNT EOJ+2!
APCLDFN EOJ+2!
APCLFLG EOJ+2!
APCLI A+1*, EOJ+2!
>> APCLIRNG SETUTIL+2*, SETUTIL+3*, SETUTIL+6, SETUTIL+7, SETUTIL+10
>> APCLJOB SETUTIL+6, SETUTIL+7, SETUTIL+10
APCLONE PROCESS+1*, PROCESS+4*, PROCESS+12*, EOJ+2!
APCLQ DISPLAY+2~, DISPLAY+7*, DISPLAY+8, EOP+1*, EOP+5*, SETUTIL+1~, SETUTIL+4!
APCLR EOJ+2!
APCLSAVE EOJ+2!
APCLSAVE("X" PROCESS+10*, PROCESS+11, PROCESS+12, PROCESS+13*
APCLSTP BEGIN+4*, EOJ+1!
APCLSUB PROCESS+1*, PROCESS+9*, EOJ+2!, STAR+1*
>> APCLSYS ASK1+2*, ASK1+6*, DISPLAY+6, SETUTIL+5, STAR+3
>> APCLTABL BEGIN+5, X, ASK1+8, ASK1+11, PROCESS+5
>> APCLTABL( SETUTIL+2, RANGES+3, A+1
APCLTEMP STAR+2~, STAR+4
APCLTEMP( STAR+7
APCLTEMP(0 STAR+5
APCLTYP PROCESS+4*, PROCESS+11*, PROCESS+12*, PROCESS+13*, EOJ+2!
APCLX DISPLAY+2~, DISPLAY+7*, DISPLAY+9, DISPLAY+10, SETUTIL+1~, SETUTIL+4!, EOJ+1!
C STAR+6~, STAR+7*, STAR+8
DFOUT EOP+3!
DIC ASK1+4*!
DIC("S" ASK1+4*
DIC(0 ASK1+4*
DIR ASK1+8!, DISPLAY+11~, EOP+2~, EOP+4!, CHECK+1~, CHECK+2!, EOJ+2!
DIR("A" ASK1+8*, DISPLAY+12*, CHECK+2*
DIR("B" CHECK+2*
DIR(0 DISPLAY+12*, EOP+4*, CHECK+2*
DIRUT EOP+3!
DLOUT EOP+3!
DTOUT EOP+3!
DUOUT EOP+3!, EOP+5
IOF DISPLAY+1, EOP+6, RANGES+1
IOSL DISPLAY+8
U DISPLAY+9, DISPLAY+10, SETUTIL+2, SETUTIL+10, RANGES+3, A+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*, DISPLAY+2~, SETUTIL+9*, SETUTIL+10, STAR+1, STAR+3
>> Y BEGIN+4, BEGIN+5, ASK1+5, ASK1+6, ASK1+9
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