Routine: SROVER

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Surgery	6	(ADXKILL,OTHADXD,PADXD)^SROADX1 ^SROERR0 CHECK^SROES UNLOCK^SROUTL ^SROVER1 ^SRSKILL
DRG Grouper	3	$$ICDDX^ICDCODE ($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD
Kernel	1	T0^%ZOSV
Registration	1	DEM^VADPT
VA Fileman	1	^DIWP

Package

Total

Call Graph

Surgery

(ADXKILL,OTHADXD,PADXD)^SROADX1 ^SROERR0 CHECK^SROES UNLOCK^SROUTL ^SROVER1 ^SRSKILL

DRG Grouper

$$ICDDX^ICDCODE ($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD

Kernel

T0^%ZOSV

Registration

DEM^VADPT

VA Fileman

^DIWP

Package	Total	Caller Graph
Surgery	1	SROVER

Package

Total

Caller Graph

Surgery

SROVER

External References

Name	Field # of Occurrence
T0^%ZOSV	RT+1
^DIWP	PRINT+2
$$ICDDX^ICDCODE	PRINT+19
$$CPT^ICPTCOD	OTHER+2, PRINT+6
$$CPTD^ICPTCOD	PRINT+7
$$MOD^ICPTMOD	OTHER+6, PRINT+10
ADXKILL^SROADX1	END+2
OTHADXD^SROADX1	OTHER+8
PADXD^SROADX1	PRINT+13
^SROERR0	END
CHECK^SROES	UP+5
UNLOCK^SROUTL	END+1
^SROVER1	UP+6
^SRSKILL	END+2
DEM^VADPT	DONE+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: DONE+0
Function Call: WRITE	Prompt: !!,"Enter RETURN if you would like to reverify this case, or 'N' to exit",!,"this option." Line Location: DONE+2
Function Call: WRITE	Prompt: !!,"This case has been locked. If you wish to update it, please contact",!,"your Chief of Surgery, or package coordinator." Line Location: STRT+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: UP+0
Function Call: WRITE	Prompt: !!,"Verification of this case has not been made." Line Location: UP+1
Function Call: WRITE	Prompt: !!,"Your answer has a control character in it, please re-type it.",! Line Location: UP+3
Function Call: WRITE	Prompt: !!,"If the information above is not correct, enter 'YES'. You may then update",!,"any of the fields displayed. Enter RETURN to proceed with verification",!,"of this case." Line Location: UP+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: VER+0
Function Call: WRITE	Prompt: !!,"No action has been taken. " Line Location: VER+0
Function Call: WRITE	Prompt: !,"Enter 'YES' if the procedures, diagnosis, and occurrences are correct",!,"for this case. If you enter 'NO', the case will be left unverified." Line Location: VER+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: END+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !,?10,SRX Line Location: OTHER+4
Function Call: WRITE	Prompt: @IOF,!,SRNM,?52,"Operation Date: "_SRSDATE,! Line Location: PRINT+1
Function Call: WRITE	Prompt: "-" Line Location: PRINT+1
Function Call: WRITE	Prompt: !,?3,^UTILITY($J,"W",3,V,0) Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"2. Principal CPT Code: ",X Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?5,SRDES(I) Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?10,SRX Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"3. Principal Procedure: ",?24,SROPS(1) Line Location: PRINT+14
Function Call: WRITE	Prompt: !,?24,SROPS(2) Line Location: PRINT+14
Function Call: WRITE	Prompt: !,?24,SROPS(2) Line Location: PRINT+14
Function Call: WRITE	Prompt: !,"4. Other Procedures: ",?24 Line Location: PRINT+15
Function Call: WRITE	Prompt: !,"5. Postoperative Diagnosis: " Line Location: PRINT+16
Function Call: WRITE	Prompt: ?30,$P(^(34),"^") Line Location: PRINT+16
Function Call: WRITE	Prompt: !,"6. Intraoperative Occurrences: "_$S($O(^SRF(SRTN,10,0)):" INFORMATION ENTERED ",1:"NO OCCURRENCES HAVE BEEN ENTERED") Line Location: PRINT+17
Function Call: WRITE	Prompt: !,"7. Principal Pre-OP Diagnosis: " Line Location: PRINT+18
Function Call: WRITE	Prompt: $P(^(33),"^") Line Location: PRINT+18
Function Call: WRITE	Prompt: !,"8. Principal Pre-OP Diagnosis Code: "_SRDIAG Line Location: PRINT+20
Function Call: WRITE	Prompt: ! Line Location: PRINT+21
Function Call: WRITE	Prompt: "-" Line Location: PRINT+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DONE+4
^SRF - [#130]	BEG, DONE, DONE+4, STRT+1, VER+3*, OTHER, OTHER+1, OTHER+2, OTHER+4, OTHER+5 , OTHER+6, PRINT+2, PRINT+4, PRINT+8, PRINT+9, PRINT+10, PRINT+16, PRINT+17, PRINT+18, PRINT+19
^UTILITY($J	PRINT+2!, PRINT+3

Name	Line Occurrences
DONE	DONE+2
END	DONE, DONE+3, STRT+1, UP+1, UP+5, UP+6, VER
LOOP	PRINT+5
OTHER	PRINT+15
PRINT	STRT, UP+6
RT	UP+6
STRT	UP+6
UP	UP+3, UP+4
VER	UP, VER+2

Name	Field # of Occurrence
^(	BEG
^("VER"	DONE
^(33	PRINT+18
^(34	PRINT+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	DONE+5~, UP+2, UP+5*, UP+6
>> CPT	OTHER+2, OTHER+4, PRINT+4, PRINT+6, PRINT+7, PRINT+8
>> DFN	DONE+4*
>> DIWF	PRINT+2*
>> DIWL	PRINT+2*
>> DIWR	PRINT+2*
DTIME	DONE, UP, VER, END+2
>> I	PRINT+1, PRINT+2, PRINT+7*
IOF	END+2, PRINT+1
>> LINE	PRINT+21*
>> LOOP	LOOP+1*
>> M	LOOP+1, PRINT+5*
MM	LOOP+1*, PRINT+5!
MMM	LOOP+1*, PRINT+5!
>> OTH	OTHER+1*, OTHER+2, OTHER+4, OTHER+5, OTHER+6
>> OTHER	OTHER+2*, OTHER+3
>> S("OP"	PRINT+4*
>> S(0	DONE+4*
>> SR2	BEG*, UP
>> SRASDX	PRINT+12*
>> SRCMOD	OTHER+5, OTHER+6, OTHER+7, PRINT+9, PRINT+10, PRINT+11
>> SRCOMMA	OTHER+5, OTHER+7, PRINT+9, PRINT+11
>> SRDATE	DONE+4*, PRINT+19
SRDES	PRINT+7!
SRDES(	PRINT+7
SRDES(0	PRINT+7
>> SRDIAG	PRINT+19*, PRINT+20
>> SRDX	PRINT+19*
>> SRI	OTHER+5, OTHER+6, PRINT+9, PRINT+10
>> SRIND	PRINT+2*
SRLCK	DONE+5~, UP+5, UP+6, END+1
>> SRM	OTHER+6, PRINT+10
>> SRMSG	PRINT+12*
>> SRNM	DONE+4*, PRINT+1
>> SROERR	END*
>> SROPER	LOOP+1, PRINT+4, PRINT+5*
SROPS	PRINT+5!
SROPS(	LOOP+1*
SROPS(1	PRINT+5*, PRINT+14
SROPS(2	PRINT+14
SROPS(3	PRINT+14
>> SRS	BEG*
>> SRSDATE	DONE+4*, PRINT+1
>> SRSOUT	BEG*, UP+5, UP+6, OTHER+1
>> SRTN	BEG, DONE, DONE+4, STRT+1, VER+3, END, END+1, OTHER, OTHER+1, OTHER+2 , OTHER+4, OTHER+5, OTHER+6, PRINT+2, PRINT+4, PRINT+8, PRINT+9, PRINT+10, PRINT+16, PRINT+17 , PRINT+18, PRINT+19
>> SRX	OTHER+4, OTHER+5, OTHER+7, PRINT+8, PRINT+9, PRINT+11
>> V	PRINT+3*
>> VA("PID"	DONE+4
>> VADM(1	DONE+4
X	DONE!, DONE+1, DONE+2, DONE+3, UP, UP+1, UP+2, UP+3, UP+4, UP+5 , VER, VER+1, VER+2, VER+3, END+2, OTHER+2, OTHER+3, PRINT+2, PRINT+6, PRINT+7
XQUIT	UP+5!
>> XRTL	RT+1
>> XRTN	RT+1*
>> Y	DONE+4*

Customize PDF page

Package: Surgery

Routine: SROVER

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

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
RT	; start RT logging
END
UP
BEG
OTHER
DONE
PRINT	; print information
VER
STRT
LOOP	; break procedure if greater than 45 characters