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

Call Graph

Call Graph Total: 13

Package Total Call Graph
Surgery 7 DEL^SROERR  ($$LOCK,UNLOCK)^SROUTL  ^SRSKILL  LATE^SRSREQ  LFTOVR^SRSREQUT  CON^SRSRQST  ^SRSRQST1  
VA Fileman 5 ^%DT  ^DIC  ^DIK  D^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SROERR  SRSMREQ  SRSREQCC  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE
^DIC SRSCONR+3
^DIK ASK+5
D^DIQ DEAD+1, DATE+2
^DIR REQ+1, END
DEL^SROERR OERR+1
$$LOCK^SROUTL DISP+3, REQ+3
UNLOCK^SROUTL DISP+3, REQ+3
^SRSKILL END+1
LATE^SRSREQ DATE+3
LFTOVR^SRSREQUT DEAD+2
CON^SRSRQST DATE+4
^SRSRQST1 DISP+3, REQ+3
DEM^VADPT DEAD

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
  • Timeout: DTIME
  • Variable: SRYN
  • 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
Routine Call
  • DIC
  • Line Location:
    • SRSCONR+3
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+1

Label References

Name Line Occurrences
ASK ASK+2
DATE DATE+1, DATE+3
DEAD SRSCONR+2
DEL R2
DISP REQ+2
END SRSCONR+3, DEAD+1, DEAD+2, DATE, DATE+5, R2, DISP+2, REQ+1
LIST DISP+1
LOOP LIST+1
OERR ASK+4

Naked Globals

Name Field # of Occurrence
^( DEAD+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE!*
%DT("A" DATE*
>> DA REQ+2*, ASK+5*
>> DFN SRSCONR+2*, SRSCONR+4*
DIC SRSCONR+3!*
DIC("A" SRSCONR+3*
DIC(0 SRSCONR+3*
>> DIK ASK+5*
DIR REQ!, END!
DIR("?" REQ*
DIR("A" REQ+1*, END*
DIR(0 REQ+1*, END*
DT DATE+1
DTIME ASK
>> DUOUT REQ+1
>> I DISP+1*
IOF SRSCONR+3, DISP, END+1
>> LOOP LOOP+1*
>> M LIST+1*, LOOP+1
MM LIST+1!, LOOP+1*
MMM LIST+1!, LOOP+1*
>> OPT DATE*
>> ORVP SRSCONR+2
POP DISP!
>> SRCC SRSCONR+2*
SRDUOUT DATE!
>> SREQDT DATE+2*
SRLATE DATE+3!
>> SRNM DEAD*, DEAD+1
>> 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 DATE*, DATE+4*, DATE+5, R2, DISP+1*, DISP+2*, REQ+2*, LIST+1, LIST+2
>> SRSCON( DISP+1, REQ+2, LIST+1, LIST+2
>> SRSCON(1 DISP+2, DISP+4, ASK, ASK+2, ASK+5, OERR+1
>> SRSCON(2 R2!, DISP+2, DISP+4
>> SRSDATE DATE+2*
>> SRSDAY DATE+2*
>> SRSDPT SRSCONR+2*, SRSCONR+4*, DEAD+1
>> SRSDT DATE+2*, LIST+2
>> SRSOP DATE+2*
>> SRSOTH DEAD+2*
>> SRSOUT SRSCONR+2*, SRSCONR+3*, DEAD+2*, DATE*, DATE+4, DATE+5*, R2, REQ+1*, END, ASK+3*
, ASK+5*
>> SRSSN DEAD*
>> SRSST DATE+2*
SRTN DATE+4!, DISP+2*, DISP+3, REQ+2*, REQ+3, END+1!, ASK+2*, ASK+5*!, OERR+1~*
>> SRWL SRSCONR+2*
>> SRYN ASK*, ASK+1*, ASK+2, ASK+3
>> ST DATE+2*
>> VA("PID" DEAD
>> VADM(1 DEAD
>> Y SRSCONR+3, SRSCONR+4, DEAD+1*, DATE, DATE+1, DATE+2, 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