Routine: SROQ1A

Package	Total	Call Graph
Surgery	5	IO^SROQ HDR^SROQ0 NDEX^SROQ0A (AUTO,CURRENT,VAR)^SROQT ^SRSKILL
VA Fileman	2	C^%DTC ^DIR
Kernel	1	(DELETEA,SETUP)^XQALERT
Registration	1	(DEM,IN5)^VADPT

Package	Total	Caller Graph
Surgery	3	SROQ1 SROQ2 SROQT

Name	Comments	DBIA/ICR reference
CASE	; examine each case on death patients performed within 30 days of death
WC
CC	; occurrence categories
LATER	; gather cases performed within 30 days of death on death patients
MORT	; look for operations in next quarter
ALERT	; send alert to SR-QUARTERLY mailgroup
CLEAN	; clean wounds
RC
ACTION	; alert action
BORD
CARD

Name	Field # of Occurrence
C^%DTC	MORT+1, MORT+2
^DIR	ACTION+4, ACTION+5
IO^SROQ	ACTION+6
HDR^SROQ0	CC+1, RC+7
NDEX^SROQ0A	CASE+6
AUTO^SROQT	ACTION+5
CURRENT^SROQT	ACTION+1
VAR^SROQT	ACTION+6
^SRSKILL	ACTION+4
DEM^VADPT	MORT+2
IN5^VADPT	CASE+3
DELETEA^XQALERT	ALERT+1
SETUP^XQALERT	ALERT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?21,"PERIOPERATIVE OCCURRENCE CATEGORIES",!,?21,"-----------------------------------",! Line Location: CC+2
Function Call: WRITE	Prompt: !,?2,"Wound Occurrences",?31,"Total",?42,"Urinary Occurrences",?71,"Total" Line Location: WC+0
Function Call: WRITE	Prompt: !,?2,"A. Superficial Incisional SSI",?31,$J(SRC(1),5),?42,"A. Renal Insufficiency",?71,$J(SRC(8),5) Line Location: WC+1
Function Call: WRITE	Prompt: !,?2,"B. Deep Incisional SSI",?31,$J(SRC(2),5),?42,"B. Acute Renal Failure",?71,$J(SRC(9),5) Line Location: WC+2
Function Call: WRITE	Prompt: !,?2,"C. Wound Disruption",?31,$J(SRC(22),5),?42,"C. Urinary Tract Infection",?71,$J(SRC(10),5) Line Location: WC+3
Function Call: WRITE	Prompt: !,?2,"D. Other",?31,$J(SRC(36),5),?42,"D. Other",?71,$J(SRC(31),5),! Line Location: WC+4
Function Call: WRITE	Prompt: !,?2,"Respiratory Occurrences",?31,"Total",?42,"CNS Occurrences",?71,"Total" Line Location: RC+0
Function Call: WRITE	Prompt: !,?2,"A. Pneumonia",?31,$J(SRC(4),5),?42,"A. CVA/Stroke",?71,$J((SRC(12)+SRC(28)),5) Line Location: RC+1
Function Call: WRITE	Prompt: !,?2,"B. Unplanned Intubation",?31,$J((SRC(7)+SRC(11)),5),?42,"B. Coma >24 Hours",?71,$J(SRC(13),5) Line Location: RC+2
Function Call: WRITE	Prompt: !,?2,"C. Pulmonary Embolism",?31,$J(SRC(5),5),?42,"C. Peripheral Nerve Injury",?71,$J(SRC(14),5) Line Location: RC+3
Function Call: WRITE	Prompt: !,?2,"D. On Ventilator >48 Hours",?31,$J(SRC(6),5),?42,"D. Other",?71,$J(SRC(30),5) Line Location: RC+4
Function Call: WRITE	Prompt: !,?2,"E. Tracheostomy",?31,$J(SRC(33),5),!,?2,"F. Repeat Vent w/in 30 Days",?31,$J(SRC(37),5) Line Location: RC+5
Function Call: WRITE	Prompt: !,?2,"G. Other",?31,$J(SRC(29),5) Line Location: RC+6
Function Call: WRITE	Prompt: !,?15,"PERIOPERATIVE OCCURRENCE CATEGORIES (Continued)",! Line Location: RC+7
Function Call: WRITE	Prompt: !,?42,"Other Occurrences",?71,"Total" Line Location: RC+8
Function Call: WRITE	Prompt: !,?2,"Cardiac Occurrences",?31,"Total",?42,"A. Organ/Space SSI",?71,$J(SRC(35),5) Line Location: CARD+0
Function Call: WRITE	Prompt: !,?2,"A. Cardiac Arrest Req. CPR",?31,$J(SRC(16),5),?42,"B. Bleeding/Transfusions",?71,$J(SRC(15),5) Line Location: CARD+1
Function Call: WRITE	Prompt: !,?2,"B. Myocardial Infarction",?31,$J(SRC(17),5),?42,"C. Graft/Prosthesis/Flap" Line Location: CARD+2
Function Call: WRITE	Prompt: !,?2,"C. Endocarditis",?31,$J(SRC(23),5),?62,"Failure",?71,$J(SRC(19),5) Line Location: CARD+3
Function Call: WRITE	Prompt: !,?2,"D. Low Cardiac Output >6 Hrs.",?31,$J(SRC(24),5),?42,"D. DVT/Thrombophlebitis",?71,$J(SRC(20),5) Line Location: CARD+4
Function Call: WRITE	Prompt: !,?2,"E. Mediastinitis",?31,$J(SRC(25),5),?42,"E. Systemic Sepsis",?71,$J(SRC(3),5) Line Location: CARD+5
Function Call: WRITE	Prompt: !,?2,"F. Repeat Card Surg Proc",?31,$J(SRC(27),5),?42,"F. Reoperation for Bleeding",?71,$J(SRC(26),5) Line Location: CARD+6
Function Call: WRITE	Prompt: !,?2,"G. New Mech Circulatory Sup",?31,$J(SRC(34),5),?42,"G. C. difficile Colitis",?71,$J(SRC(38),5) Line Location: CARD+7
Function Call: WRITE	Prompt: !,?2,"H. Other",?31,$J(SRC(32),5),?42,"H. Other",?71,$J(SRC(21),5) Line Location: CARD+8
Function Call: WRITE	Prompt: !!,?2,"Clean Wound Infection Rate: ",$J((SRIN/SRWC*100),5,1),"%" Line Location: CLEAN+1
Function Call: WRITE	Prompt: !,?14 Line Location: BORD+0
Function Call: WRITE	Prompt: "*" Line Location: BORD+0
Function Call: WRITE	Prompt: @IOF Line Location: ACTION+1
Function Call: WRITE	Prompt: !,?14,"",?64,"",!,?14,"* The Surgical Service Quarterly Report for ",!,?14," quarter #"_SRQTR_" of fiscal year "_(SRYR+1700)_" is now due. ",!,?14,"",?64,"*" Line Location: ACTION+1
Function Call: WRITE	Prompt: !!,"NOTE: The report will be transmitted automatically on "_$S(SRQTR=1:"February 14",SRQTR=2:"May 15",SRQTR=3:"August 14",1:"November 14")_" to the",!," national database if not manually transmitted before then." Line Location: ACTION+2
Routine Call	DIR Line Location: ACTION+4 ACTION+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(45.3 - [#45.3]	CASE+2
^SRF - [#130]	LATER+2, LATER+3, CASE+1, CASE+2, CASE+4
^SRF("ADT"	LATER+1
^SRO(137.45 - [#137.45]	CASE+1, CASE+2
^TMP("SRDTH"	MORT+2
^TMP("SREXP"	CASE+5*
^TMP("SRINOUT"	CASE+4*
^TMP("SRIOD"	CASE+5*
^TMP("SRSP"	CASE+4*
^TMP("SRTN"	LATER+1!, LATER+3*, LATER+4

Name	Line Occurrences
BORD	ACTION+1
CASE	LATER+4
LATER	MORT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	MORT+2*, LATER+1, CASE+4, CASE+5
DIR	ACTION+3!, ACTION+4!, ACTION+5!
DIR("?"	ACTION+3*
DIR("A"	ACTION+5*
DIR("B"	ACTION+5*
DIR(0	ACTION+4, ACTION+5
>> DTOUT	ACTION+4, ACTION+5
>> DUOUT	ACTION+4, ACTION+5
>> I	BORD*
IOF	ACTION+1
IOST	CC+1, RC+7
>> SR(0	CASE+1, CASE+2, CASE+3
>> SRC(1	WC+1
>> SRC(10	WC+3
>> SRC(11	RC+2
>> SRC(12	RC+1
>> SRC(13	RC+2
>> SRC(14	RC+3
>> SRC(15	CARD+1
>> SRC(16	CARD+1
>> SRC(17	CARD+2
>> SRC(19	CARD+3
>> SRC(2	WC+2
>> SRC(20	CARD+4
>> SRC(21	CARD+8
>> SRC(22	WC+3
>> SRC(23	CARD+3
>> SRC(24	CARD+4
>> SRC(25	CARD+5
>> SRC(26	CARD+6
>> SRC(27	CARD+6
>> SRC(28	RC+1
>> SRC(29	RC+6
>> SRC(3	CARD+5
>> SRC(30	RC+4
>> SRC(31	WC+4
>> SRC(32	CARD+8
>> SRC(33	RC+5
>> SRC(34	CARD+7
>> SRC(35	CARD
>> SRC(36	WC+4
>> SRC(37	RC+5
>> SRC(38	CARD+7
>> SRC(4	RC+1
>> SRC(5	RC+3
>> SRC(6	RC+4
>> SRC(7	RC+2
>> SRC(8	WC+1
>> SRC(9	WC+2
>> SRD	MORT+2*, LATER+1
>> SRD1	MORT+2*, LATER+1
>> SRDT	LATER+4*, CASE+3, CASE+4
>> SRED1	MORT+1*, LATER+1
>> SREND	MORT+1
>> SRFLAG	CASE+6*
>> SRFQ	ALERT+1, ALERT+2
>> SRIN	CLEAN+1
>> SRINV	LATER+1*
>> SRIOSTAT	CASE+3*, CASE+4, CASE+5
>> SRQTR	ACTION+1, ACTION+2, ALERT+2
>> SRREL	CASE+4*
>> SRSD1	MORT+1*, LATER+1
>> SRSOUT	CC+1, RC+7
>> SRSPEC(	CASE+2
>> SRSS	CASE+1, CASE+2, CASE+4, CASE+5
>> SRSTART	MORT+1
>> SRT	ACTION+6*
>> SRTN	LATER+1, LATER+2, LATER+3, LATER+4, CASE+1, CASE+2, CASE+4, CASE+5
>> SRWC	CLEAN+1*
>> SRYR	ACTION+1
>> VADM(6	MORT+2
VAIP	CASE+3!
VAIP("D"	CASE+3*
VAIP(13	CASE+3
>> X	MORT+1, MORT+2, CASE+2*
>> X1	MORT+1, MORT+2
>> X2	MORT+1, MORT+2
>> XQA("G.SR-QUARTERLY"	ALERT+2*
>> XQAID	ALERT+1, ALERT+2
>> XQAKILL	ALERT+1*
>> XQAMSG	ALERT+2*
>> XQAROU	ALERT+2*
>> Y	ACTION+4, ACTION+5, ACTION+6, CASE+2*

Customize PDF page

Package: Surgery

Routine: SROQ1A

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: