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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ICDDICA

Package: DRG Grouper

Routine: ICDDICA


Information

ICDDICA ;SLC/KER - ICD DIC Lookup Prototype ;04/21/2014

Source Information

Source file <ICDDICA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DP(X) ; Diagnosis or Procedure
DPP(X) ; Diagnosis or Procedure - Pre-process
DPH ; Diagnosis or Procedure - Help
OA(X) ; One or All Coding System
OAP(X) ; One or All Coding System - Pre-process
OAH ; One or All Coding System - Help
CS(X) ; Coding System
CSH ; One or All Coding System - Help
VR(X) ; Versioned Search
VRP(X) ; Diagnosis or Procedure - Pre-process
VRH ; Diagnosis or Procedure - Help
VD(X) ; Versioned Date
VDP(X) ; Diagnosis or Procedure - Pre-process
VDH ; Diagnosis or Procedure - Help
FM(X) ; Diagnosis or Procedure
FMP(X) ; Diagnosis or Procedure - Pre-process
FMH ; Display Format - Help
SAV(X,ICDV) ; Save Defaults
RET(X) ; Retrieve Defaults
EFM(X) ; Convert External Date to FM
TM(X,Y) ; Trim Character Y - Default " "

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,?5,"Enter 'D' or 'Diagnosis' to search the ICD DIAGNOSIS file #80"
  • Line Location: DPH+1
Function Call: WRITE
  • Prompt: !,?5,"Enter 'P' or 'Procedures' to search the ICD PROCEDURE file #80.1"
  • Line Location: DPH+2
Function Call: WRITE
  • Prompt: !,?5,"Enter '^' to quit, and 'Return' to accept the default value."
  • Line Location: DPH+3
Function Call: WRITE
  • Prompt: !,?5,"Enter 'O' to search one coding system "
  • Line Location: OAH+1
Function Call: WRITE
  • Prompt: "in file ",$G(ICDF)
  • Condition for execution: +($G(ICDF))>0
  • Line Location: OAH+1
Function Call: WRITE
  • Prompt: !,?5,"Enter 'A' to search all coding systems "
  • Line Location: OAH+2
Function Call: WRITE
  • Prompt: "in file ",$G(ICDF)
  • Condition for execution: +($G(ICDF))>0
  • Line Location: OAH+2
Function Call: WRITE
  • Prompt: !,?15,ICDS
  • Line Location: OAH+6
Function Call: WRITE
  • Prompt: !,?5,"Answer with ICD CODING SYSTEMS (i.e., "
  • Line Location: CSH+1
Function Call: WRITE
  • Prompt: $S(+ICDF=80:"ICD-10-CM",+ICDF=80.1:"ICD-10-PCS",1:"ICD-10-CM")
  • Line Location: CSH+2
Function Call: WRITE
  • Prompt: " or ICD CODING SYSTEM NOMENCLATURE, or"
  • Line Location: CSH+3
Function Call: WRITE
  • Prompt: ?5,"CODING SYSTEM ABBREVIATION"
  • Line Location: CSH+4
Function Call: WRITE
  • Prompt: !,?15,ICDS
  • Line Location: CSH+9
Function Call: WRITE
  • Prompt: !,?5,"Enter 'Yes' to conduct a versioned search (date sensitive) or"
  • Line Location: VRH+1
Function Call: WRITE
  • Prompt: !,?5,"enter 'No' to contuct an unversioned search.",!
  • Line Location: VRH+2
Function Call: WRITE
  • Prompt: !,?5,"NOTE: Inactive codes will NOT be displayed during a versioned"
  • Line Location: VRH+3
Function Call: WRITE
  • Prompt: !,?5," search (date sensitive) and will be displayed during an "
  • Line Location: VRH+4
Function Call: WRITE
  • Prompt: !,?5," unversioned search (date doesn't matter)."
  • Line Location: VRH+5
Function Call: WRITE
  • Prompt: !,?5,"Enter a date from ",$$FMTE^XLFDT($G(ICDD1))," to ",$$FMTE^XLFDT($G(ICDD2)),". Time is"
  • Line Location: VDH+1
Function Call: WRITE
  • Prompt: !,?5,"allowed but not required. Code Set Business rules apply"
  • Line Location: VDH+2
Function Call: WRITE
  • Prompt: !,?5,"for imprecise dates:",!
  • Line Location: VDH+3
Function Call: WRITE
  • Prompt: !,?5," Month is missing: Use January"
  • Line Location: VDH+4
Function Call: WRITE
  • Prompt: !,?5," Day is missing: Use the 1st"
  • Line Location: VDH+5
Function Call: WRITE
  • Prompt: !,?5,"Enter "
  • Line Location: FMH+22
Function Call: WRITE
  • Prompt: !,?5," 1 FileMan format, code followed by short text (default):"
  • Line Location: FMH+23
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+24
Function Call: WRITE
  • Prompt: !,?5," ",ICDCOD," ",ICDSHRT
  • Line Location: FMH+25
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+26
Function Call: WRITE
  • Prompt: !,?5," 2 Modified FileMan format, code followed by description:"
  • Line Location: FMH+27
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+28
Function Call: WRITE
  • Prompt: !,?5," ",ICDCOD," ",ICDLONG
  • Line Location: FMH+29
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+30
Function Call: WRITE
  • Prompt: !,?5," 3 Short Lexicon format, short text followed by code:"
  • Line Location: FMH+31
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+32
Function Call: WRITE
  • Prompt: !,?5," ",ICDSHRT," (",ICDCOD,")"
  • Line Location: FMH+33
Function Call: WRITE
  • Prompt: !,?5,""
  • Line Location: FMH+34
Function Call: WRITE
  • Prompt: !,?5," 4 Long Lexicon format, description followed by code:"
  • Line Location: FMH+35
Function Call: WRITE
  • Prompt: !,?5," "
  • Line Location: FMH+36
Function Call: WRITE
  • Prompt: !,?5," ",ICDMIX," (",ICDCOD,")"
  • Line Location: FMH+37
Function Call: WRITE
  • Prompt: !,?5," "
  • Line Location: FMH+38

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call