Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Routine: SROBLOD

Package: Surgery

Routine: SROBLOD

Information

SROBLOD ;B'HAM ISC/MAM - SAFETY STRAP, REQUESTED BLOOD ; 30 DEC 1991 10:15 AM

Source Information

Source file <SROBLOD.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	3	FILE^DICN ^DIE ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 5

Package	Total	Caller Graph
Surgery	5	SRONEW SROPER SROSCH2 SRSCHUN1 SRSRQST1

Entry Points

Name	Comments	DBIA/ICR reference
ASK
TYPE
DIE
PRINT	; print blood request on schedule
BLOOD	; print blood kind & units

External References

Name	Field # of Occurrence
FILE^DICN	TYPE+7
^DIE	SROBLOD+3, TYPE+8, DIE
^DIR	ASK, TYPE

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: ! Line Location: TYPE+0
Function Call: WRITE	Prompt: ?24,"REQUESTED BLOOD COMPONENTS: "_TYPE Line Location: PRINT+5
Function Call: WRITE	Prompt: !,?24,SRB_" - "_SRBU Line Location: BLOOD+2
Routine Call	DIE Line Location: SROBLOD+3 TYPE+8 DIE
Routine Call	DIR Line Location: ASK TYPE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROBLOD+2, PRINT+1, PRINT+2, PRINT+5, BLOOD+1
^SRO(133 - [#133]	TYPE+5

Label References

Name	Line Occurrences
BLOOD	PRINT+5
DIE	ASK+1, TYPE+2
TYPE	TYPE+1

Naked Globals

Name	Field # of Occurrence
^(0	BLOOD+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> B	BLOOD+1*
>> BLOOD	SROBLOD+4, ASK+1, DIE, PRINT+3, PRINT+5, BLOOD+1
>> CROSSM	SROBLOD+4, TYPE+2, DIE
DA	SROBLOD+3, TYPE+7~, TYPE+8!, DIE!
DIC	TYPE+7~*
DIC(0	TYPE+7*
DIE	SROBLOD+3, TYPE+8!, DIE!*
DIR	ASK!, TYPE!
DIR("A"	ASK, TYPE
DIR("B"	ASK, TYPE
DIR(0	ASK, TYPE
DO	TYPE+7~
DR	SROBLOD+3!, TYPE+7~, TYPE+8!, DIE!*
DR(2	SROBLOD+3, TYPE+8
>> DTOUT	ASK, TYPE, TYPE+8
>> DUOUT	ASK, TYPE
>> S(0	PRINT+1, PRINT+2, PRINT+3, PRINT+4
>> SRB	BLOOD+1*, BLOOD+2
>> SRBLOOD	TYPE+5*, TYPE+6, TYPE+7
>> SRBU	BLOOD+1, BLOOD+2
>> SRDUOUT	ASK, TYPE, TYPE+8*
>> SRSITE	TYPE+5
SRT	ASK!, TYPE, TYPE+8*
>> SRTN	SROBLOD+2, SROBLOD+3, TYPE+7, TYPE+8, DIE, PRINT+1, PRINT+2, PRINT+5, BLOOD+1
>> TYPE	PRINT+4*, PRINT+5
X	ASK, TYPE, TYPE+1, TYPE+7~*
>> Y	ASK+1, TYPE+2, TYPE+8

Customize PDF page

Package: Surgery

Routine: SROBLOD

Call Graph Total: 3

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Legend: