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
Print Page as PDF
Routine: ICDGTDRG

Package: DRG Grouper

Routine: ICDGTDRG


Information

ICDGTDRG ;ALB/ADL - COLLECTION OF DRG APIS ;07/19/2012

Source Information

Source file <ICDGTDRG.m>

Entry Points

Name Comments DBIA/ICR reference
GETDRG(CODE,DGNDT,FILE) ; Get DRG or DRG string associated with a Code
  • ICR #4052
    • Status: Active
    • Usage: Private
    DRG(CODE,EDT)
  • ICR #4052
    • Status: Active
    • Usage: Private
    CODEI(CODE)
    GETDATE(PATNUM) ; Find the correct "EFFECTIVE DATE" for locating the DRG/ICD/CPT codes
  • ICR #4052
    • Status: Active
    • Usage: Private
    ISVALID(CODE,EDATE,FILE) ; Is an ICD/CPT code Valid
    ; This is a function call to be used in DIC("S") FileMan
    ; calls to check the validation of a ICD/CPT code
    ; Input:
    ; CODE - ICD/CPT code (ien)
    ; EDATE - Effective date to be used
    ; FILE - File to use: 0 - ICD0; 9 - ICD9
  • ICR #4052
    • Status: Active
    • Usage: Private
    DRGD(CODE,OUTARR,DFN,CDT) ; returns DRG description in array
    ; Input: CODE ICD Code, Internal or External Format (required)
    ; ARY Output Array Name for description
    ; e.g. "ABC" or "ABC("TEST")"
    ; Default = ^TMP("DRGD",$J)
    ; DFN Not in use but included in anticipation of future need
    ; CDT Date to screen against (default = TODAY)
    ; If CDT < 10/1/1978, use 10/1/1978
    ; If CDT > DT, use DT
    ; If CDT is year only, use first of the year
    ; If CDT is year and month only, use first of the month
    ;
    ; Output: # Number of lines in description output array
    ; @ARY(1:n) - Versioned Description (lines 1-n) (from the 68 multiple)
    ; @ARY(n+1) - Blank
    ; @ARY(n+1) - A message stating: CODE TEXT MAY BE INACCURATE
    ;
    ; or
    ;
    ; -1^Error Description
    ;
    ; ** NOTE - USER MUST INITIALIZE ^TMP("DRGD",$J), IF USED **
  • ICR #4052
    • Status: Active
    • Usage: Private
    VLTDR(IEN,VDATE,ARY) ; Versioned Description - Long Text
    ; Input:
    ; IEN - Internal Entry Number file 80.2
    ; VDATE - Effective/Versioning date to be used
    ; .ARY - Array for output, passed by reference
    CODEN(CODE) ; Return the IEN of DRG
    Info |  Source |  Entry Points