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

Package: Surgery

Routine: SRSCHD


Information

SRSCHD ;B'HAM ISC/MAM - SCHEDULING UNREQUESTED CASES ; Feb 25, 2002@07:27

Source Information

Source file <SRSCHD.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 ^%DT  H^%DTC  ^DIC  D^DIQ  EN^DIQ1  ^DIR  
Surgery 5 ($$LOCK,UNLOCK)^SROUTL  ^SRSCHOR  ^SRSCHUN  ^SRSCHUN1  ^SRSKILL  
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: 2

Package Total Caller Graph
Surgery 2 SROSRES  SRSCHDC  

Entry Points

Name Comments DBIA/ICR reference
BEG
OR ;
END ;
SURG ; surgeon

External References

Name Field # of Occurrence
^%DT BEG+2
H^%DTC BEG+4
^DIC BEG+9
D^DIQ BEG+8, BEG+10
EN^DIQ1 BEG+6
^DIR END+1, SURG+1
$$LOCK^SROUTL OR+4
UNLOCK^SROUTL OR+4
^SRSCHOR OR+2
^SRSCHUN OR+3
^SRSCHUN1 OR+4
^SRSKILL END+2
DEM^VADPT BEG+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+1
Function Call: WRITE
  • Prompt: !!,"The schedule cannot be updated without a date.",!!
  • Line Location: BEG+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BEG+3
Function Call: WRITE
  • Prompt: !!,"Reservations cannot be made for dates in the past. Please select another date.",!!,"Press RETURN to continue "
  • Line Location: BEG+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BEG+5
Function Call: WRITE
  • Prompt: !!,"Scheduling not allowed for "_$S(SRDAY=1:"SUNDAY",SRDAY=2:"MONDAY",SRDAY=3:"TUESDAY",SRDAY=4:"WEDNESDAY",SRDAY=5:"THURSDAY",SRDAY=6:"FRIDAY",1:"SATURDAY")_" !!",!!!,"Press RETURN to continue "
  • Line Location: BEG+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: BEG+7
Function Call: WRITE
  • Prompt: !!,"Scheduling not allowed for "_$G(SRY(40.5,SRSDATE,2,"E"))_" !!",!!!,"Press RETURN to continue "
  • Line Location: BEG+7
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+9
Function Call: WRITE
  • Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!
  • Line Location: BEG+10
Function Call: WRITE
  • Prompt: !!,"No surgical case has been scheduled.",!
  • Line Location: OR+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"To create a surgical case, a surgeon MUST be selected. Enter '^' to exit.",!
  • Line Location: SURG+2
Routine Call
  • DIC
  • Line Location:
    • BEG+9
Routine Call
  • DIR
  • Line Location:
    • END+1
    • SURG+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] BEG+10
^SRO(133 - [#133] BEG+4, BEG+7

Label References

Name Line Occurrences
BEG BEG+3, BEG+5, BEG+7
END BEG+2, BEG+9, BEG+10, OR+1, OR+2, OR+3
SURG OR+1, SURG+2

Naked Globals

Name Field # of Occurrence
^( BEG+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT BEG+2!*
%DT("A" BEG+2*
>> %Y BEG+4
DA BEG+6*!
>> DFN BEG+9*
DIC BEG+6*!, BEG+9*!
DIC("A" BEG+9*
DIC(0 BEG+9*
DIQ BEG+6*!
DIQ(0 BEG+6*
DIR END+1!, SURG+1!
DIR("A" END+1*, SURG+1*
DIR(0 END+1*, SURG+1*
DR BEG+6*!
DT BEG+3
DTIME BEG+3, BEG+5, BEG+7
>> DTOUT SURG+1
IOF BEG, END+2
>> SRDAY BEG+4*, BEG+5
>> SRDL BEG+4*, BEG+5
>> SREQDT BEG+8*
SRLCK END+2!
>> SRNM BEG+9*, BEG+10
>> SRNOREQ BEG+1*
>> SRSC1 BEG+1*
>> SRSCHD BEG+1*
SRSDATE BEG+1!, BEG+3*, BEG+4, BEG+6, BEG+7, BEG+8
>> SRSDOC SURG+3*
>> SRSDPT BEG+9*, BEG+10
>> SRSITE BEG+4, BEG+7
>> SRSOUT BEG*, OR+1*, OR+2*, OR+3*, END+1, SURG+1*
>> SRSSN BEG+9*
SRTN OR+4, END+2!
SRY BEG+6!
SRY( BEG+7
>> ST BEG+1*
>> VA("PID" BEG+9
>> VADM(1 BEG+9
>> X BEG+3*, BEG+4*, BEG+5*, BEG+7*, SURG+1, SURG+2
>> Y BEG+2, BEG+3, BEG+8*, BEG+9, BEG+10*, SURG+2, SURG+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All