Routine: SROALM

Package	Total	Call Graph
Surgery	5	CHK^SROAUTL CPTS^SROAUTL0 CHK^SROAUTL3 CHK^SROAUTLC $$MANDIV^SROUTL0
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package

Total

Call Graph

Surgery

CHK^SROAUTL CPTS^SROAUTL0 CHK^SROAUTL3 CHK^SROAUTLC $$MANDIV^SROUTL0

Registration

DEM^VADPT

VA Fileman

D^DIQ

Package	Total	Caller Graph
Surgery	1	SROALOG

Package

Total

Caller Graph

Surgery

SROALOG

Name	Comments	DBIA/ICR reference
CASE
HDR	; print heading
UTL	; set up TMP global
OTHER	; other operations
TOT
SRSD
GRAND
PRINT	; print assessments
PAGE
LOOP	; break procedures

Name	Field # of Occurrence
D^DIQ	PRINT+7
CHK^SROAUTL	CASE
CPTS^SROAUTL0	PRINT+10
CHK^SROAUTL3	CASE+1
CHK^SROAUTLC	CASE+2
$$MANDIV^SROUTL0	SROALM+5
DEM^VADPT	PRINT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?18,SROPS(I),! Line Location: PRINT+9
Function Call: WRITE	Prompt: ?18,"CPT Codes: " Line Location: PRINT+10
Function Call: WRITE	Prompt: !,?5,"Missing information:" Line Location: PRINT+12
Function Call: WRITE	Prompt: !,$J(CNT_". ",8),"The final coding for Procedure and Diagnosis is not complete." Line Location: PRINT+13
Function Call: WRITE	Prompt: !,$J(CNT_". ",8),$P(SRX(SRFLD),":") Line Location: PRINT+14
Function Call: WRITE	Prompt: ! Line Location: PRINT+15
Function Call: WRITE	Prompt: "-" Line Location: PRINT+15
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+1
Function Call: WRITE	Prompt: !!,"If you want to continue listing incomplete assessments, enter <RET>. Enter",!,"'^' to return to the menu." Line Location: PAGE+2
Function Call: WRITE	Prompt: @IOF,!,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J("PAGE "_SRPAGE,9) Line Location: HDR+1
Function Call: WRITE	Prompt: !,?(80-$L(SRINST)\2),SRINST Condition for execution: $E(IOST)="P" Line Location: HDR+1
Function Call: WRITE	Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO Line Location: HDR+1
Function Call: WRITE	Prompt: !!,"** "_SRSS Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"ASSESSMENT #",?18,"PATIENT",?53,"TYPE",?68,"STATUS",!,"OPERATION DATE",?18,"OPERATION(S)",! Line Location: HDR+3
Function Call: WRITE	Prompt: "=" Line Location: HDR+3
Function Call: WRITE	Prompt: !!,"TOTAL FOR "_SRSS_": ",TOT Line Location: TOT+0
Function Call: WRITE	Prompt: !!,"TOTAL: ",GRAND Line Location: GRAND+0
Function Call: WRITE	Prompt: !!,"TOTAL FOR ALL SPECIALTIES: ",GRAND Line Location: GRAND+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROALM+5, UTL+1, UTL+2, PRINT+3, PRINT+5, OTHER+1, OTHER+2
^SRF("AC"	SROALM+4
^SRO(136 - [#136]	CASE+4, PRINT+13
^SRO(137.45 - [#137.45]	SROALM+3, UTL+2
^TMP("SRA"	SROALM+2!, SROALM+6, SROALM+7, UTL+2, UTL+3, SRSD

Label References

Name	Line Occurrences
CASE	SROALM+7, SRSD
GRAND	SROALM+8, SROALM+9, SROALM+10, SROALM+11, SROALM+12
HDR	SROALM+9, SROALM+10, SROALM+11, PAGE
LOOP	PRINT+6
OTHER	PRINT+5
PAGE	PRINT+2, PRINT+8, PRINT+14, PAGE+2
PRINT	CASE+3, CASE+4
SRSD	SROALM+6
TOT	SROALM+6, GRAND+2
UTL	SROALM+5

Name	Field # of Occurrence
^(	SROALM+7, SRSD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	PRINT+12, PRINT+13, PRINT+14*
>> DFN	PRINT+3*
DTIME	PAGE+1
>> GRAND	SROALM+2, SROALM+8, SROALM+9, SROALM+10, SROALM+11, SROALM+12, CASE+3, GRAND, GRAND+1
I	PRINT+3~, PRINT+5, PRINT+9, PRINT+10~, PRINT+11*
IOF	HDR+1
IOSL	PRINT+2, PRINT+8, PRINT+14
IOST	PAGE, HDR+1, HDR+2
>> LINE	PRINT+15, HDR+3
>> LOOP	LOOP+1*
>> M	PRINT+6*, LOOP+1
MM	PRINT+6!, LOOP+1*
MMM	PRINT+6!, LOOP+1*
>> SR("RA"	SROALM+5*, UTL+2, UTL+3
>> SRA	SROALM+7, SRSD, CASE, CASE+1, CASE+2, PRINT+7
>> SRA(0	PRINT+3*
>> SRANM	PRINT+3, PRINT+4, PRINT+9
>> SRASP	SROALM+3, UTL+1
>> SRASSN	PRINT+3*
>> SRATYPE	CASE, CASE+1, CASE+2*, PRINT+9
SRCPTT	PRINT+1!*
>> SRDT	PRINT+7*, PRINT+9
>> SRED	SROALM+4
>> SRFLD	CASE+3, PRINT+14
>> SRFLG	SROALM+3, SROALM+8, SROALM+9, SROALM+10, UTL+1, GRAND+1, GRAND+2
>> SRFRTO	HDR+1
>> SRHDR	SROALM+2, PAGE, HDR+4
>> SRINST	HDR+1
>> SRINSTP	SROALM+5
SRL	PRINT+10~*
>> SRLONG	OTHER+1*, OTHER+2
>> SRNEW	SROALM+2, SROALM+7, SRSD, PRINT+2, HDR+4
>> SROPER	PRINT+5, PRINT+6, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	PRINT+6!
SROPS(	PRINT+9, LOOP+1*
SROPS(1	PRINT+6*
>> SROTHER	PRINT+5, OTHER+1, OTHER+2
>> SRPAGE	SROALM+2, HDR+1, HDR+4
>> SRPRINT	HDR+2
SRPROC	PRINT+10~
SRPROC(	PRINT+11
>> SRSD	SROALM+4, SROALM+7, UTL+2, UTL+3, SRSD*, PRINT+7
>> SRSOUT	SROALM+2, SROALM+4, SROALM+6, SROALM+7, SROALM+8, SRSD, PRINT+2, PRINT+8, PRINT+14, PRINT+15 , PAGE+1
>> SRSP	SROALM+6, SROALM+7, SROALM+8, SROALM+10, SROALM+11, SROALM+12, UTL+2, HDR+2, GRAND, GRAND+1 , GRAND+2
>> SRSPEC	SROALM+3*, SROALM+9, GRAND+2
>> SRSS	SROALM+6, SROALM+9, SROALM+10, SROALM+11, SROALM+12, UTL+2, SRSD, HDR+2, TOT, GRAND+2*
>> SRSTATUS	PRINT+7*, PRINT+9
>> SRTITLE	SROALM+2*, HDR+1
>> SRTN	SROALM+4, SROALM+5, SROALM+7, UTL+1, UTL+2, UTL+3, SRSD*, CASE+4, PRINT+3, PRINT+5 , PRINT+9, PRINT+13, OTHER+1, OTHER+2
>> SRX(	CASE+3, PRINT+14
>> TOT	SROALM+2, SROALM+6, SROALM+7, SRSD, CASE+3, TOT
>> VA("PID"	PRINT+3, PRINT+9
VADM	PRINT+3!
VADM(1	PRINT+3
>> X	PAGE+1*, PAGE+2
>> Y	PRINT+7*

Customize PDF page

Package: Surgery

Routine: SROALM

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: