Routine: SROACR1

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR
Kernel	1	ENDR^%ZISS
Surgery	1	HDR^SROAUTL

Package	Total	Caller Graph
Surgery	1	SROACAR

Entry Points

Name	Comments	DBIA/ICR reference
DISP
YN	; store answer
SURE
CHCK	; compare ischemic time to CPB time

External References

Name	Field # of Occurrence
ENDR^%ZISS	DISP+15, CHCK+1
^DIE	SROACR1+4
^DIR	SURE
HDR^SROAUTL	DISP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: "Cardiac surgical procedures with or without cardiopulmonary bypass " Line Location: DISP+1
Function Call: WRITE	Prompt: "-" Line Location: DISP+2
Function Call: WRITE	Prompt: !,"CABG distal anastomoses:",?40,"11. Bridge to transplant/Device:",?75,$P(SRAO(11),"^") Line Location: DISP+3
Function Call: WRITE	Prompt: !," 1. Number with vein:",?34,$P(SRAO(1),"^"),?40,"12. TMR:",?75,$P(SRAO(12),"^") Line Location: DISP+4
Function Call: WRITE	Prompt: !," 2. Number with IMA:",?34,$P(SRAO(2),"^"),?40,"13. Maze procedure:",?61,$J($P(SRAO(13),"^"),17) Line Location: DISP+5
Function Call: WRITE	Prompt: !," 3. Number with Radial Artery:",?34,$P(SRAO(3),"^"),?40,"14. ASD repair:",?75,$P(SRAO(14),"^") Line Location: DISP+6
Function Call: WRITE	Prompt: !," 4. Number with Other Artery:",?34,$P(SRAO(4),"^"),?40,"15. VSD repair:",?75,$P(SRAO(15),"^") Line Location: DISP+7
Function Call: WRITE	Prompt: !," 5. Number with Other Conduit:",?34,$P(SRAO(5),"^"),?40,"16. Myectomy for IHSS:",?75,$P(SRAO(16),"^") Line Location: DISP+8
Function Call: WRITE	Prompt: !,?40,"17. Myxoma resection:",?75,$P(SRAO(17),"^") Line Location: DISP+9
Function Call: WRITE	Prompt: !," 6. Aortic Valve Replacement:",?34,$P(SRAO(6),"^"),?40,"18. Other tumor resection:",?75,$P(SRAO(18),"^") Line Location: DISP+10
Function Call: WRITE	Prompt: !," 7. Mitral Valve Replacement:",?34,$P(SRAO(7),"^"),?40,"19. Cardiac transplant:",?75,$P(SRAO(19),"^") Line Location: DISP+11
Function Call: WRITE	Prompt: !," 8. Tricuspid Valve Replacement:",?34,$P(SRAO(8),"^"),?40,"20. Great Vessel Repair:",?75,$P(SRAO(20),"^") Line Location: DISP+12
Function Call: WRITE	Prompt: !," 9. Valve Repair: ",$J($P(SRAO(9),"^"),18),?40,"21. Endovascular Repair:",?75,$P(SRAO(21),"^") Line Location: DISP+13
Function Call: WRITE	Prompt: !,"10. LV Aneurysmectomy:",?34,$P(SRAO(10),"^"),?40,"22. Other cardiac procedures:" Line Location: DISP+14
Function Call: WRITE	Prompt: ?75,$S(X="N":"NO",X="Y":"YES",1:""),! Line Location: DISP+14
Function Call: WRITE	Prompt: !,IORVON_"* Other cardiac procedures (specify): " Line Location: DISP+16
Function Call: WRITE	Prompt: X,! Condition for execution: $L(X)<56 Line Location: DISP+16
Function Call: WRITE	Prompt: ?27,X Line Location: DISP+17
Function Call: WRITE	Prompt: X,! Line Location: DISP+19
Function Call: WRITE	Prompt: $E(X,1,J-1),! Line Location: DISP+20
Function Call: WRITE	Prompt: X,! Line Location: DISP+20
Function Call: WRITE	Prompt: IORVOFF Line Location: DISP+21
Function Call: WRITE	Prompt: ! Line Location: DISP+22
Function Call: WRITE	Prompt: "-" Line Location: DISP+22
Function Call: WRITE	Prompt: !,IORVON_"* NOTE: Ischemic Time is greater than CPB Time!! Please check. *"_IORVOFF,! Line Location: CHCK+3
Function Call: WRITE	Prompt: "-" Line Location: CHCK+4
Function Call: WRITE	Prompt: ! Line Location: SURE+0
Function Call: WRITE	Prompt: ! Line Location: SURE+0
Routine Call	DIE Line Location: SROACR1+4
Routine Call	DIR Line Location: SURE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROACR1+3, SROACR1+4, SROACR1+19, DISP+16

Label References

Name	Line Occurrences
YN	SROACR1+6, SROACR1+8, SROACR1+9, SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14, SROACR1+15, SROACR1+16, SROACR1+17 , SROACR1+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	SROACR1+4!*
DIE	SROACR1+4!*
DIR	SURE!
DIR("A"	SURE*
DIR("B"	SURE*
DIR(0	SURE*
DR	SROACR1+4!*
>> DTOUT	SURE
>> DUOUT	SURE
>> I	DISP+18, DISP+20
>> IORVOFF	DISP+21, CHCK+3
>> IORVON	DISP+16, CHCK+1, CHCK+3
>> J	DISP+20*
>> LINE	DISP+18, DISP+20
>> MOE	DISP+22, CHCK+4
>> NYUK	SROACR1+6, SROACR1+7, SROACR1+8, SROACR1+9, SROACR1+10, SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14, SROACR1+15 , SROACR1+16, SROACR1+17, SROACR1+18*, YN+1
>> SHEMP	SROACR1+6, SROACR1+8, SROACR1+9, SROACR1+10, SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14, SROACR1+15, SROACR1+16 , SROACR1+17, SROACR1+18, YN+1
>> SRA(	SROACR1+4*, SROACR1+18
>> SRA(206	SROACR1+3*, CHCK+2
>> SRA(207	SROACR1+4*, SROACR1+5, SROACR1+6, SROACR1+7, SROACR1+8, SROACR1+11, SROACR1+12, SROACR1+13, SROACR1+14, SROACR1+15 , SROACR1+16, SROACR1+17
>> SRA(209	SROACR1+3*, SROACR1+8, SROACR1+9, SROACR1+10
>> SRAO(1	SROACR1+5*, DISP+4
>> SRAO(10	SROACR1+8*, DISP+14
>> SRAO(11	SROACR1+8*, DISP+3
>> SRAO(12	SROACR1+9*, DISP+4
>> SRAO(13	SROACR1+10*, DISP+5
>> SRAO(14	SROACR1+11*, DISP+6
>> SRAO(15	SROACR1+12*, DISP+7
>> SRAO(16	SROACR1+13*, DISP+8
>> SRAO(17	SROACR1+14*, DISP+9
>> SRAO(18	SROACR1+15*, DISP+10
>> SRAO(19	SROACR1+16*, DISP+11
>> SRAO(2	SROACR1+5*, DISP+5
>> SRAO(20	SROACR1+17*, DISP+12
>> SRAO(21	SROACR1+18*, DISP+13
>> SRAO(22	SROACR1+19*, DISP+14
>> SRAO(3	SROACR1+5*, DISP+6
>> SRAO(4	SROACR1+5*, DISP+7
>> SRAO(5	SROACR1+5*, DISP+8
>> SRAO(6	SROACR1+6*, DISP+10
>> SRAO(7	SROACR1+6*, DISP+11
>> SRAO(8	SROACR1+6*, DISP+12
>> SRAO(9	SROACR1+7*, DISP+13
SRCPB	CHCK+2~*, CHCK+3
SRISCH	CHCK+2~*, CHCK+3
>> SRL	DISP+18*, DISP+19, DISP+20
>> SRPAGE	DISP*
>> SRQ	DISP+16, DISP+18, DISP+19, DISP+20*
>> SRSOUT	SURE*
>> SRTN	SROACR1+3, SROACR1+4, SROACR1+19, DISP+16
>> SRYN	SURE*
>> X	DISP+14, DISP+15, DISP+16, DISP+17, DISP+19, DISP+20, CHCK+1*
>> Y	DISP+20*, SURE
>> Z	DISP+16, DISP+20

Customize PDF page

Package: Surgery

Routine: SROACR1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: