Routine: SROALT

Information

SROALT ;BIR/MAM - TRANSMITTED ASSESSMENTS ;01/07/08

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

Package	Total	Caller Graph
Surgery	1	SROALOG

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SRTN,?20,SRANM_" "_VA("PID"),?55,$P(SRSS,"("),!,SRDT,?20,SROPS(1),?55,SRTECH,!,SRAT Line Location: SET+16
Function Call: WRITE	Prompt: ?20,SROPS(2) Line Location: SET+16
Function Call: WRITE	Prompt: ?20,SROPS(2) Line Location: SET+16
Function Call: WRITE	Prompt: ! Condition for execution: $D(SROPS(2)) Line Location: SET+17
Function Call: WRITE	Prompt: SREX,?20,"CPT Codes: " Line Location: SET+17
Function Call: WRITE	Prompt: ! Line Location: SET+19
Function Call: WRITE	Prompt: "-" Line Location: SET+19
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0
Function Call: WRITE	Prompt: !!,"If you want to continue listing incomplete assessments, enter <RET>. Enter",!,"'^' to return to the menu." Line Location: PAGE+1
Function Call: WRITE	Prompt: @IOF,!,?26,"TRANSMITTED RISK ASSESSMENTS",!,?(80-$L(SRFRTO)\2),SRFRTO,!!,"ASSESSMENT #",?20,"PATIENT",?55,"SURGICAL SPECIALTY",!,"OPERATION DATE",?20,"OPERATION(S)",?55,"ANESTHESIA TECHNIQUE",!,"TRANSMISSION DATE",! Line Location: HDR+0
Function Call: WRITE	Prompt: "=" Line Location: HDR+0

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROALT+6, SROALT+8, SET+3, SET+7, SET+9, OTHER+1, OTHER+2
^SRF("AC"	SROALT+7
^SRF("AT"	SROALT+5
^SRO(137.45 - [#137.45]	SET+12

Name	Field # of Occurrence
>> DFN	SET+7*
DTIME	PAGE
I	SET+7~, SET+9, SET+17~, SET+18
IOF	HDR
IOSL	SET+2
IOST	SROALT+3
>> LINE	SET+19, HDR
>> LOOP	LOOP+1*
>> M	SET+11*, LOOP+1
MM	SET+11!, LOOP+1*
MMM	SET+11!, LOOP+1*
>> SR("RA"	SROALT+6, SROALT+8, SET+3*, SET+4, SET+5, SET+6, SET+10, SET+15
>> SRA(0	SET+7*, SET+12, SET+14
>> SRANM	SET+7, SET+8, SET+16
>> SRASSN	SET+7*
>> SRAST	SET+4, SET+5
>> SRAT	SET+6*, SET+16
SRCPTT	SET+1!*
>> SRDT	SET+14*, SET+16
>> SRED	SROALT+5, SROALT+7
SREX	SET+1!, SET+15, SET+17
>> SRFRTO	SROALT+2*, HDR
>> SRINSTP	SROALT+6, SROALT+8
SRL	SET+17~*
>> SRLONG	OTHER+1*, OTHER+2
>> SROPER	SET+9, SET+10, SET+11, OTHER+1, OTHER+3, LOOP+1*
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	SET+11!
SROPS(	LOOP+1*
SROPS(1	SET+11*, SET+16
SROPS(2	SET+16, SET+17
SROPS(3	SET+16
>> SROTHER	SET+9, OTHER+1, OTHER+2
SRPROC	SET+17~
SRPROC(	SET+18
>> SRSD	SROALT+5, SROALT+7
>> SRSOUT	SROALT+4, SROALT+5, SROALT+7, SET+2, PAGE
>> SRSRT	SROALT+2, SROALT+5, SROALT+7
>> SRSS	SET+12*, SET+16
>> SRTECH	SET+16
>> SRTN	SROALT+5, SROALT+6, SROALT+7, SROALT+8, SET+3, SET+7, SET+9, SET+16, OTHER+1, OTHER+2
>> VA("PID"	SET+7, SET+16
VADM	SET+7!
VADM(1	SET+7
>> X	SET+10, SET+15, PAGE*, PAGE+1
>> Y	SET+6, SET+14