Routine: SROCD0

Package	Total	Call Graph
Surgery	7	(HDR,OSCEI)^SROCD SCEI^SROCD3 (COTHADX,OTHCPTD)^SROCDX (ASSDIAG,OTHADX,OTHADXD,PASSDIAG)^SROCDX1 (DELASOC,DELWRN,PRINASOD,SADXO)^SROCDX2 SSOTH^SROCPT0 OPROC^SROMOD0
VA Fileman	4	FILE^DICN ^DIE GETS^DIQ ^DIR
DRG Grouper	2	$$ICDDX^ICDCODE $$CPT^ICPTCOD
Scheduling	1	CL^SDCO21

Package	Total	Caller Graph
Surgery	1	SROCD2

Entry Points

External References

Name	Field # of Occurrence
FILE^DICN	POTH+18, DOTH+18
^DIE	PDXEN+6, OPEN+1, ODXEN+5, ODXEN+11
GETS^DIQ	PRDX+5, OIND
^DIR	PRDX+17, PRESS, PDXEN, POTH+8, POTH+13, POTH+16, DUP, DOTH+8, DOTH+12, DOTH+14 , ODXEN+1, ODXEN+4, REMIND+2
$$ICDDX^ICDCODE	PRDX+3, DOTH+4
$$CPT^ICPTCOD	POTH+3
CL^SDCO21	SCEC+1
HDR^SROCD	PDXEN+5, POTH+11, PH, DOTH+10, DH
OSCEI^SROCD	OSCEI+1
SCEI^SROCD3	PSCEI+1
COTHADX^SROCDX	POTH+20, OASS
OTHCPTD^SROCDX	POTH+11
ASSDIAG^SROCDX1	DH
OTHADX^SROCDX1	POTH+11
OTHADXD^SROCDX1	POTH+6
PASSDIAG^SROCDX1	DH
DELASOC^SROCDX2	ODXEN+6, ODXEN+12
DELWRN^SROCDX2	POTH+9
PRINASOD^SROCDX2	PDXEN+7
SADXO^SROCDX2	OPEN+4
SSOTH^SROCPT0	POTH+3
OPROC^SROMOD0	POTH+19, OPEN+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Principal Postop Diagnosis:",!!,?5,"ICD9 Code: "_SRDIAG Line Location: PRDX+4
Function Call: WRITE	Prompt: ! Line Location: PRDX+7
Function Call: WRITE	Prompt: ?SRCOLSPN,"SC:",$E(ENVARR(136,SRTN_",",.04,"E")) Line Location: PRDX+8
Function Call: WRITE	Prompt: ?SRCOLSPN,"CV:",$E(ENVARR(136,SRTN_",",.1,"E")) Line Location: PRDX+9
Function Call: WRITE	Prompt: ?SRCOLSPN,"AO:",$E(ENVARR(136,SRTN_",",.05,"E")) Line Location: PRDX+10
Function Call: WRITE	Prompt: ?SRCOLSPN,"IR:",$E(ENVARR(136,SRTN_",",.06,"E")) Line Location: PRDX+11
Function Call: WRITE	Prompt: ?SRCOLSPN,"SWAC:",$E(ENVARR(136,SRTN_",",.07,"E")) Line Location: PRDX+12
Function Call: WRITE	Prompt: ?SRCOLSPN,"SHAD:",$E(ENVARR(136,SRTN_",",.11,"E")) Line Location: PRDX+13
Function Call: WRITE	Prompt: ?SRCOLSPN,"MST:",$E(ENVARR(136,SRTN_",",.08,"E")) Line Location: PRDX+14
Function Call: WRITE	Prompt: ?SRCOLSPN,"H&N:",$E(ENVARR(136,SRTN_",",.09,"E")) Line Location: PRDX+15
Function Call: WRITE	Prompt: ! Line Location: PRESS+0
Function Call: WRITE	Prompt: ! Line Location: PDXEN+0
Function Call: WRITE	Prompt: !!," Deletion of the Principal Postop Diagnosis Code is not allowed! ??" Line Location: PDXEN+1
Function Call: WRITE	Prompt: !,"This is a required entry." Line Location: PDXEN+2
Function Call: WRITE	Prompt: !,"Other Procedures:",! Line Location: POTH+0
Function Call: WRITE	Prompt: !,CNT_". Enter NEW Other Procedure Code",! Line Location: POTH+8
Function Call: WRITE	Prompt: !! Line Location: POTH+10
Function Call: WRITE	Prompt: ! Line Location: OPEN+0
Function Call: WRITE	Prompt: !,"Other Postop Diagnosis:",! Line Location: DOTH+0
Function Call: WRITE	Prompt: ! Line Location: DOTH+7
Function Call: WRITE	Prompt: !,CNT_". Enter NEW Other Postop Diagnosis Code",! Line Location: DOTH+8
Function Call: WRITE	Prompt: !! Line Location: DOTH+9
Function Call: WRITE	Prompt: !,"Other Postop Diagnosis:",!!,SRDA_". "_$P(SRSEL(SRDA),U,2) Line Location: DOTH+10
Function Call: WRITE	Prompt: ! Line Location: ODXEN+0
Function Call: WRITE	Prompt: !!," >>> No SC/EI information required for this patient. <<<" Line Location: OSCEI+0
Function Call: WRITE	Prompt: ! Line Location: REMIND+1
Function Call: WRITE	Prompt: ! Line Location: OIND+2
Function Call: WRITE	Prompt: ?SRCOLSPN,"SC:",$E(ENVARR(136.04,OTH_","_SRTN_",",.02,"E")) Line Location: OIND+3
Function Call: WRITE	Prompt: ?SRCOLSPN,"CV:",$E(ENVARR(136.04,OTH_","_SRTN_",",.08,"E")) Line Location: OIND+4
Function Call: WRITE	Prompt: ?SRCOLSPN,"AO:",$E(ENVARR(136.04,OTH_","_SRTN_",",.03,"E")) Line Location: OIND+5
Function Call: WRITE	Prompt: ?SRCOLSPN,"IR:",$E(ENVARR(136.04,OTH_","_SRTN_",",.04,"E")) Line Location: OIND+6
Function Call: WRITE	Prompt: ?SRCOLSPN,"SWAC:",$E(ENVARR(136.04,OTH_","_SRTN_",",.07,"E")) Line Location: OIND+7
Function Call: WRITE	Prompt: ?SRCOLSPN,"SHAD:",$E(ENVARR(136.04,OTH_","_SRTN_",",.09,"E")) Line Location: OIND+8
Function Call: WRITE	Prompt: ?SRCOLSPN,"MST:",$E(ENVARR(136.04,OTH_","_SRTN_",",.05,"E")) Line Location: OIND+9
Function Call: WRITE	Prompt: ?SRCOLSPN,"H&N:",$E(ENVARR(136.04,OTH_","_SRTN_",",.06,"E")) Line Location: OIND+10
Routine Call	DIE Line Location: PDXEN+6 OPEN+1 ODXEN+5 ODXEN+11
Routine Call	DIR Line Location: PRDX+17 PRESS PDXEN POTH+8 POTH+13 POTH+16 DUP DOTH+8 DOTH+12 DOTH+14 ODXEN+1 ODXEN+4 REMIND+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRO(136 - [#136]	Classic Fileman Calls, GETS^DIQ
136.04	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	PRDX+3, POTH+3, DOTH+4, SCEC, SCEC+1
^SRO(136 - [#136]	PRDX+2, PSCEI, POTH+1, POTH+2, POTH+17, OPEN+4, DOTH+2, DOTH+3, ADCHK+2

Label References

Name	Line Occurrences
$$ADCHK	POTH+9
$$SCEC	PRDX+1, DOTH+1
DH	DOTH+9, DOTH+14, DOTH+16
DOTH	DH
DUP	PDXEN+5, DOTH+16, ODXEN+9
OASS	POTH+15
ODXEN	DOTH+13
OIND	DOTH+6, DOTH+10
OPEN	POTH+14
OSCEI	DOTH+13
PDXEN	PRDX+2, PRDX+18, PDXEN+1, PDXEN+2, PDXEN+5
PH	POTH+10, POTH+16
POTH	PH
PRESS	PSCEI+2, POTH+9, OSCEI
PSCEI	PRDX+19
REMIND	PDXEN+8, DOTH+19, ODXEN+7, ODXEN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	POTH+1~, POTH+4, POTH+5, POTH+7, POTH+8, POTH+10, POTH+20, DOTH+1~, DOTH+2, DOTH+5 , DOTH+7, DOTH+8, DOTH+9
>> CPT	POTH+3*, POTH+4, POTH+5
>> CPT1	POTH+2, POTH+3, POTH+5
DA	PDXEN!, PDXEN+6!, POTH+19!, OPEN!, OPEN+1, OPEN+2!, OPEN+4!, DOTH+18!, ODXEN+5!, ODXEN+6! , ODXEN+11!*, ODXEN+12!
DA(1	POTH+19, OPEN+1, DOTH+17, ODXEN+5, ODXEN+11*
DD	POTH+18!, DOTH+18!
DFN	SCEC~, SCEC+1*
DIC	POTH+18!, DOTH+18!
DIC(0	POTH+18, DOTH+18
DIE	PDXEN+6!, OPEN!, OPEN+1!, ODXEN+5!, ODXEN+6!, ODXEN+11!, ODXEN+12!
DIR	PRDX+16!, PRESS!, PDXEN!, POTH+8!, POTH+12!, POTH+16!, OPEN!, DUP!, DOTH+8!, DOTH+11! , DOTH+14!, ODXEN!, ODXEN+1!, ODXEN+3!, ODXEN+4!, ODXEN+11!, REMIND+1!, REMIND+2!
DIR("A"	PRDX+17, PRESS, PDXEN, POTH+8, POTH+13, POTH+16, DUP, DOTH+8, DOTH+12, DOTH+14 , ODXEN, ODXEN+3, REMIND+1, REMIND+2
DIR("B"	PRDX+17, PDXEN, POTH+13, DOTH+12, ODXEN, ODXEN+3
DIR(0	PRDX+16, PRESS, PDXEN, POTH+8, POTH+12, POTH+16, DUP, DOTH+8, DOTH+11, DOTH+14 , ODXEN, ODXEN+3, REMIND+2*
DO	POTH+18!, DOTH+18!
DR	PDXEN+6!, OPEN!, OPEN+1!, DOTH+18!, ODXEN+5!, ODXEN+6!, ODXEN+11, ODXEN+12!
DT	SCEC
>> DTOUT	PRDX+17, PDXEN, POTH+8, POTH+13, POTH+16, DOTH+8, DOTH+12, DOTH+14, ODXEN+1, ODXEN+4
>> DUOUT	PRDX+17, PDXEN, POTH+8, POTH+13, POTH+16, DOTH+8, DOTH+12, DOTH+14, ODXEN+1, ODXEN+4
ENVARR	PRDX+1~, DOTH+1~
ENVARR(	OIND+1, OIND+3, OIND+4, OIND+5, OIND+6, OIND+7, OIND+8, OIND+9, OIND+10
ENVARR(136	PRDX+6, PRDX+8, PRDX+9, PRDX+10, PRDX+11, PRDX+12, PRDX+13, PRDX+14, PRDX+15
>> OTH	POTH+1, POTH+2, POTH+3, POTH+5, DOTH+2, DOTH+3, DOTH+5, DOTH+10*, OIND, OIND+1 , OIND+3, OIND+4, OIND+5, OIND+6, OIND+7, OIND+8, OIND+9, OIND+10
>> OTHCNT	POTH+10*
OTHER	POTH+1~, POTH+20*
SCEC	PRDX+1~, PRDX+4, PSCEI+1, DOTH+1~, DOTH+6, DOTH+7, DOTH+10, SCEC~, SCEC+2*, SCEC+3
>> SRADIAG(	PDXEN+4, DOTH+15, ODXEN+8
SRADX	ADCHK+1~, ADCHK+2, ADCHK+3
SRCL	PSCEI+1!, DOTH+14!, OSCEI, SCEC+1, SCEC+2
SRCL(1	PRDX+10, OIND+5
SRCL(2	PRDX+11, OIND+6
SRCL(3	PRDX+8, OIND+3
SRCL(4	PRDX+12, OIND+7
SRCL(5	PRDX+14, OIND+9
SRCL(6	PRDX+15, OIND+10
SRCL(7	PRDX+9, OIND+4
SRCL(8	PRDX+13, OIND+8
SRCOLSPN	PRDX+7~, PRDX+8, PRDX+9, PRDX+10, PRDX+11, PRDX+12, PRDX+13, PRDX+14, PRDX+15, OIND+2~ , OIND+3, OIND+4, OIND+5, OIND+6, OIND+7, OIND+8, OIND+9, OIND+10
>> SRCPT	POTH+3*, POTH+5
>> SRDA	POTH+3, POTH+10, POTH+20, OPEN, OPEN+1, OPEN+4, OASS, DOTH+9, DOTH+10, ODXEN , ODXEN+5, ODXEN+6, ODXEN+11, ODXEN+12
>> SRDES	PRDX+3, DOTH+4
>> SRDIAG	PRDX+2, PRDX+3, PRDX+4, DOTH+3, DOTH+4, DOTH+5
SRDICN	POTH+18*!
SRDIE	OPEN*, OPEN+1!
SRDIRED	OPEN~*, OPEN+2
SRDUP	PRDX+1~, PDXEN+3, PDXEN+4, PDXEN+5, POTH+16, POTH+17, DOTH+1~, DOTH+15, DOTH+16, ODXEN+8 , ODXEN+9
SRDXY	PRDX+1~, PRDX+18, PRDX+19, DOTH+13
SRI	PRDX+1~, PDXEN+3, PDXEN+4, DOTH+1~, DOTH+15, ODXEN+8
SRJ	DOTH+1~
SRNEW	PRDX+1~, PDXEN+1, PDXEN+3, PDXEN+4, PDXEN+6, PDXEN+7, POTH+1~, POTH+16, POTH+17, POTH+18 , POTH+20, DOTH+1~, DOTH+14, DOTH+15, DOTH+18, ODXEN+1, ODXEN+8, ODXEN+10, ODXEN+11
SRNUM	PRDX+1~, PRDX+3, PDXEN, DOTH+1~, DOTH+4, DOTH+5
SROLD	PRDX+1~, PRDX+2, PDXEN+3, PDXEN+4, PDXEN+7, POTH+1~, OPEN, OPEN+4, ODXEN*, ODXEN+8 , ODXEN+10, ODXEN+11
SROPY	POTH+1~, POTH+14*, POTH+15
SROTH	ADCHK+1~, ADCHK+2
SRPOTH	POTH+1~, POTH+19, OASS
SRQ	ADCHK+1~*
SRSDATE	SCEC~*, SCEC+1
SRSEL	POTH+1!, DOTH+2!
SRSEL(	POTH+5, OPEN, OPEN+1, OPEN+4, OASS, DOTH+5, DOTH+10, ODXEN, ODXEN+5, ODXEN+6! , ODXEN+11, ODXEN+12
SRSHT	POTH+1~, POTH+3*
>> SRSOUT	POTH+1, POTH+8, DOTH+2, DOTH+8, ODXEN+2, ODXEN+4, ODXEN+7*
>> SRTN	PRDX+2, PRDX+3, PRDX+5, PRDX+6, PRDX+8, PRDX+9, PRDX+10, PRDX+11, PRDX+12, PRDX+13 , PRDX+14, PRDX+15, PDXEN+6, PSCEI, POTH+1, POTH+2, POTH+3, POTH+17, POTH+19, OPEN+1 , OPEN+4, DOTH+2, DOTH+3, DOTH+4, DOTH+17, ODXEN+5, ODXEN+11, SCEC, SCEC+1, ADCHK+2 , OIND, OIND+1, OIND+3, OIND+4, OIND+5, OIND+6, OIND+7, OIND+8, OIND+9, OIND+10
SRX	POTH+17, DOTH+1~, DOTH+3, DOTH+5
U	PRDX+3, POTH+2, POTH+3, POTH+17, OPEN, OPEN+1, OPEN+4, OASS, DOTH+3, DOTH+4 , DOTH+10, ODXEN, ODXEN+5, ODXEN+6, ODXEN+11, ODXEN+12, SCEC, SCEC+1
>> X	PRDX+2, PRDX+3, PDXEN+1, PDXEN+2, PDXEN+7, POTH+2, POTH+3, POTH+18, OPEN+4, DOTH+3 , DOTH+4, DOTH+18, ODXEN+2, ODXEN+6, ODXEN+12*
>> Y	PRDX+3, PRDX+17, PRDX+18, PDXEN+1, PDXEN+6, POTH+3, POTH+9, POTH+10, POTH+13, POTH+14 , POTH+16, POTH+18, POTH+19, OPEN+1, DOTH+4*, DOTH+9, DOTH+12, DOTH+13, DOTH+14, ODXEN+1 , ODXEN+4

Customize PDF page

Package: Surgery

Routine: SROCD0

Information

Source Information

Call Graph

Call Graph Total: 14

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

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OSCEI
DH
REMIND	; display reminder to update procedure/diagnosis associations
ODXEN
OIND
ADCHK()	; check for other procedures with no associated diagnosis
PSCEI
PDXEN
DUP
OASS
POTH
PRESS
PRDX	; edit Principal Postop Diagnosis
DOTH
OPEN
PH
SCEC()