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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SRSBOUT

Package: Surgery

Routine: SRSBOUT


Information

SRSBOUT ;B'HAM ISC/MAM - BLOCK OUT TIME ON OR SCHEDULE ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SRSBOUT.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  (,C)^%DTC  ^DIC  ^DIE  
Surgery 3 ^SRSKILL  ^SRSTIME  PATRN^SRSUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRSBOUT  

Entry Points

Name Comments DBIA/ICR reference
HELP
MNTH ; one day each month
END
SER ; select service
CK4
INT ; collision with service at the same time
CK0
CK2
UPDATE
CK5
CNG
S ; set up ^SRS
CK1
MUL2 ;
CK3
TIME ; select starting and ending times
DATE ; select date to begin
PAT
ROOM ; select operating room

External References

Name Field # of Occurrence
^%DT DATE+1
^%DTC PAT+3, PAT+5
C^%DTC CK0, CK5, CK4, UPDATE
^DIC ROOM+1
^DIE MUL2+1
^SRSKILL END
^SRSTIME TIME+1
PATRN^SRSUTL UPDATE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Time collision with '"_$P(SRSSER1,"^",5)_"' which has reservations from "_STIME_" to "_ETIME_".",!
  • Line Location: INT+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: INT+3
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: INT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: MNTH+1
Function Call: WRITE
  • Prompt: !!,"If this blockout should appear on the same day every month, on the last",!,"week of that month, enter 'YES'. Otherwise, enter RETURN."
  • Line Location: MNTH+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: SER+1
Function Call: WRITE
  • Prompt: !!,"You service abbreviation cannot include the equal sign."
  • Line Location: SER+3
Function Call: WRITE
  • Prompt: !!!,"Enter a 3 to 4 letter abbreviation for the service, i.e. card, gen, gi.",!!
  • Line Location: SER+4
Function Call: WRITE
  • Prompt: !!,"Your service abbreviation cannot include the letter 'X'."
  • Line Location: SER+5
Function Call: WRITE
  • Prompt: !!,"Abbreviation must be 3 to 4 characters. "
  • Line Location: SER+6
Function Call: WRITE
  • Prompt: !!,"Past dates cannot be entered."
  • Line Location: DATE+1
Function Call: READ
  • Prompt: "Select Number: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: Z
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !!,"Enter 1, 2, or 3."
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !!,"Updating Schedules..."
  • Line Location: PAT+9
Function Call: WRITE
  • Prompt: !!,"Enter '1' to create the blockout on the same day and time every week, '2' to",!,"create the blockout on the same day and time every other week, or '3' to "
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"create the blockout for the same day of the week and week of the month only."
  • Line Location: HELP+1
Routine Call
  • DIE
  • Line Location:
    • MUL2+1
Routine Call
  • DIC
  • Line Location:
    • ROOM+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRS - [#131.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRS - [#131.7] S+1*, S+2*, S+3*, MUL2+3, UPDATE
^SRS("R" CNG, INT+1, PAT+7

Label References

Name Line Occurrences
CK0 CK0, CK3
CK1 CK1
CK2 CK2
CK4 CK4
CK5 CK4
CNG PAT+7
DATE DATE+1
END SER+1, SER+2, ROOM+1, DATE+1, TIME+1, PAT, PAT+8, CK4+1
HELP PAT+1
INT CNG+1
MNTH MNTH+3, PAT+4
PAT PAT+1, PAT+2
S MUL2+3
SER SER+3, SER+4, SER+5, SER+6
UPDATE MUL2+4, CK1, CK2, CK3, CK4

Naked Globals

Name Field # of Occurrence
^( CNG

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT DATE+1*
>> %DT("A" DATE+1*
>> DA MUL2+1*
DIC ROOM+1!*
DIC("A" ROOM+1*
DIC("S" ROOM+1*
DIC(0 ROOM+1*
DIE MUL2+1!*
DR MUL2+1!*
DR(2 MUL2+1*
DR(3 MUL2+1*
DR(4 MUL2+1*
DT DATE+1
DTIME INT+3, MNTH+1, SER+1, PAT
DUZ MUL2+1, MUL2+2
>> EN1 CNG*, CNG+1
>> EN2 CNG*, CNG+1
>> ETIME INT+1*, INT+2
>> I CNG, INT+1, PAT+7*
IOF END
>> J CNG, CNG+1, INT+1, PAT+7*
>> SRMM SER+7*
>> SRS1 CNG*, CNG+1
>> SRS2 CNG*, CNG+1
>> SRSBANG INT+2*, TIME+1*, PAT+7, PAT+8
>> SRSBOUT MUL2+2*
>> SRSDATE S+1, S+2, S+3, DATE+1*, PAT+3, PAT+5, MUL2+3, CK0*, CK5*, CK4*
, UPDATE*
>> SRSDAY CNG, INT+1, PAT+5*, PAT+7, MUL2+1, MUL2+2
>> SRSET CNG, PAT+6*, MUL2+1
>> SRSNUM CNG+1, PAT+5*, MUL2+1, CK1, CK2, CK0, CK3, CK5, CK4
>> SRSOR CNG, INT+1, S+1, S+2, S+3, ROOM+1*, PAT+7, MUL2+1, MUL2+3, UPDATE
>> SRSOUT MNTH+1*, TIME+1*, PAT*, PAT+4
>> SRSSER SER+1*, SER+2, SER+3, SER+4, SER+5, SER+6, SER+7*, MUL2+1, MUL2+2
>> SRSSER1 INT+1*, INT+2
>> SRSST CNG, PAT+6*, MUL2+1
>> SRSTIME PAT+6, MUL2+2
>> STIME INT+1*, INT+2
>> X INT+3*, PAT+3, PAT+5, MUL2+2*, CK1*, CK2*, CK0, CK3*, CK5, CK4*
, UPDATE*
>> X1 PAT+3*, PAT+5*, CK0*, CK5*, CK4*, UPDATE*
>> X2 PAT+3*, PAT+5*, CK0*, CK5*, CK4*, UPDATE*
>> X5 CK0*, CK4*
>> Y ROOM+1, DATE+1, PAT+5*
>> Z MNTH+2*, PAT*, PAT+1, PAT+2, PAT+3*, PAT+4, PAT+5
>> Z1 MNTH+1*, MNTH+2*, MNTH+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All