Routine: SROPCE0B

Package	Total	Call Graph
Surgery	3	CHK^SROPCE0 ^SROSTOP $$DIV^SROUTL0
VA Fileman	2	EN^DIQ1 ^DIR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	2	SROPCE0 SROPCE0A

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; print case info
SCHED	; get appointment status from Scheduling
HDR	; print heading
PROC	; get principal procedure
UTIL	; process case
DEM	; get patient demographic information
LINE
TOTAL
MISS	; list fields missing data
PAGE

External References

Name	Field # of Occurrence
EN^DIQ1	SCHED+3
^DIR	PAGE+1
CHK^SROPCE0	UTIL+11, UTIL+13
^SROSTOP	HDR+1
$$DIV^SROUTL0	SROPCE0B+7
DEM^VADPT	DEM+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?13,"FILED: ",$J(CNT(1),5),!,?9,"NOT FILED: "_$J(CNT(4),5) Line Location: TOTAL+0
Function Call: WRITE	Prompt: !,?9,"UNCERTAIN: "_$J(CNT(5),5) Condition for execution: CNT(5) Line Location: TOTAL+2
Function Call: WRITE	Prompt: !,?20,"-----",!,?7,"TOTAL CASES: ",$J(CNT(6),5) Line Location: TOTAL+2
Function Call: WRITE	Prompt: !,?15,"No Missing Information" Line Location: MISS+1
Function Call: WRITE	Prompt: !!,?15,"Missing Information:" Line Location: MISS+2
Function Call: WRITE	Prompt: !,$J(SRCT_". ",20),SRX(SRFLD) Line Location: MISS+2
Function Call: WRITE	Prompt: ! Line Location: LINE+0
Function Call: WRITE	Prompt: "-" Line Location: LINE+0
Function Call: WRITE	Prompt: !,SRSDATE,?22,SRSNM,?44,SRSSN_" ("_SRAGE_")",?66,$S(SRSTATUS=1:"FILED",SRSTATUS=4:"NOT FILED",1:"UNCERTAIN") Line Location: CASE+2
Function Call: WRITE	Prompt: !,SRTN,?22,$E(SRSSNM,1,20),?66,$E(SRSCHED,1,14),! Line Location: CASE+3
Function Call: WRITE	Prompt: "NON-O.R." Condition for execution: (SRFLG=3)&SRNON Line Location: CASE+3
Function Call: WRITE	Prompt: ?22,SRPROC(1) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?22,SRPROC(2) Condition for execution: $D(SRPROC(2)) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?22,SRPROC(3) Condition for execution: $D(SRPROC(3)) Line Location: CASE+3
Function Call: WRITE	Prompt: ! Line Location: PAGE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST Condition for execution: $E(IOST)="P" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(80-$L(SRRPT)\2),SRRPT,?70,$J("PAGE "_SRPAGE,9),!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(80-$L(SRPRINT)\2),SRPRINT Condition for execution: $E(IOST)="P" Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"DATE OF "_$S(SRFLG=1:"OPERATION",SRFLG=2:"PROCEDURE",1:"OP/PROCEDURE"),?22,"PATIENT NAME",?44,"PATIENT ID (AGE)",?66,"FILING STATUS",!,"CASE #",?22,"SPECIALTY",?66,"SCHED STATUS",!,?22,"PRINCIPAL PROCEDURE" Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Routine Call	DIR Line Location: PAGE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DEM+1
^ECC(723	UTIL+10
^SCE("AVSIT"	SCHED+2
^SRF - [#130]	SROPCE0B+7, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, DEM+1, PROC+1
^SRF("AC"	SROPCE0B+7
^SRO(133 - [#133]	UTIL+1, UTIL+3
^SRO(137.45 - [#137.45]	UTIL+10

Label References

Name	Line Occurrences
CASE	UTIL+11, UTIL+12, UTIL+13
DEM	CASE+1
HDR	SROPCE0B+7, PAGE
LINE	UTIL+12, MISS+1
MISS	UTIL+11, UTIL+13
PAGE	TOTAL, MISS+2, CASE+1
PROC	CASE+1
SCHED	CASE+1
TOTAL	SROPCE0B+8
UTIL	SROPCE0B+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT(	TOTAL+1
>> CNT(1	TOTAL, UTIL+12*
>> CNT(4	TOTAL, UTIL+13*
>> CNT(5	TOTAL+2, UTIL+11*
>> CNT(6	TOTAL+1*, TOTAL+2
DA	SCHED+3*!
>> DFN	DEM+1*
DIC	SCHED+3*!
DIQ	SCHED+3*!
DIQ(0	SCHED+3*
DIR	PAGE+1!
DIR(0	PAGE+1*
DR	SCHED+3*!
>> DTOUT	PAGE+1
>> DUOUT	PAGE+1
>> I	TOTAL+1, LINE, PROC+3, HDR+4
IOF	HDR+2
IOSL	TOTAL, MISS+2, CASE+1
IOST	PAGE, HDR+2
>> J	PROC+3*
>> K	PROC+2, PROC+3
>> SR(0	SCHED+1, DEM+1*
>> SRAGE	CASE+2, DEM+1*
>> SRCT	MISS+2*
>> SRDIV	UTIL+1*, UTIL+2
SRENC	SCHED+1~, SCHED+2*, SCHED+3, SCHED+4, SCHED+5
>> SRFLD	MISS+1, MISS+2
>> SRFLG	UTIL+6, UTIL+7, UTIL+8, CASE+3, HDR+3
>> SRFRTO	HDR+2
>> SRHALT	HDR+1
>> SRHDR	PAGE, HDR+4*
>> SRINOUT	UTIL+4*, UTIL+11
>> SRINST	HDR+2
>> SRNON	UTIL+5*, UTIL+6, UTIL+7, UTIL+8, UTIL+9, UTIL+10, CASE+3
>> SRPAGE	HDR+2, HDR+4*
>> SRPARAM	UTIL+3*, UTIL+4, UTIL+11
>> SRPRINT	HDR+2
SRPROC	PROC+1!
SRPROC(	PROC+2, PROC+3
SRPROC(1	CASE+3, PROC+1*
SRPROC(2	CASE+3
SRPROC(3	CASE+3
>> SRRPT	HDR+2
>> SRSCHED	SCHED+1, SCHED+5, CASE+3
>> SRSDATE	CASE+2, DEM+1*
>> SRSDT	SROPCE0B+7*, DEM+1
>> SRSEDT	SROPCE0B+7
>> SRSITE	UTIL+2
>> SRSNM	CASE+2, DEM+1, DEM+2
>> SRSOUT	SROPCE0B+7, SROPCE0B+8, TOTAL, MISS+1, MISS+2, LINE, CASE+1, PAGE+1, HDR+1
>> SRSPEC	UTIL+9
>> SRSPS	UTIL+1, UTIL+2, UTIL+3
>> SRSR	UTIL+3*
>> SRSS	UTIL+9*, UTIL+10
>> SRSSN	CASE+2, DEM+1*
>> SRSSNM	UTIL+10*, CASE+3
>> SRSTATUS	UTIL+11, UTIL+12, UTIL+13*, CASE+2
>> SRTITLE	HDR+2
>> SRTN	SROPCE0B+7*, UTIL+1, UTIL+4, UTIL+5, UTIL+6, UTIL+7, UTIL+9, UTIL+12, CASE+3, DEM+1 , PROC+1
SRVSIT	SCHED+1~*, SCHED+2
SRX	SCHED+1~
SRX(	MISS+1, MISS+2, SCHED+4*, SCHED+5
>> VA("PID"	DEM+1
>> VADM(1	DEM+1, DEM+2
>> VADM(3	DEM+1
>> X	UTIL+3, SCHED+5, PROC+1, PROC+2, PROC+3
>> X1	DEM+1*
>> X2	DEM+1*
>> Y	DEM+1, PROC+3
>> ZTQUEUED	HDR+1

Customize PDF page

Package: Surgery

Routine: SROPCE0B

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: