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

Package: DRG Grouper

Routine: ICDCODLK


Information

ICDCODLK ;KUM - LOOK UP ICD-10 PROCEDURE CODE;12/07/2011

Source Information

Source file <ICDCODLK.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Initialize variables
LOOK ; Look-up term
AGAIN ; Try again?
ASK ; Get user input
ASKCONT1 ; Tag to continue when ICDPRC doesnt have *
ASKCNT2
INPHLP ; Look-up help
EXIT ; Clean up environment and quit
X(ICDLEX) ; Evaluate X
Y(ICDLEX) ; Evaluate Y
LOAD ; Load data
PRCDESC ; Display Descriptions of each character
GICDPRC ; Get ICDPRC from User
AA ; Read character by character
BB ;Exit
PRCDESCB ; Call Before PRCDESC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOK+1
Function Call: WRITE
  • Prompt: !,"Try another"
  • Line Location: AGAIN+1
Function Call: WRITE
  • Prompt: !!,"You have searched for a string in the Lexicon, do you want to"
  • Line Location: AGAIN+3
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID ICD PROCEDURE CODE"
  • Line Location: ASK+22
Function Call: WRITE
  • Prompt: !!,ICDPRC,?15,ICDPDESC,!
  • Line Location: ASKCONT1+8
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: ASKCONT1+10
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID PROCEDURE CODE."
  • Line Location: ASKCONT1+12
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID ICD PROCEDURE CODE"_$S($G(ICDXX1):". IGNORING THE PROCEDURE CODE",1:".")
  • Line Location: ASKCONT1+14
Function Call: READ
  • Variable: ICDQWE
  • Timeout: 300
  • Line Location: ASKCONT1+19
Function Call: WRITE
  • Prompt: !,"OK? (Yes/No) "
  • Line Location: ASKCONT1+21
Function Call: WRITE
  • Prompt: !," Enter a ""free text"" term. Best results occur using one to "
  • Line Location: INPHLP+2
Function Call: WRITE
  • Prompt: !," three full or partial words without a suffix"
  • Line Location: INPHLP+3
Function Call: WRITE
  • Prompt: !," or "
  • Line Location: INPHLP+7
Function Call: WRITE
  • Prompt: !," Enter a classification code (ICD/CPT etc) to find the single "
  • Line Location: INPHLP+8
Function Call: WRITE
  • Prompt: !," term associated with the code."
  • Line Location: INPHLP+9
Function Call: WRITE
  • Prompt: !," or "
  • Line Location: INPHLP+14
Function Call: WRITE
  • Prompt: !," Enter a classification code (ICD/CPT etc) followed by a plus"
  • Line Location: INPHLP+15
Function Call: WRITE
  • Prompt: !," sign (+) to retrieve all terms associated with the code."
  • Line Location: INPHLP+16
Function Call: WRITE
  • Prompt: ICDC_" - "_LEXPCDAT("NEXLEV",ICDLOAD,"DESC")
  • Line Location: PRCDESC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCDESC+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: AA+2
Function Call: WRITE
  • Prompt: "Press '*' to display available choices for next character or '^' to exit."
  • Line Location: AA+3
Function Call: WRITE
  • Prompt: !,ICDPRT_ICDPRC
  • Line Location: AA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BB+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRCDESCB+1
Function Call: WRITE
  • Prompt: "Press '*' to display available choices for next character or '^' to exit."
  • Line Location: PRCDESCB+2
Function Call: WRITE
  • Prompt: !,"ICD-10 Procedure code:"_ICDPRC
  • Line Location: PRCDESCB+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCDESCB+4
Info |  Source |  Entry Points |  Interaction Calls