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

Package: Surgery

Routine: SROOPRM


Information

SROOPRM ;B'HAM ISC/KKA - UPDATE NORMAL O.R. HOURS ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROOPRM.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  FILE^DICN  ^DIE  
Surgery 2 (HELP,S,T)^SROOPRM1  ^SRSKILL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SR NORMAL HOURS  

Entry Points

Name Comments DBIA/ICR reference
BEGIN ;
END
LKUPRM ;*****get internal entry number of o.r.*****
RPTRM
SETUP ; add the days of the week if they do not exist
UPDATE ;*****update one characteristic*****
CHOICE ;*****find out user's choice*****
JUMP
EDIT ;*****dispay heading and choices*****
DEL ; delete absurd times
FDAY ;*****start with sunday and follow w/ consec days until user changes
CHNG ;*****loop through days of week starting with user's day of choice***
DAY ;*****get internal entry number of day to be edited*****
PL ;*****update more than one characteristic*****

External References

Name Field # of Occurrence
^DIC LKUPRM+3, DAY+1, JUMP
FILE^DICN SETUP+1
^DIE UPDATE+1, DEL+1
HELP^SROOPRM1 JUMP+3, JUMP+4, JUMP+5
S^SROOPRM1 CHOICE+3
T^SROOPRM1 CHOICE+3
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,SRLINE,!,?15,"Normal Daily Schedules for Operating Rooms",!,SRLINE,!
  • Line Location: LKUPRM+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LKUPRM+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Timeout: DTIME
  • Variable: SRANS
  • Line Location: DAY+2
Function Call: WRITE
  • Prompt: !!,"Day entered not valid.",!,"Press RETURN to continue: "
  • Line Location: DAY+2
Function Call: WRITE
  • Prompt: @IOF,!,?10,"Editing the ",SREXT," Schedule for the ",$P(^SC($P(SRREC,"^",1),0),"^",1)," Operating Room",!,SRLINE,!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !,"1. Normal Start Time: ",?24,SRNST,!,"2. Normal End Time: ",?24,SRNET,!,"3. Inactive (Y/N):",?24,SRIN,!!,SRLINE,!
  • Line Location: EDIT+4
Function Call: READ
  • Timeout: DTIME
  • Variable: SRCH
  • Line Location: CHOICE+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: JUMP+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: JUMP+7
Function Call: WRITE
  • Prompt: !!,"Normal Starting Time must be earlier than Normal Ending Time.",!
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: !!,"Normal Ending Time must be later than Normal Starting Time.",!
  • Line Location: UPDATE+3
Routine Call
  • DIE
  • Line Location:
    • UPDATE+1
    • DEL+1
Routine Call
  • DIC
  • Line Location:
    • LKUPRM+3
    • DAY+1
    • JUMP

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(131.7 SETUP+1
^SC - [#44] EDIT+1
^SRS - [#131.7] EDIT+2, UPDATE+2, UPDATE+3, SETUP+1

Label References

Name Line Occurrences
CHNG FDAY+2
DAY FDAY+1, DAY+2, JUMP, CHNG+1
DEL UPDATE+2, UPDATE+3
EDIT JUMP+3, JUMP+4, JUMP+5, JUMP+6, JUMP+7
END LKUPRM+3
JUMP JUMP
LKUPRM RPTRM, JUMP+8
PL JUMP+6
SETUP FDAY+1, JUMP
UPDATE JUMP+7, PL+1, UPDATE+2, UPDATE+3

Naked Globals

Name Field # of Occurrence
^(0 UPDATE+2, UPDATE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C BEGIN+1*
DA UPDATE+1!*, DEL+1*, SETUP+1!, SETUP+2!
DA(1 UPDATE+1*, DEL+1*, SETUP+1*
DD SETUP+1!, SETUP+2!
DIC LKUPRM+3!*, DAY+1!*, JUMP!*, SETUP+1!*, SETUP+2!
DIC("A" LKUPRM+3*
DIC("P" SETUP+1*
DIC("S" LKUPRM+3*
DIC(0 LKUPRM+3*, DAY+1*, JUMP*, SETUP+1*
DIE UPDATE+1!*, DEL+1*
DO SETUP+1!, SETUP+2!
DR UPDATE+1!*, DEL+1*
DTIME DAY+2, CHOICE+2
IOF LKUPRM+2, END, EDIT+1
>> SR1 JUMP+5*, PL+1
>> SR2 JUMP+5*, PL+1
>> SRANS DAY+2*
>> SRC PL+1*
>> SRCH CHOICE+2*, CHOICE+3*, JUMP, JUMP+2*, JUMP+3, JUMP+4, JUMP+5, JUMP+6, JUMP+7
>> SRCHNG LKUPRM+1*, FDAY+1, FDAY+2*, CHOICE+3*, CHNG+1
>> SRCKNM JUMP+4*
>> SRD FDAY+1*
>> SRDAY DAY+1*, EDIT+2, UPDATE+1, UPDATE+2, UPDATE+3, DEL+1, SETUP+1*
>> SRENT LKUPRM+3*, DAY+1, EDIT+2, JUMP, UPDATE+1, UPDATE+2, UPDATE+3, DEL+1, SETUP+1
>> SREXT DAY+1*, EDIT+1
>> SRGOOD CHOICE+1*
>> SRIN EDIT+2*, EDIT+3*, EDIT+4
>> SRLINE BEGIN+1*, LKUPRM+2, EDIT+1, EDIT+4
>> SRNDE EDIT+2*
>> SRNET EDIT+2*, EDIT+3*, EDIT+4
>> SRNEW DAY+1*, CHNG+1
>> SRNEWC CHNG+1*
>> SRNST EDIT+2*, EDIT+3*, EDIT+4
>> SRNUM JUMP+7*, PL+1*, UPDATE+1, UPDATE+2, UPDATE+3, DEL+1
>> SRREC LKUPRM+3*, EDIT+1
>> SRSAVE LKUPRM+1*, DAY+1*, DAY+2
>> SRSOUT LKUPRM+1*, FDAY+1, FDAY+2, EDIT+1, CHOICE+2*, JUMP+3, JUMP+4, JUMP+5, PL+1, CHNG+1
>> SRSTOP LKUPRM+1*, FDAY+1, FDAY+2, JUMP+1*, CHNG+1
>> SRWRONG LKUPRM+1*, DAY+1*, DAY+2*
>> X FDAY+1*, DAY+2*, CHOICE+3*, JUMP*, JUMP+1, CHNG+1*, SETUP+1*
>> Y LKUPRM+3, DAY+1, JUMP
>> Y(0 LKUPRM+3, DAY+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All