Routine: SROASSN

Information

SROASSN ;B'HAM ISC/MAM - SELECT ASSESSMENT ; [ 07/03/03 08:44 AM ]

Source file <SROASSN.m>

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Package	Total	Caller Graph
Surgery	1	SROASS

Name	Comments	DBIA/ICR reference
LIST	; list assessments
DISP
CASE	;W $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,SROPS(1) I $D(SROPS(2)) W !,?14,SROPS(2) I $D(SROPS(3)) W !,?14,SROPS(3)
OTHER	; other operations
LOOP	; break procedures

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SROASSN+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: SROASSN+8
Function Call: WRITE	Prompt: CNT_". " Line Location: DISP+6
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+0
Function Call: WRITE	Prompt: !,?14,SROPS(3) Line Location: CASE+0
Function Call: WRITE	Prompt: !,?14,SROPS(4) Line Location: CASE+1
Function Call: WRITE	Prompt: !! Line Location: CASE+3

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROASSN+7, LIST+1, DISP, DISP+1, OTHER+1, OTHER+2
^SRF("ADT"	SROASSN+3

Name	Field # of Occurrence
>> CNT	SROASSN+3, LIST+1, DISP+2*, CASE+3
>> DFN	SROASSN+3
DTIME	SROASSN+8
>> I	SROASSN+3, DISP
IOF	SROASSN+5
>> LOOP	LOOP+1*
>> M	DISP+5*, LOOP+1
MM	DISP+5!, LOOP+1*
MMM	DISP+5!, LOOP+1*
>> SR("RA"	DISP+1*, DISP+2, DISP+3
>> SRANM	SROASSN+5
>> SRASS	SROASSN+3*, LIST+1, DISP, DISP+1, CASE+3, OTHER+1, OTHER+2
>> SRBACK	SROASSN+8*
>> SRCASE(	CASE+3*
>> SRCASE(1	SROASSN+4, SROASSN+9
>> SRDT	SROASSN+3*, CASE+3
>> SRLONG	OTHER+1*, OTHER+2
>> SROP	SROASSN+3, SROASSN+7
>> SROPER	SROASSN+6, DISP, DISP+3, DISP+4, DISP+5, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	DISP+5!
SROPS(	LOOP+1*
SROPS(1	DISP+5*
>> SROTHER	DISP, OTHER+1, OTHER+2
>> SRSDATE	SROASSN+6, LIST+1*
>> SRSOUT	SROASSN+3, SROASSN+8*
>> SRTN	SROASSN+3, SROASSN+9*, CASE+2
>> STATUS	SROASSN+6, DISP+1*, DISP+4
>> X	SROASSN+8*
>> Z	DISP+1*