Routine: SROAPS1

Package	Total	Call Graph
Surgery	2	$$HW^SROACL1 HDR^SROAUTL
VA Fileman	2	CHK^DIE Y^DIQ
General Medical Record - Vitals	1	EN1^GMRVUT0
Kernel	1	$$FMADD^XLFDT

Package	Total	Caller Graph
Surgery	1	SROAPRE

Entry Points

External References

Name	Field # of Occurrence
CHK^DIE	WT+2, HT+7
Y^DIQ	OUT+2
EN1^GMRVUT0	HT+3
$$HW^SROACL1	WT+1
HDR^SROAUTL	SROAPS1+5
$$FMADD^XLFDT	WT+1

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRF - [#130]	CHK^DIE

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	OUT+2
^SRF - [#130]	PRE1, PRE1+9, PRE1+16, OUT+5, WT, WT+1, WT+2, HT, HT+2, HT+8 , HT+9*
^UTILITY($J	HT+2!, HT+3, HT+4, HT+5, HT+6

Label References

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	OUT+1~, OUT+2*
GMRVSTR	HT+1~, HT+2*
GMRVSTR(0	HT+2*
I	SROAPS1+5~, SROAPS1+6, PRE1
RESULTS	HT+2!
SRA	PRE1+27!
SRA(	PRE1*
SRA(200	PRE1+1, PRE1+4, PRE1+5, PRE1+6, PRE1+7, PRE1+8, PRE1+10, PRE1+11, PRE1+12, PRE1+13 , PRE1+14, PRE1+15, PRE1+17, PRE1+18, PRE1+19, PRE1+20, PRE1+21, PRE1+22, PRE1+23, PRE1+24 , PRE1+25, PRE1+26, PRE1+27
SRA(206	PRE1+2, PRE1+3
>> SRAO("1A"	PRE1+2*, PRE1+29
>> SRAO("1B"	PRE1+3*, PRE1+31
>> SRAO("1C"	PRE1+4*, PRE1+32
>> SRAO("1D"	PRE1+5*, PRE1+33
>> SRAO("1E"	PRE1+6*, PRE1+34
>> SRAO("1F"	PRE1+7*, PRE1+35
>> SRAO("1G"	PRE1+8*, PRE1+36
>> SRAO("1H"	PRE1+9*, PRE1+37
>> SRAO("2A"	PRE1+11*, PRE1+40
>> SRAO("2B"	PRE1+12*, PRE1+41
>> SRAO("2C"	PRE1+13*, PRE1+42
>> SRAO("3A"	PRE1+15*, PRE1+43
>> SRAO("4A"	PRE1+17*, PRE1+30
>> SRAO("5A"	PRE1+19*, PRE1+33
>> SRAO("5B"	PRE1+20*, PRE1+34
>> SRAO("5C"	PRE1+21*, PRE1+35
>> SRAO("5D"	PRE1+22*, PRE1+36
>> SRAO("5E"	PRE1+23*, PRE1+37
>> SRAO("5F"	PRE1+24*, PRE1+38
>> SRAO("6A"	PRE1+26*, PRE1+41
>> SRAO("6B"	PRE1+27*, PRE1+42
>> SRAO(1	PRE1+1*, PRE1+28
>> SRAO(2	PRE1+10*, PRE1+39
>> SRAO(3	PRE1+14*, PRE1+43
>> SRAO(4	PRE1+16*, PRE1+28
>> SRAO(5	PRE1+18*, PRE1+32
>> SRAO(6	PRE1+25*, PRE1+40
SRBDATA	HT+1~, HT+6*, HT+9
SRBIEN	HT+1~, HT+5*, HT+6
SRBRDT	HT+1~, HT+4*, HT+5, HT+6
SREND	HW+1~, WT+1, HT+2
SREQ	HW+1~
SREX	HW+1~, WT+1, WT+2, HT+6, HT+7
SREY	HW+1~, WT+2, HT+7, HT+8
SRFLD	OUT~, OUT+2, OUT+4, OUT+5, OUT+6, OUT+10
SRHTDT	HT+1~, HT+9*
>> SRPAGE	SROAPS1+5*
SRSTRT	HW+1~, WT+1*
>> SRTN	PRE1, PRE1+9, PRE1+16, OUT+5, WT, WT+1, WT+2, HT, HT+2, HT+8 , HT+9
SRX	PRE1~, PRE1+1, PRE1+2, PRE1+3, PRE1+4, PRE1+5, PRE1+6, PRE1+7, PRE1+8, PRE1+9* , PRE1+10, PRE1+11, PRE1+12, PRE1+13, PRE1+14, PRE1+15, PRE1+16, PRE1+17, PRE1+18, PRE1+19 , PRE1+20, PRE1+21, PRE1+22, PRE1+23, PRE1+24, PRE1+25, PRE1+26, PRE1+27
SRY	OUT~, OUT+2, OUT+7, OUT+8, OUT+9
Y	PRE1~, PRE1+1, PRE1+2, PRE1+3, PRE1+4, PRE1+5, PRE1+6, PRE1+7, PRE1+8, PRE1+9* , PRE1+10, PRE1+11, PRE1+12, PRE1+13, PRE1+14, PRE1+15, PRE1+16, PRE1+17, PRE1+18, PRE1+19 , PRE1+20, PRE1+21, PRE1+22, PRE1+23, PRE1+24, PRE1+25, PRE1+26, PRE1+27, PRE1+29, PRE1+31 , OUT+1~, OUT+2, OUT+3, OUT+4, OUT+5, OUT+7, OUT+8, OUT+9, OUT+10, OUT+11
Z	OUT+1~, OUT+5*

Customize PDF page

Package: Surgery

Routine: SROAPS1

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

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
HT
WT
PRE1
HW	; get weight & height from Vitals
OUT(SRFLD,SRY)	; get data in output form