ICDGTDRG ;ALB/ADL - COLLECTION OF DRG APIS ;07/19/2012
Source file <ICDGTDRG.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETDRG(CODE,DGNDT,FILE) | ; Get DRG or DRG string associated with a Code
|
|
DRG(CODE,EDT) |
|
|
CODEI(CODE) | ||
GETDATE(PATNUM) | ; Find the correct "EFFECTIVE DATE" for locating the DRG/ICD/CPT codes
|
|
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 |
|
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 ** |
|
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
|