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

Package: Surgery

Routine: SRSLOOK


Information

SRSLOOK ;B'HAM ISC/MAM - CPT LOOK-UP ; 16 MAR 1992 1:00 pm

Source Information

Source file <SRSLOOK.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIC  

Entry Points

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

External References

Name Field # of Occurrence
^DIC START+4, CPT, 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 CPT Code."
  • Line Location: START+0
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: START+1
Function Call: WRITE
  • Prompt: @IOF,!,"Looking for potential CPT Codes based on the entire free-text procedure name...",!
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CPT+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to utilize the computer for selecting the correct CPT 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 CPT 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 CPT Codes based on the first word in your text...",!
  • Line Location: FIRST+5
Function Call: WRITE
  • Prompt: !!,"Searching CPT Codes to match with "_SRSOP_"..."
  • Line Location: REPAIR+1
Routine Call
  • DIC
  • Line Location:
    • START+4
    • CPT
    • 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!*, CPT!*, FIRST+5!*, REPAIR+2!*
DIC("A" CPT*
DIC("S" START+4*, CPT*, FIRST+5*, REPAIR+2*
DIC(0 START+4*, CPT*, FIRST+5*, REPAIR+2*
DTIME START+1, HELP+1, FIRST+2
IOF START, START+4
SRSCPT START+1!, START+3!, START+4*, START+6, CPT*, FIRST+5*, REPAIR+2*
>> SRSOP START+4, START+5, FIRST+1, FIRST+2, FIRST+5, REPAIR+1*, REPAIR+2, REPAIR+3*
SRSOP1 REPAIR+1*, REPAIR+3!
>> 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*, CPT!*, HELP+1*, FIRST+5*, REPAIR+2*
Y START+4, CPT!, FIRST+5, REPAIR+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All