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

Package: Patient Care Component

Routine: APCDFOA3


Information

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

Source Information

Source file <APCDFOA3.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Patient Care Component 2 (LOOK,SETDIR)^APCDFOA4  ^APCDFOA5  
VA Fileman 2 ^DIC  ^DIR  
DRG Grouper 1 ($$CODEABA,$$ICDOP)^ICDEX  
Kernel 1 $$STRIP^XLFSTR  
Taxonomy 1 LST^ATXAPI  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Patient Care Component 2 APCDFOA  APCDFOA4  

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 ;
CHECK ;ASKS USER IF SATISFIED WITH ENTERED RANGES
RANGES ;DISPLAY TABLE OF ALL RANGES
SETUTIL ;SET UP TMP NODES TO STORE CODES
STAR ;
EOP ;
X2
X
X1
DISPLAY ;EP - SHOW CODES IN RANGE SELECTED

External References

Name Field # of Occurrence
LOOK^APCDFOA4 PROCESS+4, PROCESS+11, PROCESS+12, PROCESS+13
SETDIR^APCDFOA4 ASK1+9
^APCDFOA5 STAR+10
LST^ATXAPI DISPLAY+6, STAR+3, SETUTIL+5
^DIC ASK1+5
^DIR ASK1+9, DISPLAY+12, EOP+4, CHECK+1
$$CODEABA^ICDEX SETUTIL+8
$$ICDOP^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+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+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(APCD("LOW")," ")
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: ?9,$P(^ICD9(APCDDFN,0),U,3)
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: !!,"ICD Procedure codes in this range =>",!!
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,APCDX,?12,$E($P($$ICDOP^ICDEX($P(APCDARR(APCDX),U,1),,,"I"),U,5),1,40),?60,$P(APCDARR(APCDX),U,4)
  • Line Location: DISPLAY+9
Function Call: WRITE
  • Prompt: !,APCDX,?12,$E($P($$ICDOP^ICDEX($P(APCDARR(APCDX),U,1),,,"I"),U,5),1,40),?60,$P(APCDARR(APCDX),U,4)
  • Line Location: DISPLAY+10
Function Call: WRITE
  • Prompt: " ?? There are no codes in that range!"
  • Line Location: STAR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: STAR+11
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: APCD("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
Routine Call
  • DIC
  • Line Location:
    • ASK1+5
Routine Call
  • DIR
  • Line Location:
    • ASK1+9
    • DISPLAY+12
    • EOP+4
    • CHECK+1

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("APCDFOA" SETUTIL+6*, SETUTIL+7*, SETUTIL+8*, SETUTIL+10*

Label References

Name Line Occurrences
@( BEGIN+5
A A
ASK1 BEGIN+3, ASK1+14
CHECK BEGIN+5
DISPLAY STAR+9, A+1
EOJ X+1
EOP DISPLAY+8
PROCESS ASK1+11
RANGES ASK1+12, SHOW+1, A+2
SETUTIL X
STAR PROCESS+3
X BEGIN+4
X1 ASK1+6, ASK1+10
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
APCD RANGES+3*, A+1*, EOJ+2!
APCD("BANG" RANGES+4, A+2*!
APCD("HI" ASK1+8!, DISPLAY+6, STAR+8*, SETUTIL+2*, SETUTIL+5, SETUTIL+7, A+1*
APCD("LOW" ASK1+8!, DISPLAY+6, STAR+5*, SETUTIL+2*, SETUTIL+5, SETUTIL+6, SETUTIL+8, A+1*
APCD("N" A*, A+1
APCD("NO DISP LAY" , BEGIN+2*, ASK1+12, ASK1+13*, PROCESS+2*, PROCESS+6*, PROCESS+7*, PROCESS+8*, STAR+4*
APCD("NOT TAX " , EOJ+1
APCD("NUM" RANGES+3*, A
APCDA ASK1+1*, PROCESS+6*, PROCESS+7*, PROCESS+8*, PROCESS+11, PROCESS+13, EOJ+2!
APCDARR DISPLAY+2~, SETUTIL+1~, SETUTIL+4!
APCDARR( DISPLAY+7, DISPLAY+9, DISPLAY+10, SETUTIL+9, SETUTIL+10
>> APCDBT SETUTIL+6, SETUTIL+7, SETUTIL+8, SETUTIL+10
APCDCNT EOJ+2!
APCDDFN SETUTIL+8*, EOJ+2!
APCDFLG EOJ+2!
APCDI A+1*, EOJ+2!
>> APCDIRNG SETUTIL+2*, SETUTIL+3*, SETUTIL+6, SETUTIL+7, SETUTIL+8, SETUTIL+10
>> APCDJOB SETUTIL+6, SETUTIL+7, SETUTIL+8, SETUTIL+10
APCDONE PROCESS+1*, PROCESS+4*, PROCESS+12*, EOJ+2!
APCDQ DISPLAY+2~, DISPLAY+7*, DISPLAY+8, EOP+1*, EOP+5*, SETUTIL+1~, SETUTIL+4!
APCDR EOJ+2!
APCDSAVE EOJ+2!
APCDSAVE("X" PROCESS+10*, PROCESS+11, PROCESS+12, PROCESS+13*
APCDSTP BEGIN+4*, EOJ+1!
APCDSUB PROCESS+1*, PROCESS+9*, STAR+1*, EOJ+2!
>> APCDSYS ASK1+3*, ASK1+7*, DISPLAY+6, STAR+3, SETUTIL+5, SETUTIL+8
>> APCDTABL BEGIN+5, X, ASK1+9, ASK1+12, PROCESS+5
>> APCDTABL( SETUTIL+2, RANGES+3, A+1
APCDTEMP STAR+2~, STAR+4
APCDTEMP( STAR+7
APCDTEMP(0 STAR+5
APCDTYP PROCESS+4*, PROCESS+11*, PROCESS+12*, PROCESS+13*, EOJ+2!
APCDX 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+5*!
DIC("S" ASK1+5*
DIC(0 ASK1+5*
DIR ASK1+9!, DISPLAY+11~, EOP+2~, EOP+4!, CHECK+1!, EOJ+2!
DIR("A" ASK1+9*, DISPLAY+12*, CHECK+1*
DIR("B" CHECK+1*
DIR(0 DISPLAY+12*, EOP+4*, CHECK+1*
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~, STAR+1, STAR+3, SETUTIL+9*, SETUTIL+10
>> Y BEGIN+4, BEGIN+5, ASK1+6, ASK1+7, ASK1+10
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