Routine: SRONASS

Package	Total	Call Graph
Surgery	6	^SROAEX ^SROERR0 (EXIT,SRA)^SROES ^SROPSEL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
VA Fileman	4	^DIE EN1^DIK Y^DIQ ^DIR

Package

Total

Call Graph

Surgery

^SROAEX ^SROERR0 (EXIT,SRA)^SROES ^SROPSEL ($$LOCK,UNLOCK)^SROUTL ^SRSKILL

VA Fileman

^DIE EN1^DIK Y^DIQ ^DIR

Package	Total	Caller Graph
Surgery	3	SR NO ASSESSMENT REASON SROAEX SROANEW

Package

Total

Caller Graph

Surgery

SR NO ASSESSMENT REASON SROAEX SROANEW

Name	Comments	DBIA/ICR reference
END1
ASS	; assessment already exists
SET	; expand reason for no assessment code
END
OTHER	; other operations
DRDEL
ASK
LOOP	; break procedure
DELETE	; delete no assessment reason

Name	Field # of Occurrence
^DIE	SRONASS+10, DRDEL
EN1^DIK	END1
Y^DIQ	SET+1
^DIR	SRONASS+8
^SROAEX	SRONASS+11
^SROERR0	SRONASS+11
EXIT^SROES	END1+1
SRA^SROES	SRONASS+6
^SROPSEL	SRONASS+2
$$LOCK^SROUTL	SRONASS+5
UNLOCK^SROUTL	END
^SRSKILL	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: !!,"According to your records, an assessment should be created for this surgical",!,"case." Line Location: ASS+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"If this case will not be used for the risk assessment study, Enter 'YES' to ",!,"change the status. You will then be prompted for the reason that no assessment",!,"was done. Enter 'NO' to leave this case unchanged." Line Location: ASK+2
Function Call: WRITE	Prompt: !!,"No action taken.",!!,"Press RETURN to continue " Line Location: ASK+5
Function Call: WRITE	Prompt: !!,"If you delete the reason why no assessment was created for this case, the",!,"computer will automatically update your records to make this a non-assessed",!,"case." Line Location: DELETE+1
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: DELETE+2
Function Call: WRITE	Prompt: !!,"By entering an '@', you have told the computer that you want to remove the ",!,"reason why no assessment was created for this case. If this reason should be",!,"deleted, enter 'YES'." Line Location: DELETE+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: DELETE+5
Function Call: WRITE	Prompt: !!,"No action taken.",!!,"Press RETURN to continue " Line Location: DELETE+5
Function Call: WRITE	Prompt: !!,"Updating to non-assessed status..." Line Location: DELETE+6
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: DELETE+6
Routine Call	DIE Line Location: SRONASS+10 DRDEL
Routine Call	DIR Line Location: SRONASS+8

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

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SET+1
^SRF - [#130]	SRONASS+4, SRONASS+7, OTHER+1, OTHER+2

Name	Line Occurrences
@(	SRONASS+3
ASK	ASK+3
ASS	SRONASS+4
DELETE	SRONASS+9, DELETE+4
DRDEL	DELETE+6
END	SRONASS+2, SRONASS+3, SRONASS+4, SRONASS+5, SRONASS+8
END1	SRONASS+9
SET	SRONASS+7

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	SET+1*
DA	SRONASS+10!, END1!, DRDEL!*
>> DFN	SRONASS+2
DIE	SRONASS+10!, DRDEL!
DIK	END1!*
DIK(1	END1*
DIR	SRONASS+7!, SRONASS+8!
DIR("A"	SRONASS+8*
DIR("B"	SRONASS+7*
DIR(0	SRONASS+8*
DR	SRONASS+10!, DRDEL!
DTIME	ASK, ASK+5, DELETE+2, DELETE+5, DELETE+6
>> DTOUT	SRONASS+8
>> DUOUT	SRONASS+8
IOF	END+1
>> LOOP	LOOP+1*
>> M	LOOP+1
>> MM	LOOP+1*
>> MMM	LOOP+1*
>> OK	SRONASS+4, ASS+1, ASK, ASK+4*
SRLCK	SRONASS+5~*, END
>> SRLONG	OTHER+1*, OTHER+2
>> SROERR	SRONASS+11*
>> SROPER	LOOP+1, OTHER+1, OTHER+3
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SROPS(	LOOP+1*
>> SROTHER	OTHER+1*, OTHER+2
SRSEL	SRONASS+2~, SRONASS+3
>> SRSOUT	SRONASS+2, SRONASS+3, SRONASS+8, DELETE+2, DELETE+5*
SRTN	SRONASS+2!, SRONASS+3, SRONASS+4, SRONASS+5, SRONASS+7, SRONASS+10, SRONASS+11, END1, END, END+1! , OTHER+1, OTHER+2, DRDEL
>> SRYN	ASK, ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, DELETE+2, DELETE+3, DELETE+4, DELETE+5
>> X	SRONASS+4, SRONASS+7, SRONASS+8, SRONASS+9, SRONASS+10, SET+1, ASK+5, DELETE+5, DELETE+6
>> Y	SRONASS+8, SET+1*

Customize PDF page

Package: Surgery

Routine: SRONASS

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: