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

Package: Surgery

Routine: SRSCHD1


Information

SRSCHD1 ;B'HAM ISC/MAM - SCHEDULE REQUESTED OPERATIONS (CONT);[JAN 31,2001@7:52]

Source Information

Source file <SRSCHD1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 5 $$SIGNED^SROESUTL  ^SRSCHD2  ^SRSCHK  ^SRSKILL  ASK^SRSUPRQ  
VA FileMan 2 EN^DDIOL  D^DIQ  
Kernel 1 ($$FMADD,$$NOW)^XLFDT  
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: 6

Package Total Caller Graph
Surgery 6 SRSCAN  SRSCAN0  SRSCHD1  SRSCHDA  SRSUP1  SRSUPC  

Entry Points

Name Comments DBIA/ICR reference
REQ ; select request
UN
SEL
END ;
LOOP ; break procedure if greater than 75 characters
ALRDY ;Is the operation already scheduled?
LOCK(SRCASE) ;
E1
E2
SINED
XTMP
UNLOCK(SRCASE) ; apply decremental lock

External References

Name Field # of Occurrence
EN^DDIOL E1+2, E2+2
D^DIQ REQ+2
$$SIGNED^SROESUTL LOCK+4
^SRSCHD2 SEL+6
^SRSCHK SEL+3
^SRSKILL END+1
ASK^SRSUPRQ REQ+1
DEM^VADPT UN+4
$$FMADD^XLFDT LOCK+2
$$NOW^XLFDT LOCK+2

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: REQ+2
Function Call: WRITE
  • Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!!,"Press RETURN to continue "
  • Line Location: REQ+2
Function Call: WRITE
  • Prompt: !!!,"Case Information: ",!,SROPS(1)
  • Line Location: UN+3
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: UN+3
Function Call: WRITE
  • Prompt: !,SROPS(2)
  • Line Location: UN+3
Function Call: WRITE
  • Prompt: !,"By "
  • Line Location: UN+4
Function Call: WRITE
  • Prompt: USER
  • Line Location: UN+4
Function Call: WRITE
  • Prompt: USER
  • Line Location: UN+4
Function Call: WRITE
  • Prompt: ?40,"For "_HOURS_" Hours"
  • Line Location: UN+5
Function Call: WRITE
  • Prompt: !,$S($D(SRSTYP):SRSTYP,1:""),?40,$P(^SRF(SRTN,0),"^",11)
  • Line Location: UN+7
Function Call: WRITE
  • Prompt: !,^SRF(SRTN,5,COMMENT,0)
  • Line Location: UN+8
Function Call: WRITE
  • Prompt: !!," * Concurrent Case # "_SRCON_" "_$P(^SRF(SRCON,"OP"),"^")
  • Line Location: UN+9
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Enter 'NO' if you have selected the wrong request, or RETURN to continue",!,"scheduling this request. ",!
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"This case is already scheduled.",!!,"Press RETURN to continue "
  • Line Location: ALRDY+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] REQ+2
^SRF - [#130] UN, UN+1, UN+5, UN+6, UN+7, UN+8, UN+9, ALRDY+2, LOCK+3, UNLOCK+1
^VA(200 - [#200] UN+4, E1+1, E2+1
^XTMP("SRLOCK-" LOCK+5, LOCK+8, LOCK+10, E1, E2, SINED, SINED+3, SINED+5, XTMP*, XTMP+1*
, UNLOCK+2!, UNLOCK+3!, UNLOCK+5!, UNLOCK+6!

Label References

Name Line Occurrences
$$LOCK SEL+6
ALRDY SEL+5
E1 LOCK+6, SINED+1
E2 LOCK+10, SINED+5
END REQ+1, REQ+2, SEL, SEL+2, SEL+3, SEL+5
LOOP UN+2
REQ SEL+7
SEL SEL+1
SINED LOCK+4
UNLOCK SEL+6
XTMP LOCK+11

Naked Globals

Name Field # of Occurrence
^( REQ+2
^("CON" UN+9
^(31 ALRDY+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> COMMENT UN+8*
D0 LOCK+1~
>> DFN UN*
>> DILOCKTM LOCK+5, LOCK+8, SINED, SINED+3
DTIME REQ+2, SEL, ALRDY+3
DUZ XTMP, XTMP+1, UNLOCK+2, UNLOCK+5
>> HOURS UN+5*
IOF END+1
>> LOOP LOOP+1*
>> M UN+2*, LOOP+1
MM UN+2!, LOOP+1*
MMM UN+2!, LOOP+1*
NOWAY SEL+3!, SEL+5!, ALRDY+2*, ALRDY+3
S31 ALRDY+1~, ALRDY+2*
SET ALRDY+1~, ALRDY+2*
SRCASE REQ+1!, LOCK~, LOCK+3, LOCK+4, LOCK+5, LOCK+10, E1, SINED, SINED+5, XTMP
, UNLOCK~, UNLOCK+1, UNLOCK+2, UNLOCK+3
SRCC UNLOCK+1~
>> SRCON UN+9*
SRCONCC LOCK+1~, LOCK+3*, LOCK+7, LOCK+8, E2, SINED+2, SINED+3, XTMP+1, UNLOCK+1~*, UNLOCK+4
, UNLOCK+5, UNLOCK+6
>> SRDFN REQ+2, UN
>> SRESIG LOCK+4
SRLCK LOCK+1~, LOCK+3*, LOCK+4, LOCK+6*, LOCK+9*, LOCK+11, LOCK+12, SINED+1*, SINED+2, SINED+4*
>> SRNM REQ+2
SRNOW LOCK+1~, LOCK+2*, XTMP, XTMP+1
SRNOW1 LOCK+1~, LOCK+2*, XTMP, XTMP+1
>> SROPER UN+2*, LOOP+1*
SROPS UN+2!
SROPS( LOOP+1*
SROPS(1 UN+2*, UN+3
SROPS(2 UN+3
SROPS(3 UN+3
>> SRSCHED REQ+1*
>> SRSDOC UN+1*, UN+4
>> SRSOP UN*, UN+2
>> SRSTYP UN+6*, UN+7
SRTAG LOCK+1~, LOCK+3*, SINED+6*, XTMP, XTMP+1
SRTN REQ+1!, UN, UN+1, UN+4, UN+5, UN+6, UN+7, UN+8, UN+9, SEL+6
, END+1!, ALRDY+2
SRUSER LOCK+1~, E1*, E1+1*, E1+2, E2*, E2+1*, E2+2
SRX LOCK+1~, E1*, E1+1, E2*, E2+1
>> SRYN SEL*, SEL+1, SEL+2
SST ALRDY+1~, ALRDY+2*
U ALRDY+2
>> USER UN+4*
>> VADM(1 UN+4
>> X REQ+2*, ALRDY+3*
>> Y REQ+2*
>> Z UN+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All