Routine: SROBLOD

Information

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

Source file <SROBLOD.m>

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

Package	Total	Caller Graph
Surgery	6	SRONEW SROPER SROSCH2 SRSCHC2 SRSCHUN1 SRSRQST1

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

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

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

Name	Field # of Occurrence
^(0	BLOOD+1

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