Routine: SROVAR

Package	Total	Call Graph
VA Fileman	7	^%DT C^%DTC EN^DDIOL ^DIC FILE^DICN $$GET1^DIQ ^DIR
Kernel	4	^%ZIS ^%ZISC $$NOW^XLFDT $$KSP^XUPARAM
Surgery	3	^SRCUSS ^SROCON ^SRSKILL
DRG Grouper	1	COPY^ICPTAPIU
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	84	SR ANESTH REPORTS SR BLOOD PRODUCT VERIFICATION SR BLOOD PRODUCT VERIFY AUDIT SR CPT ACCURACY SR CPT REPORTS SR MANAGE REPORTS SR NO ASSESSMENT REASON SR NON-OR INFO SR NON-OR REPORT SR NORMAL HOURS SR OR HOURS SR OR UTIL SR OR UTL1 SR PURGE UTILIZATION SR STAFFING REPORTS SR TRANSPLANT ASSESSMENT SR TRANSPLANT ENTER/EDIT SR TRANSPLANT PARAMETERS SR UPDATE FILES SR UPDATE SCHEDULE DEVICE SR UTIL EDIT ROOM SR VIEW HISTORICAL REPORTS SR54UTL SR62UTL SR81UTL SRCODING EDIT SRCODING MENU SRCODING NURSE REPORT SRCODING OP REPORT SRCODING UPDATE/VERIFY MENU SRHLENV SRHLPOST SRO CASES BY DISPOSITION SRO CASES BY PRIORITY SRO1L SROACMP1 SROALESS SROALNO SROALOG SROAMAN SROANIN SROAPCA SROARPT SROATCM SROATCM2 SROATM4 SROATMIT SROATMNO SROAWL SROAWL1 SROCD SRODELA SROERR SROHIS SROMENU SRONBCH SRONEW SRONIN SRONON SRONOP SRONPEN SROP SROPARAM SROPER SROQ2 SROQADM SROQD SROQIDP0 SROQL SROQN SROQT SROSCH1 SROTRPT SROTRPT0 SROUTL0 SROVER2 SRSCHC2 SRSCHUN1 SRSPUT0 SRSRQST1 SRSUP1 SRSUPRQ SRTPLS SRTPTMIT

Entry Points

Name	Comments	DBIA/ICR reference
RESET
OFF1	; compare time off with time on
TERM	; compare stop time with start time
SET	; set site parameters	ICR #3628 Status: Active Usage: Controlled Subscription
EN3	; the Sterility Expiration Date should be after the Date of Operation
PLUS24
COMP
CLEAR	; clean-up case edit/lock flags in ^XTMP
BEF
DEV
EN2	; set view only and titles for screens
OFF2	; compare time off with time on
EXIT	; exit action for all Surgery options
PARAM	; enter/edit site parameters
SITE()	; extrinsic call to output Institution file pointer (from Default Institution field in file 4.3)^Institution name^Station number
TIME	; transform time to date of operation at that time
INPUT	; input transfor for ASA CLASS
OUT
CPT	; display CPT copyright notice
BEFORE

External References

Name	Field # of Occurrence
^%DT	TIME+3, OFF1+1, OFF2+1, TERM+6, TERM+8, EN3+2
C^%DTC	TERM+7
^%ZIS	DEV
^%ZISC	DEV+1
EN^DDIOL	TERM+3, TERM+4
^DIC	PARAM+1
FILE^DICN	CPT+4, CPT+5
$$GET1^DIQ	SET+3, PARAM+2, SITE+3
^DIR	SROVAR+11, CPT+2, PLUS24+1
COPY^ICPTAPIU	CPT+2
^SRCUSS	PARAM+3
^SROCON	INPUT+1
^SRSKILL	SROVAR+11
DEM^VADPT	EN2+2
$$NOW^XLFDT	CLEAR+1
$$KSP^XUPARAM	SITE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SROVAR+10
Function Call: WRITE	Prompt: ! Line Location: CPT+2
Function Call: WRITE	Prompt: $S(X=$E(ION,1,$L(X)):$E(ION,$L(X)+1,$L(ION)),1:" "_ION) Line Location: DEV+1
Function Call: WRITE	Prompt: @IOF Line Location: PARAM+1
Function Call: WRITE	Prompt: @IOF Line Location: PARAM+1
Function Call: WRITE	Prompt: @IOF Line Location: PARAM+3
Function Call: WRITE	Prompt: !!,"Time Off should be later than Time On.",! Line Location: COMP+0
Function Call: WRITE	Prompt: !!,"The date entered is before the 'DATE OF OPERATION'. Please check the",!,"DATE entered for this field." Line Location: BEF+0
Routine Call	DIC Line Location: PARAM+1
Routine Call	DIR Line Location: SROVAR+11 CPT+2 PLUS24+1
Routine Call	%ZIS Line Location: DEV

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRO(133 - [#133]	Classic Fileman Calls
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PLUS24
^DD(133	CPT+4
^DD(133.036	CPT+5
^SRF - [#130]	EN2+2, TIME+3, INPUT+1, OFF1+1, OFF1+2, OFF2+1, OFF2+2, TERM+2, TERM+3, TERM+7 , EN3+2
^SRO(133 - [#133]	SROVAR+8, SET+1, CPT+1, CPT+3, CPT+4
^TMP("CSLSUR1"	SROVAR+5!
^TMP("SRCUSS"	EXIT+1!
^TMP("SRPFSS"	SROVAR+5!
^XTMP(	CLEAR+2, CLEAR+3, CLEAR+4!, CLEAR+5!
^XUSEC("SROEDIT"	EN2+1

Label References

Name	Line Occurrences
BEF	EN3+2
BEFORE	TIME+3
CLEAR	SROVAR+5, EXIT+2
COMP	OFF1+2
CPT	SROVAR+7
OUT	OFF1+1, OFF2+1, TERM+2, TERM+6, TERM+7, TERM+8
PLUS24	TERM+7
RESET	TIME+3
SET	SROVAR+9, PARAM+3

Naked Globals

Name	Field # of Occurrence
^("CON"	INPUT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	TIME+3, OFF1+1!, OFF2+1!, OUT!, TERM+6!, TERM+8!, EN3+2
%ZIS	DEV!*, DEV+1!
>> D0	EN3+2
DA	CPT+3!, CPT+4!, CPT+5!, TIME+1, TIME+2, TIME+3, TIME+4, RESET, INPUT+1, PARAM+3! , OFF1+2, OFF2+2, TERM+2, TERM+3, TERM+7, EN3+1, EN3+3
DA(1	CPT+4, CPT+5, OFF1+1, OFF1+2, OFF2+2
DA(2	CPT+5*, OFF2+1, OFF2+2
DD	CPT+3!, CPT+4!, CPT+5!
>> DFN	EN2+2*
DIC	CPT+3!, CPT+4!, CPT+5!, PARAM+1!*
DIC("A"	PARAM+1*
DIC("P"	CPT+4, CPT+5
DIC(0	CPT+4, CPT+5, PARAM+1*
DIE	PARAM+3!*
DINUM	CPT+4, CPT+5, PARAM+1!
DIR	SROVAR+10!, SROVAR+11!, CPT+2!, PLUS24+1!
DIR("?"	SROVAR+10*
DIR("A"	SROVAR+11, CPT+2, PLUS24+1*
DIR("S"	SROVAR+11*
DIR(0	SROVAR+11, CPT+2, PLUS24+1*
>> DLAYGO	PARAM+1*
DO	CPT+3!, CPT+4!, CPT+5!
DR	PARAM+3!*
DT	CPT+1, CPT+4, CPT+5
>> DTOUT	SROVAR+11, PLUS24+1
>> DUOUT	SROVAR+11, PLUS24+1
DUZ	CPT+1, CPT+5, EN2+1, CLEAR+3, CLEAR+4
IOF	PARAM+1, PARAM+3
ION	DEV, DEV+1
IOP	DEV*!, DEV+1!
IOST	CPT+2
>> POP	DEV
>> Q3("VIEW"	EN2+1*
>> Q3(1	EN2+2, PARAM+2
S	SET+6!
S(0	SET+1*, SET+2, SET+3, SET+4
SITE	SITE+1~, SITE+2, SITE+3, SITE+4
SR130	OUT!, PLUS24*, PLUS24+1
SRC	CLEAR+1~, CLEAR+2*, CLEAR+3, CLEAR+4, CLEAR+5
>> SRCNT	SROVAR+8*, SROVAR+9, SROVAR+10
SRCPT	CPT+1~*, CPT+2
SRDIV	CPT+1~, CPT+3, CPT+4, CPT+5, PARAM+2~*, PARAM+3
>> SRFLD	INPUT+1*
SRI	SITE+1~, SITE+3*
SRINOR	TERM+1~, TERM+2*, TERM+5, TERM+7
SRION	DEV*!, DEV+1!
SRJ	CLEAR+1~, CLEAR+3*, CLEAR+4
SRL	SROVAR+8!, CLEAR+1~
SRL(	SROVAR+8*
SRL(1	SROVAR+9
SRN	EN2+2, PARAM+2~, OUT!, TERM+7
SRNAME	PARAM+2~*
SRNOW	CLEAR+1~*, CLEAR+5
SRNOW1	CLEAR+1~, CLEAR+5*
>> SRNULL	TERM+7*, PLUS24
SRNUM	PARAM+2~*
SRP	OFF1+2, OFF2+2, OUT!, TERM+7
SRSITE	SROVAR+6, SROVAR+9, SROVAR+12, SET+1, PARAM+3, EXIT+1!
SRSITE("AML"	SET+1*
SRSITE("DIV"	SET+3*
SRSITE("IV"	SET+2*!
SRSITE("NRPT"	SET+4*
SRSITE("OPTION"	SET+5*, EXIT+1
SRSITE("REQ"	SET+1*!
SRSITE("SITE"	SET+3*
>> SRSMED	TIME+1
SRSTART	TIME+3, BEFORE, OFF1+2, OFF2+2, COMP, OUT!, TERM+1~, TERM+7, EN3+2*, BEF
SRSUB	OFF1+2, OFF2+2, OUT!
>> SRTDA	TIME+2, TIME+4, RESET, EN3+1, EN3+3
SRTN	EN2+2, TIME+1, TIME+2, TIME+3, INPUT+1, EXIT+1!, OFF1+1, OFF2+1, EN3+1, EN3+2
SRV	TERM+1~, PLUS24*, PLUS24+2
SRX	SITE+1~, SITE+3*
SRY	SITE+1~, SITE+3, TERM+1~, PLUS24, PLUS24+1
SRZ	CLEAR+1~
ST	EN2+2*, PARAM+3!
T	TERM+1~, TERM+7*
U	EN3+2
>> VADM(1	EN2+2
X	SROVAR+8, CPT+4, CPT+5, DEV!, DEV+1, TIME+2, TIME+3, BEFORE, OFF1+1, OFF2+1 , COMP, TERM+2!, TERM+5, TERM+6, TERM+7, TERM+8, PLUS24, PLUS24+1!, PLUS24+2, EN3+1 , EN3+2*, BEF!
>> X1	TERM+7*
>> X2	TERM+7*
XQUIT	SROVAR+10!, SROVAR+11*
>> XQY	SET+5, EXIT+1
Y	SROVAR+12, CPT+4, TIME+3, PARAM+1, PARAM+2, PARAM+3!, OFF1+1, OFF2+1, TERM+6, TERM+8 , PLUS24*, PLUS24+1, EN3+2
Y(0	PARAM+2
Z	TIME+2, OFF1+1!, OFF2+1!, TERM+1~, TERM+5, TERM+6!, TERM+7, EN3+1

Customize PDF page

Package: Surgery

Routine: SROVAR

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 84

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: