Routine: SRONOR8

Information

SRONOR8 ;B'HAM ISC/MAM - REPORT OF NON-O.R. PROCEDURES (1 LOCATION) ; [ 07/27/98 2:33 PM ]

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Surgery	2	^SROSTOP $$DIV^SROUTL0
Registration	1	DEM^VADPT
VA FileMan	1	DD^%DT

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	SRONOR6

Entry Points

Name	Comments	DBIA/ICR reference
SET	; set and print info
UTIL	; set ^TMP
HDR
OTHER	; other operations
LOOP	; break procedure if greater than 50 characters

External References

Name	Field # of Occurrence
DD^%DT	SET+4, SET+9, SET+10
^SROSTOP	HDR
$$DIV^SROUTL0	SRONOR8+6
DEM^VADPT	SET+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?35,"There were no procedures entered for the date range selected." Line Location: SRONOR8+7
Function Call: WRITE	Prompt: !!,SRSDATE,?15,SRNM_" ("_VA("PID")_")",?64,SRSUR,?116,SRST,!,SROP,?15,SRSS_" ("_SRINOUT_")",?64,SRANEST,?116,SRET Line Location: SET+14
Function Call: WRITE	Prompt: !,?62,SRANESUP,!,?62,SROPS(1) Line Location: SET+15
Function Call: WRITE	Prompt: ! Condition for execution: SRABORT="" Line Location: SET+16
Function Call: WRITE	Prompt: ?62,SROPS(2) Line Location: SET+16
Function Call: WRITE	Prompt: !,?62,SROPS(3) Line Location: SET+16
Function Call: WRITE	Prompt: !,?62,SROPS(3) Line Location: SET+16
Function Call: READ	Variable: X Timeout: DTIME Line Location: HDR+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?57,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?51,"REPORT OF NON-O.R. PROCEDURES",?100,"DATE REVIEWED:",!,?(132-$L(SRFRTO)\2),SRFRTO Line Location: HDR+2
Function Call: WRITE	Prompt: !!,"DATE",?15,"PATIENT (ID#)",?64,"PROVIDER",?116,"START TIME",!,"CASE #",?15,"SPECIALTY (IN/OUT-PAT STATUS)",?64,"PRINCIPAL ANESTHETIST",?116,"FINISH TIME" Line Location: HDR+3
Function Call: WRITE	Prompt: !,?62,"ANESTHESIOLOGIST SUPERVISOR",!,?62,"PROCEDURE(S)",! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: !,?(124-$L("LOCATION: "_SRLOCN)\2),"* LOCATION: "_SRLOCN_" *" Line Location: HDR+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ECC(723 - [#723]	SET+8
^SC - [#44]	UTIL+1
^SRF - [#130]	SRONOR8+6, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+13 , UTIL+1, OTHER+1, OTHER+2
^SRF("AC"	SRONOR8+6
^TMP("SR"	SRONOR8+6!, SRONOR8+7, SRONOR8+8, UTIL+3*
^VA(200 - [#200]	SET+5, SET+6, SET+7

Label References

Name	Line Occurrences
HDR	SRONOR8+7, SET+1
LOOP	SET+12
OTHER	SET+11
SET	SRONOR8+8
UTIL	SRONOR8+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	SET+2*
DTIME	HDR+1
IOF	HDR+2
IOSL	SET+1
IOST	HDR+1
>> LINE	HDR+4*
>> LOOP	LOOP+1*
>> M	SET+12*, LOOP+1
MM	SET+12!, LOOP+1*
MMM	SET+12!, LOOP+1*
>> OPER	SET+11, OTHER+1, OTHER+2
>> SR	SET+2*, SET+3
>> SRABORT	SET+13*, SET+16
SRANEST	SRONOR8+5~, SET+6*, SET+14
SRANESUP	SRONOR8+5~, SET+7*, SET+15
>> SRED	SRONOR8+6
>> SRET	SET+10*, SET+14
>> SRFRTO	HDR+2
>> SRHALT	HDR
>> SRHDR	SRONOR8+7, HDR+1, HDR+5
>> SRINOUT	SET+3*, SET+14
>> SRINST	HDR+2
>> SRLN	UTIL+1*, UTIL+2
>> SRLOCN	UTIL+2, HDR+5
>> SRLONG	OTHER+1*, OTHER+2
>> SRNM	SET+2*, SET+14
>> SROP	SRONOR8+6, SRONOR8+8, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+13, SET+14, UTIL+1, UTIL+3, OTHER+1, OTHER+2
>> SROPER	SET+11, SET+12, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	SET+12!
SROPS(	LOOP+1*
SROPS(1	SET+12*, SET+15
SROPS(2	SET+16
SROPS(3	SET+16
SROPS(4	SET+16
>> SRSD	SRONOR8+6, SRONOR8+8, SET+4, UTIL+3
>> SRSDATE	SET+4*, SET+14
>> SRSOUT	SRONOR8+7, SRONOR8+8, SET+1, HDR, HDR+1*
>> SRSS	SET+8*, SET+14
>> SRSSN	SET+2*
>> SRST	SET+9*, SET+14
>> SRSUR	SET+5*, SET+14
>> VA("PID"	SET+2, SET+14
>> VADM(1	SET+2
>> X	SET+3, HDR+1
>> Y	SET+4, SET+8, SET+9, SET+10, UTIL+1*
>> ZTQUEUED	HDR

Customize PDF page

Package: Surgery