Routine: SROALMN

Package	Total	Call Graph
Surgery	4	CPTS^SROAUTL0 ^SROAUTL2 TECH^SROPRIN $$MANDIV^SROUTL0
VA Fileman	2	D^DIQ EN^DIQ1
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	1	SROALOG

Entry Points

Name	Comments	DBIA/ICR reference
CASE
HDR	; print heading
UTL	; set up TMP global
LNR	; check for missing 1-liner information
OTHER	; other operations
TOT
SRSD
GRAND
PRINT	; print assessments
PAGE
LOOP	; break procedures

External References

Name	Field # of Occurrence
D^DIQ	PRINT+7
EN^DIQ1	LNR+4
CPTS^SROAUTL0	PRINT+10
^SROAUTL2	LNR+4
TECH^SROPRIN	LNR+5
$$MANDIV^SROUTL0	SROALMN+4
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),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 the listing, press the 'Enter' key.",!,"Type '^' 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: !!,"CASE #",?18,"PATIENT",?53,"TYPE",?67,"STATUS",!,"OP 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

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(	SROALMN+6, SRSD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	PRINT+12, PRINT+13, PRINT+14*
DA	LNR+1!*, LNR+4!
>> DFN	PRINT+3*
DIC	LNR+1!*, LNR+4!
DIQ	LNR+1!*, LNR+4!
DIQ(0	LNR+1*
DR	LNR+1!, LNR+2, LNR+3, LNR+4!
DTIME	PAGE+1
>> GRAND	SROALMN+2, SROALMN+7, SROALMN+8, SROALMN+9, SROALMN+10, SROALMN+11, CASE+2, 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*
>> SRA	SROALMN+6, UTL+3, UTL+5, UTL+6, SRSD*, CASE, CASE+1, PRINT+7
>> SRA(0	PRINT+3*
>> SRANM	PRINT+3, PRINT+4, PRINT+9
>> SRASP	SROALMN+3, UTL+4
>> SRASSN	PRINT+3*
>> SRATYPE	CASE, CASE+1, LNR+2, LNR+3, PRINT+9
SRCPTT	PRINT+1!*
>> SRDT	PRINT+7*, PRINT+9
>> SRED	SROALMN+4
>> SRFLD	CASE+2, PRINT+14
>> SRFLG	SROALMN+3, SROALMN+7, SROALMN+8, SROALMN+9, UTL+4, GRAND+1, GRAND+2
>> SRFRTO	HDR+1
>> SRHDR	SROALMN+2, PAGE, HDR+4
>> SRINST	HDR+1
>> SRINSTP	SROALMN+4
SRL	PRINT+10~*
>> SRLONG	OTHER+1*, OTHER+2
>> SRNEW	SROALMN+2, SROALMN+6, 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	SROALMN+2, HDR+1, HDR+4
>> SRPRINT	HDR+2
SRPROC	PRINT+10~
SRPROC(	PRINT+11
>> SRSD	SROALMN+4, SROALMN+6, UTL+5, UTL+6, SRSD*, PRINT+7
>> SRSOUT	SROALMN+2, SROALMN+4, SROALMN+5, SROALMN+6, SROALMN+7, SRSD, PRINT+2, PRINT+8, PRINT+14, PRINT+15 , PAGE+1
>> SRSP	SROALMN+5, SROALMN+6, SROALMN+7, SROALMN+9, SROALMN+10, SROALMN+11, UTL+5, HDR+2, GRAND, GRAND+1 , GRAND+2
>> SRSPEC	SROALMN+3*, SROALMN+8, GRAND+2
>> SRSS	SROALMN+5, SROALMN+8, SROALMN+9, SROALMN+10, SROALMN+11, UTL+5, SRSD, HDR+2, TOT, GRAND+2*
>> SRSTATUS	PRINT+7*, PRINT+9
>> SRTECH	LNR+5
>> SRTITLE	SROALMN+2*, HDR+1
>> SRTN	SROALMN+4, SROALMN+6, UTL+1, UTL+2, UTL+3, UTL+4, UTL+5, UTL+6, SRSD*, CASE+3 , LNR+1, PRINT+3, PRINT+5, PRINT+9, PRINT+13, OTHER+1, OTHER+2
SRX	LNR+1!
SRX(	CASE+2, PRINT+14
SRX("ANESTHES	IA TECHNIQUE" , LNR+5*
SRY	LNR+1!, LNR+4!
SRZ	LNR+4!
>> TOT	SROALMN+2, SROALMN+5, SROALMN+6, SRSD, CASE+2, TOT
>> VA("PID"	PRINT+3, PRINT+9
VADM	PRINT+3!
VADM(1	PRINT+3
>> X	PRINT+7, PAGE+1, PAGE+2
>> Y	PRINT+7*

Customize PDF page

Package: Surgery

Routine: SROALMN

Information

Source Information

Call Graph

Call Graph Total: 7

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

Naked Globals

Local Variables

Legend: