Routine: SRBLOOD

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SCAN+5
Function Call: WRITE	Prompt: !,$P(SRD(SRI),"^",3) Line Location: SCAN+46
Function Call: WRITE	Prompt: !!," WARNING",!!,$P(SRD(Y),"^",4),! Line Location: CHECKS+1
Function Call: WRITE	Prompt: !!," There is no 'DATE/TIME Unit Assigned' for this entry." Line Location: CHECKS+2
Function Call: WRITE	Prompt: !!!,?25,"No Discrepancies Found",!!! Line Location: SRYES+0
Function Call: WRITE	Prompt: !!,?30,"WARNING",!! Line Location: SRNO+0
Function Call: WRITE	Prompt: ?5,"There is no record that this unit has been assigned to this patient." Line Location: SRNO+1
Function Call: WRITE	Prompt: !!,?8," Please recheck the patient and blood product IDs.",!! Line Location: SRNO+2
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+1
Routine Call	DIR Line Location: SCAN+4 SCAN+47 SRYES ASK PAGE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SRBLOOD+10
^DD("DD"	SCAN+39
^DPT - [#2]	SCAN+2
^LAB(66 - [#66]	SCAN+44
^LR - [#63]	SCAN+37
^LRD(65 - [#65]	SCAN+7, SCAN+8, SCAN+9, SCAN+10, SCAN+13, SCAN+14, SCAN+15, SCAN+39, SCAN+43, SCAN+44
^SRF - [#130]	SCAN+2

Name	Line Occurrences
ASK	CHECKS+3
CHECKS	SCAN+41
END	SCAN+4, SCAN+47, SRYES
SCAN	END+1
SRNO	SCAN+3, SCAN+5, SCAN+7, SCAN+8, SCAN+18, SCAN+30, CHECKS
SRYES	SCAN+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BY	AUDIT*
>> DFN	SCAN+36, SCAN+37, SCAN+38
>> DIC	AUDIT*
DIR	SCAN+4!, SCAN+47!, SRYES!, ASK!
DIR("?"	SCAN+4*
DIR("A"	SCAN+4, SCAN+47, SRYES, ASK
DIR("B"	ASK*
DIR(0	SCAN+4, SCAN+47, SRYES, ASK, PAGE*
>> DIRUT	SCAN+4
DT	SCAN+39
>> DTOUT	SCAN+47
>> DUOUT	SCAN+47
>> FLDS	AUDIT*
IOF	PAGE+1
IOST	PAGE
>> L	AUDIT*
SRB	END!
SRB(	SCAN+16*, SCAN+22, SCAN+24, SCAN+25, SCAN+27
SRBLOOD	END!
SRC2	SCAN+20, SCAN+21, SCAN+22, SCAN+24, SCAN+27*, END!
SRD	SCAN+30, END!
SRD(	SCAN+22, SCAN+24, SCAN+27, SCAN+32, SCAN+33, SCAN+36, SCAN+37, SCAN+38, SCAN+39, SCAN+42 , SCAN+43, SCAN+45, SCAN+46, CHECKS, CHECKS+1
SRDFN	SCAN+2*, SCAN+3, SCAN+7, SCAN+17, SCAN+24, SCAN+33, CHECKS, END!
SRDS	SCAN+32*, SCAN+40, END!
SRDSP	SCAN+32, SCAN+33, SCAN+40, END!
SREXP	SCAN+32, SCAN+39, SCAN+40, END!
SRFLAG	SCAN+20, SCAN+22, SCAN+23, SCAN+24, SCAN+26, SCAN+27, SCAN+32, CHECKS+1*, CHECKS+3, END!
SRI	SCAN+32, SCAN+33, SCAN+36, SCAN+37, SCAN+38, SCAN+39, SCAN+42, SCAN+43, SCAN+44, SCAN+45 , SCAN+46, END!
SRICNT	SCAN+9, SCAN+11, SCAN+16*, SCAN+20, SCAN+22, SCAN+23, END!
SRIEN	SCAN+9, SCAN+10, SCAN+13, SCAN+14, SCAN+15, SCAN+16, SCAN+39, SCAN+43*, SCAN+44, END!
SRLRD	SCAN+11, SCAN+14, SCAN+15, SCAN+16, SCAN+17, END!
SRNODT	SCAN+32*, SCAN+40, END!
SRO	END!
SRO(	SCAN+9, SCAN+10, SCAN+13
SROCNT	SCAN+9, SCAN+10, SCAN+11, SCAN+21, SCAN+41, END!
SROK	SCAN+9, SCAN+17, SCAN+18, SCAN+41, END!
>> SRTN	SCAN+2
SRUNIT	SCAN+5, SCAN+8, SCAN+9, SCAN+10, SCAN+39, SCAN+43*, SCAN+44, END!
SRZ	SCAN+11, SCAN+13, SCAN+20, SCAN+22, SCAN+23, SCAN+24, SCAN+25, SCAN+27, SCAN+42, SCAN+43 , SCAN+47, END!
>> VA("PID"	SCAN+37
>> VADM(1	SCAN+37
>> X	SRBLOOD+10*, SCAN+5
>> Y	SCAN+39, SCAN+41, SCAN+47, CHECKS, CHECKS+1, END+1
>> Z	SCAN+39*

Customize PDF page

Package: Surgery

Routine: SRBLOOD

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: