Routine: SROQN

Package	Total	Call Graph
Surgery	6	RS^SROQ0A ^SROSTOP (DATE,SPEC)^SROUTL ($$INST,$$MANDIV)^SROUTL0 $$SITE^SROVAR ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	NOW^%DTC $$GET1^DIQ ^DIR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROQ MISSING DATA

Entry Points

External References

Name	Field # of Occurrence
NOW^%DTC	EN+3
^%ZIS	IO+1
^%ZISC	END+2
^%ZTLOAD	IO+2
$$GET1^DIQ	EN+2
^DIR	PRESS
RS^SROQ0A	CASE+4
^SROSTOP	HDR+1
DATE^SROUTL	SEL+1
SPEC^SROUTL	SEL+1
$$INST^SROUTL0	SEL+2
$$MANDIV^SROUTL0	AC
$$SITE^SROVAR	EN+2
^SRSKILL	END+2
DEM^VADPT	PRINT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?18,"Report of Missing Quarterly Report Data",!! Line Location: SROQN+6
Function Call: WRITE	Prompt: !,"For surgical cases with an entry in the TIME PAT IN OR field and that are not",!,"aborted, this option generates a report of cases missing any of the following",!,"pieces of information used by the Quarterly Report:" Line Location: SROQN+7
Function Call: WRITE	Prompt: !!,?10,"In/Out-Patient Status",!,?10,"Major/Minor",!,?10,"Case Schedule Type",!,?10,"Attending Code",!,?10,"Time Pat Out OR",!,?10,"Wound Classification",!,?10,"ASA Class",!,?10,"CPT Code (Principal)",! Line Location: SROQN+8
Function Call: WRITE	Prompt: !!,"This report is designed to use a 132 column format.",! Line Location: IO+0
Function Call: WRITE	Prompt: !!,"No data for selected date range." Line Location: EN+5
Function Call: WRITE	Prompt: !!,"TOTAL CASES MISSING DATA: ",SRTOT Line Location: EN+7
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !,SRSDATE,?22,SRSNM,?54,$S(SRSPEC:SRDOC,1:SRSS),?97,SRMISS,!,SRTN,?22,SRSSN_" ("_SRAGE_")",?54,SRPROC(1),! Line Location: PRINT+7
Function Call: WRITE	Prompt: !! Line Location: PRESS+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(SRINST)\2),SRINST Condition for execution: $E(IOST)="P" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(SRRPT)\2),SRRPT,?(IOM-10),$J("PAGE "_SRPAGE,9),!,?(IOM-$L(SRFRTO)\2),SRFRTO Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(SRPRINT)\2),SRPRINT Condition for execution: $E(IOST)="P" Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(IOM-$L(X)\2),X Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"DATE OF OPERATION",?22,"PATIENT NAME",?54,$S(SRSPEC:"SURGEON",1:"SURGICAL SPECIALTY"),?97,"MISSING ITEMS",!,"CASE #",?22,"PATIENT ID (AGE)",?54,"PRINCIPAL PROCEDURE" Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Function Call: WRITE	Prompt: "=" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: CODES+1
Function Call: WRITE	Prompt: ! Line Location: CODES+2
Function Call: WRITE	Prompt: "-" Line Location: CODES+2
Function Call: WRITE	Prompt: !,"MISSING ITEMS CODES: A-IN/OUT-PATIENT STATUS, B-MAJOR/MINOR, C-CASE SCHEDULE TYPE, D-ATTENDING CODE," Line Location: CODES+3
Function Call: WRITE	Prompt: !,"E-TIME PAT OUT OR, F-WOUND CLASSIFICATION, G-ASA CLASS, H-CPT CODE (PRINCIPAL)" Line Location: CODES+4
Routine Call	DIR Line Location: PRESS
Routine Call	%ZIS Line Location: IO+1

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"	EN, EN+3, PRINT+1
^SRF - [#130]	AC, CASE+1, CASE+2, CASE+4, CASE+5, PRINT+2, PRINT+4
^SRF("AC"	AC
^SRO(136 - [#136]	CASE+5
^SRO(137.45 - [#137.45]	PRINT+1
^TMP("SR"	EN!, EN+5, EN+6, END+2!, CASE+7*
^VA(200 - [#200]	PRINT+2

Label References

Name	Line Occurrences
AC	EN+4
CASE	AC
CODES	EN+8, PAGE
END	SEL+1, SEL+2, IO+1, IO+2, EN+5, EN+7
HDR	EN+4, PAGE
PAGE	EN+7, PRINT+1
PRESS	END+1, PAGE+1
PRINT	EN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+3
%ZIS	IO+1!*
%ZIS("A"	IO+1*
%ZIS("B"	IO+1*
>> DFN	CASE+2, CASE+7, PRINT+1
DIR	PRESS!
DIR(0	PRESS*
>> DTOUT	PRESS
>> DUOUT	PRESS
>> EDATE	SEL+1, EN
>> ENDATE	EN*, EN+1
>> I	PRINT+6, HDR+5, CODES+1, CODES+2
IO	EN
IO("Q"	IO+1!, IO+2!
IOF	SROQN+6, END, END+2, HDR+2
IOM	HDR+2, HDR+3, HDR+5, CODES+2
IOP	IO+1!
IOSL	EN+7, PRINT+1, CODES+1
IOST	END, END+1, PAGE, HDR+2
>> J	PRINT+6*
>> K	PRINT+5, PRINT+6
POP	IO+1!
>> SDATE	SEL+1, EN
>> SR(0	CASE+2*, CASE+3, CASE+4
>> SRAGE	PRINT+3*, PRINT+7
>> SRASA	CASE+4*, CASE+6
>> SRATT	CASE+4*, CASE+6
>> SRCPT	CASE+5*, CASE+6
>> SRDOC	PRINT+2*, PRINT+7
>> SRED	EN*, AC
SRFRTO	EN+1*, END+2!, HDR+2
>> SRHALT	HDR+1
>> SRHDR	EN, PAGE, HDR+5
>> SRINST	SEL+2, EN+2, HDR+2
SRINSTP	SEL+2~*, EN+2, AC
SRIO	END+2!, CASE+3*, CASE+6
>> SRMISS	CASE+6, CASE+7, PRINT+3*, PRINT+7
>> SRMM	CASE+4*, CASE+6
>> SROUT	CASE+5*, CASE+6
>> SRPAGE	EN, HDR+2, HDR+5
>> SRPRINT	EN+3*, HDR+2
SRPROC	PRINT+4!
SRPROC(	PRINT+5, PRINT+6
SRPROC(1	PRINT+4*, PRINT+7
SRPROC(2	PRINT+8
SRRPT	EN+1*, END+2!, HDR+2
>> SRSD	EN, EN+6, AC*, CASE+7, PRINT+1, PRINT+3
>> SRSDATE	PRINT+1*, PRINT+7
>> SRSNM	PRINT+3*, PRINT+7
>> SRSOUT	SROQN+6, SEL+1, IO+1, IO+2, EN, EN+6, EN+7, END+1, AC, PRINT+1 , PRESS, PAGE+1, HDR+1
>> SRSPEC	SROQN+6*, CASE+2, PRINT+7, HDR+3, HDR+4
>> SRSPECN	HDR+3
>> SRSS	CASE+2, CASE+7, PRINT+1, PRINT+7
>> SRSSN	PRINT+3*, PRINT+7
SRTN	EN+6, END+2!, AC, CASE+1, CASE+2, CASE+4, CASE+5, CASE+7, PRINT+2, PRINT+4 , PRINT+7
SRTOT	EN, EN+6, EN+7, END+2!
>> SRTYPE	CASE+4*, CASE+6
>> SRWC	CASE+4*, CASE+6
>> SRZ	EN+6*, PRINT+1, PRINT+3
>> STARTDT	EN*, EN+1
>> VA("PID"	PRINT+3
>> VADM(1	PRINT+3
>> VADM(3	PRINT+3
>> X	CASE+6, CASE+7, PRINT+4, PRINT+5, PRINT+6, HDR+3
>> X1	PRINT+3*
>> X2	PRINT+3*
>> Y	EN, EN+3, CASE+7, PRINT+1, PRINT+6*
>> ZTDESC	IO+2*
>> ZTQUEUED	END, HDR+1
>> ZTREQ	END*
>> ZTRTN	IO+2*
>> ZTSAVE("EDATE"	IO+2*
>> ZTSAVE("SDATE"	IO+2*
>> ZTSAVE("SRINSTP"	IO+2*
>> ZTSAVE("SRSPEC*"	IO+2*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SROQN

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CASE	; examine case for missing items
AC
EN
END
HDR	; print heading
PRESS
CODES	; missing items code definition
IO
PRINT	; print case information
SEL	; select date range and specialty
PAGE