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

Package: DRG Grouper

Routine: ICDDIC


Information

ICDDIC ;ISL/KER - ICD Code Lookup Prototype (DIC) ;04/21/2014

Source Information

Source file <ICDDIC.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main Entry Point
EN2 ; Entry Point that Input Displays Variables
ICD10D ;
ICD10P ;
ICD9D ;
ICD9P ;
OUT ; Output
SHOW ; Show Lookup Variables
QM(X) ; Quote Marks
TM(X,Y) ; Trim Character Y - Default " "

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD10D+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD10P+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD9D+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ICD9P+2
Function Call: WRITE
  • Prompt: !!,?1,ICDCOD,?15,ICDSHT
  • Line Location: OUT+23
Function Call: WRITE
  • Prompt: !!,?1,"Description:",?15,$G(ICDARY(1))
  • Line Location: OUT+24
Function Call: WRITE
  • Prompt: !,?15,$G(ICDARY(ICDI))
  • Line Location: OUT+25
Function Call: WRITE
  • Prompt: !!,?1,"History:"
  • Condition for execution: ICDC=1
  • Line Location: OUT+35
Function Call: WRITE
  • Prompt: ?15,$G(ICDEDT),?30,ICDST,ICDP,!
  • Line Location: OUT+35
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !," FileMan Variables",!
  • Condition for execution: $L($G(DIC))!($L($G(DIC(0))))!($L($G(DIC("A"))))
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,?2," Display Format:",?27,"ICDFMT=""",$$QM($G(ICDFMT)),""""
  • Line Location: SHOW+26
Info |  Source |  Entry Points |  Interaction Calls