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

Package: DRG Grouper

Routine: ICDCOD


Information

ICDCOD ;ALB/ABR/ADL/KUM - INQUIRE TO ICD CODES ;10/23/00 11:36am

Source Information

Source file <ICDCOD.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DATE
1 ;ICD-9 DIAGNOSIS CODE
2 ;ICD-9 OPERATION/PROCEDURE
3 ;ICD-10 DIAGNOSIS CODE
4 ;ICD-10 OPERATION/PROCEDURE
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: !!,$P(ICDTMP,U,2),?15,$P(ICDTMP,U,4),!,$P(ICDTMP,U,11)," ",$P(ICDTMP,U,18),!
  • Line Location: 1+5
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !!,$P(ICDTMP,U,2),?15,$P(ICDTMP,U,5),!,$P(ICDTMP,U,11)," ",$P(ICDTMP,U,14),!
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: 2+5
Info |  Source |  Entry Points |  Interaction Calls