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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ICDEXD4

Package: DRG Grouper

Routine: ICDEXD4


Information

ICDEXD4 ;SLC/KER - ICD Extractor - DRG APIs (cont) ;04/21/2014

Source Information

Source file <ICDEXD4.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
DRG Grouper 1 ($$CS,$$CSI,$$EFD,$$FILE,$$IA,$$ICDDX,$$ICDOP,$$IMP,$$LD,$$MSG,$$ROOT,$$SINFO,PAR)^ICDEX  
Kernel 1 ($$DT,$$FMTE)^XLFDT  
VA FileMan 1 ^DIC  

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 ICDEX  

Entry Points

Name Comments DBIA/ICR reference
ICDID(FILE,ID,CODE) ; Check if ICD identifier exist
;
; Input:
IDIEN(FILE,ID) ; Get IEN for identifier
IDSTR(FILE,IEN) ; Return ICD identifier string (legacy)
;
; Input:
ICDIDS(FILE,IEN,ARY) ; Return array of ICD identifiers
;
; Input:
ISOWNCC(IEN,CDT,FMT) ; Return CC if DX is Own CC
;
; Input:
ICDRGCC(DRG,CDT) ; Get CC/MCC flag from DRG
;
; Input:
INQ ; Inquire to ICD codes (interactive)
;
; User will be prompted for:
;
; Effective Date
; File
; Code
;
; Displays Code
; Short Text
; Description
; Description Warnings (if any)
; Text may be inaccurate, Effective Date
; Predates Code Set Versioning
; Predates Coding System Implementation
; Predates Initial Activation Date
; Activation Warnings (if any)
; Code is Inactive
; Code is pending (activated in the future)
;
INQ2 ; Inquire to ICD codes (recursive)

External References

Name Field # of Occurrence
^DIC INQ2+5
$$CS^ICDEX INQ2+2
$$CSI^ICDEX INQ2+6
$$EFD^ICDEX INQ2+1
$$FILE^ICDEX ICDID+18, IDIEN+1, ICDIDS+21
$$IA^ICDEX INQ2+18
$$ICDDX^ICDEX INQ2+7
$$ICDOP^ICDEX INQ2+8
$$IMP^ICDEX INQ2+18
$$LD^ICDEX INQ2+10, INQ2+13
$$MSG^ICDEX INQ2+16
$$ROOT^ICDEX ICDID+22, ICDID+27, ICDIDS+23, ISOWNCC+22, INQ2+3
$$SINFO^ICDEX INQ2+3, INQ2+7
PAR^ICDEX INQ2+30
$$DT^XLFDT ISOWNCC+26, ICDRGCC+19
$$FMTE^XLFDT ICDRGCC+20, INQ2+12, INQ2+23, INQ2+29, INQ2+36, INQ2+38

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Effective Date not specified"
  • Line Location: INQ2+1
Function Call: WRITE
  • Prompt: !!," File not specified"
  • Line Location: INQ2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: INQ2+5
Function Call: WRITE
  • Prompt: !!," Try again later"
  • Condition for execution: $D(DTOUT)
  • Line Location: INQ2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: INQ2+33
Function Call: WRITE
  • Prompt: !," Description"
  • Condition for execution: ICDC=1
  • Line Location: INQ2+33
Function Call: WRITE
  • Prompt: ?15,$G(ICDA(ICDI))
  • Line Location: INQ2+33
Function Call: WRITE
  • Prompt: !!,?15," ** CODE INACTIVE AS OF: ",$$FMTE^XLFDT(ICDINA,"5Z")," **",!
  • Line Location: INQ2+36
Function Call: WRITE
  • Prompt: !!,?15," ** PENDING ACTIVATION ON: ",$$FMTE^XLFDT(ICDACT,"5Z")," **",!
  • Line Location: INQ2+38
Routine Call
  • DIC
  • Line Location:
    • INQ2+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] ICDRGCC+23, ICDRGCC+24, ICDRGCC+25
