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

Package: Surgery

Routine: SRONOP


Information

SRONOP ;B;HAM ISC/MAM - NON-O.R. PROCEDURES ; [ 01/30/01 1:07 PM ]

Source Information

Source file <SRONOP.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Surgery 9 ^SRCUSS  ^SROERR0  $$ICDSTR^SROICD  ^SROLOCK  (,DEL)^SRONOP1  ^SROPCE1  ($$LOCK,UNLOCK)^SROUTL  EN2^SROVAR  
^SRSKILL  
VA FileMan 3 ^DIC  D^DIQ  ^DIR  
Kernel 1 T0^%ZOSV  
Registration 1 DEM^VADPT  

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

Package Total Caller Graph
Surgery 3 SRONOP-EDIT  SRONOP-ENTER  SRONOP1  

Entry Points

Name Comments DBIA/ICR reference
ADT
SEL
ASK
END
EDIT ; edit procedure
LIST ; list case
CASE
LOCK ; case locked?
LOOP ; break procedure if greater than 60 characters
RT ; start RT logging
CONT
FUTURE
HDR ; print heading

External References

Name Field # of Occurrence
T0^%ZOSV RT+1
^DIC SRONOP+3
D^DIQ CASE+2
^DIR CONT+2, CONT+7, FUTURE+1
^SRCUSS EDIT+6
^SROERR0 EDIT+7
$$ICDSTR^SROICD EDIT+5
^SROLOCK EDIT+3
^SRONOP1 ADT+1, SEL+1
DEL^SRONOP1 ASK+5
^SROPCE1 EDIT+6
$$LOCK^SROUTL EDIT+4
UNLOCK^SROUTL EDIT+8
EN2^SROVAR EDIT+6
^SRSKILL END+1, EDIT+9
DEM^VADPT SRONOP+4, EDIT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: SRONOP+2
Function Call: WRITE
  • Prompt: !,CNT_".",?4,"NEW PROCEDURE"
  • Line Location: ADT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the procedure you want to edit."
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !,"Enter '"_CNT_"' or 'NEW' to create a new procedure"
  • Condition for execution: $D(SROEDIT)
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"Do you want to edit or delete this procedure ? "
  • Line Location: ASK+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Enter '1' to edit information related to this procedure, or '2' to delete",!,"this procedure from your records.",!!,"Press RETURN to continue "
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,CNT_". "
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: SRSDATE,?20,SROPS(1)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+0
Function Call: WRITE
  • Prompt: ".",!
  • Line Location: CONT+6
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: FUTURE+0
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: FUTURE+0
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " * Died "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *"
  • Condition for execution: X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Routine Call
  • DIC
  • Line Location:
    • SRONOP+3
Routine Call
  • DIR
  • Line Location:
    • CONT+2
    • CONT+7
    • FUTURE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] ASKEDIT+2, LIST+1, LIST+3, CASELOCK+1
^SRF("ADT" ADT
^XUSEC("SROEDIT" SRONOP+2

Label References

Name Line Occurrences
ADT ADT+1, ASK
ASK ADT+1, ASK+3
CASE ASK+1, FUTURE
CONT LIST+2
END SRONOP+3, ADT+1, SELASKASK+2
FUTURE ASK
HDR SRONOP+4, ASKASK+1, LIST+2, FUTURE
LIST ADT
LOCK CASE
LOOP CASE+1
RT EDIT+6
SEL SEL+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT ADT*, ADT+2*, SEL+1, SEL+2, LIST+3*, CASE
>> DA EDIT+6*
>> DFN SRONOP+4*, ADTEDIT+2*
DIC SRONOP+3!*
DIC("A" SRONOP+3*
DIC(0 SRONOP+3*
>> DIE EDIT+6*
DIR CONT!, CONT+7!, FUTURE!, FUTURE+1!
DIR("0" CONT+7*
DIR("?" CONT+1*, CONT+2*
DIR("A" CONT*, CONT+7*, FUTURE+1*
DIR("B" FUTURE+1*
DIR(0 CONT*, FUTURE+1*
DR EDIT+6!*
DT ASK
DTIME SELASK+2, ASK+3, ENDEDIT+6*
>> DTOUT CONT+2, CONT+7, FUTURE+1
>> DUOUT CONT+2, CONT+7, FUTURE+1
DUZ SRONOP+2
>> DUZ("SAV" SRONOP+2
IOF SRONOP+2, END+1, HDR+1
IOSL LIST+2
>> LOOP LOOP+1*
>> M CASE+1*, LOOP+1
MM CASE+1!, LOOP+1*
MMM CASE+1!, LOOP+1*
>> Q3("VIEW" EDIT+3*, EDIT+4*
>> SRBACK ADT*, ADT+1, LIST+2*, CONT+4*, CONT+7, CONT+8
>> SRCASE( ADT+2*, SEL+2, SEL+3, CASE*, CONT+4, CONT+8
>> SRDT ADT*
>> SRDTIME EDIT+6*
SRICDV EDIT+5~*
SRLCK EDIT+4~*, EDIT+8
>> SRNEWOP SRONOP+2*, ADTADT+1, LIST+2, CONT+3*
>> SRNM SRONOP+4*, EDIT+1*, EDIT+2*
SROEDIT SRONOP+2!*, ADT+2, SEL+1, SEL+2, ASK+1, ASK+4!, END+1!, CONT+1, CONT+2, CONT+3
CONT+6
>> SROERR EDIT+7*
>> SROLOCK EDIT+3, EDIT+6
>> SROP ADT*, ASK*, LIST+1, LIST+3, CASE
>> SROPER CASE*, CASE+1*, LOCK+1*, LOOP+1*
SROPS CASE+1!
SROPS( LOOP+1*
SROPS(1 CASE+1*, CASE+3
SROPS(2 CASE+3
SROPS(3 CASE+3
SROPS(4 CASE+3
>> SRSDATE ASK*, LIST+3*, CASE+2*, CASE+3
>> SRSOUT SRONOP+2*, SRONOP+3*, ADTADT+1, SEL*, ASKASK+2*, ENDEDIT+6*, LIST+2
CONT+2*, CONT+7*, FUTURE+1*
SRTN ADTADT+1, SEL+3*, ASKEND+1!, EDIT+1, EDIT+2, EDIT+4, EDIT+5, EDIT+6
EDIT+7, EDIT+8, LIST+2, LOCK+1, CONT+8*, FUTURE+2!
>> ST EDIT+6*
>> VA("PID" HDR+1
>> VADM(1 SRONOP+4, EDIT+1, EDIT+2, HDR+1
>> VADM(6 HDR+1
>> X SEL*, SEL+1, SEL+2, SEL+3, ASK+2*, ASK+3*, ASK+4, END*, HDR+1*
>> XRTL RT+1
>> XRTN RT+1*
>> Y SRONOP+3, SRONOP+4, CASE+2*, CONT+2, CONT+3, CONT+4, CONT+8, FUTURE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All