Routine: SROASWP3

Package	Total	Call Graph
VA Fileman	2	C^%DTC ^DIK
Registration	1	DEM^VADPT
Surgery	1	^SROP1

Package	Total	Caller Graph
Surgery	1	SROASWP2

Entry Points

Name	Comments	DBIA/ICR reference
CASE
LIST	; list cases
OTHER	; other operations
LOOP	; break procedures
ONLYONE	; match if only one case
SEL
CHECK	; check for dates within 60 days of procedure
MATCH
DELETE	; delete assessment

External References

Name	Field # of Occurrence
C^%DTC	SROASWP3+2
^DIK	DELETE+5
^SROP1	CASE+2
DEM^VADPT	SROASWP3+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"PATIENT: "_SRNAME,?50,"DATE OF OPERATION: "_$E(SDATE,4,5)_"/"_$E(SDATE,6,7)_"/"_$E(SDATE,2,3),!,"ASSESSMENT NUMBER: "_SRAN,!,"PROCEDURE: "_SROPS(1) Line Location: SROASWP3+5
Function Call: WRITE	Prompt: !,?12,SROPS(2) Line Location: SROASWP3+5
Function Call: WRITE	Prompt: !,?12,SROPS(2) Line Location: SROASWP3+5
Function Call: WRITE	Prompt: ! Line Location: SROASWP3+6
Function Call: WRITE	Prompt: "-" Line Location: SROASWP3+6
Function Call: WRITE	Prompt: !!,"There were no Surgery cases for "_SRNAME_" within the 60 days before",!,"or after the date of operation entered in this assessment." Line Location: SROASWP3+8
Function Call: WRITE	Prompt: !! Line Location: SROASWP3+10
Function Call: WRITE	Prompt: "-" Line Location: SROASWP3+10
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+0
Function Call: WRITE	Prompt: !!,"Enter the number that corresponds to the Surgery case that this assessment ",!,"matches. If the assessment does not relate to any of the cases listed above,",!,"enter RETURN at the prompt." Line Location: SEL+2
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: MATCH+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to convert the assessemnt into the Surgery file, or 'NO' to make",!,"another selection." Line Location: MATCH+1
Function Call: WRITE	Prompt: !!,"Converting Risk Assessment Information..." Line Location: MATCH+2
Function Call: WRITE	Prompt: !,CNT_". " Line Location: LIST+7
Function Call: WRITE	Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3) Line Location: CASE+0
Function Call: WRITE	Prompt: ?14,SROPS(1) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+3
Function Call: WRITE	Prompt: !,?14,SROPS(4) Condition for execution: $D(SROPS(4)) Line Location: CASE+3
Function Call: WRITE	Prompt: ! Line Location: CASE+4
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ONLYONE+1
Function Call: WRITE	Prompt: !!,"Enter 'YES' to move the Risk Assessment information into this surgical case,",!,"or 'NO' if the information does not relate to this surgical case." Line Location: ONLYONE+2
Function Call: WRITE	Prompt: !!,"Converting Risk Assessment Information..." Line Location: ONLYONE+3
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: DELETE+1
Function Call: WRITE	Prompt: !!,"Enter 'YES' to delete this assessment from the SURGERY RISK ASSESSMENT",!,"file (139), or 'NO' to continue matching other assessments." Line Location: DELETE+3
Function Call: WRITE	Prompt: !!,"Deleting assessment from SURGERY RISK ASSESSMENT file (139)..." Line Location: DELETE+5
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: DELETE+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRA(	SROASWP3+2, SROASWP3+4
^SRF - [#130]	CHECK+1, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, CASE+1, OTHER+1, OTHER+2
^SRF("B"	SROASWP3+7

Label References

Name	Line Occurrences
CHECK	SROASWP3+7
DELETE	SROASWP3+8, SEL+1, DELETE+3
LIST	SROASWP3+7
LOOP	SROASWP3+4, CASE+2
MATCH	MATCH+1
ONLYONE	SROASWP3+9, ONLYONE+2
OTHER	CASE+1
SEL	SEL+2

Naked Globals

Name	Field # of Occurrence
^(	LIST+2
^(30	LIST+3
^(31	LIST+4
^(37	LIST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CASE	SROASWP3+7, CHECK+1, CHECK+4
>> CNT	SROASWP3+7, LIST+6, LIST+7, CASE+4
DA	DELETE+5!*
>> DFN	SROASWP3+2*, SROASWP3+7
DIK	DELETE+5!*
DTIME	SEL, MATCH, ONLYONE+1, DELETE+1, DELETE+6
>> I	CASE+1*
IOF	SROASWP3+5
>> LINE	SROASWP3+6, SROASWP3+10
>> LOOP	LOOP+1*
M	SROASWP3+4!, CASE+2, LOOP+1
MM	SROASWP3+4!, CASE+2!, LOOP+1*
MMM	SROASWP3+4!, CASE+2!, LOOP+1*
>> OK	MATCH+2, ONLYONE+3
>> SDATE	SROASWP3+2*, SROASWP3+5
>> SRA(0	SROASWP3+2*
>> SRAN	SROASWP3+2, SROASWP3+4, SROASWP3+5, DELETE+5
SRCASE	SROASWP3+7!
SRCASE(	SEL+2, MATCH+2, CASE+4*
SRCASE(1	SROASWP3+8, ONLYONE+3
SRCASE(2	SROASWP3+9
>> SRLONG	OTHER+1*, OTHER+2
>> SRLOWER	SROASWP3+2*, CHECK+2
>> SRNAME	SROASWP3+3*, SROASWP3+5, SROASWP3+8
>> SROP	SROASWP3+7*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, CASE+1, CASE+4, OTHER+1 , OTHER+2
>> SROPER	SROASWP3+4, CASE+1, CASE+2, OTHER+1, OTHER+3, LOOP+1*
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	SROASWP3+4!, CASE+2!
SROPS(	LOOP+1*
SROPS(1	SROASWP3+4, SROASWP3+5, CASE+2, CASE+3
SROPS(2	SROASWP3+5, CASE+3
SROPS(3	SROASWP3+5, CASE+3
SROPS(4	CASE+3
>> SROTHER	CASE+1, OTHER+1, OTHER+2
SRSCAN	LIST+2*!, LIST+3, LIST+4
>> SRSDATE	CHECK+1, CHECK+2, CHECK+3, LIST+6, CASE
>> SRSOUT	SEL, SEL+1, MATCH, ONLYONE+1, DELETE+1*
>> SRTN	SROASWP3+7, MATCH+2, CHECK+1, ONLYONE+3*
>> SRUPPER	SROASWP3+2*, CHECK+3
>> SRYN	MATCH, MATCH+1, MATCH+2, ONLYONE+1, ONLYONE+2, ONLYONE+3, DELETE+1, DELETE+2, DELETE+3, DELETE+4
VADM	SROASWP3+3!
VADM(1	SROASWP3+3
>> X	SROASWP3+2, SEL, SEL+1, SEL+2, MATCH+2, DELETE+6
>> X1	SROASWP3+2*
>> X2	SROASWP3+2*

Customize PDF page

Package: Surgery

Routine: SROASWP3

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: