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 |  Marked Items  | All
Print Page as PDF
Routine: ICDDICA

Package: DRG Grouper

Routine: ICDDICA


Information

ICDDICA ;SLC/KER - ICD DIC Lookup Prototype ;04/21/2014

Source Information

Source file <ICDDICA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ($$DT,$$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  
DRG Grouper 1 $$IMP^ICDEX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
DRG Grouper 1 ICDDIC  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DP(X) ; Diagnosis or Procedure
DPP(X) ; Diagnosis or Procedure - Pre-process
DPH ; Diagnosis or Procedure - Help
OA(X) ; One or All Coding System
OAP(X) ; One or All Coding System - Pre-process
OAH ; One or All Coding System - Help
CS(X) ; Coding System
CSH ; One or All Coding System - Help
VR(X) ; Versioned Search
VRP(X) ; Diagnosis or Procedure - Pre-process
VRH ; Diagnosis or Procedure - Help
VD(X) ; Versioned Date
VDP(X) ; Diagnosis or Procedure - Pre-process
VDH ; Diagnosis or Procedure - Help
FM(X) ; Diagnosis or Procedure
FMP(X) ; Diagnosis or Procedure - Pre-process
FMH ; Display Format - Help
SAV(X,ICDV) ; Save Defaults
RET(X) ; Retrieve Defaults
EFM(X) ; Convert External Date to FM
TM(X,Y) ; Trim Character Y - Default " "

External References

Name Field # of Occurrence
^%DT EFM+1
^DIC CS+11
$$GET1^DIQ SAV+3, RET+3
^DIR DP+7, OA+9, VR+6, VD+9, FM+7
$$IMP^ICDEX EN+8
$$DT^XLFDT VD+2, SAV+5, RET+5
$$FMADD^XLFDT VD+2, SAV+5, RET+5
$$FMTE^XLFDT VD+4, VD+8, VD+10, VDP+4, VDH+1
$$UP^XLFSTR DPP+2, OAP+1, VRP+2, VD+10, VDP+1, VDP+4, FMP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?5,"Enter 'D' or 'Diagnosis' to search the ICD DIAGNOSIS file #80"
  • Line Location: DPH+1
Function Call: WRITE
  • Prompt: !,?5,"Enter 'P' or 'Procedures' to search the ICD PROCEDURE file #80.1"
  • Line Location: DPH+2
Function Call: WRITE
  • Prompt: !,?5,"Enter '^' to quit, and 'Return' to accept the default value."
  • Line Location: DPH+3
Function Call: WRITE
  • Prompt: !,?5,"Enter 'O' to search one coding system "
  • Line Location: OAH+1
Function Call: WRITE
  • Prompt: "in file ",$G(ICDF)
  • Condition for execution: +($G(ICDF))>0
  • Line Location: OAH+1
Function Call: WRITE
  • Prompt: !,?5,"Enter 'A' to search all coding systems "
  • Line Location: OAH+2
Function Call: WRITE
  • Prompt: "in file ",$G(ICDF)
  • Condition for execution: +($G(ICDF))>0
  • Line Location: OAH+2
Function Call: WRITE
  • Prompt: !,?15,ICDS
  • Line Location: OAH+6
Function Call: WRITE
  • Prompt: !,?5,"Answer with ICD CODING SYSTEMS (i.e., "
  • Line Location: CSH+1
Function Call: WRITE
  • Prompt: $S(+ICDF=80:"ICD-10-CM",+ICDF=80.1:"ICD-10-PCS",1:"ICD-10-CM")
  • Line Location: CSH+2
Function Call: WRITE
  • Prompt: " or ICD CODING SYSTEM NOMENCLATURE, or"
  • Line Location: CSH+3
Function Call: WRITE
  • Prompt: ?5,"CODING SYSTEM ABBREVIATION"
  • Line Location: CSH+4
Function Call: WRITE
  • Prompt: !,?15,ICDS
  • Line Location: CSH+9
Function Call: WRITE
  • Prompt: !,?5,"Enter 'Yes' to conduct a versioned search (date sensitive) or"
  • Line Location: VRH+1
Function Call: WRITE
  • Prompt: !,?5,"enter 'No' to contuct an unversioned search.",!
  • Line Location: VRH+2
Function Call: WRITE
  • Prompt: !,?5,"NOTE: Inactive codes will NOT be displayed during a versioned"
  • Line Location: VRH+3
Function Call: WRITE
  • Prompt: !,?5," search (date sensitive) and will be displayed during an "
  • Line Location: VRH+4
Function Call: WRITE
  • Prompt: !,?5," unversioned search (date doesn't matter)."
  • Line Location: VRH+5
Function Call: WRITE
  • Prompt: !,?5,"Enter a date from ",$$FMTE^XLFDT($G(ICDD1))," to ",$$FMTE^XLFDT($G(ICDD2)),". Time is"
  • Line Location: VDH+1
Function Call: WRITE
  • Prompt: !,?5,"allowed but not required. Code Set Business rules apply"
  • Line Location: VDH+2
Function Call: WRITE
  • Prompt: !,?5,"for imprecise dates:",!
  • Line Location: VDH+3
Function Call: WRITE
  • Prompt: !,?5," Month is missing: Use January"
  • Line Location: VDH+4
Function Call: WRITE
  • Prompt: !,?5," Day is missing: Use the 1st"
  • Line Location: VDH+5
Function Call: WRITE
  • Prompt: !,?5,"Enter "
  • Line Location: FMH+22
Function Call: WRITE
  • Prompt: !,?5," 1 FileMan format, code followed by short text (default):"
  • Line Location: FMH+23
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+24
Function Call: WRITE
  • Prompt: !,?5," ",ICDCOD," ",ICDSHRT
  • Line Location: FMH+25
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+26
Function Call: WRITE
  • Prompt: !,?5," 2 Modified FileMan format, code followed by description:"
  • Line Location: FMH+27
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+28
Function Call: WRITE
  • Prompt: !,?5," ",ICDCOD," ",ICDLONG
  • Line Location: FMH+29
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+30
Function Call: WRITE
  • Prompt: !,?5," 3 Short Lexicon format, short text followed by code:"
  • Line Location: FMH+31
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+32
Function Call: WRITE
  • Prompt: !,?5," ",ICDSHRT," (",ICDCOD,")"
  • Line Location: FMH+33
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+34
Function Call: WRITE
  • Prompt: !,?5," 4 Long Lexicon format, description followed by code:"
  • Line Location: FMH+35
Function Call: WRITE
  • Prompt: !,?5," "
  • Line Location: FMH+36
Function Call: WRITE
  • Prompt: !,?5," ",ICDMIX," (",ICDCOD,")"
  • Line Location: FMH+37
Function Call: WRITE
  • Prompt: !,?5," "
  • Line Location: FMH+38
Routine Call
  • DIC
  • Line Location:
    • CS+11
Routine Call
  • DIR
  • Line Location:
    • DP+7
    • OA+9
    • VR+6
    • VD+9
    • FM+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICDS - [#80.4] OAH+5, CS+3, CS+6, CS+11, CSH+8
^ICDS("B" CS+4
^ICDS("C" CS+5
^ICDS("F" OA+2, OAH+3, OAH+4, CS+2, CSH+6, CSH+7
^XTMP( SAV+6*, RET+6

Label References

Name Line Occurrences
$$CS EN+5
$$DP EN+2
$$EFM VDP+2
$$FM EN+11
$$OA EN+4
$$RET DP+3, OA+4, CS+4, VR+2, VD+4, FM+3
$$TM SAV+4, RET+3
$$VD EN+7
$$VR EN+6
SAV DP+9, OA+11, CS+11, VR+8, VD+11, FM+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EFM+1~!
DIC CS+1~, CS+3*
DIC("?" CS+10*
DIC("??" CS+10*
DIC("A" CS+8*
DIC("B" CS+7*
DIC("S" CS+9*
DIC(0 CS+3*
DIR DP+1~, OA+1~, VR+1~, VD+1~, FM+1~
DIR("?" DP+4*, OA+5*, VR+3*, VD+5*, FM+4*
DIR("??" DP+4*, OA+5*, VR+3*, VD+5*, FM+4*
DIR("A" DP+6*, OA+7*, OA+8*, VR+5*, VD+7*, VD+8*, FM+6*
DIR("B" DP+3*, OA+4*, VR+2*, VD+4*, FM+3*
DIR("PRE" DP+5*, OA+6*, VR+4*, VD+6*, FM+5*
DIR(0 DP+2*, OA+3*, VR+2*, VD+3*, FM+2*
DIROUT DP+1!, OA+1!, CS+1!, VR+1!, VD+1!, FM+1!
DIRUT DP+1!, OA+1!, CS+1!, VR+1!, VD+1!, FM+1!
DTOUT EN+2, EN+4, EN+5, EN+6, EN+7, EN+11, DP+1!, OA+1!, CS+1!, VR+1!
, VD+1!, FM+1!
DUOUT EN+2, EN+4, EN+5, EN+6, EN+7, EN+11, DP+1!, OA+1!, CS+1!, VR+1!
, VD+1!, FM+1!
DUZ SAV+2, RET+2
ICD DP+1~!, DP+2*, OA+1~!, OA+3*, CS+1~!, CS+3*, VR+1~!, VR+2*, VD+1~!, FM+1~!*
ICD10D EN+8~*, EN+9, EN+10
ICDA VDP+2~*, VDP+3*, VDP+4*
ICDB DP+1~, OA+1~, CS+1~, CS+4*, CS+5, CS+6*, CS+7, VR+1~, VD+1~, FM+1~
ICDBI CS+1~, CS+4*, CS+5*, CS+6
ICDC OAH+4~*, OAH+5*, CSH+7~*, CSH+8*, SAV+1~, SAV+2*, SAV+4*, SAV+6, RET+1~, RET+2*
, RET+3*, RET+4
ICDCOD FMH+1~, FMH+3*, FMH+8*, FMH+13*, FMH+18*, FMH+25, FMH+29, FMH+33, FMH+37
>> ICDCS EN+2*, EN+5*, EN+8, EN+9, EN+10
ICDD CS+1~, CS+3*, CS+7, CS+11*, SAV+1~, SAV+5*, SAV+6, RET+1~, RET+5*
ICDD1 VD+1~, VD+2*, VD+3, VD+8, VDH+1
ICDD2 VD+1~, VD+2*, VD+3, VD+8, VDH+1
>> ICDDP EN+2*, EN+3
ICDF OA+1~, OA+2*, OA+7, OAH+1, OAH+2, OAH+3, OAH+4, CS+1~, CS+2*, CS+6
, CSH+2, CSH+6, CSH+7, SAV+1~, SAV+5*, SAV+6, RET+1~, RET+5*
>> ICDFI EN+3*, EN+4, EN+5, EN+6, EN+7, EN+9, EN+10
>> ICDFM EN+11*
ICDI OAH+4~*, OAH+5, CS+1~, CS+2*, CS+3, CSH+7~*, CSH+8, VDP+2~*
ICDID SAV+1~, SAV+5*, SAV+6, RET+1~, RET+5*, RET+6
ICDK SAV+1~, SAV+4*, SAV+5, RET+1~, RET+4*, RET+5
ICDLONG FMH+1~, FMH+5*, FMH+10*, FMH+15*, FMH+20*, FMH+29
ICDMIX FMH+1~, FMH+6*, FMH+11*, FMH+16*, FMH+21*, FMH+37
ICDN DP+1~, DP+8*, DP+9, OA+1~, OA+10*, OA+11, CS+1~, VR+1~, VR+7*, VR+8
, VD+1~, VD+10*, VD+11, FM+1~, FM+7*, FM+8, SAV+1~, SAV+3*, RET+1~, RET+3*
ICDO VDP+2~, VDP+4*
>> ICDOA EN+4*, EN+5
ICDR SAV+1~*, SAV+5, RET+1~*, RET+5
ICDS OAH+5~*, OAH+6, CSH+8~*, CSH+9
ICDSHRT FMH+1~, FMH+4*, FMH+9*, FMH+14*, FMH+19*, FMH+25, FMH+33
ICDSRC EN+8*, EN+9*, EN+10*, FM+1~*, FMH+2, FMH+7, FMH+12, FMH+17
ICDT SAV+1~, SAV+2*, SAV+6, RET+1~, RET+2*, RET+6
ICDTD VD+1~, VD+2*, VD+4
ICDTEST EN+12~
ICDU SAV+1~, SAV+2*, SAV+3, SAV+5, RET+1~, RET+2*, RET+3, RET+5
ICDV SAV~, SAV+3
ICDVAL SAV+1~, SAV+3*, SAV+6
>> ICDVD EN+7*, EN+9, EN+10
>> ICDVR EN+6*, EN+7
IOF EN+1
X DP~, DP+7*, DP+8, DP+10, DPP~, DPP+1, DPP+2*, DPP+3, DPP+4, OA~
, OA+2, OA+9*, OA+10, OA+12, OAP~, OAP+1*, OAP+2, OAP+3, OAP+4, OAP+5
, OAP+6*, OAP+7, CS~, CS+2, CS+12*, CS+13, VR~, VR+6*, VR+7, VR+9
, VRP~, VRP+1, VRP+2*, VRP+3*, VRP+4, VD~, VD+9*, VD+10, VD+12, VDP~
, VDP+1*, VDP+2, VDP+4*, VDP+5, FM~, FM+1, FM+7*, FM+9, FMP~, FMP+1*
, FMP+2, FMP+3, FMP+4, FMP+5, FMP+6, FMP+7*, FMP+8, SAV~, SAV+2, RET~
, RET+2, RET+6*, RET+7, EFM~, EFM+1*, EFM+2, TM~, TM+1*, TM+2*, TM+3*
, TM+4
Y DP+1~, DP+7, OA+1~, OA+9, CS+1~, CS+11, CS+12, VR+1~, VR+6, VD+1~
, VD+9, FM+1~, FM+7, SAV+1~, EFM+1~, TM~, TM+1*, TM+2, TM+3
Y(0 FM+7

Marked Items

Name Field # of Occurrence
$T( SAV+1, RET+1
$T(@(5) SAV+2, RET+2
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 |  Marked Items  | All