Routine: SROESAD1

Package	Total	Call Graph
DRG Grouper	2	$$ICDDX^ICDCODE $$CPT^ICPTCOD
Surgery	1	GET^SROESAD
VA Fileman	1	$$EXTERNAL^DILFD

Package	Total	Caller Graph
Surgery	1	SROES

Entry Points

Name	Comments	DBIA/ICR reference
WPM2
PROC
SPACE(NUM)	; create spaces ; pass in position, returns number of needed spaces
DIAG
EXT	; get external value
LINE(NUM)	; create carriage returns
WPS	; word-processing fields
WPM	; word-processing in multiples
WPS2
FWPM	; word-processing in multiples in added or deleted entries
FP01	; add or delete
SING	; single fields
FP01S	; add or delete subfile entry
CPT
FPX
MULT	; multiples

External References

Name	Field # of Occurrence
$$EXTERNAL^DILFD	EXT+1
$$ICDDX^ICDCODE	DIAG
$$CPT^ICPTCOD	CPT
GET^SROESAD	SROESAD1+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	DIAG, CPT
^TMP(	SROESAD1+8!
^TMP("SRAD1"	SING+1, SING+3, WPS+2, WPS+3, FWPM+1, WPM+3
^TMP("SRAD2"	SING+4, WPS2, WPS2+1, FWPM+2, WPM2
^TMP("SRADDEND"	SROESAD1+9
^TMP("SRADM"	FPX+1, FWPM+4
^TMP("SRADM1"	MULT+1, MULT+3, MULT+4, MULT+5, PROC+1, WPM+4
^TMP("SRADM2"	PROC+2, WPM2+1

Label References

Name	Line Occurrences
$$SPACE	PROC+7, PROC+8, FP01S+1, FP01S+2, FP01S+3, FP01+1, FP01+2, FP01+3, FPX+2, FWPM+3 , FWPM+4, WPM+2, WPM+4, WPM2, WPM2+1
CPT	EXT+3, EXT+5
DIAG	EXT+4, EXT+6
EXT	SING+3, SING+4, PROC+1, PROC+2, FPX+1
FP01	PROC+3
FP01S	PROC+4
FPX	PROC+5
FWPM	WPM+1
LINE	SING+5, MULT+2, WPS+1, WPS+3, WPS2, WPS2+1, PROC+7, PROC+8, FP01S+1, FP01S+2 , FP01S+3, FP01+1, FP01+2, FP01+3, FPX+2, FWPM+3, FWPM+4, WPM+2, WPM+4, WPM2 , WPM2+1
PROC	MULT+5
WPM	PROC, FPX
WPM2	WPM+3
WPS	SING+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> J	LINE+1*
NUM	SPACE~, SPACE+3, LINE~, LINE+1
SRALN	SROESAD1+7~
SRE	SROESAD1+7~, MULT+3*, MULT+4, MULT+5, PROC+1, PROC+2, FPX+1, FWPM+1, FWPM+2, FWPM+4 , WPM+3, WPM+4, WPM2, WPM2+1
SRE1	SROESAD1+7~, MULT+4*, MULT+5, PROC+1, PROC+2, FPX+1, FWPM+1, FWPM+2, FWPM+4, WPM+3 , WPM+4, WPM2, WPM2+1
SRFILE	SROESAD1+7~, SING+2, EXT+1, EXT+2, EXT+5, EXT+6, PROC
SRFLD	SROESAD1+7~, SING+1, SING+2, SING+3, SING+4, MULT+5, WPS+2, WPS+3, WPS2, WPS2+1 , PROC, PROC+1, PROC+2, PROC+3, PROC+7, PROC+8, FPX+1, FWPM+1, FWPM+2, FWPM+4 , WPM+3, WPM+4, WPM2, WPM2+1
SRG	SROESAD1+7~, SROESAD1+9*, SING+5, MULT+2, WPS+1, WPS+2, WPS+3, WPS2, WPS2+1, PROC+7 , PROC+8, FP01S+1, FP01S+2, FP01S+3, FP01+1, FP01+2, FP01+3, FPX+2, FWPM+3, FWPM+4 , WPM+2, WPM+3, WPM+4, WPM2, WPM2+1, SPACE+2, SPACE+3, LINE+1
SRI	SROESAD1+7~, SROESAD1+9, SING+5, MULT+2, WPS+1, WPS+2, WPS+3, WPS2, WPS2+1, PROC+7 , PROC+8, FP01S+1, FP01S+2, FP01S+3, FP01+1, FP01+2, FP01+3, FPX+2, FWPM+3, FWPM+4 , WPM+2, WPM+3, WPM+4, WPM2, WPM2+1, SPACE+2, SPACE+3, LINE+1
SRJ	SROESAD1+7~, SROESAD1+8, MULT+4, PROC, PROC+7, PROC+8, FP01S+1, FP01S+2, FP01S+3, FP01+1 , FP01+2, FP01+3, FPX, FPX+2, FWPM+3, FWPM+4, WPM+1*, WPM+2, WPM+4, WPM2 , WPM2+1
SRLN	SROESAD1+7~, WPS+3, WPS2+1, FWPM+3, FWPM+4, WPM+4, WPM2+1
SRMULT	SROESAD1+7~, MULT+1*, MULT+2, MULT+3, MULT+4, MULT+5, PROC+1, PROC+2, FPX+1, FWPM+1 , FWPM+2, FWPM+4, WPM+3, WPM+4, WPM2, WPM2+1
SRNM	SROESAD1+7~, FP01S+1, FP01S+2, FP01S+3, FP01+1, FP01+2, FP01+3, FPX+1
SRNUM	SROESAD1+7~, SING+2, EXT+1, EXT+3, EXT+4, EXT+5, EXT+6, PROC, PROC+4, FPX
SRPF	SROESAD1+7~, MULT+4, PROC+4, PROC+5, FP01S+3, FP01+3*, WPM+1
SRPRE	SROESAD1+7~
SRS	SROESAD1+7~, FWPM+1, FWPM+2, FWPM+4
SRSUB	SROESAD1+7~
SRTITLE	SROESAD1+7~, SING+2, SING+5, WPS+1, WPS2, PROC, PROC+7, PROC+8, FP01S+1, FP01S+2 , FP01S+3, FP01+1, FP01+2, FP01+3, FPX+2, FWPM+3, WPM+2, WPM2
>> SRTN	SROESAD1+8, SROESAD1+9, SING+1, SING+3, SING+4, MULT+1, MULT+3, MULT+4, MULT+5, WPS+2 , WPS+3, WPS2, WPS2+1, DIAG, CPT, PROC+1, PROC+2, FPX+1, FWPM+1, FWPM+2 , FWPM+4, WPM+3, WPM+4, WPM2, WPM2+1
SRVAL	SROESAD1+7~, FP01S+3, FP01+3, FPX+1*, FPX+2
SRVAL1	SROESAD1+7~, SING+3, SING+5, PROC+1, PROC+3, PROC+4, PROC+6*, PROC+7, PROC+8, FP01S+1 , FP01S+3, FP01+1, FP01+3
SRVAL2	SROESAD1+7~, SING+4, SING+5, PROC+2, PROC+3, PROC+4, PROC+6*, PROC+7, PROC+8, FP01S+2 , FP01S+3, FP01+2, FP01+3
SRX	SROESAD1+7~, SING+3, SING+4, EXT+1, EXT+3, EXT+5, DIAG, CPT*, PROC+1, PROC+2 , FPX+1
SRY	SROESAD1+7~, SING+3, SING+4, EXT+1, DIAG, PROC+1, PROC+2, FPX+1
X	SROESAD1+7~, SING+2, WPS+3, WPS2+1, CPT, PROC, FWPM+4, WPM+4, WPM2+1

Customize PDF page

Package: Surgery

Routine: SROESAD1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: