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 |  Local Variables |  All
Print Page as PDF
Routine: ICDEXD2

Package: DRG Grouper

Routine: ICDEXD2


Information

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

Source Information

Source file <ICDEXD2.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
DRG Grouper 3 ($$DTBR,$$EXC,$$FILE,$$GETDRG,$$ROOT,$$SAI)^ICDEX  $$DRGMDC^ICDEXD  ($$DRG,DRGD)^ICDGTDRG  
VA Fileman 2 ^%DT  ^DIR  
Kernel 1 ($$DT,$$FMADD,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
DRG Grouper 2 ICDEX  ICDEXD  

Entry Points

Name Comments DBIA/ICR reference
MDCG(IEN,CDT,ARY) ; Set up ICDMDC() array
MDCD(IEN,MDC,CDT) ; Check for default MDC
MD(FILE,IEN,CDT,ARY,FLAG) ; MDC DRGs
FY(X) ;Return FY
MOR(IEN) ; Major O.R. Procedure
MDCT(IEN,CDT,ARY,FMT) ; For Multiple MDC DX Codes
VMDCDX(IEN,CDT) ; Get versioned MDC for Diagnosis Code
EFM(X) ; Convert External Date to FM
REF(IEN,CDT) ; Return Reference Table
ISVALID(FILE,IEN,CDT) ; Is an ICD code Valid
MDCN(IEN) ; Major Diagnostic Category Name
VMDCOP(IEN,MDC,CDT) ; Get versioned MDC for Op/Pro ICD code from previous years
EFD(X) ; Get Effective date in range (interactive)
EFFH ; Effective Date Help
UPDX(IEN) ; Unacceptable as Principle DX

External References

Name Field # of Occurrence
^%DT EFM+12
^DIR EFD+37
$$DTBR^ICDEX VMDCDX+12, VMDCOP+21, MDCG+16
$$EXC^ICDEX UPDX+13, ISVALID+21
$$FILE^ICDEX ISVALID+18
$$GETDRG^ICDEX MDCG+17
$$ROOT^ICDEX MD+44, ISVALID+19
$$SAI^ICDEX ISVALID+24
$$DRGMDC^ICDEXD MD+73
$$DRG^ICDGTDRG MDCG+19
DRGD^ICDGTDRG MD+61, MD+81
$$DT^XLFDT MD+44, MDCT+28, EFD+27, ISVALID+17, REF+15
$$FMADD^XLFDT EFD+31
$$FMTE^XLFDT MD+57, MD+77, EFD+34, EFD+35, EFD+38, EFFH+2, EFFH+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Enter an effective date from ",$$FMTE^XLFDT(2781001,"5Z")
  • Line Location: EFFH+2
Function Call: WRITE
  • Prompt: " to ",$$FMTE^XLFDT($G(ICDH),"5Z")
  • Line Location: EFFH+3
Function Call: WRITE
  • Prompt: !,?5,"to be used to select or calculated time sensitive data.",!
  • Line Location: EFFH+4
Function Call: WRITE
  • Prompt: !,?5,"Examples of Valid Dates:"
  • Line Location: EFFH+5
Function Call: WRITE
  • Prompt: !,?5," JAN 20 1980 or 20 JAN 80 or 1/20/57 or 012080"
  • Line Location: EFFH+6
Function Call: WRITE
  • Prompt: !,?5," T (for TODAY), T+1 (for TOMORROW), T+2, T+7, etc."
  • Line Location: EFFH+7
Function Call: WRITE
  • Prompt: !,?5," T-1 (for YESTERDAY), T-3W (for 3 WEEKS AGO), etc."
  • Line Location: EFFH+8
Function Call: WRITE
  • Prompt: !,?5,"If the year is omitted, the computer uses CURRENT YEAR. "
  • Line Location: EFFH+9
Function Call: WRITE
  • Prompt: !,?5,"Two digit year assumes no more than 20 years in the future,"
  • Line Location: EFFH+10
Function Call: WRITE
  • Prompt: !,?5," or 80 years in the past."
  • Line Location: EFFH+11
Routine Call
  • DIR
  • Line Location:
    • EFD+37

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICD - [#80.2] REF+13, REF+16, REF+17, REF+18
^ICD0 - [#80.1] MD+47, MD+48, MD+49, MD+50, MD+51, MD+53, VMDCOP+19, VMDCOP+20, VMDCOP+22, VMDCOP+23
, VMDCOP+24, MDCT+26, MDCT+27, MDCT+30, MDCT+31, MDCT+32, MDCD+16, MDCD+17, MDCD+18, MDCD+19
, MOR+10
^ICD9 - [#80] MD+64, MD+65, MD+66, MD+67, MD+68, MD+69, MD+70, MD+72, VMDCDX+11, VMDCDX+12
, VMDCDX+13, VMDCDX+14, VMDCDX+15, MDCG+15, UPDX+14
^ICDS - [#80.4] EFD+28, EFD+29
^ICM - [#80.3] MD+57, MD+77, MDCN+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EFM+12~!
ARY MD~, MD+46!, MDCG~, MDCG+16!*, MDCT~
ARY( MD+54*, MD+58*, MD+62*, MD+74*, MD+78*, MD+82*, MDCG+19*, MDCT+29
CDT MD~, MD+43*, MD+44*, MD+47, MD+61, MD+64, MD+81, VMDCDX~, VMDCDX+12, VMDCOP~
, VMDCOP+21, MDCG~, MDCG+16, MDCT~, MDCT+28*, MDCT+30, MDCD~, MDCD+17, ISVALID~, ISVALID+17
, REF~, REF+14
DIR EFD+26~
DIR("?" EFD+36*
DIR("??" EFD+36*
DIR("A" EFD+33*, EFD+34*, EFD+35*
DIR("B" EFD+33*
DIR("PRE" EFD+36*
DIR(0 EFD+32*
DIROUT EFD+26~, EFD+37
DIRUT EFD+26~, EFD+37
DRG MD+40~, MD+52*, MD+53*, MD+71*, MD+72*, MDCG+19~*
DRGI MD+56~, MD+59*, MD+60, MD+62, MD+76~, MD+79*, MD+80, MD+82
DRGOUT MD+56~, MD+60~, MD+61!, MD+76~, MD+80~, MD+81!
DRGOUT(1 MD+62, MD+82
DRGS MDCG+15~, MDCG+17*, MDCG+18, MDCG+19
DTOUT EFD+26~, EFD+37
DUOUT EFD+26~
ED MD+56~, MD+57*, MD+58, MD+76~, MD+77*, MD+78
EMDC MD+56~, MD+57*, MD+58, MD+76~, MD+77*, MD+78
FILE MD~, MD+41*, MD+42, MD+44, MD+46, MD+63, ISVALID~, ISVALID+16*, ISVALID+18, ISVALID+19
FLAG MD~, MD+40*, MD+55, MD+75
FMT MDCT~, MDCT+29*, MDCT+36
FY MD+40~, MD+47*, MD+48*, MD+49, MD+54, MD+57, MD+58, MD+62, MD+64*, MD+65*
, MD+66, MD+70, MD+74, MD+77, MD+78, MD+82, MDCT+25~, MDCT+30~*, MDCT+31
FYI MDCT+25~, MDCT+30~, MDCT+31*, MDCT+32
FYIEN MD+40~, MD+49*, MD+50, MD+51, MD+53, MD+70*, MD+72
I MDCG+15~, MDCG+18*, MDCG+19, MDCT+25~, MDCT+29*
ICDC VMDCOP+19~, VMDCOP+20*, VMDCOP+24, VMDCOP+26, MDCG+15~
ICDD VMDCDX+11~, VMDCDX+12*, VMDCDX+13, VMDCOP+19~, VMDCOP+21*, VMDCOP+22*, VMDCOP+23, MDCG+15~, MDCG+16*, MDCG+17
, MDCG+19, MDCD+16~, MDCD+17*, ISVALID+15~, ISVALID+17*, ISVALID+24, REF+12~, REF+14*, REF+15*, REF+16
ICDEXC UPDX+13~*
ICDF MDCD+16~, MDCD+17*, MDCD+18*, MDCD+19, ISVALID+15~, ISVALID+18*, ISVALID+21, ISVALID+24
ICDFY REF+12~, REF+14*, REF+16*, REF+17
ICDH EFD+26~, EFD+27*, EFD+30*, EFD+31*, EFD+32, EFD+33, EFD+35, EFFH+1, EFFH+3
ICDI VMDCDX+11~*, VMDCDX+12, VMDCDX+13, VMDCDX+14, VMDCDX+15, VMDCOP+19~*, VMDCOP+20, VMDCOP+22, VMDCOP+23, VMDCOP+24
, EFD+26~, EFD+27*, EFD+28*, EFD+29, ISVALID+15~, ISVALID+19*, ISVALID+20, ISVALID+21, ISVALID+24, REF+12~
, REF+13*, REF+16, REF+17, REF+18
ICDIMP EFD+26~, EFD+29~*, EFD+30
ICDM VMDCDX+11~, VMDCDX+13*, VMDCDX+14*, VMDCDX+15, VMDCOP+19~, VMDCOP+21*, VMDCOP+22, VMDCOP+24*, VMDCOP+26, MDCD+16~*
, MDCD+18, MDCD+19
ICDO VMDCOP+19~, VMDCOP+23*, VMDCOP+25, VMDCOP+26, MDCG+15~, MDCG+16*, ISVALID+15~*, ISVALID+18, ISVALID+20, ISVALID+21
, ISVALID+24*, ISVALID+25
ICDR ISVALID+15~, ISVALID+19*, ISVALID+20, REF+12~, REF+14*, REF+17*, REF+18*, REF+19
ICDS VMDCDX+11~, VMDCDX+12*, VMDCOP+19~, VMDCOP+20*, VMDCOP+21, MDCG+15~*, MDCG+16
ICDT EFD+26~, EFD+27*, EFD+31, ISVALID+15~
ICDTMP MDCG+15~, MDCG+17*
ICDX ISVALID+15~, ISVALID+21*
ICDY VMDCDX+11~, VMDCDX+13*, VMDCDX+14, VMDCOP+19~, VMDCOP+21*, VMDCOP+23*, VMDCOP+24, VMDCOP+26, MDCD+16~*, MDCD+17
, MDCD+18, MDCD+19
IDRG MD+56~, MD+60~*, MD+61, MD+62, MD+76~, MD+80~*, MD+81, MD+82
IEN MD~, MD+43*, MD+47, MD+48, MD+49, MD+50, MD+51, MD+53, MD+64, MD+65
, MD+66, MD+67, MD+68, MD+69, MD+70, MD+72, VMDCDX~, VMDCDX+11, VMDCOP~, VMDCOP+19
, MDCG~, MDCG+15*, MDCG+16, MDCG+17, MDCT~, MDCT+26*, MDCT+27, MDCT+30, MDCT+31, MDCT+32
, MDCD~, MDCD+16, MDCN~, MDCN+12, MOR~, MOR+10, UPDX~, UPDX+13, UPDX+14, ISVALID~
, ISVALID+19, REF~, REF+13
MD MDCT+25~, MDCT+29*, MDCT+32, MDCT+33
MDC MD+40~, MD+50*, MD+51, MD+54, MD+57, MD+58, MD+62, MD+69*, MD+73*, MD+74
, MD+77, MD+78, MD+82, VMDCOP~, VMDCOP+20, MDCG+19~*, MDCT+25~, MDCT+30~, MDCT+32*, MDCT+33
, MDCT+34, MDCD~, MDCD+16
MDCIEN MD+40~, MD+51*, MD+53
MY MD+40~, MD+66*, MD+67*, MD+68
MYIEN MD+40~, MD+68*, MD+69
OK MDCT+25~, MDCT+29*, MDCT+34*, MDCT+36*, MDCT+37
ROOT MD+40~, MD+44*, MD+45
STA MD+40~, MD+47*, MD+48*, MD+54, MD+64*, MD+65*, MD+74
STR MD+40~, MD+52*, MD+53*, MD+54, MD+59, MD+60, MD+71*, MD+72*, MD+73, MD+74
, MD+79, MD+80, MDCT+25~, MDCT+29*, MDCT+33*, MDCT+35*, MDCT+36
U VMDCDX+15, REF+18
X EFM~, FY~, FY+12*, FY+13*, FY+14, EFD~, EFD+38*, EFD+39
Y EFM+12~, EFM+13, EFD+26~, EFD+38
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All