Routine: SROAPRT1

Package	Total	Call Graph
VA Fileman	1	Y^DIQ

Package	Total	Caller Graph
Surgery	1	SROAPAS

Entry Points

Name	Comments	DBIA/ICR reference
OUT(SRFLD,SRY)	; get data in output form

External References

Name	Field # of Occurrence
Y^DIQ	OUT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Condition for execution: $E(IOST)="P" Line Location: SROAPRT1+30
Function Call: WRITE	Prompt: !,?28,"PREOPERATIVE INFORMATION",!! Line Location: SROAPRT1+30
Function Call: WRITE	Prompt: "GENERAL:",?31,$P(SRAO(1),"^"),?40,"GASTROINTESTINAL:",?72,$P(SRAO(4),"^") Line Location: SROAPRT1+31
Function Call: WRITE	Prompt: !,"Height: ",?22,$J($P(SRAO("1A"),"^"),15),?40,"Esophageal Varices:",?72,$P(SRAO("4A"),"^") Line Location: SROAPRT1+32
Function Call: WRITE	Prompt: !,"Weight:",?22,$J($P(SRAO("1B"),"^"),15) Line Location: SROAPRT1+33
Function Call: WRITE	Prompt: !,"Diabetes Mellitus:",?31,$P(SRAO("1C"),"^"),?40,"CARDIAC:",?72,$P(SRAO(5),"^") Line Location: SROAPRT1+34
Function Call: WRITE	Prompt: !,"Current Smoker W/I 1 Year:",?31,$P(SRAO("1D"),"^"),?40,"CHF Within 1 Month:",?72,$P(SRAO("5A"),"^") Line Location: SROAPRT1+35
Function Call: WRITE	Prompt: !,"ETOH > 2 Drinks/Day:",?31,$P(SRAO("1E"),"^"),?40,"MI Within 6 Months:",?72,$P(SRAO("5B"),"^") Line Location: SROAPRT1+36
Function Call: WRITE	Prompt: !,"Dyspnea: ",?13,$J($P(SRAO("1F"),"^"),25),?40,"Previous PCI:",?72,$P(SRAO("5C"),"^") Line Location: SROAPRT1+37
Function Call: WRITE	Prompt: !,"DNR Status: ",?31,$P(SRAO("1G"),"^"),?40,"Previous Cardiac Surgery:",?72,$P(SRAO("5D"),"^") Line Location: SROAPRT1+38
Function Call: WRITE	Prompt: !,"Preop Funct Status: ",$J($P(SRAO("1H"),"^"),17),?40,"Angina Within 1 Month:",?72,$P(SRAO("5E"),"^") Line Location: SROAPRT1+39
Function Call: WRITE	Prompt: !,?40,"Hypertension Requiring Meds:",?72,$P(SRAO("5F"),"^") Line Location: SROAPRT1+40
Function Call: WRITE	Prompt: !,"PULMONARY:",?31,$P(SRAO(2),"^") Line Location: SROAPRT1+41
Function Call: WRITE	Prompt: !,"Ventilator Dependent:",?31,$P(SRAO("2A"),"^"),?40,"VASCULAR:",?72,$P(SRAO(6),"^") Line Location: SROAPRT1+42
Function Call: WRITE	Prompt: !,"History of Severe COPD:",?31,$P(SRAO("2B"),"^"),?40,"Revascularization/Amputation:",?72,$P(SRAO("6A"),"^") Line Location: SROAPRT1+43
Function Call: WRITE	Prompt: !,"Current Pneumonia:",?31,$P(SRAO("2C"),"^"),?40,"Rest Pain/Gangrene:",?72,$P(SRAO("6B"),"^") Line Location: SROAPRT1+44
Function Call: WRITE	Prompt: !!,"HEPATOBILIARY:",?31,$P(SRAO(3),"^"),!,"Ascites:",?31,$P(SRAO("3A"),"^") Line Location: SROAPRT1+45

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	OUT+2
^SRF - [#130]	SROAPRT1+2, SROAPRT1+11, SROAPRT1+18

Label References

Name	Line Occurrences
$$OUT	SROAPRT1+3, SROAPRT1+4, SROAPRT1+5, SROAPRT1+6, SROAPRT1+7, SROAPRT1+8, SROAPRT1+9, SROAPRT1+10, SROAPRT1+11, SROAPRT1+12 , SROAPRT1+13, SROAPRT1+14, SROAPRT1+15, SROAPRT1+16, SROAPRT1+17, SROAPRT1+18, SROAPRT1+19, SROAPRT1+20, SROAPRT1+21, SROAPRT1+22 , SROAPRT1+23, SROAPRT1+24, SROAPRT1+25, SROAPRT1+26, SROAPRT1+27, SROAPRT1+28, SROAPRT1+29

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	OUT+1~, OUT+2*
>> I	SROAPRT1+2*
IOST	SROAPRT1+30
>> SRA(	SROAPRT1+2*
>> SRA(200	SROAPRT1+3, SROAPRT1+6, SROAPRT1+7, SROAPRT1+8, SROAPRT1+9, SROAPRT1+10, SROAPRT1+12, SROAPRT1+13, SROAPRT1+14, SROAPRT1+15 , SROAPRT1+16, SROAPRT1+17, SROAPRT1+19, SROAPRT1+20, SROAPRT1+21, SROAPRT1+22, SROAPRT1+23, SROAPRT1+24, SROAPRT1+25, SROAPRT1+26 , SROAPRT1+27, SROAPRT1+28, SROAPRT1+29
>> SRA(206	SROAPRT1+4, SROAPRT1+5
>> SRAO("1A"	SROAPRT1+4*, SROAPRT1+32
>> SRAO("1B"	SROAPRT1+5*, SROAPRT1+33
>> SRAO("1C"	SROAPRT1+6*, SROAPRT1+34
>> SRAO("1D"	SROAPRT1+7*, SROAPRT1+35
>> SRAO("1E"	SROAPRT1+8*, SROAPRT1+36
>> SRAO("1F"	SROAPRT1+9*, SROAPRT1+37
>> SRAO("1G"	SROAPRT1+10*, SROAPRT1+38
>> SRAO("1H"	SROAPRT1+11*, SROAPRT1+39
>> SRAO("2A"	SROAPRT1+13*, SROAPRT1+42
>> SRAO("2B"	SROAPRT1+14*, SROAPRT1+43
>> SRAO("2C"	SROAPRT1+15*, SROAPRT1+44
>> SRAO("3A"	SROAPRT1+17*, SROAPRT1+45
>> SRAO("4A"	SROAPRT1+19*, SROAPRT1+32
>> SRAO("5A"	SROAPRT1+21*, SROAPRT1+35
>> SRAO("5B"	SROAPRT1+22*, SROAPRT1+36
>> SRAO("5C"	SROAPRT1+23*, SROAPRT1+37
>> SRAO("5D"	SROAPRT1+24*, SROAPRT1+38
>> SRAO("5E"	SROAPRT1+25*, SROAPRT1+39
>> SRAO("5F"	SROAPRT1+26*, SROAPRT1+40
>> SRAO("6A"	SROAPRT1+28*, SROAPRT1+43
>> SRAO("6B"	SROAPRT1+29*, SROAPRT1+44
>> SRAO(1	SROAPRT1+3*, SROAPRT1+31
>> SRAO(2	SROAPRT1+12*, SROAPRT1+41
>> SRAO(3	SROAPRT1+16*, SROAPRT1+45
>> SRAO(4	SROAPRT1+18*, SROAPRT1+31
>> SRAO(5	SROAPRT1+20*, SROAPRT1+34
>> SRAO(6	SROAPRT1+27*, SROAPRT1+42
SRFLD	OUT~, OUT+2, OUT+4, OUT+5, OUT+8
>> SRTN	SROAPRT1+2, SROAPRT1+11, SROAPRT1+18
SRX	SROAPRT1+2~, SROAPRT1+3, SROAPRT1+4, SROAPRT1+5, SROAPRT1+6, SROAPRT1+7, SROAPRT1+8, SROAPRT1+9, SROAPRT1+10, SROAPRT1+11* , SROAPRT1+12, SROAPRT1+13, SROAPRT1+14, SROAPRT1+15, SROAPRT1+16, SROAPRT1+17, SROAPRT1+18, SROAPRT1+19, SROAPRT1+20, SROAPRT1+21 , SROAPRT1+22, SROAPRT1+23, SROAPRT1+24, SROAPRT1+25, SROAPRT1+26, SROAPRT1+27, SROAPRT1+28, SROAPRT1+29
SRY	OUT~, OUT+2, OUT+6, OUT+7
Y	SROAPRT1+2~, SROAPRT1+3, SROAPRT1+4, SROAPRT1+5, SROAPRT1+6, SROAPRT1+7, SROAPRT1+8, SROAPRT1+9, SROAPRT1+10, SROAPRT1+11* , SROAPRT1+12, SROAPRT1+13, SROAPRT1+14, SROAPRT1+15, SROAPRT1+16, SROAPRT1+17, SROAPRT1+18, SROAPRT1+19, SROAPRT1+20, SROAPRT1+21 , SROAPRT1+22, SROAPRT1+23, SROAPRT1+24, SROAPRT1+25, SROAPRT1+26, SROAPRT1+27, SROAPRT1+28, SROAPRT1+29, OUT+1~, OUT+2* , OUT+3, OUT+4, OUT+6, OUT+7, OUT+8*, OUT+9

Customize PDF page

Package: Surgery

Routine: SROAPRT1

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: