Routine: SROACOD

Call Graph

Package	Total	Call Graph
VA Fileman	6	DD^%DT NOW^%DTC EN^DDIOL $$GET1^DIQ ^DIR EN^DIWE
Surgery	5	(,HDR)^SROAUTL SSPRIN^SROCPT0 ^SROPS OTH^SROUTLN ^SRSKILL
DRG Grouper	2	$$ICDDX^ICDCODE $$CPT^ICPTCOD
MailMan	1	^XMD
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROA CODE ISSUE

Name	Comments	DBIA/ICR reference
END
ERR	;The Coding Issue Alert cannot be created at this time
ED
ASK
START
MSG

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The following ""final"" codes have been entered for the case.",!! Line Location: START+2
Function Call: WRITE	Prompt: "Principal CPT Code: ",$S($L(X):X,1:"NOT ENTERED") Line Location: START+4
Function Call: WRITE	Prompt: !,"Other CPT Codes: "_$S(SRPROC(1)="":" NOT ENTERED",1:"") Line Location: START+6
Function Call: WRITE	Prompt: !!,"If you believe that the information coded is not correct and would like to",!,"alert the coders of the potential issue, enter a brief description of your",!,"concern below.",! Line Location: START+10
Function Call: WRITE	Prompt: ! Line Location: ED+0
Function Call: WRITE	Prompt: !,"NOTE: You have exited the field without entering comments. ",! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: ED+2
Function Call: WRITE	Prompt: !!,"Transmitting message..." Line Location: MSG+18
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: ! Line Location: ERR+7
Routine Call	DIR Line Location: ED+4 ASK ERR+7

FileNo	Call Tags
^XMB(3.8 - [#3.8]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	MSG+16
^SRF - [#130]	START+8, MSG+1
^SRO(133 - [#133]	MSG, MSG+15
^SRO(136 - [#136]	START+3, START+8, MSG, MSG+13
^TMP($J	START+12!, ED+1, MSG+12, MSG+17!

Name	Field # of Occurrence
^(	MSG+12, MSG+13

Name	Field # of Occurrence
>> %	MSG+16
>> DFN	MSG+6*
>> DIC	ED*
DIR	ED+2!, ED+4!, ASK!, ERR+7!
DIR("?"	ED+3, ED+4
DIR("A"	ED+2, ASK, ERR+7*
DIR("B"	ED+3, ASK
DIR(0	ED+3, ASK, ERR+7*
>> DIWESUB	ED*
>> DTOUT	ED+4
>> DUOUT	ED+4
DUZ	MSG+14
I	SROACOD+3~, START+7, MSG+9, MSG+12, MSG+13
IOF	END
J	SROACOD+3~
K	START+5~, START+6*
SR	MSG+1!
SR(	MSG+9, MSG+10, MSG+11, MSG+12
SR(1	MSG+2*
SR(2	MSG+3*
SR(3	MSG+4*
SR(4	MSG+5*
SR(5	MSG+7*
SR(6	MSG+8*
SRAOTH	START!
SRCPTP	SROACOD+3~, START+4*, MSG+8
SRL	START+5~, START+6*
SRLN	SROACOD+3~, MSG+9, MSG+10, MSG+11, MSG+12
SRNEWOP	SROACOD+2!
SRNODE0	SROACOD+3~, MSG+1*, MSG+3, MSG+6
SRPOST	SROACOD+3~, START+9*, MSG+10
SRPROC	START+5~
SRPROC(	START+7, MSG+9
SRPROC(1	START+6*
>> SRSITE	MSG, MSG+15
SRSOUT	SROACOD+3~, SROACOD+4, START, START+11, ASK
SRSUPCPT	SROACOD+3~, SROACOD+4*
SRTN	SROACOD+2, START+3, START+8, MSG, MSG+1, MSG+2, MSG+13, END!
SRTN("KILL"	SROACOD+2*, END
SRTXT	SROACOD+3~
>> VADM(1	MSG+2
X	SROACOD+3~, START+3, START+4, START+8, START+9, MSG+15*
XMSUB	MSG+16*, MSG+17!
XMTEXT	MSG+17*!
XMY	MSG+1!, MSG+17!
XMY(	MSG+13, MSG+14
XMY("G."	MSG+15*
XX	SROACOD+3~, MSG+13*
Y	SROACOD+3~, START+3, ED+5, MSG+3, MSG+16*, ASK