Routine: SROALLS

Package	Total	Call Graph
Surgery	4	^SROALLSP CPTS^SROAUTL0 TECH^SROPRIN $$MANDIV^SROUTL0
Registration	1	DEM^VADPT
VA FileMan	1	(D,Y)^DIQ

Entry Points

Name	Comments	DBIA/ICR reference
START
UTL	; write to ^TMP("SRA,$J)
SET	; set variables
PRINT	;
CASE	; print a case
SS	; print surgical specialty
PAGE
HDR	; print heading
OTHER	; other operations
LOOP	; break procedures
SSCT	; write specialty count

External References

Name	Field # of Occurrence
D^DIQ	SET+13
Y^DIQ	SET+3, SET+11
^SROALLSP	SROALLS+2
CPTS^SROAUTL0	CASE+8
TECH^SROPRIN	SET+10
$$MANDIV^SROUTL0	START+1
DEM^VADPT	SET+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"TOTAL MAJOR CASES FOR ALL SPECIALTIES: ",SRTC Line Location: PRINT+4
Function Call: WRITE	Prompt: !,SRTN,?20,SRANM_" "_VA("PID"),?55,SRTECH Line Location: CASE+3
Function Call: WRITE	Prompt: !,SRDT,?20,SROPS(1) Line Location: CASE+4
Function Call: WRITE	Prompt: ?55,SRDOC Line Location: CASE+4
Function Call: WRITE	Prompt: ?55,STATUS Line Location: CASE+5
Function Call: WRITE	Prompt: ! Line Location: CASE+6
Function Call: WRITE	Prompt: ?20,SROPS(2) Condition for execution: $D(SROPS(2)) Line Location: CASE+6
Function Call: WRITE	Prompt: ?55,SREXCL Line Location: CASE+6
Function Call: WRITE	Prompt: ?55,SREXCL Line Location: CASE+6
Function Call: WRITE	Prompt: ?55,SREXCL Line Location: CASE+6
Function Call: WRITE	Prompt: !,?20,SROPS(2) Line Location: CASE+7
Function Call: WRITE	Prompt: !,?20,SROPS(3) Line Location: CASE+7
Function Call: WRITE	Prompt: !,?20,SROPS(3) Line Location: CASE+7
Function Call: WRITE	Prompt: !,?20,"CPT Codes: " Line Location: CASE+8
Function Call: WRITE	Prompt: ! Line Location: CASE+10
Function Call: WRITE	Prompt: "-" Line Location: CASE+10
Function Call: WRITE	Prompt: !," SURGICAL SPECIALTY: ",SRSS," ",! Line Location: SS+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAGE+0
Function Call: WRITE	Prompt: !!,"If you want to continue listing assessments, enter <RET>. Enter '^' to",!,"return to the menu." Line Location: PAGE+1
Function Call: WRITE	Prompt: @IOF,!,?(80-$L(SRHD)\2),SRHD,!,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"CASE #",?20,"PATIENT",?55,"ANESTHESIA TECHNIQUE" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"OPERATION DATE",?20,"OPERATIVE PROCEDURE(S)" Line Location: HDR+4
Function Call: WRITE	Prompt: ?55,"ASSESSMENT STATUS" Line Location: HDR+5
Function Call: WRITE	Prompt: ?55,"SURGEON" Line Location: HDR+6
Function Call: WRITE	Prompt: !,?55,"EXCLUSION CRITERIA" Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: HDR+8
Function Call: WRITE	Prompt: "=" Line Location: HDR+8
Function Call: WRITE	Prompt: ! Line Location: HDR+9
Function Call: WRITE	Prompt: !,"TOTAL ",SRSS,": ",SRC,! Line Location: SSCT+2
Function Call: WRITE	Prompt: "-" Line Location: SSCT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SET+3, SET+11
^SRF - [#130]	START+1, UTL+1, UTL+2, UTL+3, UTL+4, UTL+5, UTL+6, UTL+7, SET+2, SET+4 , SET+6, SET+7, SET+11, OTHER+1, OTHER+2
^SRF("AC"	START+1
^SRO(137.45 - [#137.45]	UTL+7, SET+9
^TMP("SRA"	START!, UTL+8*, PRINT+2

Label References

Name	Line Occurrences
CASE	PRINT+2
HDR	PRINT+1
LOOP	SET+8
OTHER	SET+6
PAGE	PRINT+3, CASE+2, SS+1, PAGE+1, SSCT+1
PRINT	START+2
SET	PRINT+2
SS	PRINT+2
SSCT	PRINT+2
UTL	START+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	SET+3, SET+11
>> CAN	UTL+3, UTL+4
>> DFN	SET+4*
DTIME	PAGE
I	SET+4~, SET+6, CASE+8~, CASE+9
IO	PRINT+1
IOF	HDR+2
IOSL	PRINT+3, CASE+2, SS+1, SSCT+1
IOST	SROALLS+2
>> L	HDR+8, SSCT+2
>> LINE	CASE+10*
>> LOOP	LOOP+1*
>> M	SET+8*, LOOP+1
MM	SET+8!, LOOP+1*
MMM	SET+8!, LOOP+1*
>> OPER	OTHER+1*
>> SRA("RA"	SET+2*, SET+3
>> SRA(0	UTL+1, SET+4, SET+9, SET+13
>> SRANM	SET+4, SET+5, CASE+3
>> SRASP	UTL+6
>> SRASSN	SET+4*
>> SRC	PRINT+2, CASE+1, SSCT+2
>> SRDOC	SET+11, SET+12, CASE+4
>> SRDT	SET+13*, CASE+4
>> SRED	START+1
>> SREXCL	SET+1, SET+3, CASE+6, CASE+7
>> SRFLG	UTL+6, PRINT+3
>> SRFRTO	HDR+2
>> SRHD	HDR+1*, HDR+2
>> SRINSTP	START+1
SRL	CASE+8~*
>> SRLONG	OTHER+1*, OTHER+2
>> SRMNA	UTL+2, UTL+5, SET+1, SET+7, CASE+4, CASE+5, CASE+6, HDR+1, HDR+5, HDR+7
>> SROPER	SET+6, SET+7, SET+8, OTHER+1, OTHER+3, LOOP+1*
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	SET+8!
SROPS(	LOOP+1*
SROPS(1	SET+8*, CASE+4
SROPS(2	CASE+6, CASE+7
SROPS(3	CASE+6, CASE+7
SROPS(4	CASE+6, CASE+7
>> SROTHER	SET+6*, OTHER+1, OTHER+2
SRPROC	CASE+8~
SRPROC(	CASE+9
>> SRSD	START+1*
>> SRSOUT	START, START+1, PRINT+2, PRINT+3, CASE+2, SS+1, PAGE, SSCT+1
>> SRSS	UTL+7, UTL+8, SET+9, PRINT+1, PRINT+2, SS+2, SSCT+2
>> SRTC	PRINT+1, PRINT+4, CASE+1
>> SRTECH	CASE+3
>> SRTN	START+1, UTL+1, UTL+2, UTL+3, UTL+4, UTL+5, UTL+6, UTL+7, UTL+8, SET+2 , SET+4, SET+6, SET+7, SET+11, PRINT+2, CASE+3, OTHER+1, OTHER+2
>> STATUS	SET+2*, CASE+5
>> VA("PID"	SET+4, CASE+3
VADM	SET+4!
VADM(1	SET+4
>> X	SET+2, SET+7, PAGE*, PAGE+1
>> Y	SET+3, SET+11, SET+12, SET+13*
>> Z	SET+11*

Customize PDF page

Package: Surgery

Routine: SROALLS

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: