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

Package: Surgery

Routine: SRSUPRQ


Information

SRSUPRQ ;B'HAM ISC/MAM - UPDATE REQUESTED OPERATIONS; [ 08/29/01 9:04 AM ]

Source Information

Source file <SRSUPRQ.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Surgery 13 ^SRCUSS  RISK^SROAUTL3  ^SROCON1  ^SROERR0  ^SROPCE1  KILL^SROPDEL  ($$LOCK,UNLOCK)^SROUTL  EN2^SROVAR  
SS^SRSCHUP  $$CHKS^SRSCOR  CHANGE^SRSDT  ^SRSKILL  AVG^SRSREQ  
VA Fileman 2 ^DIC  ^DIE  
Kernel 1 T0^%ZOSV  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Surgery 5 SROERR  SRSCHD1  SRSREQ  SRSREQUT  SRSUPRQ  

Entry Points

Name Comments DBIA/ICR reference
OPT
RT ; start RT logging
OPALSO ; delete from file 130
END
OPS
CC ; check to see if concurrent case should be deleted
MANY ; select requested case if more than one
SETUP ; set SRCASE array to list requested cases for this patient
UPDATE ; update requested operation
MSG
DEL ; delete request
ASK
SEL
LOOP ; break procedure if greater than 60 characters
CON

External References

Name Field # of Occurrence
T0^%ZOSV RT+1
^DIC ASK
^DIE DEL+3, CON, CC+4
^SRCUSS UPDATE+3
RISK^SROAUTL3 UPDATE+4
^SROCON1 UPDATE+4
^SROERR0 CC+4, UPDATE+5
^SROPCE1 UPDATE+4
KILL^SROPDEL OPALSO+2
$$LOCK^SROUTL DEL+2, UPDATE+1
UNLOCK^SROUTL OPALSO+2, UPDATE+6
EN2^SROVAR UPDATE+3
SS^SRSCHUP OPT+1
$$CHKS^SRSCOR UPDATE+3
CHANGE^SRSDT SEL+5
^SRSKILL END+2
AVG^SRSREQ UPDATE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no requested cases for "_SRNM_"."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF,!,"The following "_GRAMMER_" requested for "_SRNM_":",!
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,$P(SRCASE(CNT),"^",2),?15,SROPS(1)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,?15,SROPS(2)
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"1. Delete",!,"2. Update Request Information",!,"3. Change the Request Date"
  • Line Location: OPT+2
Function Call: READ
  • Timeout: DTIME
  • Variable: Z
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"If you want to delete this request, enter '1'. Enter '2' if you only want",!,"to update the general information about this case, or '3' to change the date",!,"that this case is requested for."
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: READ
  • Timeout: DTIME
  • Variable: SREQ
  • Line Location: MANY+1
Function Call: WRITE
  • Prompt: !!,"Select Operation Request: "
  • Line Location: MANY+1
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the request that will be updated or deleted. "
  • Line Location: MANY+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if this request is to be deleted, or NO to quit. "
  • Line Location: DEL+1
Function Call: READ
  • Timeout: DTIME
  • Variable: SRBOTH
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !!,"Enter 'Y' if you want to delete "_SRC_" concurrent case."
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want these case to remain concurrent."
  • Line Location: CC+2
Function Call: WRITE
  • Prompt: !!,"This case is currently being edited.",!,"Please try again later...",!!
  • Line Location: MSG+0
Routine Call
  • DIE
  • Line Location:
    • DEL+3
    • CON
    • CC+4
Routine Call
  • DIC
  • Line Location:
    • ASK

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] OPT+1, SETUP+1, DEL+3, DEL+4, CON
^SRF("AR" ASK+1
^TMP("CSLSUR1" UPDATE+3*
^XTMP("SRLOCK-" SEL+2

Label References

Name Line Occurrences
CC CON, CC+1, CC+2
CON DEL+4
DEL SEL+3, DEL+1
END ASK+2, OPT+1, OPT+2, SEL, SEL+2, SEL+3, SEL+4, DEL+4, OPALSO+2
LOOP OPS
MANY OPT, MANY+1
MSG SEL+2
OPS ASK+4
RT UPDATE+2
SEL SEL+1
SETUP ASK+1
UPDATE SEL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT ASK+1*, ASK+4*, OPS, SETUP+1*
DA DEL+3!*, CON!*, CC+4*, UPDATE+3*
>> DFN OPALSO+2*
DIC ASK!*
DIC("A" ASK*
DIC(0 ASK*
DIE DEL+3!*, CON!*, CC+4*, UPDATE+3*
DR DEL+3!*, CON!*, CC+4*, UPDATE+2!, UPDATE+3*, UPDATE+4!
DTIME SEL, END+1, MANY+1, DEL+1, CC+1
>> GRAMMER ASK+3*
IOF ASK+3, END+2
>> LOOP LOOP+1*
>> M OPS*, LOOP+1
MM OPS!, LOOP+1*
MMM OPS!, LOOP+1*
>> Q3("VIEW" UPDATE+3!
>> SPD UPDATE+3*
>> SRBOTH DEL+1*, DEL+4, OPALSO+2, CON, CC+1*, CC+2*, CC+3*, CC+5
>> SRC OPALSO+2*, CON*, CC+1
SRCASE ASK!
SRCASE( ASK+4, OPS, MANY+1, MANY+2, SETUP+1*
SRCASE(1 ASK+2, OPT+1
SRCASE(2 ASK+3, OPT, OPT+1
>> SRCC OPALSO+2*
SRCON DEL+4*, OPALSO+2, CON*, CC+4, CC+5!
>> SRDFN ASK*, ASK+1, OPALSO+2
>> SREQ OPT*, OPT+1, MANY+1*, MANY+2
>> SRLATE END*, END+1
SRLCK UPDATE+1~*, UPDATE+6
SRLNTH UPDATE+2!
SRLNTH1 UPDATE+2!
>> SRNM ASK*, ASK+2, ASK+3
>> SRODR UPDATE+4
>> SROERR CC+4*, UPDATE+5*
>> SROPCOM OPALSO+1*
>> SROPER OPS*, LOOP+1*
SROPS OPS!
SROPS( LOOP+1*
SROPS(1 ASK+4, OPS*
SROPS(2 ASK+4
SROPS(3 ASK+4
SRSCHED SRSUPRQ+5!, OPT+2
>> SRSDATE ASK+1*, OPT+1*, DEL+3, CON
>> SRSDOC DEL+3*
>> SRSDOCC CON*
>> SRSDT SETUP+1*
>> SRSOUT ASK*, OPT+1, SEL*, SEL+4*, END+1
SRTN ASK+1*, OPT+1*!, OPT+2, SEL+2, END+2!, MANY+2*, SETUP+1, DEL+2, DEL+3, DEL+4
, OPALSO+2*, CON, CC+4, UPDATE+1, UPDATE+3, UPDATE+5, UPDATE+6
SRTN1 END+2!, OPALSO+2
SRTNX END+2!, OPALSO+2*
SRTX UPDATE+5!
>> ST UPDATE+3*
X END+1*, DEL+1*, DEL+2*, UPDATE+2!
>> XRTL RT+1
>> XRTN RT+1*
Y ASK, UPDATE+3!
Y(0 ASK
>> Z SEL*, SEL+1, SEL+3, SEL+4, SEL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All