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

Package: Surgery

Routine: SRSWREQ


Information

SRSWREQ ;BIR/MAM - REQUEST FROM WAITING LIST ;08/11/05

Source Information

Source file <SRSWREQ.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 4 ^SRSKILL  LATE^SRSREQ  LFTOVR^SRSREQUT  ^SRSRQST  
VA Fileman 4 ^%DT  ^DIC  D^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROERR  SRSWREQ  

Entry Points

Name Comments DBIA/ICR reference
END
REQ
LIST
DEAD
DATE
OK
ARRAY ; set array for waiting list info

External References

Name Field # of Occurrence
^%DT DATE
^DIC SRSWREQ+3
D^DIQ DEAD+1, DATE+2, ARRAY+2
^DIR END
^SRSKILL END+1
LATE^SRSREQ DATE+3
LFTOVR^SRSREQUT REQ+1
^SRSRQST DATE+7
DEM^VADPT DEAD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: SRSWREQ+3
Function Call: WRITE
  • Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!
  • Line Location: DEAD+1
Function Call: WRITE
  • Prompt: !!,"There are no entries on the Waiting List for "_SRNM_"."
  • Line Location: DEAD+2
Function Call: WRITE
  • Prompt: @IOF,!,"Procedures Entered on the Waiting List for "_SRNM_": ",!!
  • Line Location: LIST+0
Function Call: READ
  • Timeout: DTIME
  • Variable: SRW
  • Line Location: LIST+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the entry for which the request will",!,"be made.",!!,"Press RETURN to continue "
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+0
Function Call: WRITE
  • Prompt: !!,"Requests cannot be made for past dates.",!!,"Press RETURN to continue "
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,CNT_". "_SRSERV,?40,"Date Entered on List: "_SRDT,!,?3,SROPER,!
  • Line Location: ARRAY+3
Function Call: READ
  • Timeout: DTIME
  • Variable: SRYN
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if this is the procedure that you would like to make into a",!,"request. Otherwise, enter 'NO'."
  • Line Location: OK+1
Routine Call
  • DIC
  • Line Location:
    • SRSWREQ+3
Routine Call
  • DIR
  • Line Location:
    • END

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DEAD+1
^SRO(133.8 - [#133.8] DEAD+2, LIST+1, ARRAY+1, ARRAY+2
^SRO(137.45 - [#137.45] ARRAY+1
^VA(200 - [#200] DATE+5

Label References

Name Line Occurrences
ARRAY LIST+1
DATE DATE+1, DATE+3
DEAD SRSWREQ+2
END SRSWREQ+3, DEAD+1, DEAD+2, LIST+2, LIST+3, REQ+1, DATE
LIST LIST+4
OK LIST+2, OK+1
REQ LIST+2

Naked Globals

Name Field # of Occurrence
^( DEAD+1
^(0 ARRAY+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE!*
%DT("A" DATE*
>> CNT LIST*, ARRAY+1*, ARRAY+2, ARRAY+3
>> DFN SRSWREQ+2*, SRSWREQ+4*, DEAD+1, DEAD+2, LIST+1
DIC SRSWREQ+3!*
DIC("A" SRSWREQ+3*
DIC(0 SRSWREQ+3*
DIR DATE+5!, END!
DIR("A" END*
DIR("B" DATE+5*
DIR(0 END*
DT DATE+1
DTIME LIST+3, LIST+4, OK
IOF SRSWREQ+3, LIST, END+1
>> ORNP DATE+5
>> ORVP SRSWREQ+2
>> SRCL( DATE+4*
>> SRDT ARRAY+2*, ARRAY+3
>> SREQDT DATE+2*
>> SRI DATE+4*
SRLATE DATE+3!
>> SRNM DEAD*, DEAD+1, DEAD+2, LIST
>> SROFN LIST+1*, ARRAY+2
>> SROPER ARRAY+2*, ARRAY+3
>> SRSDATE DATE+1*
>> SRSDPT SRSWREQ+2*, SRSWREQ+4*
>> SRSER ARRAY+1*, ARRAY+2
>> SRSERV ARRAY+1*, ARRAY+2, ARRAY+3
>> SRSOP DATE+4*
>> SRSOTH REQ*, REQ+1
>> SRSOUT SRSWREQ+2*, SRSWREQ+3*, LIST+2*, LIST+3*, REQ+1*, DATE*, END
>> SRSS LIST*, LIST+1*, DATE+4*, ARRAY+1, ARRAY+2
>> SRSSN DEAD*
>> SRSST DATE+1*
SRTN END+1!
SRW LIST!, LIST+2*, LIST+3*, LIST+4, DATE+4
SRW( LIST+4, DATE+4, ARRAY+2*
SRW(2 LIST+2
>> SRWL SRSWREQ+2*
>> SRYN LIST+2, OK*, OK+1*
>> ST DATE+6*
>> VA("PID" DEAD
>> VADM(1 DEAD
>> X LIST+4*
>> Y SRSWREQ+3, SRSWREQ+4, DEAD+1*, DATE, DATE+1, DATE+2, ARRAY+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All