Routine: SROICU1

Information

SROICU1 ;B'HAM ISC/MAM - UNSCHEDULED ADMISSION TO ICU BY SPECIALTY ; 2 OCT 1990 12:17 PM

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Surgery	2	^SROSTOP $$DIV^SROUTL0
Registration	1	DEM^VADPT
VA FileMan	1	Y^DIQ

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	SROICU

Entry Points

Name	Comments	DBIA/ICR reference
SET	; case information
OPS
PAGE
HDR	; print heading
OTHER	; other operations
LOOP	; break procedure if greater than 50 characters

External References

Name	Field # of Occurrence
Y^DIQ	SET+4, SET+5
^SROSTOP	HDR+1
$$DIV^SROUTL0	SROICU1+4
DEM^VADPT	SET+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No unscheduled admissions to ICU for selected date range." Line Location: SROICU1+5
Function Call: WRITE	Prompt: !,SRODATE,?17,VADM(1),?55,SRDIAG,?110,SRSUR,!,?17,VA("PID"),?55,SROP(1),?110,SRATT,!,?17,SRDIS Line Location: OPS+2
Function Call: WRITE	Prompt: ?55,SROP(2) Line Location: OPS+2
Function Call: WRITE	Prompt: ?55,SROP(2) Line Location: OPS+2
Function Call: WRITE	Prompt: ?55,SROP(2) Line Location: OPS+2
Function Call: WRITE	Prompt: ! Line Location: OPS+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: PAGE+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue listing cases, or '^' to exit from this option." Line Location: PAGE+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?52,"UNSCHEDULED ADMISSIONS TO ICU",?100,"DATE REVIEWED: " Line Location: HDR+3
Function Call: WRITE	Prompt: !,?(132-$L(SRSSP)\2),SRSSP,!,?53,"FROM ",$E(SRSD,4,5)_"/"_$E(SRSD,6,7)_"/"_$E(SRSD,2,3)," TO ",$E(SRED,4,5)_"/"_$E(SRED,6,7)_"/"_$E(SRED,2,3) Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"DATE",?17,"PATIENT",?55,"POSTOPERATIVE DIAGNOSIS",?110,"PRIMARY SURGEON",!,?17,"PATIENT ID",?55,"OPERATIVE PROCEDURE(S)",?110,"ATTENDING SURGEON",!,?17,"REQ DISPOSITION/POSTOP DISPOSITION" Line Location: HDR+5
Function Call: WRITE	Prompt: ! Line Location: HDR+6
Function Call: WRITE	Prompt: "=" Line Location: HDR+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(130	SET+4, SET+5
^SRF - [#130]	SROICU1+4, SET+1, SET+2, SET+3, SET+4, SET+8, SET+9, OPS, OTHER+1, OTHER+2
^SRF("AC"	SROICU1+4
^SRO(137.45 - [#137.45]	SROICU1+2
^VA(200 - [#200]	SET+10, SET+11

Label References

Name	Line Occurrences
HDR	SROICU1+3, PAGE
LOOP	OPS+1
OTHER	OPS
PAGE	SET+7, PAGE+2
SET	SROICU1+4

Naked Globals

Name	Field # of Occurrence
^(	SET+9
^(34	SET+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	SET+4, SET+5
>> DFN	SET+8*
DTIME	PAGE+1
>> I	OPS*
IOF	HDR+2
IOSL	SET+7
IOST	PAGE
>> LINE	HDR+6*
>> LOOP	LOOP+1*
>> M	OPS+1*, LOOP+1
MM	OPS+1!, LOOP+1*
MMM	OPS+1!, LOOP+1*
>> OPER	OPS, OTHER+1, OTHER+2
>> SR(	SET+4, SET+9
>> SRATT	SET+9, SET+11, OPS+2
>> SRCT	SROICU1+2, SROICU1+5, OPS+3
>> SRDIAG	SET+9*, OPS+2
>> SRDIS	SET+6*, OPS+2
>> SRDISP	SET+4*, SET+6
>> SRDISP1	SET+4, SET+5, SET+6
>> SRED	SROICU1+2, HDR+4
>> SREDT	SROICU1+2*, SROICU1+4
>> SRHALT	HDR+1
>> SRINST	HDR+3
>> SRLONG	OTHER+1*, OTHER+2
>> SRODATE	SET+8*, OPS+2
SROP	OPS+1!
SROP(	LOOP+1*
SROP(1	OPS+1*, OPS+2
SROP(2	OPS+2
SROP(3	OPS+2
SROP(4	OPS+2
>> SROPER	OPS, OPS+1, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
>> SRSD	SROICU1+2, HDR+4
>> SRSDATE	SROICU1+2, SROICU1+4, SET+8
>> SRSOUT	SROICU1+2, SROICU1+4, SET+7, PAGE+1, HDR+1*
>> SRSS	SROICU1+2, SET+1
>> SRSSP	SROICU1+2*, HDR+4
>> SRSUR	SET+9, SET+10, OPS+2
>> SRTN	SROICU1+4*, SET+1, SET+2, SET+3, SET+4, SET+8, SET+9, OPS, OTHER+1, OTHER+2
>> VA("PID"	OPS+2
>> VADM(1	OPS+2
>> X	SET+1, PAGE+1, PAGE+2
>> Y	SET+4, SET+5
>> ZTQUEUED	HDR+1

Customize PDF page

Package: Surgery