Routine: SROAPCA4

Package	Total	Call Graph
VA Fileman	3	C^%DTC $$GET1^DIQ EN^DIQ1
Registration	2	RPC^DGPTFAPI (IN5,INP)^VADPT
Surgery	2	PAGE^SROAPCA DT^SROAPCA1

Package	Total	Caller Graph
Surgery	2	SROAPCA1 SROAPCA3

Entry Points

Name	Comments	DBIA/ICR reference
DT
DD	;Detailed Discharge Information
TS
LAB	;D PAGE^SROAPCA I SRSOUT Q
YN	; store answer

External References

Name	Field # of Occurrence
C^%DTC	SROAPCA4+9
RPC^DGPTFAPI	DD+4
$$GET1^DIQ	TS, TS+1, TS+2
EN^DIQ1	TS, TS+1, TS+2
PAGE^SROAPCA	TS+3, DD+5
DT^SROAPCA1	DT
IN5^VADPT	SROAPCA4+8, SROAPCA4+9
INP^VADPT	DD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"III. DETAILED LABORATORY INFO - PREOPERATIVE VALUES" Line Location: LAB+1
Function Call: WRITE	Prompt: !,"Creatinine:",?14,$J($P(SRA(201),U,4),4),SROUN Line Location: LAB+3
Function Call: WRITE	Prompt: ?25,"("_$E(X,1,8)_")" Line Location: LAB+3
Function Call: WRITE	Prompt: ?41,"T. Bilirubin:",?57,$J($P(SRA(201),U,24),4),SROUN Line Location: LAB+4
Function Call: WRITE	Prompt: ?68,"("_$E(X,1,8)_")" Line Location: LAB+4
Function Call: WRITE	Prompt: !,"Hemoglobin:",?14,$J($P(SRA(201),U,20),4),SROUN Line Location: LAB+5
Function Call: WRITE	Prompt: ?25,"("_$E(X,1,8)_")" Line Location: LAB+5
Function Call: WRITE	Prompt: ?41,"T. Cholesterol:",?57,$J($P(SRA(201),U,26),4),SROUN Line Location: LAB+6
Function Call: WRITE	Prompt: ?68,"("_$E(X,1,8)_")" Line Location: LAB+6
Function Call: WRITE	Prompt: !,"Albumin:",?14,$J($P(SRA(201),U,8),4)," g/dl" Line Location: LAB+7
Function Call: WRITE	Prompt: ?25,"("_$E(X,1,8)_")" Line Location: LAB+7
Function Call: WRITE	Prompt: ?41,"HDL:",?57,$J($P(SRA(201),U,21),4),SROUN Line Location: LAB+8
Function Call: WRITE	Prompt: ?68,"("_$E(X,1,8)_")" Line Location: LAB+8
Function Call: WRITE	Prompt: !,"Triglyceride:",?14,$J($P(SRA(201),U,22),4),SROUN Line Location: LAB+9
Function Call: WRITE	Prompt: ?25,"("_$E(X,1,8)_")" Line Location: LAB+9
Function Call: WRITE	Prompt: ?41,"LDL:",?57,$J($P(SRA(201),U,25),4),SROUN Line Location: LAB+10
Function Call: WRITE	Prompt: ?68,"("_$E(X,1,8)_")" Line Location: LAB+10
Function Call: WRITE	Prompt: !,"Potassium:",?14,$J($P(SRA(201),U,23),4)," mg/L" Line Location: LAB+11
Function Call: WRITE	Prompt: ?25,"("_$E(X,1,8)_")" Line Location: LAB+11
Function Call: WRITE	Prompt: ?41,"Hemoglobin A1c:",?57,$J($P(SRA(201),U,28),4)," %" Line Location: LAB+12
Function Call: WRITE	Prompt: ?68,"("_$E(X,1,8)_")" Line Location: LAB+12
Function Call: WRITE	Prompt: !!,"X. DETAILED DISCHARGE INFORMATION",!," Discharge ICD-9 Codes: " Line Location: DD+6
Function Call: WRITE	Prompt: SRRES Line Location: DD+7
Function Call: WRITE	Prompt: !!,"Type of Disposition: ",$P($G(SRRES(1)),U,1) Line Location: DD+9
Function Call: WRITE	Prompt: !,"Place of Disposition: ",$P($G(SRRES(1)),U,2) Line Location: DD+10
Function Call: WRITE	Prompt: !,"Preferred VAMC identification code: ",SRPREF Line Location: DD+11
Function Call: WRITE	Prompt: !,"Primary care or referral VAMC identification code: ",SRREFP Line Location: DD+12
Function Call: WRITE	Prompt: !,"Follow-up VAMC identification code: ",SRFOLP Line Location: DD+13

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGPM("APTT1"	SROAPCA4+9
^SRF - [#130]	SROAPCA4+7, SROAPCA4+9

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	TS!, TS+1!, TS+2!*
>> DFN	SROAPCA4+9, TS+2
DIC	TS!, TS+1!, TS+2!*
DIQ	TS!, TS+1!, TS+2!*
DIQ(0	TS, TS+1, TS+2*
DR	TS!, TS+1!, TS+2!*
>> I	DD+7*
IOSL	TS+3, DD+5
>> NYUK	YN+1
>> SHEMP	YN+1*
>> SR24	SROAPCA4+9*
>> SRA(	SROAPCA4+7*, LAB+12
>> SRA(0	SROAPCA4+7*, SROAPCA4+8
>> SRA(201	SROAPCA4+7*, LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10, LAB+11 , LAB+12
>> SRA(202	SROAPCA4+7*, LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10, LAB+11
>> SRA(208	SROAPCA4+7*, DD+2
>> SRDT	SROAPCA4+9*
SRFOL	SROAPCA4+8~, TS+1
SRFOLP	SROAPCA4+8~, TS+1, DD+13
SROUN	LAB+2~*, LAB+3, LAB+4, LAB+5, LAB+6, LAB+8, LAB+9, LAB+10
SRPREF	SROAPCA4+8~, TS+2, DD+11
SRPTF	DD+1~, DD+3*, DD+4
SRREF	SROAPCA4+8~, TS
SRREFP	SROAPCA4+8~, TS, DD+12
SRRES	DD+1~, DD+4, DD+6, DD+7*, DD+8
SRRES(0	DD+6
SRRES(1	DD+7, DD+9, DD+10
SRRES(2	DD+7
>> SRSDATE	SROAPCA4+8*, SROAPCA4+9
SRSOUT	SROAPCA4+8~*, TS+3, DD+5
>> SRTN	SROAPCA4+7, SROAPCA4+9
SRY	SROAPCA4+8~, TS+1!, TS+2!
SRY(2	TS+2
SRY(405	TS, TS+1
U	LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10, LAB+11, LAB+12 , DD+7, DD+9, DD+10
>> VAIN(10	DD+3
VAINDT	DD+1~, DD+3*
>> VAIP("D"	SROAPCA4+8, SROAPCA4+9
>> VAIP(13	SROAPCA4+9, TS
>> VAIP(17	TS+1
>> X	SROAPCA4+9, TS+2, LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10 , LAB+11, LAB+12, DD+2, DD+3, DT*
>> X1	SROAPCA4+9*
>> X2	SROAPCA4+9*
>> Y	LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10, LAB+11, LAB+12 , DT

Customize PDF page

Package: Surgery

Routine: SROAPCA4

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
DD	TS+4
DT	LAB+3, LAB+4, LAB+5, LAB+6, LAB+7, LAB+8, LAB+9, LAB+10, LAB+11, LAB+12
TS	SROAPCA4+9