Routine: SROAMIS

Package	Total	Call Graph
Surgery	6	PRINT^SROAMIS1 ^SROPRIN ^SROSTOP DATE^SROUTL ($$INST,$$MANDIV)^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	C^%DTC ^DIR

Package	Total	Caller Graph
Surgery	1	SROAMIS

Entry Points

Name	Comments	DBIA/ICR reference
SET	; get anesthesia info from ^SRF(SRDFN,6
END
HDR	; print heading
DEAD	; check for death within 24 hrs.
1	; entry when queued
EN	; entry for SROAMIS option
UTL	; set up ^TMP("SROAMIS",$J
DATE
PTR

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?57,"ANESTHESIA SERVICE",?100,"REVIEWED BY: ",!,?58,"ANESTHESIA AMIS",?100,"DATE REVIEWED: " Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT Line Location: HDR+3
Function Call: WRITE	Prompt: !!!!! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: !,?38,"ANESTHETICS ADMINISTERED BY PRINCIPAL TECHNIQUE USED",! Line Location: HDR+5
Function Call: WRITE	Prompt: "-" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"TOTAL NO OF ANES- \| \| \| \| \| \|" Line Location: HDR+6
Function Call: WRITE	Prompt: !,"THETICS ADMINISTERED \| GENERAL \| MAC \| SPINAL \| EPIDURAL \| OTHER \| LOCAL",! Line Location: HDR+7
Function Call: WRITE	Prompt: "-" Line Location: HDR+7
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF,!,"Anesthesia AMIS",!!,"This report is no longer available.",! Line Location: EN+1
Function Call: WRITE	Prompt: !!!,"This report is designed to use a 132 column format, and must be run",!,"on a printer.",!! Line Location: DATE+2
Routine Call	DIR Line Location: EN+2
Routine Call	%ZIS Line Location: PTR

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	1+1, 1+2
^DPT - [#2]	UTL+4
^SRF - [#130]	UTL+1, UTL+2, UTL+4, SET+1, SET+2, DEAD+1, 1+5
^SRF("AC"	1+4
^TMP("SROAMIS"	UTL+6, UTL+7, UTL+8, END!, 1+1!, 1+3
^TMP("SRTN"	UTL+5, END!, DEAD+2*, 1+1!

Name	Field # of Occurrence
^(	UTL+4, UTL+6, UTL+7, UTL+8*, DEAD+1
^(31	UTL+2

Name	Field # of Occurrence
%ZIS	PTR!*
%ZIS("A"	PTR*
>> DEATH	UTL+2, UTL+4, UTL+5, UTL+6, UTL+7, UTL+8, DEAD+1, DEAD+2
>> DFN	UTL+4*, UTL+5, DEAD+2
DIR	EN+2!
DIR(0	EN+2*
DT	1+1
>> EDATE	DATE, 1+2, 1+4
I	HDR+4, HDR+5, HDR+7, 1+3!
IO	1+1
IO("Q"	PTR!, PTR+1!
IOF	HDR+2, END, END+1, EN+1
IOM	HDR+4, HDR+5, HDR+7
IOP	PTR!
IOST	END, PTR
>> OPDATE	DEAD+1*
>> OPONE	DEAD+1*
POP	PTR!
>> PRIN	UTL+1*, UTL+3, UTL+7, UTL+8
>> PROC	UTL+2*, UTL+7, UTL+8
>> S(0	UTL+4*
>> SDATE	DATE, 1+2
>> SRCNT	SET+1*, SET+2
>> SRD	DATE*, 1+4
>> SRDFN	UTL+1, UTL+2, UTL+4, SET+1, DEAD+1, 1+4*, 1+5
SRFRTO	HDR+3, 1+1~, 1+2*
>> SRHALT	HDR+1
>> SRINST	HDR+2, DATE+1*
SRINSTP	DATE+1~*, 1+5
>> SRPRINT	HDR+3, 1+1*
>> SRSOUT	HDR+1, DATE, 1+1, 1+6
>> SRT	SET+1, SET+2
SRTECH	SET+1!, SET+2*, SET+3
SRTN	SET+1*, SET+2, SET+3!
>> SRZ	SET+1*
>> TECH	UTL+3, UTL+6, SET+3
U	DATE+1
>> X	DEAD+1
>> X1	DEAD+1*
>> X2	DEAD+1*
>> Y	1+1, 1+2
>> Z	1+4*
>> ZTDESC	PTR+1*
>> ZTQUEUED	HDR+1, END
>> ZTREQ	END*
>> ZTRTN	PTR+1*
>> ZTSAVE("EDATE"	PTR+1*
>> ZTSAVE("SDATE"	PTR+1*
>> ZTSAVE("SRD"	PTR+1*
>> ZTSAVE("SRINST"	PTR+1*
>> ZTSAVE("SRINSTP"	PTR+1*
>> ZTSTOP	END