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

Package: Surgery

Routine: SRSCHDC


Information

SRSCHDC ;B'HAM ISC/MAM - SCHEDULE CONCURRENT CASES ; [ 02/25/02 7:47 AM ]

Source Information

Source file <SRSCHDC.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Surgery 7 DEL^SROERR  ($$LOCK,UNLOCK)^SROUTL  ^SRSCG  ^SRSCHOR  CON^SRSCHUN  ^SRSCHUN1  ^SRSKILL  
VA FileMan 7 ^%DT  H^%DTC  ^DIC  ^DIK  D^DIQ  EN^DIQ1  ^DIR  
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 SRSCHCC  SRSCHDC  

Entry Points

Name Comments DBIA/ICR reference
DEAD
DATE
OR
DISP
REQ
END
LIST ; list stub info
LOOP ; break procedure if greater than 60 characters
DEL ; delete first request ?
ASK
OERR ; delete from ORDER file (100)

External References

Name Field # of Occurrence
^%DT DATE
H^%DTC DATE+2
^DIC SRSCHDC+2
^DIK ASK+6
D^DIQ DEAD, DATE+6
EN^DIQ1 DATE+4
^DIR REQ+1, END
DEL^SROERR OERR+1
$$LOCK^SROUTL DISP+2, REQ+2
UNLOCK^SROUTL DISP+2, REQ+2
^SRSCG OR+2, ASK+4
^SRSCHOR OR
CON^SRSCHUN OR+1
^SRSCHUN1 DISP+2, REQ+2
^SRSKILL END+1
DEM^VADPT SRSCHDC+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: SRSCHDC+2
Function Call: WRITE
  • Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!!
  • Line Location: DEAD+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"Cases cannot be scheduled for past dates. Please enter a different date.",!
  • Line Location: DATE+1
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")_" !!",!!
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !!,"Scheduling not allowed for "_$G(SRY(40.5,SRSDATE,2,"E"))_" !!",!!
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !!,"No surgical case has been scheduled.",!
  • Line Location: OR+0
Function Call: WRITE
  • Prompt: !!,"No surgical case has been scheduled.",!
  • Line Location: OR+2
Function Call: WRITE
  • Prompt: @IOF,!,"The following cases have been entered."
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !!!!,"1. Enter Information for Case #"_SRSCON(1),!,"2. Enter Information for Case #"_SRSCON(2),!
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,CON_". ",?4,"Case # "_SRSCON(CON),?40,SRSDT,!,?4,"Surgeon: "_SRSCON(CON,"DOC"),?40,SRSCON(CON,"SS"),!,?4,"Procedure: ",?16,SROPS(1)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !,?16,SROPS(2)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !,?16,SROPS(2)
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !!,"Since you were unable to complete the information for the concurrent case, you",!,"may want to delete the first case and re-enter both at another time."
  • Line Location: DEL+1
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to delete Case "_SRSCON(1)_", or 'NO' to continue entering information",!,"for this case."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!," Deleting Case "_SRSCON(1)_" ..."
  • Line Location: ASK+6
Routine Call
  • DIC
  • Line Location:
    • SRSCHDC+2
Routine Call
  • DIR
  • Line Location:
    • REQ+1
    • END

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DEAD
^SRO(133 - [#133] DATE+2, DATE+5

Label References

Name Line Occurrences
ASK ASK+2
DATE DATE+1, DATE+3, DATE+5
DEL OR+3
DISP REQ+2
END SRSCHDC+2, DEAD, DATE, OR, OR+2, OR+3, DISP+2, REQ+1
LIST DISP+1
LOOP LIST+1
OERR ASK+5

Naked Globals

Name Field # of Occurrence
^( DEAD

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE!*
%DT("A" DATE*
>> %Y DATE+2
>> CON DISP+1*, LIST+1, LIST+2
DA DATE+4*!, REQ+2*, ASK+6*
>> DFN SRSCHDC+3*
DIC SRSCHDC+2!*, DATE+4*!
DIC("A" SRSCHDC+2*
DIC(0 SRSCHDC+2*
>> DIK ASK+6*
DIQ DATE+4*!
DIQ(0 DATE+4*
DIR REQ!, END!
DIR("?" REQ*
DIR("A" REQ+1*, END*
DIR(0 REQ+1*, END*
DR DATE+4*!
DT DATE+1
DTIME ASK
>> DUOUT REQ+1
>> I DISP+1*
IOF SRSCHDC+2, DISP, END+1
>> LOOP LOOP+1*
>> M LIST+1*, LOOP+1
MM LIST+1!, LOOP+1*
MMM LIST+1!, LOOP+1*
>> SRCC SRSCHDC+2*
>> SRDAY DATE+2*, DATE+3
>> SRDL DATE+2*, DATE+3
SRDUOUT DATE!
>> SREQDT DATE+6*
SRLCK DISP+2~*, REQ+2~*
>> SRLOCK DISP+2
>> SRNM SRSCHDC+3*, DEAD
>> SROPER LIST+1*, LOOP+1*
SROPS LIST+1!
SROPS( LOOP+1*
SROPS(1 LIST+1*, LIST+2
SROPS(2 LIST+2
SROPS(3 LIST+2
>> SRSCON OR+1*, OR+2, OR+3, DISP+2*, REQ+2*
>> SRSCON( DISP+1, REQ+2, LIST+1, LIST+2
>> SRSCON(1 DISP+2, DISP+3, ASK, ASK+2, ASK+4, ASK+6, OERR+1
>> SRSCON(2 OR+3!, DISP+2, DISP+3
SRSDATE DATE!, DATE+2*, DATE+4, DATE+5, DATE+6
>> SRSDPT SRSCHDC+3*, DEAD
>> SRSDT DATE+6*, LIST+2
>> SRSDT1 OR+2, ASK+4
>> SRSDT2 OR+2, ASK+4
>> SRSEDT OR+2*, ASK+4*
>> SRSITE DATE+2, DATE+5
>> SRSOR OR+2, ASK+4
>> SRSOUT SRSCHDC+2*, DATE*, OR*, OR+1, OR+2*, OR+3, REQ+1*, END, ASK+3*
>> SRSSN SRSCHDC+3*
SRTN OR+1!, DISP+2*, REQ+2*, END+1!, ASK+2*, ASK+4*, ASK+6!, OERR+1~*
SRTN("END" OR+2*, ASK+4*
SRTN("OR" OR+2*, ASK+4*
SRTN("START" OR+2*, ASK+4*
SRY DATE+4!
SRY( DATE+5
>> SRYN ASK*, ASK+1*, ASK+2, ASK+3
>> ST DATE+6*
>> VA("PID" SRSCHDC+3
>> VADM(1 SRSCHDC+3
>> X DATE+2*
>> Y SRSCHDC+2, SRSCHDC+3, DEAD*, DATE, DATE+1, DATE+2, DATE+6*, REQ+1, REQ+2
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