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

Package: Surgery

Routine: SRSUPC


Information

SRSUPC ;B'HAM ISC/MAM - UPDATE CANCEL REASON & DATE;[JAN 31,2001@08:59]

Source Information

Source file <SRSUPC.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 ^SROP1  ($$LOCK,UNLOCK)^SRSCHD1  ^SRSKILL  
VA FileMan 2 ^DIC  ^DIE  
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: 1

Package Total Caller Graph
Surgery 1 SRSUPC  

Entry Points

Name Comments DBIA/ICR reference
PAT ;
OPT
END
LOOP ; break operation name if longer than 65 characters
OTHER ; other operations
LIST ;
CASE

External References

Name Field # of Occurrence
^DIC PAT+1
^DIE OPT+5
^SROP1 CASE+1
$$LOCK^SRSCHD1 OPT+5
UNLOCK^SRSCHD1 OPT+5
^SRSKILL END+1
DEM^VADPT PAT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no cancelled cases for "_SRNAME_"."
  • Line Location: PAT+4
Function Call: READ
  • Formatting: !!!
  • Prompt: "Select Operation: "
  • Variable: OPT
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired operation"
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF,!,VADM(1),?32,VA("PID"),?50,"Case # ",SROP,!!,SRSDATE
  • Line Location: OPT+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: OPT+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_". "_$E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: ?14,SROPS(1)
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Condition for execution: $D(SROPS(4))
  • Line Location: CASE+2
Function Call: WRITE
  • Prompt: !,?14,SROPS(5)
  • Condition for execution: $D(SROPS(5))
  • Line Location: CASE+2
Routine Call
  • DIC
  • Line Location:
    • PAT+1
Routine Call
  • DIE
  • Line Location:
    • OPT+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] PAT+3, OPT+2, OTHER+1, OTHER+2, LIST+2, LIST+3, CASE
^SRF("B" PAT+3

Label References

Name Line Occurrences
CASE OPT+3
END PAT+1, PAT+4, OPT
LIST PAT+3
LOOP CASE+1
OPT OPT+1
OTHER CASE

Naked Globals

Name Field # of Occurrence
^(30 LIST+2
^(31 LIST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT PAT+3*, LIST+5*, LIST+6
>> DA OPT+5*
>> DFN PAT+1*, PAT+3
DIC PAT+1*!
DIC("A" PAT+1*
DIC(0 PAT+1*
>> DIE OPT+5*
DR OPT+5*!
DTIME OPT, END
>> I CASE*
IOF PAT+1, OPT+3, END+1
>> LOOP LOOP+1*
>> M LOOP+1, CASE+1*
MM LOOP+1*, CASE+1!
MMM LOOP+1*, CASE+1!
>> OPT OPT*, OPT+1, OPT+2, OPT+5
>> SRCAN LIST+1*, LIST+2*, LIST+3*, LIST+4
>> SRCASE( OPT+1, OPT+2, OPT+5, LIST+5*
>> SRCASE(1 PAT+4
>> SRLONG OTHER+1*, OTHER+2
>> SRNAME PAT+2*, PAT+4
SROP PAT+3*, OPT+2*, OPT+3, OPT+5, END+1!, OTHER+1, OTHER+2, LIST+2, LIST+3, LIST+5
, CASE
>> SROPER LOOP+1*, OTHER+1, OTHER+3*, CASE*, CASE+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS CASE+1!
SROPS( LOOP+1*
SROPS(1 CASE+1*, CASE+2
SROPS(2 CASE+2
SROPS(3 CASE+2
SROPS(4 CASE+2
SROPS(5 CASE+2
>> SROTHER OTHER+1*, OTHER+2, CASE*
>> SRSDATE PAT+3*, OPT+2*, OPT+3, LIST+6
SRTN OPT!
SRY PAT+1~
>> VA("PID" OPT+3
>> VADM(1 PAT+2, OPT+3
>> X END*
>> Y PAT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All