Routine: SROANP

Information

SROANP ;B'HAM ISC/MAM - LIST OF ANESTHETIC PROCEDURES ; [ 09/07/00 11:27 AM ]

Package	Total	Call Graph
Surgery	4	HDR^SROANP1 ^SROPRIN $$DIV^SROUTL0 MINS^SRSUTL2
Pharmacy Data Management	1	DATA^PSS50
Registration	1	DEM^VADPT
VA Fileman	1	(D,Y)^DIQ

Package	Total	Caller Graph
Surgery	1	SROANP1

Name	Comments	DBIA/ICR reference
SET	; set and print information for a case
OPS
BEG	;
AGENT
OTHER	; other operations
PRINT	; print results
PAGE
LOOP	; break procedure name if greater than 50 characters

Name	Line Occurrences
Function Call: WRITE	Prompt: !,SRDATE,?16,SRDPT,?40,SRICD,?97,$E(SRPRIN,1,15),?118,SRANE1,!,SRTN,?16,VA("PID"),?40,SROPS(1),?97,$E(SRTECH,1,20),?118,SRANE2 Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+3
Function Call: WRITE	Prompt: "NON-O.R." Condition for execution: SRFLG=3&(SRNON) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?16,SRASA Line Location: PRINT+3
Function Call: WRITE	Prompt: ?40,SROPS(2) Condition for execution: $D(SROPS(2)) Line Location: PRINT+3
Function Call: WRITE	Prompt: ?97,$E(SRAGNT,1,20),?118,SRANE3,! Line Location: PRINT+3
Function Call: WRITE	Prompt: ?40,SROPS(3),! Line Location: PRINT+4
Function Call: WRITE	Prompt: ?40,SROPS(4),! Line Location: PRINT+4
Function Call: WRITE	Prompt: ?40,SROPS(4),! Line Location: PRINT+4
Function Call: WRITE	Prompt: ?40,SROPS(4),! Line Location: PRINT+4
Function Call: READ	Timeout: DTIME Variable: ASK Line Location: PAGE+0

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	BEG+1
^DD(130	OPS+3
^DD(130.06	OPS+7
^SRF - [#130]	SET+1, SET+2, SET+5, SET+8, SET+9, OPS, OPS+2, OPS+3, OPS+4, OPS+8 , OTHER+1, OTHER+2, AGENT, BEG+3
^SRF("AC"	BEG+3
^TMP($J	AGENT+1!
^VA(200 - [#200]	OPS+2

Name	Field # of Occurrence
>> ASK	PAGE*
>> C	OPS+3, OPS+7
>> DATE	BEG+3*
>> DFN	SET+5*
DT	BEG+1
DTIME	PAGE
IO	BEG+1
IOSL	PRINT+1
IOST	PAGE
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> PAGE	BEG+1*
>> S(	SET+4!, OPS+8*, OPS+9
>> S(0	SET+5*
SRAGNT	SET+4!, OPS+5, OPS+6, PRINT+3, AGENT, AGENT+1
>> SRANE1	OPS+8, OPS+9, OPS+10*, PRINT+2
>> SRANE2	OPS+8, OPS+9, OPS+11*, PRINT+2
SRANE3	SET+4!, OPS+8, OPS+9, PRINT+3
>> SRASA	OPS+3*, PRINT+3
>> SRDATE	SET+5, SET+6, PRINT+2
>> SRDPT	SET+5, SET+7, PRINT+2
>> SRDT	SET+5*, SET+6
>> SRED	BEG+1
>> SRED1	BEG+1*, BEG+3
>> SRF	PRINT+2, BEG+1, BEG+2, BEG+3, PAGE
>> SRFIND	SET+6, OPS+10, OPS+11*
>> SRFLG	SET+2, SET+3, PRINT+3
SRFRTO	BEG+1~*
>> SRICD	SET+8, SET+9, PRINT+2
>> SRINST	BEG+2*
>> SRINSTP	BEG+2*
>> SRLONG	OTHER+1*, OTHER+2
>> SRNON	SET+1*, SET+2, SET+3, SET+8, SET+9, PRINT+3
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	OPS+1!
SROPS(	LOOP+1*
SROPS(1	OPS+1*, PRINT+2
SROPS(2	PRINT+3
SROPS(3	PRINT+4
SROPS(4	PRINT+4
SROPS(5	PRINT+4
SROPS(6	PRINT+4
SRPRIN	SET+4!, OPS+2*, PRINT+2
>> SRPRINT	BEG+1*
>> SRSD	BEG+1, BEG+3
>> SRSITE("DIV"	BEG+2
>> SRSITE("SITE"	BEG+2
>> SRSSN	SET+5*
>> SRT	OPS+4*, AGENT
SRTECH	SET+4!, OPS+4!, OPS+5, OPS+7, PRINT+2
>> SRTN	SET+1, SET+2, SET+5, SET+8, SET+9, OPS, OPS+2, OPS+3, OPS+4, OPS+8 , PRINT+2, OTHER+1, OTHER+2, AGENT, BEG+3*
>> SRZ	OPS+4*
>> VA("PID"	SET+5, PRINT+2
>> VADM(1	SET+5
>> X	OPS+8*
>> X1	OPS+8*
>> Y	SET+5, SET+6, OPS+3, OPS+7, OPS+10, OPS+11, BEG+1