Routine: SRSCPT

Package	Total	Call Graph
Surgery	4	DATE^SROUTL ^SRSCPT1 ^SRSCPT2 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIC

Package	Total	Caller Graph
Surgery	1	SRSCPT

Entry Points

Name	Comments	DBIA/ICR reference
EN
END
HELP
MSP
DATE
ASK
SPEC

External References

Name	Field # of Occurrence
^%ZIS	DATE+2
^%ZISC	END+2
^%ZTLOAD	DATE+3
^DIC	SPEC+3, MSP+3
DATE^SROUTL	DATE
^SRSCPT1	EN+2
^SRSCPT2	EN+3
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Print list of Completed Cases Missing CPT Codes for",!!,"1. O.R. Surgical Procedures",!,"2. Non-O.R. Procedures",!,"3. Both O.R. Surgical Procedures and Non-O.R. Procedures (All Specialties)" Line Location: ASK+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !!,"Enter '1' or press <RET> to print the list for surgical procedures performed",!,"in the OR. Enter '2' to print the list for non-OR procedures. Enter '3' to" Line Location: HELP+0
Function Call: WRITE	Prompt: !,"print the list for both OR surgical procedures and non-OR procedures." Line Location: HELP+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: HELP+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: SPEC+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: SPEC+2
Function Call: WRITE	Prompt: !!,"Enter RETURN if you would like to list completed cases missing CPT codes for",!,"all Surgical Specialties, or 'NO' to select a specific specialty.",!!,"Press RETURN to continue " Line Location: SPEC+2
Function Call: WRITE	Prompt: ! Line Location: SPEC+3
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: MSP+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: MSP+2
Function Call: WRITE	Prompt: !!,"Enter RETURN if you would like to list completed cases missing CPT codes for",!,"all Specialties, or 'NO' to select a specific specialty.",!!,"Press RETURN to continue " Line Location: MSP+2
Function Call: WRITE	Prompt: ! Line Location: MSP+3
Routine Call	DIC Line Location: SPEC+3 MSP+3
Routine Call	%ZIS Line Location: DATE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN
^TMP("SR"	EN+1!, END!

Label References

Name	Line Occurrences
ASK	ASK+2
END	ASK+1, ASK+2, ASK+3, ASK+4, DATE, DATE+2, DATE+3, EN+2
HELP	ASK+2
MSP	ASK+4
SPEC	ASK+3, SPEC+2, MSP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DATE+2!*
%ZIS("A"	DATE+2*
DIC	SPEC+3!, MSP+3!
DIC("A"	SPEC+3, MSP+3
DIC("S"	SPEC+3*
DIC(0	SPEC+3, MSP+3
DTIME	ASK+1, END+1, HELP+2, SPEC, SPEC+2, MSP, MSP+2
>> EDATE	DATE, EN, EN+1
IO	EN
IO("Q"	DATE+2!, DATE+3!
IOF	ASK, END, END+2, SPEC, MSP
IOP	DATE+2!
IOST	END, END+1
POP	DATE+2!
>> SDATE	DATE, EN, EN+1
>> SRFLG	SRSCPT+2, ASK+3, ASK+4
SRFRTO	EN~*
>> SRINST	DATE+1*
>> SRSDT	EN+1*
>> SRSEDT	EN+1*
>> SRSITE("SITE"	DATE+1
>> SRSOUT	SRSCPT+2, ASK+2, ASK+3, ASK+4, DATE, DATE+2, DATE+3, END+1, HELP+2, SPEC* , SPEC+3, MSP, MSP+3*
>> SRSPEC	SRSCPT+2, EN+2, SPEC+3, MSP+3*
>> SRSPECN	SPEC+3, MSP+3
SRTN	END+2!
>> SRYN	SPEC, SPEC+1, SPEC+2, SPEC+3, MSP, MSP+1, MSP+2, MSP+3
>> X	ASK+1, ASK+2, ASK+3, END+1, HELP+2, SPEC+2, MSP+2
>> Y	EN*, SPEC+3, MSP+3
>> Y(0	SPEC+3, MSP+3
>> ZTDESC	DATE+3*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	DATE+3*
>> ZTSAVE("EDATE"	DATE+3*
>> ZTSAVE("SDATE"	DATE+3*
>> ZTSAVE("SRFLG"	DATE+3*
>> ZTSAVE("SRINST"	DATE+3*
>> ZTSAVE("SRSITE*"	DATE+3*
>> ZTSAVE("SRSPEC*"	DATE+3*
>> ZTSTOP	END

Customize PDF page

Package: Surgery

Routine: SRSCPT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: