Routine: SROAWL1

Package	Total	Call Graph
Surgery	3	$$XL^SROAX $$MANDIV^SROUTL0 $$SITE^SROVAR
VA Fileman	2	$$GET1^DIQ ^DIR
MailMan	1	^XMD

Package	Total	Caller Graph
Surgery	3	SROALESS SROATMIT SROAWL

Entry Points

Name	Comments	DBIA/ICR reference
CASE	; examine case
END
MOS	; set up array for past 12 months
BEG
SITE
OPDATE	; get date of operation
PRESS
INC
TMIT	; transmit report to national database
OUT	; print report

External References

Name	Field # of Occurrence
$$GET1^DIQ	TMIT+4, SITE
^DIR	PRESS
$$XL^SROAX	CASE+4
$$MANDIV^SROUTL0	BEG+8, BEG+9
$$SITE^SROVAR	TMIT+2
^XMD	TMIT+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: OUT+1
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST,!,?(80-$L(SRTITLE)\2),SRTITLE,!,?(80-$L(SRM)\2),SRM,!,?15 Line Location: OUT+1
Function Call: WRITE	Prompt: "-" Line Location: OUT+1
Function Call: WRITE	Prompt: !,?20,"TOTAL CASES PERFORMED",?54,"=",$J(SRTOTAL(1),6),!,?24,"TOTAL ELIGIBLE CASES",?54,"=",$J(SRTOTAL(10),6) Line Location: OUT+2
Function Call: WRITE	Prompt: !,?20,"CASES MEETING EXCLUSION CRITERIA",?54,"=",$J(SRTOTAL(2),6) Line Location: OUT+4
Function Call: WRITE	Prompt: !,?24,"NON-SURGEON CASE",?54,"=",$J(SREXCL(0),6) Line Location: OUT+5
Function Call: WRITE	Prompt: !,?24,"EXCEEDS MAX. ASSESSMENTS",?54,"=",$J(SREXCL(2),6),!,?24,"EXCEEDS MAXIMUM TURPS",?54,"=",$J(SREXCL(3),6) Line Location: OUT+6
Function Call: WRITE	Prompt: !,?24,"STUDY CRITERIA",?54,"=",$J(SREXCL(4),6),!,?24,"SCNR WAS ON A/L",?54,"=",$J(SREXCL(6),6) Line Location: OUT+7
Function Call: WRITE	Prompt: !,?24,"CONCURRENT CASE",?54,"=",$J(SREXCL(8),6),!,?24,"EXCEEDS MAXIMUM HERNIAS",?54,"=",$J(SREXCL(9),6) Line Location: OUT+8
Function Call: WRITE	Prompt: !,?20,"ASSESSED CASES",?54,"=",$J(SRTOTAL(3),6) Line Location: OUT+9
Function Call: WRITE	Prompt: !,?20,"NOT LOGGED ELIGIBLE CASES",?54,"=",$J(SRTOTAL(11),6) Line Location: OUT+11
Function Call: WRITE	Prompt: !,?20,"CARDIAC CASES",?54,"=",$J(SRTOTAL(5),6),!,?20,"NON-CARDIAC CASES",?54,"=",$J(SRTOTAL(6),6) Line Location: OUT+12
Function Call: WRITE	Prompt: !,?20,"ASSESSED CASES PER DAY",?54,"=",$J(SRTOTAL(7),9,2) Condition for execution: SRSEL=1 Line Location: OUT+13
Function Call: WRITE	Prompt: !,?15 Line Location: OUT+13
Function Call: WRITE	Prompt: "-" Line Location: OUT+13
Function Call: WRITE	Prompt: @IOF Line Location: OUT+14
Function Call: WRITE	Prompt: !,?19,Y Line Location: INC+2
Routine Call	DIR Line Location: PRESS

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG+5, BEG+7, INC+2
^SRF - [#130]	BEG+8, BEG+9, CASE+1, CASE+3, CASE+5, OPDATE+1, OPDATE+3
^SRF("AC"	BEG+8
^SRF("ARS"	BEG+9, OPDATE+1!, OPDATE+2!
^SRO(133 - [#133]	SROAWL1+17
^TMP("SRM"	END!, OPDATE+3, INC+1, INC+3, MOS+3!
^XMB("NETNAME"	TMIT+1

Label References

Name	Line Occurrences
BEG	END
CASE	BEG+8
END	BEG+10
INC	BEG+10
MOS	BEG+5
OPDATE	BEG+9
OUT	BEG+10, BEG+11
PRESS	OUT+14
SITE	END
TMIT	BEG+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	PRESS!
DIR(0	PRESS*
DT	TMIT+2
>> I	BEG+2, BEG+3, OUT+1, OUT+13, TMIT+2, TMIT+3, MOS+3*
IO	SROAWL1+14
IOF	OUT+1, OUT+14
IOST	OUT+14, PRESS
>> ISC	TMIT+1*, TMIT+8, TMIT+9
>> J	MOS+2, MOS+3
>> K	BEG+9*, OPDATE+1, OPDATE+2, OPDATE+3
>> SRA	CASE+5, CASE+7, CASE+8, OPDATE+1, OPDATE+2
>> SRASS	CASE+7*, CASE+8, CASE+9, CASE+10
>> SRC	INC+3*, INC+4
>> SRCNT	SROAWL1+16, SROAWL1+17, SROAWL1+18
>> SRCT	INC, INC+3, INC+5
>> SRD	TMIT+1*
>> SRDFN	BEG+9*, OPDATE+1, OPDATE+2
SRDIV	SROAWL1+15~, END, TMIT+2, TMIT+4, SITE
SRDIV(	SROAWL1+17*, END, SITE
>> SRDT	BEG, BEG+5, BEG+7, TMIT+2, MOS+1
>> SRED	BEG, BEG+1, BEG+8
>> SREDT	BEG+1, BEG+7
SRELIG	CASE+2~, CASE+4, CASE+6
SREXCL	BEG+3~
SREXCL(	BEG+3, CASE+8, TMIT+3
SREXCL(0	OUT+5, TMIT+5
SREXCL(2	OUT+6
SREXCL(3	OUT+6
SREXCL(4	OUT+7
SREXCL(6	OUT+7
SREXCL(8	OUT+8
SREXCL(9	OUT+8
>> SRINST	OUT+1, TMIT+4, SITE*
SRINSTP	BEG+4, BEG+8, BEG+9, END!, TMIT+4, SITE
>> SRM	BEG+5, BEG+7, OUT+1, TMIT+7
>> SRMAJ	CASE+3*, CASE+5
SRMONTH	OPDATE+3, INC+1, INC+2, INC+3, MOS+1!, MOS+2
SRMONTH(	MOS+2*, MOS+3
SRMSG	TMIT+2!
SRMSG(1	TMIT+2, TMIT+3, TMIT+4*
SRMSG(2	TMIT+5*
SRMSG(3	TMIT+6*
SRMULT	SROAWL1+15~, SROAWL1+18, END
>> SRN	INC+3*, INC+4
>> SRNOACK	TMIT+6
>> SRP	SROAWL1+14, BEG+10, END*, INC, INC+2, INC+4, INC+5
>> SRSDATE	BEG, BEG+8
>> SRSEL	BEG, BEG+1, BEG+5, BEG+6, BEG+10, BEG+11, OPDATE+3, OUT+13, OUT+14
>> SRSOUT	SROAWL1+15, BEG+10, OUT+14, PRESS
>> SRSST	INC+1, INC+3, TMIT+5
>> SRSTATN	TMIT+2*, TMIT+5, TMIT+6
>> SRT	SROAWL1+16, BEG+10, END
>> SRT1	INC, INC+3, INC+5
>> SRTC	INC, INC+3, INC+5
>> SRTITLE	BEG+5, BEG+6, OUT+1
>> SRTN	BEG+8, BEG+9, CASE+1, CASE+3, CASE+4, CASE+5, OPDATE+1, OPDATE+2, OPDATE+3
>> SRTO	INC+3*, INC+4
SRTOTAL	BEG+2!, END!
SRTOTAL(	BEG+2*, TMIT+2
SRTOTAL(1	CASE+3*, OUT+2
SRTOTAL(10	CASE+4*, OUT+2, TMIT+6
SRTOTAL(11	CASE+6*, OUT+11, TMIT+6
SRTOTAL(2	CASE+8*, OUT+4
SRTOTAL(3	BEG+10, CASE+9*, OUT+9
SRTOTAL(4	CASE+5*
SRTOTAL(5	CASE+5*, OUT+12
SRTOTAL(6	CASE+10*, OUT+12
SRTOTAL(7	BEG+10*, OUT+13
SRTOTAL(8	CASE+3*
SRTOTAL(9	CASE+3*
>> SRTYPE	CASE+5, CASE+6, CASE+10, OPDATE+2
>> SRYR	MOS+1, MOS+2
>> X	SROAWL1+16, SROAWL1+17, BEG, BEG+1, CASE+8*
XMDUZ	TMIT+7*, TMIT+10!
XMSUB	TMIT+7*, TMIT+10!
XMTEXT	TMIT+10*!
XMY	TMIT+10!
XMY("G.RISK A	SSESSMENT" , TMIT+8*
XMY("G.SRCOSERV@FO-HINES.MED.VA.GOV"	TMIT+9*
XMY("S.SRAWSERV@FO-HINES.MED.VA.GOV"	TMIT+9*
>> Y	BEG, BEG+5, BEG+7, INC+2, PRESS

Customize PDF page

Package: Surgery

Routine: SROAWL1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: