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

Package: Prosthetics

Routine: RMPOICD2


Information

RMPOICD2 ;ALB/MGD - Select ICD DIAGNOSIS FROM LEXICON UTILITY LIST ;12/07/2011

Source Information

Source file <RMPOICD2.m>

Entry Points

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

Interaction Calls

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