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 |  Interaction Calls
Print Page as PDF
Routine: ICDEXD4

Package: DRG Grouper

Routine: ICDEXD4


Information

ICDEXD4 ;SLC/KER - ICD Extractor - DRG APIs (cont) ;04/21/2014

Source Information

Source file <ICDEXD4.m>

Entry Points

Name Comments DBIA/ICR reference
ICDID(FILE,ID,CODE) ; Check if ICD identifier exist
;
; Input:
IDIEN(FILE,ID) ; Get IEN for identifier
IDSTR(FILE,IEN) ; Return ICD identifier string (legacy)
;
; Input:
ICDIDS(FILE,IEN,ARY) ; Return array of ICD identifiers
;
; Input:
ISOWNCC(IEN,CDT,FMT) ; Return CC if DX is Own CC
;
; Input:
ICDRGCC(DRG,CDT) ; Get CC/MCC flag from DRG
;
; Input:
INQ ; Inquire to ICD codes (interactive)
;
; User will be prompted for:
;
; Effective Date
; File
; Code
;
; Displays Code
; Short Text
; Description
; Description Warnings (if any)
; Text may be inaccurate, Effective Date
; Predates Code Set Versioning
; Predates Coding System Implementation
; Predates Initial Activation Date
; Activation Warnings (if any)
; Code is Inactive
; Code is pending (activated in the future)
;
INQ2 ; Inquire to ICD codes (recursive)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," Effective Date not specified"
  • Line Location: INQ2+1
Function Call: WRITE
  • Prompt: !!," File not specified"
  • Line Location: INQ2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: INQ2+5
Function Call: WRITE
  • Prompt: !!," Try again later"
  • Condition for execution: $D(DTOUT)
  • Line Location: INQ2+5
Function Call: WRITE
  • Prompt: !
  • Line Location: INQ2+33
Function Call: WRITE
  • Prompt: !," Description"
  • Condition for execution: ICDC=1
  • Line Location: INQ2+33
Function Call: WRITE
  • Prompt: ?15,$G(ICDA(ICDI))
  • Line Location: INQ2+33
Function Call: WRITE
  • Prompt: !!,?15," ** CODE INACTIVE AS OF: ",$$FMTE^XLFDT(ICDINA,"5Z")," **",!
  • Line Location: INQ2+36
Function Call: WRITE
  • Prompt: !!,?15," ** PENDING ACTIVATION ON: ",$$FMTE^XLFDT(ICDACT,"5Z")," **",!
  • Line Location: INQ2+38
Info |  Source |  Entry Points |  Interaction Calls