Routine: SROAOSET

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

SROAOSET ;B'HAM ISC/MAM - SET SRAO ARRAY ; 17 MAR 1992 1:55 pm

Source Information

Source file <SROAOSET.m>

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
Surgery	1	($$ICD,$$ICDSTR)^SROICD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Surgery	1	SROAO

Entry Points

Name	Comments	DBIA/ICR reference
DISP
YN	;

External References

Name	Field # of Occurrence
$$ICD^SROICD	SROAOSET+2
$$ICDSTR^SROICD	DISP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,SRANAME,?65,"PAGE: 1",! Line Location: DISP+0
Function Call: WRITE	Prompt: "-" Line Location: DISP+0
Function Call: WRITE	Prompt: !,"1. Postoperative Diagnosis Code "_$$ICDSTR^SROICD(SRTN)_":",?43,$P(SRAO(1),"^"),!,"2. Length of Postoperative Hospital Stay:",?43,$P(SRAO(2),"^"),!,"3. 30 Day Postoperative Status:",?43,$P(SRAO(3),"^") Line Location: DISP+1
Function Call: WRITE	Prompt: ! Line Location: DISP+2
Function Call: WRITE	Prompt: "-" Line Location: DISP+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROAOSET+2, SROAOSET+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
IOF	DISP
>> MOE	DISP, DISP+2
>> NYUK	YN+1
>> SHEMP	YN+1*
>> SRA(0	SROAOSET+2*
>> SRA(205	SROAOSET+3*, SROAOSET+4
>> SRA(34	SROAOSET+2*!
>> SRANAME	DISP
>> SRAO(1	SROAOSET+2*, DISP+1
>> SRAO(2	SROAOSET+3*, DISP+1
>> SRAO(3	SROAOSET+5*, DISP+1
>> SRTN	SROAOSET+2, SROAOSET+3, DISP+1
>> X	SROAOSET+2, SROAOSET+3, SROAOSET+4*, SROAOSET+5