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

Package: DRG Grouper

Routine: ICDEXD6


Information

ICDEXD6 ;SLC/KER - ICD Extractor - DRG APIs (cont) ;12/19/2014

Source Information

Source file <ICDEXD6.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 2 ^%DT  ^DIR  
DRG Grouper 1 $$EXC^ICDEX  
Kernel 1 ($$DT,$$FMADD,$$FMTE)^XLFDT  

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
UPDX(IEN) ; Unacceptable as Principle DX
POAE(X) ; Present on Admission (POA) Exempt
HAC(X) ; Hospital Acquired Conditions (HACS)
EFM(X) ; Convert External Date to FM
FY(X) ;Return FY
DRGN(CODE) ; Return the IEN of DRG
DRGC(IEN) ; DRG Code
DRGW(IEN) ; DRG Weighted Work Unit (WWU)
EFD(X) ; Get Effective date in range (interactive)
EFFH ; Effective Date Help

External References

Name Field # of Occurrence
^%DT EFM+12
^DIR EFD+37
$$EXC^ICDEX UPDX+13
$$DT^XLFDT EFD+27
$$FMADD^XLFDT EFD+31
$$FMTE^XLFDT 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] DRGC+12, DRGC+13, DRGW+12, DRGW+13
^ICD("B" DRGN+15
^ICD9 - [#80] UPDX+14, POAE+13, POAE+14, HAC+13
^ICDHAC("C" HAC+14
^ICDS - [#80.4] EFD+28, EFD+29

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EFM+12~!
COD DRGN+15~*, DRGN+16
CODE DRGN~, DRGN+14, DRGN+15
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
DTOUT EFD+26~, EFD+37
DUOUT EFD+26~
ICDEXC UPDX+13~*
ICDH EFD+26~, EFD+27*, EFD+30*, EFD+31*, EFD+32, EFD+33, EFD+35, EFFH+1, EFFH+3
ICDI EFD+26~, EFD+27*, EFD+28*, EFD+29
ICDIMP EFD+26~, EFD+29~*, EFD+30
ICDT EFD+26~, EFD+27*, EFD+31
IEN UPDX~, UPDX+13, UPDX+14, POAE+13, POAE+14, HAC+13, HAC+14, DRGC~, DRGC+12*, DRGC+13
, DRGW~, DRGW+12*, DRGW+13
X POAE~, POAE+13, HAC~, HAC+13, 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