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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROSRRT

Package: Surgery

Routine: SROSRRT


Information

SROSRRT ;BIR/MAM-ADD TISSUE EXAM FOR NON OR; 26 AUGUST 1994 7:00am

Source Information

Source file <SROSRRT.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 4 ^DIC  FILE^DICN  ^DIE  ^DIK  
Surgery 1 ^SRRTINIT  

Entry Points

Name Comments DBIA/ICR reference
ADD ; add option Tissue Examination Report (SROTRPT) to the
; Non-O.R. Procedures (Enter/Edit) Menu
END ;
HELP ; help message for updating SRNON-OR input template
TEMP ; update input template SRONOP-ENTER

External References

Name Field # of Occurrence
^DIC ADD+8, ADD+10, END+1, END+3
FILE^DICN ADD+13
^DIE ADD+14
^DIK END+2, END+3
^SRRTINIT TEMP+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This routine will add the Tissue Examination Report to the Non-O.R.",!,"Procedures (Enter/Edit) Menu. It also provides the ability to add the"
  • Line Location: ADD+4
Function Call: WRITE
  • Prompt: !,"fields BRIEF CLIN HISTORY, OPERATIVE FINDINGS, and SPECIMENS to the",!,"SRNON-OR input template.",!!,"After updating the input template, the TISSUE EXAM/NON O.R. entry in the"
  • Line Location: ADD+5
Function Call: WRITE
  • Prompt: !,"PACKAGE file will be removed. It was created to provide the template",!,"updates and is no longer needed. The PACKAGE file entry SURGERY V3.0"
  • Line Location: ADD+6
Function Call: WRITE
  • Prompt: !,"PATCH, which was created by an earlier Surgery patch, will be removed",!,"also since it, too, is no longer needed."
  • Line Location: ADD+7
Function Call: WRITE
  • Prompt: !!,"You are missing the Non-O.R. Procedures (Enter/Edit) Menu. Please contact",!,"your local ISC customer service representative for assistance."
  • Line Location: ADD+9
Function Call: WRITE
  • Prompt: !!,"You are missing the Tissue Examination Report option. Please contact your",!,"local ISC customer service representative for assistance."
  • Line Location: ADD+11
Function Call: WRITE
  • Prompt: !!,"Adding the Tissue Examination Report to Non-O.R. Procedures (Enter/Edit)..."
  • Line Location: ADD+12
Function Call: WRITE
  • Prompt: !!,"This routine provides the ability to overlay the input template SRNON-OR.",!,"This template is used within the option ""Edit Non-O.R. Procedure"" to"
  • Line Location: TEMP+3
Function Call: WRITE
  • Prompt: !,"update Non-O.R. Procedure information."
  • Line Location: TEMP+4
Function Call: WRITE
  • Prompt: !!,"If you have already made local changes to this template, you may opt to",!,"bypass this portion of the process and update your input template manually."
  • Line Location: TEMP+5
Function Call: WRITE
  • Prompt: !,"The fields to be added are SPECIMENS, BRIEF CLIN HISTORY, and OPERATIVE",!,"FINDINGS."
  • Line Location: TEMP+6
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: TEMP+7
Function Call: WRITE
  • Prompt: !!,"Enter ""YES"" or ""NO"". If you need additional help, enter ""?""."
  • Line Location: TEMP+10
Function Call: WRITE
  • Prompt: !!,"No updates have been made to the SRNON-OR template."
  • Line Location: TEMP+11
Function Call: WRITE
  • Prompt: !!,"Updating the SRNON-OR template.",!
  • Line Location: TEMP+12
Function Call: WRITE
  • Prompt: !!,"Removing SURGERY V3.0 PATCH from PACKAGE file..."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,"The process is complete. The Tissue Examination Report can now be printed",!,"for Non-O.R. Procedures."
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !!,"Enter ""YES"" if you want to overlay the input template SRNON-OR. If you have",!,"made local changes to this template, answering ""YES"" will remove them."
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"If you have made local changes and do not wish to have them removed, you should",!,"answer ""NO"" to this question. Then, using VA FileMan, add the fields"
  • Line Location: HELP+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"SPECIMENS, OPERATIVE FINDINGS, and BRIEF CLIN HISTORY to the SRNON-OR",!,"template.",!!,"Press RETURN to continue: "
  • Line Location: HELP+3
Routine Call
  • DIE
  • Line Location:
    • ADD+14
Routine Call
  • DIC
  • Line Location:
    • ADD+8
    • ADD+10
    • END+1
    • END+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(9.4 - [#9.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19 - [#19] ADD+12

Label References

Name Line Occurrences
END TEMP+2, TEMP+7, TEMP+11
HELP TEMP+9
TEMP TEMP+9, TEMP+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA ADD+13!, ADD+14!*, END+2!*, END+3!*, END+5!
DA(1 ADD+13*, ADD+14*
DD ADD+13!
DIC ADD+8!*, ADD+10!*, ADD+13!*, END+1!*, END+2!, END+3!*, END+5!
DIC(0 ADD+8*, ADD+10*, ADD+13*, END+1*, END+3*
DIE ADD+14!*, END+5!
DIK END+2!*, END+3!*, END+5!
DINUM ADD+13!, END+5!
DLAYGO ADD+13*, END+5!
DO ADD+13!, END+5!
DR ADD+13!, ADD+14!*, END+5!
DTIME TEMP+7, HELP+3
SRMENU ADD+8*, ADD+9, ADD+12, ADD+13, ADD+14, END+5!
SRPKG END+1*, END+2, END+3*, END+5!
SRSOUT ADD+3*, TEMP+2, END+5!, HELP+3*
SRSUB ADD+13*, ADD+14, END+5!
SRTISS ADD+10*, ADD+11, ADD+12, ADD+13, END+5!
SRYN TEMP+7*, TEMP+8*, TEMP+9, TEMP+10, TEMP+11, END+5!
X ADD+8!*, ADD+10!*, ADD+13!*, ADD+14!, END+1*, END+3*!, END+5!, HELP+3*
Y ADD+8!, ADD+10!, ADD+13!, ADD+14!, END+1, END+3!, END+5!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All