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

Package: Surgery

Routine: SRSREQ


Information

SRSREQ ;BIR/MAM - MAKE REQUESTS ; [ 01/20/00 9:42 AM ]

Source Information

Source file <SRSREQ.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 5 (C,H,NOW)^%DTC  ^DIC  ^DIE  EN^DIQ1  ^DIR  
Surgery 2 ^SRSAVG  MSG^SRSUPRQ  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Surgery 8 SRONEW  SROPER  SRSCAN2  SRSCONR  SRSDT  SRSMREQ  SRSUPRQ  SRSWREQ  

Entry Points

Name Comments DBIA/ICR reference
LATE ; check too see if it is too late to request
CONCUR ; check for concurrent case
CC
NEXT ; find request cutoff for previous day
ASKCC
MESS ; print message
PRESS
AVG ; update estimated case length
LOOP ; break procedure if greater than 70 characters

External References

Name Field # of Occurrence
C^%DTC LATE+8, NEXT+1
H^%DTC LATE+2, NEXT+1
NOW^%DTC LATE+10
^DIC LATE+4, LATE+9
^DIE AVG+4
EN^DIQ1 LATE+5
^DIR ASKCC+1, AVG+2, PRESS
^SRSAVG AVG+1
MSG^SRSUPRQ ASKCC+3
DEM^VADPT CC+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,VADM(1)_" has the following procedure already entered for this",!,"date: ",!!,"CASE #"_SRCTN_" "_SROPS(1)
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !,?9,SROPS(2)
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !,?9,SROPS(2)
  • Line Location: CC+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKCC+0
Function Call: WRITE
  • Prompt: !
  • Line Location: AVG+2
Function Call: WRITE
  • Prompt: !!,"Surgery requests not allowed for "_$S(SRDAY=1:"SUN",SRDAY=2:"MON",SRDAY=3:"TUES",SRDAY=4:"WEDNES",SRDAY=5:"THURS",SRDAY=6:"FRI",1:"SATUR")_"DAY !!",!
  • Line Location: LATE+3
Function Call: WRITE
  • Prompt: !!,"I'm sorry, but it is too late to make a request. If this case must",!,"be entered, use the option 'Schedule Unrequested Operations' under",!,"the 'Schedule Operations Menu'.",!!
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Routine Call
  • DIE
  • Line Location:
    • AVG+4
Routine Call
  • DIC
  • Line Location:
    • LATE+4
    • LATE+9
Routine Call
  • DIR
  • Line Location:
    • ASKCC+1
    • AVG+2
    • PRESS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] CONCUR+1, CC, ASKCC+4, AVG+1
^SRF("AC" CONCUR+1
^SRO(133 - [#133] LATE+2, LATE+4, LATE+8, NEXT+1
^SRO(137.45 - [#137.45] ASKCC+4
^VA(200 - [#200] ASKCC+4
^XTMP("SRLOCK-" ASKCC+3
^XUSEC("SR REQ OVERRIDE" LATE+1

Label References

Name Line Occurrences
AVG AVG+3
LOOP CC
MESS LATE+11
NEXT LATE+8, NEXT+1
PRESS LATE+3, LATE+4

Naked Globals

Name Field # of Occurrence
^( CONCUR+1
^("REQ" CONCUR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LATE+10
>> %Y LATE+2, NEXT+1
DA AVG+4*, LATE+5*!
>> DFN CC+1*
DIC LATE+4!*, LATE+5*!, LATE+9!*
DIC(0 LATE+4*, LATE+9*
>> DIE AVG+4*
DIQ LATE+5*!
DIQ(0 LATE+5*
DIR ASKCC!, ASKCC+1!, AVG+2!, PRESS!
DIR("?" ASKCC*
DIR("A" ASKCC*, AVG+2*, PRESS*
DIR("B" ASKCC*, AVG+2*
DIR(0 ASKCC*, AVG+2*, PRESS*
DR AVG+4*!, LATE+5*!
>> DTOUT ASKCC+1, AVG+2
>> DUOUT ASKCC+1, AVG+2
DUZ LATE+1
>> LOOP LOOP+1*
>> M LOOP+1, CC*
MM LOOP+1*, CC!
MMM LOOP+1*, CC!
>> SRAVG AVG+1*
SRCTN CC*, CC+1, ASKCC+1!, ASKCC+3!, ASKCC+4
>> SRDAY LATE+2*, LATE+3, NEXT+1*
>> SRDL LATE+2*, LATE+3, LATE+8, NEXT+1*
>> SRDTL LATE+8*, LATE+10
SRHOL LATE+2~*, LATE+4*, LATE+5, LATE+6, LATE+8, LATE+9*
>> SRLATE LATE+3*, LATE+4*, LATE+10*, LATE+11
>> SRLNTH AVG+1*, AVG+2
>> SRLNTH1 AVG+4*
>> SROPER LOOP+1*, CC*
SROPS CC!
SROPS( LOOP+1*
SROPS(1 CC*, CC+1
SROPS(2 CC+1
SROPS(3 CC+1
>> SRSC ASKCC+1*, ASKCC+3*
>> SRSCC CONCUR+1*, CC
>> SRSCON CONCUR+1*, CONCUR+2, ASKCC+4
>> SRSCON( ASKCC+4*
>> SRSCPT AVG+1*
>> SRSDATE CONCUR+1, LATE+2, LATE+4
>> SRSDPT CONCUR+1, CC+1
>> SRSITE LATE+2, LATE+4, LATE+8, NEXT+1
>> SRSITE("REQ" LATE+7, LATE+10
>> SRSPEC AVG+1*
>> SRTCHK LATE+10*
>> SRTN AVG+1, AVG+4
SRXDT LATE+2~*, LATE+8, NEXT+1*
>> SRY( LATE+6
>> VADM(1 CC+1
>> X AVG+3, LATE+2*, LATE+4*, LATE+8, NEXT+1
>> X1 LATE+8*, NEXT+1*
>> X2 LATE+8*, NEXT+1*
>> Y ASKCC+1, ASKCC+3, AVG+3*, AVG+4, LATE+4, LATE+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All