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 ;07/19/2012

Source Information

Source file <ICDGTDRG.m>

Call Graph

Call Graph

Call Graph Total: 1

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

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

Package Total Caller Graph
Registration 16 DGPTF5  DGPTFD  DGPTFJC  DGPTFM  DGPTFM2  DGPTFM3  DGPTFM4  DGPTFM5  
DGPTFMO  DGPTFQWK  DGPTICD  DGPTLMU4  DGPTODI3  DGPTSUD1  DGPTTRIM  DGPTUTL1  
DRG Grouper 4 ICDDG010  ICDDRG0  ICDEXD2  ICDID  
Fee Basis 1 FBCSV1  
Integrated Billing 1 IBACSV  
Lexicon Utility 1 LEXQID3  

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

    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+18
    $$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+18, DRG~, DRG+37, CODEI~, CODEI+1, ISVALID~, ISVALID+11, DRGD~, DRGD+22
    , CODEN~, CODEN+5
    DFN DRGD~
    DGNDT GETDRG~, GETDRG+18
    EDATE ISVALID~, ISVALID+11
    EDT DRG~, DRG+37
    FILE GETDRG~, GETDRG+18, ISVALID~, ISVALID+11
    >> ICDMDC GETDRG+18
    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