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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SROP

Package: Surgery

Routine: SROP


Information

SROP ;BIR/MAM - SELECT CASE ;08/02/11

Source Information

Source file <SROP.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Surgery 11 ^SRCUSS  $$ICDSTR^SROICD  ^SRONEW  ^SROP1  ^SROPCE1  ^SROPDEL  SEL^SROPER  ^SROPS  
EN2^SROVAR  SS^SRSCHUP  ^SRSKILL  
VA FileMan 2 ^DIC  ^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 2 SRONEW  SROPER  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
ADT
OPT
ENTER ; edit or delete
LIST ; list cases
CASE
LOCK ; case locked?
OTHER ; other operations
LOOP ; break procedures
END
HELP
RT ; start RT logging
HDR ; print heading
FUTURE

External References

Name Field # of Occurrence
T0^%ZOSV RT+1
^DIC SROP+3
^DIR FUTURE+1
^SRCUSS ENTER+7
$$ICDSTR^SROICD ENTER+2
^SRONEW OPT+2
^SROP1 CASE+2
^SROPCE1 ENTER+9
^SROPDEL ENTER+6
SEL^SROPER LIST+6
^SROPS SROP+2
EN2^SROVAR ENTER+7
SS^SRSCHUP OPT+3
^SRSKILL END
DEM^VADPT SROP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,CNT,". ENTER NEW SURGICAL CASE"
  • Line Location: ADT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ENTER+4
Function Call: WRITE
  • Prompt: !,CNT_". "
  • Line Location: LIST+8
Function Call: WRITE
  • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: ?14,SROPS(1)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Condition for execution: $D(SROPS(4))
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN or '1' to enter or edit information contained within one of the",!,"options found under the Operations Menu. If you want to display a two screen",!,"overview of this case, enter '2'."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: " To delete this case from your records,",!,"enter '3'. Please note that deleting a case will remove EVERYTHING pertaining",!,"to this operative procedure.",!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: HELP+2
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
Function Call: WRITE
  • Prompt: !,?1
  • Line Location: FUTURE+0
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: FUTURE+0
Routine Call
  • DIC
  • Line Location:
    • SROP+3
Routine Call
  • DIR
  • Line Location:
    • FUTURE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] OPT+3, ENTER+3, ENTER+8*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+7, CASE+1
, LOCK+1, OTHER+1, OTHER+2
^SRF("ADT" ADT
^XUSEC("SROEDIT" SROP+2

Label References

Name Line Occurrences
ADT ADT+1, ENTER+3
CASE ENTER+4, FUTURE
END SROP+3, OPT, OPT+3, ENTER+3, ENTER+4, ENTER+6, ENTER+7
ENTER ADT+1, ENTER+5
FUTURE ENTER+3
HDR SROP+4, ADT+1, ENTER+3, LIST+6, FUTURE+3
HELP ENTER+5
LIST ADT
LOCK CASE+2
LOOP CASE+2
OPT OPT+1
OTHER CASE+1
RT ENTER+7

Naked Globals

Name Field # of Occurrence
^(30 LIST+3
^(31 LIST+4
^(37 LIST+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT ADT*, ADT+2*, OPT+1, OPT+2, LIST+7*, LIST+8, CASE+4
>> DA ENTER+7*
>> DFN SROP+4*, ADT
DIC SROP+3!*
DIC("A" SROP+3*
DIC(0 SROP+3*
>> DIE ENTER+7*
DIR FUTURE!, FUTURE+1!
DIR("A" FUTURE+1*
DIR("B" FUTURE+1*
DIR(0 FUTURE+1*
DR ENTER+7!*
DT ENTER+3
DTIME OPT, ENTER+4, HELP+2
>> DTOUT FUTURE+1
>> DUOUT FUTURE+1
DUZ SROP+2
DUZ("SAV" SROP+2
IOF END, HDR+1
IOSL LIST+6
>> LOOP LOOP+1*
>> M CASE+2*, LOOP+1
MM CASE+2!, LOOP+1*
MMM CASE+2!, LOOP+1*
>> Q3("VIEW" ENTER+7*!
>> SRBACK ADT*, ADT+1, LIST+6*
>> SRCASE( ADT+2*, OPT+1, OPT+3, CASE+4*
>> SRDT ADT*, CASE+4
SRICDV ENTER+2~*
>> SRLONG OTHER+1*, OTHER+2
SRNEWOP SROP+2!, ADT+2*, OPT+1
>> SROP ADT*, ENTER+3*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+7, CASE+1, CASE+4
, OTHER+1, OTHER+2
>> SROPER CASE+1*, CASE+2*, LOCK+1*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS CASE+2!
SROPS( LOOP+1*
SROPS(1 CASE+2*, CASE+3
SROPS(2 CASE+3
SROPS(3 CASE+3
SROPS(4 CASE+3
>> SROTHER CASE+1*, OTHER+1*, OTHER+2
SRSCAN LIST+2*!, LIST+3, LIST+4
>> SRSDATE ENTER+3*, LIST+7*, CASE
>> SRSOUT SROP+3*, ADT, ADT+1, OPT*, OPT+3, ENTER+3, ENTER+4*, LIST+6, FUTURE+1*
SRTN ADT, ADT+1, OPT+3*, ENTER+2, ENTER+3, ENTER+7, ENTER+8, LIST+6, LOCK+1, END!
, FUTURE+2!
>> ST ENTER+7*
>> VA("PID" HDR+1
>> VADM(1 HDR+1
>> VADM(6 HDR+1
>> X OPT*, OPT+1, OPT+2, OPT+3, ENTER+4*, ENTER+5*, ENTER+6, ENTER+7, HELP+2*, HDR+1*
>> XRTL RT+1
>> XRTN RT+1*
>> Y SROP+3, SROP+4, FUTURE+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All