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

Package: DRG Grouper

Routine: ICDGTDRG


Information

ICDGTDRG ;ALB/ADL - COLLECTION OF DRG APIS ;04/21/2014

Source Information

Source file <ICDGTDRG.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
DRG Grouper 1 ($$CODEN,$$DRG,$$DRGD,$$DRGDES,$$DRGN,$$GETDATE,$$GETDRG,$$ISVALID)^ICDEX  

Caller Graph

Caller Graph Total: 34

Package Total Caller Graph
Registration 30 DGPTDRG  DGPTF4  DGPTF5  DGPTFAPI  DGPTFD  DGPTFJC  DGPTFM  DGPTFM0  
DGPTFM2  DGPTFM3  DGPTFM4  DGPTFM5  DGPTFM6  DGPTFMO  DGPTFQWK  DGPTFTR0  
DGPTFVC1  DGPTICD  DGPTLMU4  DGPTODI3  DGPTOLC2  DGPTR0  DGPTR2  DGPTR4  
DGPTSUD1  DGPTSUDO  DGPTTRIM  DGPTTS  DGPTTS1  DGPTUTL1  
DRG Grouper 3 ICDDRG0  ICDEXD2  ICDID  
Lexicon Utility 1 LEXQID3  

Entry Points

Name Comments DBIA/ICR reference
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
CODEI(CODE)
GETDATE(PATNUM) ; Find the correct "EFFECTIVE DATE" for locating the DRG/ICD/CPT codes
  • ICR #4052
    • Status: Active
    • Usage: Private
    GETDRG(CODE,DGNDT,FILE) ; Get DRG or DRG string associated with a Code
  • 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
    DRG(CODE,EDT)
  • 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
    CODEN(CODE) ; Return the IEN of DRG

    External References

    Name Field # of Occurrence
    $$CODEN^ICDEX CODEI+1
    $$DRG^ICDEX DRG+37
    $$DRGD^ICDEX DRGD+22
    $$DRGDES^ICDEX VLTDR+9
    $$DRGN^ICDEX CODEN+5
    $$GETDATE^ICDEX GETDATE+5
    $$GETDRG^ICDEX GETDRG+19
    $$ISVALID^ICDEX ISVALID+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ARY VLTDR~, VLTDR+9
    CDT DRGD~, DRGD+22
    CODE GETDRG~, GETDRG+19, DRG~, DRG+37, CODEI~, CODEI+1, ISVALID~, ISVALID+11, DRGD~, DRGD+22
    , CODEN~, CODEN+5
    DFN DRGD~
    DGNDT GETDRG~, GETDRG+19
    EDATE ISVALID~, ISVALID+11
    EDT DRG~, DRG+37
    FILE GETDRG~, GETDRG+19, ISVALID~, ISVALID+11
    >> ICDMDC GETDRG+19
    IEN VLTDR~, VLTDR+9
    OUTARR DRGD~, DRGD+22
    PATNUM GETDATE~, GETDATE+5
    VDATE VLTDR~, VLTDR+9
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Local Variables |  All