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 ; [ 02/25/02 7:27 AM ]

Source Information

Source file <SRSCHD.m>

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

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROSRES  

Entry Points

Name Comments DBIA/ICR reference
END ;
BEG
OR

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
$$LOCK^SROUTL OR+2
UNLOCK^SROUTL OR+2
^SRSCHOR OR
^SRSCHUN OR+1
^SRSCHUN1 OR+2
^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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Routine Call
  • DIC
  • Line Location:
    • BEG+9
Routine Call
  • DIR
  • Line Location:
    • END+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, OR+1

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!
DIR("A" END+1*
DIR(0 END+1*
DR BEG+6*!
DT BEG+3
DTIME BEG+3, BEG+5, BEG+7
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
>> SRSDPT BEG+9*, BEG+10
>> SRSITE BEG+4, BEG+7
>> SRSOUT BEG*, OR*, OR+1*, END+1
>> SRSSN BEG+9*
SRTN OR+2, 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*
>> Y BEG+2, BEG+3, BEG+8*, BEG+9, BEG+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All