Routine: SROCD2

Package	Total	Call Graph
Surgery	7	HDR^SROCD ($$SCEC,DOTH,POTH,PRDX)^SROCD0 SCEI^SROCD3 ^SROCD4 PCPT^SROCDX PADXD^SROCDX1 PRIN^SROMOD0
DRG Grouper	3	$$ICDDX^ICDCODE $$CPT^ICPTCOD $$MOD^ICPTMOD
VA Fileman	2	^DIE ^DIR

Package

Total

Call Graph

Surgery

HDR^SROCD ($$SCEC,DOTH,POTH,PRDX)^SROCD0 SCEI^SROCD3 ^SROCD4 PCPT^SROCDX PADXD^SROCDX1 PRIN^SROMOD0

DRG Grouper

$$ICDDX^ICDCODE $$CPT^ICPTCOD $$MOD^ICPTMOD

VA Fileman

^DIE ^DIR

Package	Total	Caller Graph
Surgery	1	SROCD

Package

Total

Caller Graph

Surgery

SROCD

External References

Name	Field # of Occurrence
^DIE	PDX+1, PCPT
^DIR	ASK+1
$$ICDDX^ICDCODE	DSPLY+3, DSPLY+7, DSPLY+30
$$CPT^ICPTCOD	DSPLY+10, DSPLY+21
$$MOD^ICPTMOD	DSPLY+14, DSPLY+24
HDR^SROCD	DSPLY+2, ONE+1
$$SCEC^SROCD0	PDX+2
DOTH^SROCD0	ONE+3
POTH^SROCD0	ONE+2
PRDX^SROCD0	ONE+4
SCEI^SROCD3	PDX+2
^SROCD4	ASK+2
PCPT^SROCDX	ONE+5
PADXD^SROCDX1	DSPLY+17
PRIN^SROMOD0	PCPT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"1. Principal Postop Diagnosis Code:",?36,SRDIAG Line Location: DSPLY+4
Function Call: WRITE	Prompt: ?36,"NOT ENTERED" Line Location: DSPLY+5
Function Call: WRITE	Prompt: ?36,SRDIAG Line Location: DSPLY+8
Function Call: WRITE	Prompt: !,"3. Principal CPT Code: ",SRCPT_SRX_" "_SRSHRT Line Location: DSPLY+16
Function Call: WRITE	Prompt: ?23,"NOT ENTERED" Line Location: DSPLY+18
Function Call: WRITE	Prompt: SRCPT_SRY_" "_SRSHRT Line Location: DSPLY+26
Function Call: WRITE	Prompt: " NOT ENTERED" Line Location: DSPLY+27
Function Call: WRITE	Prompt: ! Condition for execution: $G(SRFLG) Line Location: DSPLY+31
Function Call: WRITE	Prompt: ?16,$E(SRDIAG,1,28) Line Location: DSPLY+31
Function Call: WRITE	Prompt: ?48,$E(SRDIAG,1,28) Line Location: DSPLY+32
Function Call: WRITE	Prompt: ! Line Location: DSPLY+33
Function Call: WRITE	Prompt: "-" Line Location: DSPLY+33
Function Call: WRITE	Prompt: !!,"Enter the number corresponding to the information you want to update. You may",!,"enter 'ALL' to update all the information displayed on this screen, or a" Line Location: HELP+0
Function Call: WRITE	Prompt: !,"range of numbers separated by a ':' to update more than one item.",! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"The following information is required before continuing.",! Line Location: REQ+0
Function Call: WRITE	Prompt: !,"This is a required response. Enter '^' to exit" Line Location: PDX+3
Function Call: WRITE	Prompt: !,"This is a required response. Enter '^' to exit" Line Location: PCPT+1
Routine Call	DIE Line Location: PDX+1 PCPT
Routine Call	DIR Line Location: ASK+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	DSPLY, DSPLY+1
^SRO(136 - [#136]	DSPLY+1, DSPLY+5, DSPLY+6, DSPLY+7, DSPLY+12, DSPLY+13, DSPLY+14, DSPLY+18, DSPLY+19, DSPLY+20 , DSPLY+22, DSPLY+23, DSPLY+24, DSPLY+27, DSPLY+28, DSPLY+29, DSPLY+34, PDX, PDX+2, PDX+3 , PCPT, PCPT+1

Name	Line Occurrences
ASK	ASK+3, ASK+5
DSPLY	DSPLY+34
HELP	ASK+3, ASK+5
ONE	ASK+7, RANGE+2
PCPT	PCPT+1
PDX	PDX+3
RANGE	ASK+6
REQ	DSPLY+34

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CPT	DSPLY+9, DSPLY+10, DSPLY+12, DSPLY+20, DSPLY+21, DSPLY+22, DSPLY+28
CURLEY	RANGE+1~, RANGE+2*
DA	PDX+1!, PCPT!, PCPT+2!
DIE	PDX+1!, PCPT!, PCPT+2!
DIR	ASK!, ASK+1!
DIR("?"	ASK, ASK+1
DIR("A"	ASK*
DIR(0	ASK*
DR	PDX+1!, PCPT!, PCPT+2!
>> DTOUT	ASK+1
>> DUOUT	ASK+1
EMILY	ASK+7, RANGE+1~, RANGE+2, ONE+2, ONE+3, ONE+4, ONE+5
>> LINE	DSPLY+33*
SCEC	EN~, PDX+2*, PDX+4!
SHEMP	RANGE+1~, RANGE+2*
>> SR(0	DSPLY+1*, DSPLY+3, DSPLY+9
>> SRAO(	ASK+3
>> SRAO(1	DSPLY+35*
>> SRAO(2	DSPLY+35*
>> SRAO(3	DSPLY+35*
>> SRAO(4	DSPLY+35*
SRCHFNO	EN~, DSPLY*
SRCL	PDX+2!
SRCMOD	EN~, DSPLY+13, DSPLY+14, DSPLY+15, DSPLY+23, DSPLY+24, DSPLY+25
>> SRCNT	DSPLY+28, DSPLY+29, DSPLY+31, DSPLY+32
>> SRCOMMA	DSPLY+13, DSPLY+15, DSPLY+23, DSPLY+25
>> SRCPT	DSPLY+9, DSPLY+10, DSPLY+16, DSPLY+21*, DSPLY+26
>> SRD	DSPLY+6, DSPLY+7, DSPLY+28, DSPLY+29
>> SRDATE	DSPLY+1*, DSPLY+3, DSPLY+7, DSPLY+10, DSPLY+21, DSPLY+30
>> SRDIAG	DSPLY+3, DSPLY+4, DSPLY+7, DSPLY+8, DSPLY+29, DSPLY+30, DSPLY+31, DSPLY+32
>> SRDX	DSPLY+3, DSPLY+7, DSPLY+29*, DSPLY+30
>> SREDIT	DSPLY*
SRFIRST	EN~, DSPLY+19, DSPLY+26
SRFLG	EN~, DSPLY+6, DSPLY+8, DSPLY+9, DSPLY+23, DSPLY+28, DSPLY+31
>> SRI	DSPLY+13, DSPLY+14, DSPLY+23, DSPLY+24
SRM	DSPLY+14!, DSPLY+24!
>> SRMSG	DSPLY+11*
SRNON	EN~, DSPLY*, DSPLY+2
SRSHRT	EN~, DSPLY+9, DSPLY+10, DSPLY+16, DSPLY+20, DSPLY+21, DSPLY+26
>> SRSOUT	DSPLY, DSPLY+34, ASK+1, ASK+3, ASK+5, RANGE+2, PDX, PDX+1, PCPT
>> SRTN	DSPLY, DSPLY+1, DSPLY+5, DSPLY+6, DSPLY+7, DSPLY+12, DSPLY+13, DSPLY+14, DSPLY+18, DSPLY+19 , DSPLY+20, DSPLY+22, DSPLY+23, DSPLY+24, DSPLY+27, DSPLY+28, DSPLY+29, DSPLY+34, PDX, PDX+1 , PDX+2, PDX+3, PCPT, PCPT+1
>> SRX	DSPLY+9, DSPLY+13, DSPLY+15, DSPLY+16, DSPLY+19, DSPLY+20, DSPLY+22, DSPLY+23, DSPLY+24, DSPLY+27 , DSPLY+28, DSPLY+29
>> SRY	DSPLY+20, DSPLY+23, DSPLY+25*, DSPLY+26
>> X	ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, ASK+7, RANGE+2
>> Y	DSPLY+10, DSPLY+21, ASK+5, PDX+1, PDX+2, PCPT
>> Z	ASK+5*

Customize PDF page

Package: Surgery

Routine: SROCD2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
HELP
PDX
REQ
ONE	; edit one item
RANGE	; range of numbers
ASK
PCPT
DSPLY