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

Package: Surgery

Routine: SRONOP1


Information

SRONOP1 ;BIR/MAM - NON-O.R. PROCEDURES ;06/15/05

Source Information

Source file <SRONOP1.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Surgery 8 ^SRCUSS  (,DEL)^SROERR  $$ICDSTR^SROICD  ^SRONOP  ^SROPCE1  DEL^SROPCEP  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  
VA FileMan 6 ^%DT  EN^DDIOL  FILE^DICN  ^DIE  ^DIK  ^DIR  
Kernel 1 T0^%ZOSV  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRONOP  

Entry Points

Name Comments DBIA/ICR reference
OP ; principal procedure
DATE
DOC
SPEC
SUMM ; dictated summary expected?
END
RT ; start RT logging
DEL ; delete procedure

External References

Name Field # of Occurrence
^%DT DATE
T0^%ZOSV RT+1
EN^DDIOL DEL+4
FILE^DICN SUMM+6
^DIE SUMM+8
^DIK DEL+7, DEL+8
^DIR SRONOP1+5, OP+1, DOC, SPEC, SUMM+3
^SRCUSS SUMM+11
^SROERR SUMM+12
DEL^SROERR DEL+8
$$ICDSTR^SROICD SUMM+10
^SRONOP SRONOP1+2
^SROPCE1 SUMM+11
DEL^SROPCEP DEL+6
$$LOCK^SROUTL SUMM+7
UNLOCK^SROUTL SUMM+13
^SRSKILL SRONOP1+2, SUMM+13, END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")_" * Died "_SRDEATH_" *"
  • Line Location: SRONOP1+3
Function Call: WRITE
  • Prompt: @IOF,!,"Entering a new non-O.R. procedure for "_SRNM_".",!!
  • Line Location: SRONOP1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"The Date of the Procedure MUST be entered."
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DOC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SPEC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SUMM+1
Function Call: WRITE
  • Prompt: !!,"No action taken.",!!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"No action taken..."
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN or 'NO' if this procedure should remain on file. Enter 'YES'",!,"to delete this procedure."
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: DEL+3
Function Call: WRITE
  • Prompt: !!,"Deleting procedure..."
  • Line Location: DEL+5
Routine Call
  • DIE
  • Line Location:
    • SUMM+8
Routine Call
  • DIR
  • Line Location:
    • SRONOP1+5
    • OP+1
    • DOC
    • SPEC
    • SUMM+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
^SRO(136 - [#136] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SUMM+8*, SUMM+12, DEL+4, DEL+6
^SRO(136 - [#136] DEL+7

Label References

Name Line Occurrences
DATE DATE
END OP+1, DATE+1, DOC, SPEC, SUMM+4
RT SUMM+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE!*
%DT("A" DATE*
DA SUMM+6!, SUMM+8*!, SUMM+11*, DEL+7*!, DEL+8*
DD SUMM+6!
>> DFN SUMM+6
DIC SUMM+6!*
DIC(0 SUMM+6*
DIE SUMM+8*!, SUMM+11*
DIK DEL+7*!, DEL+8*
DINUM SUMM+6!
DIR SRONOP1+4!, SRONOP1+5!, OP+1!, DOC!, SPEC!, SUMM+1!, SUMM+3!
DIR("?" SUMM+2*, SUMM+3*
DIR("A" SRONOP1+4*, SRONOP1+5*, OP+1*, DOC*, SPEC*, SUMM+1*
DIR("B" SRONOP1+5*
DIR(0 SRONOP1+5*, OP+1*, DOC*, SPEC*, SUMM+3*
DLAYGO SUMM+6*!
DO SUMM+6!
DR SUMM+8!*, SUMM+11*
DTIME SUMM+11*, END, DEL+1
>> DTOUT SRONOP1+6, OP+1, DATE+1, DOC, SPEC, SUMM+4
>> DUOUT SRONOP1+6, DOC, SPEC, SUMM+4
IOF SRONOP1+3, SRONOP1+7, END+1
>> ORL SUMM+12*
>> Q3("VIEW" SUMM+7*
>> Q3(1 SUMM+9*
>> SRDEATH SRONOP1+3*, SRONOP1+4
>> SRDTIME SUMM+11*
SREXPT SUMM+1~, SUMM+5*, SUMM+8
SRICDV SUMM+10~*
>> SRL SUMM+12*
SRLCK SUMM+7~*, SUMM+13
>> SRN SUMM+9*
>> SRNM SRONOP1+7, SUMM+9
>> SROPER OP+2*, SUMM+8, SUMM+12
>> SRSDATE DATE+2*, SUMM+8
>> SRSDOC DOC+1*, SUMM+8
>> SRSITE("DIV" SUMM+8
>> SRSOP SUMM+12*
>> SRSOUT SRONOP1+2, SRONOP1+6*, OP+1*, DATE+1*, DOC*, SPEC*, SUMM+4*, SUMM+9*, SUMM+11*, END
>> SRSPEC SPEC+1*, SUMM+8
SRTN SUMM+6!*, SUMM+7, SUMM+8, SUMM+9, SUMM+10, SUMM+11, SUMM+12, SUMM+13, END+1!, DEL+4
, DEL+6, DEL+7, DEL+8
>> SRVSIT DEL+6*
>> SRX DEL+6*
>> ST SUMM+11*
>> VA("PID" SRONOP1+3
>> VADM(1 SRONOP1+3
>> VADM(6 SRONOP1+2
>> X SRONOP1+2*, SRONOP1+3, OP+1, DATE, SUMM+6*, END*, DEL+1*, DEL+2*, DEL+3
>> XRTL RT+1
>> Y SRONOP1+6, OP+2, DATE+1, DATE+2, DOC+1, SPEC+1, SUMM+5, SUMM+6
>> ZRTN RT+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All