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

Package: DRG Grouper

Routine: ICDSELPS


Information

ICDSELPS ;ALB/KUM - Select ICD PROCEDURE FROM A LIXICON UTILITY LIST ;12/07/2011

Source Information

Source file <ICDSELPS.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 Entries Selection
X(X,ICDSRL) ; Set X and Outpot Array
CL ; Clear
PR(ICDSRL,X) ; Parse Array
TM(X,Y) ; Trim Character Y - Default " "

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: MUL+4
Function Call: WRITE
  • Prompt: !," ",ICDSRLX," matches found for character ",$L($G(ICDPRC))+1,"."
  • Condition for execution: +ICDSRLX>1
  • Line Location: MUL+4
Function Call: WRITE
  • Prompt: !
  • Line Location: MUL+10
Function Call: WRITE
  • Prompt: !,$J(ICDSRLE,5),". ",$G(ICDSRLTX(1))
  • Line Location: MULW+4
Function Call: WRITE
  • Prompt: !,$G(ICDSRHLP)
  • Line Location: MULSH+1
Info |  Source |  Entry Points |  Interaction Calls