Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SRSCHDC

Package: Surgery

Routine: SRSCHDC


Information

SRSCHDC ;B'HAM ISC/MAM - SCHEDULE CONCURRENT CASES ; Feb 25, 2002@07:47

Source Information

Source file <SRSCHDC.m>

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)

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+2
Function Call: WRITE
  • Prompt: !!,"No surgical case has been scheduled.",!
  • Line Location: OR+4
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call