Routine: SROACL1

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

Package	Total	Caller Graph
Surgery	3	SROACLN SROAPS1 SRTPUTL

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; display fields
H485
YN	; store answer
HT
WT
HW(SRSD,SRED,SVTYPE)	; get weight & height from Vitals

External References

Name	Field # of Occurrence
Y^DIQ	WT+5
EN1^GMRVUT0	HW+3
HDR^SROAUTL	DISP+1
$$FMADD^XLFDT	HT+1, WT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," 1. Height:",?29,$P(SRAO(1),"^"),?41,"13. Prior MI: ",$J($P(SRAO(13),"^"),24) Line Location: DISP+2
Function Call: WRITE	Prompt: !," 2. Weight:",?29,$P(SRAO(2),"^"),?41,"14. Number prior heart surgeries: ",?70,$P(SRAO(14),"^") Line Location: DISP+3
Function Call: WRITE	Prompt: !," 3. Diabetes:",?27,$P(SRAO(3),"^"),?41,"15. Prior heart surgeries:" Line Location: DISP+4
Function Call: WRITE	Prompt: !," 4. COPD:",?30,$P(SRAO(4),"^"),?41,"16. Peripheral Vascular Disease:",?75,$P(SRAO(16),"^") Line Location: DISP+5
Function Call: WRITE	Prompt: !," 5. FEV1:",?($S($P(SRAO(5),"^")="NS":30,1:27)),$P(SRAO(5),"^")_$S($P(SRAO(5),"^")="":"",$P(SRAO(5),"^")="NS":"",1:" liters"),?41,"17. Cerebral Vascular Disease:",?75,$P(SRAO(17),"^") Line Location: DISP+6
Function Call: WRITE	Prompt: !," 6. Cardiomegaly (X-ray):",?30,$P(SRAO(6),"^"),?41,"18. Angina (use CCS Class):",?75,$P(SRAO(18),"^") Line Location: DISP+7
Function Call: WRITE	Prompt: !," 7. Pulmonary Rales:",?30,$P(SRAO(7),"^"),?41,"19. CHF (use NYHA Class):",?75,$P(SRAO(19),"^") Line Location: DISP+8
Function Call: WRITE	Prompt: !," 8. Current Smoker: ",$J($P(SRAO(8),"^"),19),?41,"20. Current Diuretic Use:",?75,$P(SRAO(20),"^") Line Location: DISP+9
Function Call: WRITE	Prompt: !," 9. Active Endocarditis:",?30,$P(SRAO(9),"^"),?41,"21. Current Digoxin Use:",?75,$P(SRAO(21),"^") Line Location: DISP+10
Function Call: WRITE	Prompt: !,"10. Resting ST Depression:",?30,$P(SRAO(10),"^"),?41,"22. IV NTG within 48 Hours:",?75,$P(SRAO(22),"^") Line Location: DISP+11
Function Call: WRITE	Prompt: !,"11. Functional Status: ",$J($P(SRAO(11),"^"),17),?41,"23. Preop circulatory Device:",?75,$P(SRAO(23),"^") Line Location: DISP+12
Function Call: WRITE	Prompt: !,"12. PCI: ",$J($P(SRAO(12),"^"),29),?41,"24. Hypertension (Y/N):",?75,$P(SRAO(24),"^") Line Location: DISP+13
Function Call: WRITE	Prompt: !! Line Location: DISP+14
Function Call: WRITE	Prompt: "-" Line Location: DISP+14
Function Call: WRITE	Prompt: ?68,$J(X,11) Line Location: H485+3
Function Call: WRITE	Prompt: ?68,$J($P(X,",")_",",11) Line Location: H485+4
Function Call: WRITE	Prompt: !,?44,$P(X,", ",2,9) Line Location: H485+4
Function Call: WRITE	Prompt: !,?44,$P(X,", ",2,4)_",",!,?44,$P(X,", ",5,9) Line Location: H485+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	WT+5
^SRF - [#130]	SROACL1+5, HT+2, WT+1
^UTILITY($J	HW+2!, HW+3, HW+4, HW+5, HW+6, HW+7

Label References

Name	Line Occurrences
$$HW	HT+1, WT
H485	DISP+4
YN	WT+3, WT+4, WT+6, WT+7, WT+12, WT+13, WT+14, WT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	WT+5, H485+1
GMRVSTR	HW+1~, HW+2*
GMRVSTR(0	HW+2*
>> I	SROACL1+5, H485, H485+1
>> MOE	DISP+14*
>> NYUK	HT+1, HT+2, HT+3, WT, WT+1, WT+2, WT+3, WT+4, WT+6, WT+7 , WT+8, WT+9, WT+10, WT+12, WT+13, WT+14, WT+15, WT+16, YN+1
RESULTS	HW+1~, HW+2!
RESULTS(	HW+8*, HW+9
>> SHEMP	WT+3, WT+4, WT+6, WT+7, WT+12, WT+13, WT+14, WT+16, YN+1, H485 , H485+1*, H485+3
>> SRA(	SROACL1+5*, WT+5
>> SRA(0	HT, WT+3!
>> SRA(200	WT+3, WT+7
>> SRA(206	HT+1, HT+2, HT+3, WT, WT+1, WT+2, WT+4, WT+6, WT+7, WT+8 , WT+9, WT+10, WT+11, WT+12, WT+13, WT+14, WT+16
>> SRA(209	WT+3, WT+15
>> SRAO(1	HT+3*, DISP+2
>> SRAO(10	WT+7*, DISP+11
>> SRAO(11	WT+7*, DISP+12
>> SRAO(12	WT+8*, DISP+13
>> SRAO(13	WT+9*, DISP+2
>> SRAO(14	WT+10*, DISP+3
>> SRAO(15	WT+11*, H485
>> SRAO(16	WT+12*, DISP+5
>> SRAO(17	WT+12*, DISP+6
>> SRAO(18	WT+13*, DISP+7
>> SRAO(19	WT+13*, DISP+8
>> SRAO(2	WT+2*, DISP+3
>> SRAO(20	WT+13*, DISP+9
>> SRAO(21	WT+13*, DISP+10
>> SRAO(22	WT+14*, DISP+11
>> SRAO(23	WT+15*, DISP+12
>> SRAO(24	WT+16*, DISP+13
>> SRAO(3	WT+3*, DISP+4
>> SRAO(4	WT+3*, DISP+5
>> SRAO(5	WT+4*, DISP+6
>> SRAO(6	WT+4*, DISP+7
>> SRAO(7	WT+4*, DISP+8
>> SRAO(8	WT+5*, DISP+9
>> SRAO(9	WT+6*, DISP+10
SRBCNT	HW+1~, HW+4, HW+8
SRBDATA	HW+1~, HW+7*, HW+8
SRBIEN	HW+1~, HW+6*, HW+7
SRBRDT	HW+1~, HW+5*, HW+6, HW+7, HW+8
SRED	HT~*, HT+1, WT, HW~, HW+2
>> SRI	HW+9*
>> SRPAGE	DISP+1*
SRSD	HT~, HT+1, WT, HW~, HW+2
>> SRTN	SROACL1+5, HT+2, WT+1
SRTYPE	HW+1~, HW+4*, HW+5, HW+6, HW+7, HW+8
SVTYPE	HW~, HW+2, HW+9
>> X	H485, H485+1, H485+3, H485+4, H485+5
>> Y	WT+5*

Customize PDF page

Package: Surgery

Routine: SROACL1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: