Routine: SROVER2

Call Graph Total: 15

Package	Total	Call Graph
Surgery	10	(ADXKILL,PADXD)^SROADX1 ^SROERR0 CODE^SRONIN CODE^SRONON CODE^SROPRPT ^SROPS1 ($$LOCK,UNLOCK)^SROUTL ^SROVAR (,PRESS)^SROVER3 ^SRSKILL
DRG Grouper	3	$$ICDDX^ICDCODE ($$CPT,$$CPTD)^ICPTCOD $$MOD^ICPTMOD
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package

Total

Call Graph

(ADXKILL,PADXD)^SROADX1 ^SROERR0 CODE^SRONIN CODE^SRONON CODE^SROPRPT ^SROPS1 ($$LOCK,UNLOCK)^SROUTL ^SROVAR
(,PRESS)^SROVER3 ^SRSKILL

DRG Grouper

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

Registration

DEM^VADPT

VA Fileman

D^DIQ

Package	Total	Caller Graph
Surgery	4	SRCODING NURSE REPORT SRCODING OP REPORT SROADX SROVER3

Package

Total

Caller Graph

Surgery

SRCODING NURSE REPORT SRCODING OP REPORT SROADX SROVER3

Entry Points

Name	Comments	DBIA/ICR reference
END
HDR
BEG
NRPT	; print nurse intraoperative report
ORPT	; print operation/procedure report
PRINT	; print information
CHECK	; check for changes to data
LOOP	; break procedure if greater than 45 characters
MOD	; if data changed set coder verification field

External References

Name	Field # of Occurrence
D^DIQ	BEG+1
$$ICDDX^ICDCODE	PRINT+20, PRINT+24
$$CPT^ICPTCOD	PRINT+4
$$CPTD^ICPTCOD	PRINT+8
$$MOD^ICPTMOD	PRINT+11
ADXKILL^SROADX1	END
PADXD^SROADX1	PRINT+14
^SROERR0	END
CODE^SRONIN	NRPT+2
CODE^SRONON	ORPT+1
CODE^SROPRPT	ORPT+2
^SROPS1	SROVER2+3
$$LOCK^SROUTL	PRINT+28
UNLOCK^SROUTL	END+1
^SROVAR	SROVER2+2
^SROVER3	PRINT+29
PRESS^SROVER3	NRPT+1
^SRSKILL	END
DEM^VADPT	BEG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"1. Principal Procedure: ",?24,SROPS(1) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,?24,SROPS(2) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,?24,SROPS(2) Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"2. Principal CPT Code: ",?24,$S(CPT:SRCPT,1:"NOT ENTERED") Line Location: PRINT+7
Function Call: WRITE	Prompt: !,?6,SRDES(I) Line Location: PRINT+8
Function Call: WRITE	Prompt: !,?10,SRX Line Location: PRINT+9
Function Call: WRITE	Prompt: !,"3. Other Procedures: "_$S($O(^SRF(SRTN,13,0)):" INFORMATION ENTERED ",1:"NO OTHER PROCEDURES HAVE BEEN ENTERED") Line Location: PRINT+15
Function Call: WRITE	Prompt: !,"4. Principal Diagnosis: "_SRTXT Line Location: PRINT+18
Function Call: WRITE	Prompt: !,"4. Postoperative Diagnosis: "_SRTXT Line Location: PRINT+19
Function Call: WRITE	Prompt: !,"5. Principal Diagnosis Code: "_SRDIAG Line Location: PRINT+21
Function Call: WRITE	Prompt: !,"6. Other Postop Diagnosis: "_$S($O(^SRF(SRTN,15,0)):" INFORMATION ENTERED ",1:"NO OTHER POSTOP DIAGNOSIS HAS BEEN ENTERED") Line Location: PRINT+22
Function Call: WRITE	Prompt: !,"7. Principal Pre-OP Diagnosis: " Line Location: PRINT+23
Function Call: WRITE	Prompt: $P(^(33),"^") Line Location: PRINT+23
Function Call: WRITE	Prompt: !,"8. Principal Pre-OP Diagnosis Code: "_SRDIAG Line Location: PRINT+25
Function Call: WRITE	Prompt: ! Line Location: PRINT+27
Function Call: WRITE	Prompt: "-" Line Location: PRINT+27
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: @IOF,!,SRNM,!,"Operation Date: "_SRSDATE,?40,"Case #",SRTN,! Line Location: HDR+0
Function Call: WRITE	Prompt: "-" Line Location: HDR+0
Function Call: WRITE	Prompt: !!,?5,"Nurse Intraoperative Report NOT available on Non-OR Procedure",! Line Location: NRPT+1
Function Call: WRITE	Prompt: @IOF Line Location: NRPT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	BEG, BEG+1, BEG+2, PRINT+1, PRINT+2, PRINT+4, PRINT+8, PRINT+9, PRINT+10, PRINT+11 , PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22, PRINT+23, PRINT+24, PRINT+26 , ORPT+1, NRPT+1, MOD+1*, CHECK+1, CHECK+2, CHECK+4, CHECK+5, CHECK+7, CHECK+8, CHECK+9
^TMP("SRV1"	BEG!, PRINT+3, PRINT+16, PRINT+21, PRINT+26, END!, CHECK+1, CHECK+4, CHECK+6, CHECK+7 , CHECK+8, CHECK+9, CHECK+10
^TMP("SRV2"	BEG!, END!, CHECK+4, CHECK+6, CHECK+9, CHECK+10

Name	Line Occurrences
CHECK	MOD+1
END	PRINT+28, PRINT+29
HDR	PRINT+1
LOOP	PRINT+5
MOD	PRINT+29
PRINT	PRINT+29

Name	Field # of Occurrence
^(	BEG
^(33	PRINT+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CPT	PRINT+1*, PRINT+3, PRINT+4, PRINT+7, PRINT+8, PRINT+9
>> DFN	BEG+1*
DUZ	MOD+1
>> I	PRINT+8, HDR
IOF	END, HDR, NRPT+1
>> LINE	PRINT+27*
>> LOOP	LOOP+1*
>> M	PRINT+5*, LOOP+1
MM	PRINT+5!, LOOP+1*
MMM	PRINT+5!, LOOP+1*
>> S("OP"	PRINT+1*
>> S(0	BEG+1*
>> SR2	BEG*
>> SRCMOD	PRINT+10, PRINT+11, PRINT+12
>> SRCOMMA	PRINT+10, PRINT+12
>> SRCPT	PRINT+4*, PRINT+7
>> SRDATE	BEG+1*, PRINT+20, PRINT+24
SRDES	BEG~, PRINT+8!
SRDES(	PRINT+8
SRDES(0	PRINT+8
>> SRDIAG	PRINT+20, PRINT+21, PRINT+24, PRINT+25
SRDX	BEG~, PRINT+20, PRINT+21, PRINT+24
SREDIT	BEG~*, PRINT+29
>> SRI	PRINT+10*, PRINT+11
>> SRJ	PRINT+2, PRINT+17, CHECK+2, CHECK+5
SRLCK	PRINT+28~*, END+1
SRM	PRINT+11*!
SRMOD	BEG~, MOD+1, CHECK+1, CHECK+4, CHECK+6, CHECK+7, CHECK+8, CHECK+9, CHECK+10
>> SRMSG	PRINT+13*
>> SRNM	BEG+1*, HDR
SRNON	BEG~, BEG+2, PRINT+18, PRINT+19, ORPT+1~, NRPT+1~*, CHECK+7, CHECK+8
>> SROERR	END*
>> SROPER	PRINT+1, PRINT+3, PRINT+5, LOOP+1*
SROPS	PRINT+5!
SROPS(	LOOP+1*
SROPS(1	PRINT+5*, PRINT+6
SROPS(2	PRINT+6
SROPS(3	PRINT+6
>> SRS	BEG*
>> SRSDATE	BEG+1*, HDR
SRSEL	BEG~
>> SRSITE	SROVER2+2
>> SRSOUT	BEG*, PRINT+29
>> SRTN	SROVER2+3, BEG, BEG+1, BEG+2, PRINT+1, PRINT+2, PRINT+4, PRINT+8, PRINT+9, PRINT+10 , PRINT+11, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22, PRINT+23, PRINT+24 , PRINT+26, PRINT+28, END, END+1, HDR, ORPT+1, NRPT+1, MOD+1, CHECK+1, CHECK+2 , CHECK+4, CHECK+5, CHECK+7, CHECK+8, CHECK+9
SRTXT	BEG~, PRINT+18, PRINT+19, PRINT+21
>> SRX	PRINT+9, PRINT+10, PRINT+12
>> VA("PID"	BEG+1
>> VADM(1	BEG+1
>> X	PRINT+8, PRINT+16, PRINT+17, PRINT+26, CHECK+1, CHECK+3, CHECK+4, CHECK+5, CHECK+6, CHECK+7 , CHECK+8, CHECK+9, CHECK+10*
>> XQUIT	SROVER2+2, SROVER2+3
>> Y	BEG+1, PRINT+2, PRINT+3, PRINT+4, PRINT+16, PRINT+17, PRINT+26, CHECK+2, CHECK+3, CHECK+4 , CHECK+5, CHECK+9

Customize PDF page

Package: Surgery

Routine: SROVER2

Information

Source Information