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

Package: Registration

Routine: DGICP


Information

DGICP ;AL/AAS/PLT KUM,WIOFO/PMK - LOOK UP ICD-10 PROCEDURE CODE ;04/15/2015 1:17 PM

Source Information

Source file <DGICP.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOK+2
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID ICD PROCEDURE CODE"
  • Line Location: ASK+23
Function Call: WRITE
  • Prompt: !," ",ICDPDESC
  • Line Location: ASK+32
Function Call: WRITE
  • Prompt: " AS OF ",Y," **",!
  • Line Location: ASK+34
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT VALID"
  • Line Location: ASK+36
Function Call: WRITE
  • Prompt: !,ICDPRC_" IS NOT A VALID ICD PROCEDURE CODE"
  • Line Location: ASK+37
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: !
  • 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: !,"ICD-10 Procedure code:"_ICDPRC
  • Line Location: AA+4
Function Call: WRITE
  • Prompt: !
  • Line Location: BB+1
Function Call: WRITE
  • Prompt: !,"ICD-10 Procedure code:"_ICDPRC
  • Line Location: PRCDESCB+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRCDESCB+2
Info |  Source |  Entry Points |  Interaction Calls