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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROTHER

Package: Surgery

Routine: SROTHER


Information

SROTHER ;BIR/MAM - OTHER PROCEDURES ;05/14/99 12:14 PM

Source Information

Source file <SROTHER.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 3 (,HDR)^SROAUTL  SSOTH^SROCPT  ^SRSKILL  
VA Fileman 3 FILE^DICN  ^DIE  ^DIR  
DRG Grouper 1 $$CPT^ICPTCOD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SRO1L1  SROAOP  

Entry Points

Name Comments DBIA/ICR reference
OPT
END
HDR ; print screen header
EDIT ; edit one procedure
LIST ; list existing procedures
START
ASK
NEW
SEL ; select procedure

External References

Name Field # of Occurrence
FILE^DICN NEW+2
^DIE EDIT+2, NEW+3
^DIR NEW
$$CPT^ICPTCOD LIST+1
^SROAUTL SROTHER+3
HDR^SROAUTL HDR+1
SSOTH^SROCPT LIST+1
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SROTHER+2
Function Call: WRITE
  • Prompt: @IOF,!!,"A surgical case must be selected prior to using this option.",!!,"Press RETURN to continue "
  • Line Location: SROTHER+2
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: START+0
Function Call: WRITE
  • Prompt: !!,SRLINE
  • Line Location: START+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the procedure you want to edit, or 'NEW' to",!,"enter an additional operative procedure."
  • Line Location: OPT+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the procedure you want to edit, or RETURN",!,"to continue listing procedures."
  • Line Location: SEL+3
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to add another operative procedure, or 'NO' to return to the",!,"previous screen."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NEW+0
Routine Call
  • DIE
  • Line Location:
    • EDIT+2
    • NEW+3
Routine Call
  • DIR
  • Line Location:
    • NEW

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SROTHER+3, START, LIST+1, NEW+1*

Label References

Name Line Occurrences
ASK START+4, ASK+2
EDIT START+2, OPT+3
END SROTHER+2
HDR START, SEL+2, EDIT+1, NEW
LIST START
NEW OPT+1
OPT OPT+2
SEL START, SEL+3
START START+2, START+4, OPT+1, OPT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT START*, START+3, START+4, OPT, LIST+3, LIST+4, SEL+1, SEL+2*
>> CPT LIST+1*, LIST+2*, LIST+3
DA EDIT+1*, NEW!, NEW+2!, NEW+3*
DA(1 EDIT+1*, NEW+2*, NEW+3*
DD NEW+2!
DIC NEW+2!*
DIC(0 NEW+2*
DIE EDIT+1*, EDIT+2!, NEW+3!*
DINUM NEW+2!
DIR NEW!
DIR("A" NEW*
DIR(0 NEW*
DO NEW+2!
DR EDIT+1*, EDIT+2!, NEW+3!*
DTIME SROTHER+2, OPT, END, SEL+1, ASK
>> DTOUT NEW
>> DUOUT NEW
>> I SROTHER+3*
IOF SROTHER+2, END+1
>> OTH START*, LIST+1, LIST+3
OTHER SEL+2!
OTHER( OPT+2, OPT+3, LIST+3*, LIST+4, SEL+3, SEL+4
>> SR(0 SROTHER+3*
>> SRDA LIST+1*
>> SRDATE SROTHER+3*
>> SRLINE SROTHER+3*, START, START+3
SROTHER START!, START+2, OPT+3*, SEL+4*, EDIT+1
>> SRPAGE HDR+1*
>> SRSOUT SROTHER+2*, START, START+1, START+4*, END, SEL+1*, ASK+3*
>> SRSUPCPT LIST+4, EDIT+1, NEW+3
>> SRTN SROTHER+2, SROTHER+3, START, LIST+1, EDIT+1, NEW+1, NEW+2, NEW+3
>> SRYN ASK*, ASK+1*, ASK+2*, ASK+3
>> X SROTHER+2*, OPT*, OPT+1, OPT+2, OPT+3, END*, LIST+1*, LIST+3, SEL+1*, SEL+2
, SEL+3, SEL+4, NEW+2*
>> Y SROTHER+3*, LIST+1*, NEW, NEW+2, NEW+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All