Routine: SROACOD

Call Graph

Call Graph Total: 15

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

Call Graph

VA Fileman

DD^%DT NOW^%DTC EN^DDIOL $$GET1^DIQ ^DIR EN^DIWE

Surgery

(,HDR)^SROAUTL SSPRIN^SROCPT0 ^SROPS OTH^SROUTLN ^SRSKILL

DRG Grouper

$$ICDDX^ICDCODE $$CPT^ICPTCOD

MailMan

^XMD

Registration

DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROA CODE ISSUE

Package

Total

Caller Graph

Surgery

SROA CODE ISSUE

External References

Name	Field # of Occurrence
DD^%DT	MSG+3
NOW^%DTC	MSG+16
EN^DDIOL	ERR+1, ERR+2, ERR+3, ERR+4, ERR+5, ERR+6
$$GET1^DIQ	MSG+15
^DIR	ED+4, ASK, ERR+7
EN^DIWE	ED
$$ICDDX^ICDCODE	START+8
$$CPT^ICPTCOD	START+3
^SROAUTL	SROACOD+4
HDR^SROAUTL	START+1
SSPRIN^SROCPT0	START+3
^SROPS	SROACOD+2
OTH^SROUTLN	START+6
^SRSKILL	END
DEM^VADPT	MSG+6
^XMD	MSG+17

Interaction Calls

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	Line Occurrences
ASK	START+11
ED	ED+5
END	SROACOD+2, START, START+11, ED+4, MSG
ERR	MSG

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Surgery

Routine: SROACOD

Information

Source Information

Call Graph

Call Graph Total: 15

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

Naked Globals

Local Variables

Legend:

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