Routine: SROUTC

Package	Total	Call Graph
VA Fileman	4	FILE^DICN ^DIE ^DIK ^DIR
Surgery	2	HDR^SROAUTL EN^SROCCAT

Package	Total	Caller Graph
Surgery	1	SROAOUT

Entry Points

External References

Name	Field # of Occurrence
FILE^DICN	UPDATE+2, IP+2, IP+4
^DIE	UPDT490+2, EM8+1, EM8+2
^DIK	DEL+3, DEL+6
^DIR	EM8, IP
HDR^SROAUTL	DISP
EN^SROCCAT	SROUTC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"0. Operative Death: ",?35,$P(SRAO(0),"^") Line Location: DISP+1
Function Call: WRITE	Prompt: !!,"Perioperative (30 day) Occurrences:",!,"-----------------------------------" Line Location: DISP+2
Function Call: WRITE	Prompt: !,"1. Perioperative MI: ",?35,$P(SRAO(1),"^"),?40," 8. Repeat cardiac surg procedure: ",?76,$P(SRAO(8),"^") Line Location: DISP+3
Function Call: WRITE	Prompt: !,"2. Endocarditis: ",?35,$P(SRAO(2),"^"),?40," 9. Tracheostomy: ",?76,$P(SRAO(9),"^") Line Location: DISP+4
Function Call: WRITE	Prompt: !,"3. Renal failure require dialysis: ",$P(SRAO(3),"^"),?40,"10. Repeat ventilator w/in 30 days: ",?76,$P(SRAO(10),"^") Line Location: DISP+5
Function Call: WRITE	Prompt: !,"4. Mediastinitis: ",?35,$P(SRAO(4),"^"),?40,"11. Stroke: ",?76,$P(SRAO(11),"^") Line Location: DISP+6
Function Call: WRITE	Prompt: !,"5. Cardiac arrest requiring CPR: ",?35,$P(SRAO(5),"^"),?40,"12. Coma >= 24 hr: ",?76,$P(SRAO(12),"^") Line Location: DISP+7
Function Call: WRITE	Prompt: !,"6. Reoperation for bleeding: ",?35,$P(SRAO(6),"^"),?40,"13. New Mech Circ Support: ",?76,$P(SRAO(13),"^") Line Location: DISP+8
Function Call: WRITE	Prompt: !,"7. On ventilator >= 48 hr: ",?35,$P(SRAO(7),"^") Line Location: DISP+9
Function Call: WRITE	Prompt: !! Line Location: DISP+10
Function Call: WRITE	Prompt: "-" Line Location: DISP+10
Routine Call	DIE Line Location: UPDT490+2 EM8+1 EM8+2
Routine Call	DIR Line Location: EM8 IP

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROUTC+3, UPDT490+1, UPDATE+3, IP+2, IP+4*, DEL+2, DEL+3!, DEL+5, DEL+6!
^SRO(136.5 - [#136.5]	UPDATE+2, IP+2, IP+4

Label References

Name	Line Occurrences
DEL	EM8+1
EM8	EM8
IP	UPDATE+1
MAP	UPDATE, DEL+1
UPDT490	SROUTC+2
YN	SROUTC+4, SROUTC+5, SROUTC+6, SROUTC+7, SROUTC+8, SROUTC+9, SROUTC+10

Naked Globals

Name	Field # of Occurrence
^(	DEL+2, DEL+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	UPDT490+2!, EM8!, EM8+1!, EM8+2, DEL+3, DEL+6*
DA(1	UPDATE+2, EM8+2, IP+2, IP+4, DEL+3, DEL+6
>> DIC	UPDATE+2, IP+2, IP+4*
>> DIC(0	UPDATE+2, IP+2, IP+4*
DIE	UPDT490+2!, EM8!, EM8+1!, EM8+2*
>> DIK	DEL+3, DEL+6
DIR	EM8!, EM8+1!, IP!
DIR("A"	EM8, IP
DIR("B"	IP*
DIR(0	EM8, IP
>> DLAYGO	UPDATE+2, IP+2, IP+4*
DR	UPDT490+2!, EM8!, EM8+1!, EM8+2*
>> DTOUT	IP
>> DUOUT	IP
>> EMILY	UPDATE+1, EM8, MAP
>> I	SROUTC+3*
II	DEL+1~, DEL+2, DEL+3, DEL+5, DEL+6
>> MOE	DISP+10*
>> NYUK	SROUTC+4, SROUTC+5, SROUTC+6, SROUTC+7, SROUTC+8, SROUTC+9, SROUTC+10*, YN+1
>> SHEMP	SROUTC+4, SROUTC+5, SROUTC+6, SROUTC+7, SROUTC+8, SROUTC+9, SROUTC+10, YN+1*
>> SRA(	SROUTC+3*
>> SRA(205	SROUTC+6, SROUTC+7, SROUTC+8, SROUTC+10
>> SRA(206	SROUTC+5, SROUTC+9
>> SRA(208	SROUTC+4, SROUTC+5, SROUTC+7, SROUTC+9, SROUTC+10
>> SRA(209	SROUTC+6
>> SRAO(0	SROUTC+10*, DISP+1
>> SRAO(1	SROUTC+4*, DISP+3
>> SRAO(10	SROUTC+6*, DISP+5
>> SRAO(11	SROUTC+7*, DISP+6
>> SRAO(12	SROUTC+8*, DISP+7
>> SRAO(13	SROUTC+9*, DISP+8
>> SRAO(2	SROUTC+5*, DISP+4
>> SRAO(3	SROUTC+6*, DISP+5
>> SRAO(4	SROUTC+7*, DISP+6
>> SRAO(5	SROUTC+8*, DISP+7
>> SRAO(6	SROUTC+9*, DISP+8
>> SRAO(7	SROUTC+10*, DISP+9
>> SRAO(8	SROUTC+4*, DISP+3
>> SRAO(9	SROUTC+5*, DISP+4
SRCMP	UPDATE~
>> SRHDR(	DISP*
SRI	UPDATE~
SRIF	UPDATE~, IP+1*, IP+2, IP+4
SRII	DEL+1~, DEL+2, DEL+5
SROC	UPDATE~, UPDATE+2, UPDATE+3, IP+2, IP+4, DEL+1~, DEL+2, DEL+5, MAP*
>> SRPAGE	DISP*
SRQ	UPDATE~
>> SRTN	SROUTC+3, UPDT490+1, UPDT490+2, UPDATE+2, UPDATE+3, EM8+1, EM8+2, IP+2, IP+4, DEL+2 , DEL+3, DEL+5, DEL+6
SRX	UPDT490+1~*, UPDT490+2
SRY	UPDATE~, UPDATE+3*, EM8+2
>> X	UPDATE+2, EM8, EM8+1, IP+2, IP+4*
>> Y	UPDATE+3, EM8+1, EM8+2, IP+1, IP+2, IP+4

Customize PDF page

Package: Surgery

Routine: SROUTC

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DISP
UPDT490	; update field 490
YN	; store answer
IP
MAP
UPDATE
DEL	; delete existing Post/Intraoperative occurrences.
EM8