^ICD("B" ICDRGCC+21
^ICD9 - [#80] ISOWNCC+23, ISOWNCC+25, ISOWNCC+28, ISOWNCC+29, ISOWNCC+30, ISOWNCC+32
^ICD9("BA" ISOWNCC+23, ISOWNCC+24
^ICDID("B" IDIEN+4
^ICDIP("B" IDIEN+5

Label References

Name Line Occurrences
$$ICDIDS IDSTR+15
$$IDIEN ICDID+28
INQ2 INQ2+39

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY ICDIDS~, ICDIDS+20!
ARY( ICDIDS+32*, ICDIDS+44*, ICDIDS+46*
CDT ISOWNCC~, ISOWNCC+26, ISOWNCC+28, ICDRGCC~, ICDRGCC+19
CODE ICDID~, ICDID+20
DIC INQ+20~, INQ2+3*
DIC("A" INQ2+4*
DIC(0 INQ2+3*
DIROUT INQ+20~, INQ2+5
DIRUT INQ+20~, INQ2+5
DRG ICDRGCC~, ICDRGCC+19
DTOUT INQ+20~, INQ2+5
DUOUT INQ+20~, INQ2+5
FILE ICDID~, ICDID+18, IDIEN~, IDIEN+1, IDIEN+2, IDSTR~, IDSTR+15, ICDIDS~, ICDIDS+21
FMT ISOWNCC~, ISOWNCC+27
ICDA IDSTR+15~, INQ+20~, INQ2+10!, INQ2+13!
ICDA( IDSTR+16, INQ2+31, INQ2+32, INQ2+33
ICDACT INQ+20~, INQ2+15*, INQ2+37, INQ2+38
ICDAI ICDRGCC+18~, ICDRGCC+24*, ICDRGCC+25
ICDC ICDID+18~, ICDID+20*, ICDID+24, ICDID+25, ICDIDS+20~, ICDIDS+21*, ICDIDS+25, ICDIDS+26, ICDIDS+29*, ICDIDS+32*
, ICDIDS+33, ICDIDS+44*, ICDIDS+46*, ICDIDS+47, ISOWNCC+21~, ISOWNCC+22*, ISOWNCC+23, ISOWNCC+24, INQ+20~, INQ2+10*
, INQ2+13*, INQ2+31*, INQ2+32*, INQ2+33
ICDCC ISOWNCC+21~, ISOWNCC+31*, ISOWNCC+32*, ISOWNCC+33, ICDRGCC+18~, ICDRGCC+20*, ICDRGCC+22*, ICDRGCC+25*, ICDRGCC+26
ICDCCI ISOWNCC+21~, ISOWNCC+29*, ISOWNCC+30, ISOWNCC+32
ICDCOM INQ+20~, INQ2+11~*, INQ2+12*
ICDCS ICDIDS+20~, ICDIDS+28*, ICDIDS+33, INQ+20~, INQ2+2*, INQ2+3, INQ2+6*, INQ2+7, INQ2+16, INQ2+18
ICDCSI INQ+21~, INQ2+3*, INQ2+4, INQ2+7*, INQ2+20, INQ2+25
ICDD ISOWNCC+21~, ISOWNCC+26*, ISOWNCC+28*, ISOWNCC+29, ICDRGCC+18~, ICDRGCC+19*, ICDRGCC+20, ICDRGCC+23
ICDDA ICDRGCC+18~, ICDRGCC+23*, ICDRGCC+24
ICDDAT INQ+21~, INQ2+7*, INQ2+8*, INQ2+9, INQ2+14, INQ2+15
ICDDE ICDRGCC+18~, ICDRGCC+20*, ICDRGCC+22
ICDDT INQ+21~, INQ2+1*
ICDEFF INQ+21~, INQ2+1*, INQ2+2, INQ2+7, INQ2+8, INQ2+10, INQ2+12, INQ2+16, INQ2+19, INQ2+24
, INQ2+37
ICDF ICDID+18~*, ICDID+19, ICDID+22, ICDID+27, ICDID+28, IDIEN+1~*, IDIEN+4, IDIEN+5, ICDIDS+20~, ICDIDS+21*
, ICDIDS+22, ICDIDS+23, ICDIDS+34, ICDIDS+37, INQ+21~, INQ2+3*, INQ2+6, INQ2+7, INQ2+8, INQ2+9
, INQ2+10, INQ2+13, INQ2+15, INQ2+18
ICDFMT ISOWNCC+21~, ISOWNCC+27*, ISOWNCC+32, INQ+21~, INQ2+4*
ICDI ICDID+18~, ICDID+20*, ICDID+24, ICDID+25*, ICDID+26, ICDID+29, IDSTR+15~, IDSTR+16*, ICDIDS+20~, ICDIDS+21*
, ICDIDS+25, ICDIDS+26*, ICDIDS+27, ICDIDS+28, ICDIDS+29, ICDIDS+30, ICDIDS+40, ISOWNCC+21~, ISOWNCC+22*, ISOWNCC+23
, ISOWNCC+24*, ISOWNCC+25, ISOWNCC+28, ISOWNCC+29, ISOWNCC+30, ISOWNCC+32, ICDRGCC+18~, ICDRGCC+21*, ICDRGCC+23, ICDRGCC+24
, ICDRGCC+25, INQ+21~, INQ2+31*, INQ2+32, INQ2+33, INQ2+34*
ICDIA INQ+21~, INQ2+18*, INQ2+24, INQ2+29
ICDID ICDID+18~, ICDID+20*, ICDID+21, IDIEN+1~, IDIEN+3*, IDIEN+4, IDIEN+5, ICDIDS+20~, ICDIDS+30*, ICDIDS+31*
, ICDIDS+32
ICDIDI ICDID+18~, ICDID+28*, ICDID+29, ICDIDS+20~, ICDIDS+29*, ICDIDS+30
ICDIEN INQ+21~, INQ2+6*, INQ2+7, INQ2+8, INQ2+10, INQ2+13, INQ2+18
ICDIMP INQ+22~, INQ2+18*, INQ2+19, INQ2+23
ICDINA INQ+22~, INQ2+14*, INQ2+35, INQ2+36
ICDLT INQ+22~, INQ2+10*, INQ2+11
ICDMSG INQ+22~, INQ2+30
ICDMSG( INQ2+34
ICDMSG(1 INQ2+16*, INQ2+17*, INQ2+21*, INQ2+22*, INQ2+23*, INQ2+26*, INQ2+27*, INQ2+28*, INQ2+29*, INQ2+30
, INQ2+34
ICDN ISOWNCC+21~, ISOWNCC+30*, ISOWNCC+31
ICDOWN ISOWNCC+21~, ISOWNCC+30*, ISOWNCC+31
ICDP ICDIDS+20~, ICDIDS+41~*
ICDR INQ+22~, INQ2+3*
ICDRG ICDRGCC+18~, ICDRGCC+19*, ICDRGCC+21
ICDRT ICDID+18~, ICDID+22*, ICDID+23, ICDID+24, ICDID+25, ICDID+26, ICDID+27*, ICDID+29, ICDIDS+20~, ICDIDS+23*
, ICDIDS+24, ICDIDS+25, ICDIDS+26, ICDIDS+27, ICDIDS+28, ICDIDS+29, ICDIDS+30, ICDIDS+40, ISOWNCC+21~, ISOWNCC+22*
ICDRTI ICDIDS+20~, ICDIDS+23*, ICDIDS+31, ICDIDS+42, ICDIDS+43
ICDS IDSTR+15~*, IDSTR+16*, IDSTR+17*, IDSTR+18
ICDSO INQ+22~, INQ2+8*, INQ2+31
ICDST INQ+22~, INQ2+9*, INQ2+31
ICDSTA INQ+22~, INQ2+14*, INQ2+35, INQ2+37
ICDSTR ICDIDS+20~, ICDIDS+40*, ICDIDS+41
ICDT IDSTR+15~*, INQ+22~, INQ2+11~, INQ2+20~*, INQ2+22, INQ2+23, INQ2+25~*, INQ2+27, INQ2+28, INQ2+29
ICDV ICDIDS+34~, ICDIDS+35*, ICDIDS+36*, ICDIDS+38*, ICDIDS+39*, ICDIDS+45
ICDX ICDIDS+20~, ICDIDS+41~*, ICDIDS+42, ICDIDS+43, ICDIDS+44, ICDIDS+45, ICDIDS+46
ID ICDID~, ICDID+20, ICDID+28, IDIEN~, IDIEN+3
IEN IDSTR~, IDSTR+15, ICDIDS~, ICDIDS+21, ISOWNCC~, ISOWNCC+22
U ISOWNCC+30, ISOWNCC+31, ISOWNCC+32, ICDRGCC+25
Y INQ+22~, INQ2+6
Y(0 INQ2+8, INQ2+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All