Routine: SROVAR

Information

SROVAR ;BIR/MAM,ADM - SITE PARAMETERS ; 7/21/09 1:37pm

Source file <SROVAR.m>

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

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

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