Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SRSLOOK1

Package: Surgery

Routine: SRSLOOK1


Information

SRSLOOK1 ;B'HAM ISC/MAM - ICD DIAGNOSIS LOOK-UP ; 17 MAR 1992 8:45 am

Source Information

Source file <SRSLOOK1.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
START
REPAIR ; search on remainder of text without 'REPAIR'
HELP
FIRST ; search on first word of text

External References

Name Field # of Occurrence
^DIC START+4, START+7, FIRST+5, REPAIR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Based on the free-text procedure name entered, the computer will attempt to",!,"match the appropriate ICD Diagnosis Code."
  • Line Location: START+0
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: START+1
Function Call: WRITE
  • Prompt: @IOF,!,"Looking for potential ICD Diagnosis Codes based on the entire ",!,"free-text procedure name...",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to utilize the computer for selecting the correct ICD Diagnosis ",!,"code based on your free-text procedure name, or if you'd like to select ",!,"the code on your"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: " own. Enter 'NO' to skip entering the CPT code and go on",!,"to the next prompt.",!!,"Press RETURN to continue "
  • Line Location: HELP+1
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: FIRST+2
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to search for the appropriate ICD Diagnosis code based on the first ",!,"word of your free-text procedure name. Enter 'NO' to select a CPT code on ",!,"your own."
  • Line Location: FIRST+4
Function Call: WRITE
  • Prompt: !!,"Looking for potential ICD Diagnosis Codes based on the first word ",!,"in your text...",!
  • Line Location: FIRST+5
Function Call: WRITE
  • Prompt: !!,"Searching ICD Diagnosis Codes to match with "_SRDIAG_"..."
  • Line Location: REPAIR+1
Routine Call
  • DIC
  • Line Location:
    • START+4
    • START+7
    • FIRST+5
    • REPAIR+2

Label References

Name Line Occurrences
FIRST START+5, FIRST+4
HELP START+2
REPAIR FIRST+1
START START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIC START+4!*, START+7!*, FIRST+5!*, REPAIR+2!*
DIC("A" START+7*
DIC(0 START+4*, START+7*, FIRST+5*, REPAIR+2*
DTIME START+1, HELP+1, FIRST+2
IOF START, START+4
>> SRDIAG START+4, START+5, FIRST+1, FIRST+2, FIRST+5, REPAIR+1*, REPAIR+2, REPAIR+3*
SRDIAG1 REPAIR+1*, REPAIR+3!
SRICDD START+1!, START+3!, START+4*, START+6, START+7*, FIRST+5*
>> SRSCPT REPAIR+2*
>> SRSOUT START*, START+5*, FIRST+2*
>> SRYN START+1*, START+2*, START+3, START+5*, FIRST+2*, FIRST+3*, FIRST+4, FIRST+5
X START+4*, START+7!*, HELP+1*, FIRST+5*, REPAIR+2*
Y START+4, START+7!, FIRST+5, REPAIR+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All