Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls