Routine: SRONOR3

Information

SRONOR3 ;B'HAM ISC/MAM - REPORT OF NON-O.R. PROCEDURES (1 SPECIALTY) ; Apr 07, 2025@10:00

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
Surgery	3	$$CAN^SRONOR2 ^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	SRONOR1

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+5, SET+10, SET+11
$$CAN^SRONOR2	SET+14
^SROSTOP	HDR
$$DIV^SROUTL0	SRONOR3+5
DEM^VADPT	SET+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,?35,"There were no procedures entered for the date range selected." Line Location: SRONOR3+6
Function Call: WRITE	Prompt: !!,SRSDATE,?15,SRNM_" ("_VA("PID")_")",?64,SRSUR,?116,SRST,!,SROP,?15,SRLOC_" ("_SRINOUT_")",?64,SRANEST,?116,SRET Line Location: SET+15
Function Call: WRITE	Prompt: !,?62,SRANESUP,!,?62,SROPS(1) Line Location: SET+16
Function Call: WRITE	Prompt: !,?62,SROPS(2) Line Location: SET+16
Function Call: WRITE	Prompt: ! Condition for execution: SRABORT="" Line Location: SET+17
Function Call: WRITE	Prompt: ?62,SROPS(3) Line Location: SET+17
Function Call: WRITE	Prompt: !,?62,SROPS(4) Line Location: SET+17
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,"LOCATION (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("SPECIALTY: "_SRSPECN)\2),"* SPECIALTY: "_SRSPECN_" *" Line Location: HDR+5

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
HDR	SRONOR3+6, SET+2
LOOP	SET+13
OTHER	SET+12
SET	SRONOR3+7
UTIL	SRONOR3+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Surgery