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

Package: Surgery

Routine: SRSCONR


Information

SRSCONR ;B'HAM ISC/MAM - REQUEST CONCURRENT CASES ; [ 01/30/01 9:54 AM ]

Source Information

Source file <SRSCONR.m>

Entry Points

Name Comments DBIA/ICR reference
DEAD
DATE
R2
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: SRSCONR+3
Function Call: WRITE
  • Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!!
  • Line Location: DEAD+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"Requests cannot be made for past dates. Please enter a different date.",!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: @IOF,!,"The following requests have been entered."
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !!!!,"1. Enter Request Information for Case #"_SRSCON(1),!,"2. Enter Request Information for Case #"_SRSCON(2),!
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,SRSCON_". ",?4,"Case # "_SRSCON(SRSCON),?40,SRSDT,!,?4,"Surgeon: "_SRSCON(SRSCON,"DOC"),?40,SRSCON(SRSCON,"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 request 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 request."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!," Deleting Case "_SRSCON(1)_" ..."
  • Line Location: ASK+5

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