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

Local Variables

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Local Variables | All