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

Package: DRG Grouper

Routine: ICDSELDS


Information

ICDSELDS ;ALB/SJA/SS/KUM - Select ICD DIAGNOSIS FROM LEXICON UTILITY LIST ;12/07/2011

Source Information

Source file <ICDSELDS.m>

Entry Points

Name Comments DBIA/ICR reference
SEL(ICDSRL,X) ; Select from List
ASK(ICDSRL,X) ; Ask for Selection
ONE(X,ICDSRL) ; One Entry Found
MUL(ICDSRL,Y) ; Multiple Entries Found
MULW ; Write Multiple
MULS(X,Y,ICDSRL) ; Select from Multiple Entries
MULSH ; Select from Multiple Entries Help
MULQ ; Quit Multiple
X(X,ICDSRL) ; Set X and Output Array
CL ; Clear
PR(ICDSRL,X) ; Parse Array
TM(ICDX,ICDY) ; Trim Character Y - Default " "

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+14
Function Call: WRITE
  • Prompt: !
  • Line Location: MUL+5
Function Call: WRITE
  • Prompt: !," ",ICDLX," matches found"
  • Condition for execution: +ICDLX>1
  • Line Location: MUL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MUL+11
Function Call: WRITE
  • Prompt: !,$J(ICDSRLE,5),". ",$G(ICDLTX(1))
  • Line Location: MULW+5
Function Call: WRITE
  • Prompt: !,$G(ICDLHLP)
  • Line Location: MULSH+1
Info |  Source |  Entry Points |  Interaction Calls