Global: ^SRO(133

FileMan FileNo	FileMan Filename	Package
133	SURGERY SITE PARAMETERS	Surgery

Package	Total	Routines
Surgery	77	DONOR RACE SR00109 SR146UTL SR67NTEG SR70UTL SR88UTL SRHLU SRHLUO1 SRHLVUO1 SROACOD SROALET SROARPT SROATM1 SROAUTL3 SROAUTLC SROAWL1 SROERR SROERR0 SROESPR2 SROLOCK SRONIN SROPCE SROPCE0B SROPCE1 SROPCEP SROPCEX SROPRE SROQ30D SROSCH1 SROSCH2 SROUTL SROUTUP SROVAR SROXR4 SRSCAN2 SRSCHUN SRSCRAP SRSRQST SRSUP1 SRTPLSTP SRTPNEW ^SRO(133 HOLIDAY SCHEDULING ALLOWED REQUIRED FIELDS FOR SCHEDULING SR100UTL SR102UTL SR176UTL SR62UTL SR93UTL SR95UTL SROATCM1 SROATM2 SROATMNO SROAWL SROBLOD SROCMP SROESX SROESXA SROESXP SROHIS SRONPEN SRONRPT SROPCE0 SROPCE0A SROQ0A SRORIN SROSCH SROUTL0 SROXR1 SRSCAN0 SRSCHD SRSCHDC SRSCHK SRSCOR SRSREQ SRTPLST SRTPSS
Automated Medical Information Exchange	1	DVBAB82
DSS Extracts	1	ECXDVSN2

Package	Total	Routines
Surgery	8	SROARPT SROESPR2 SROHIS SRONIN SRONPEN SROUTL0 SROVAR SRSCRAP
DSS Extracts	2	ECXASUR ECXDVSN2

Package	Total	FileMan Files
Kernel	3	INSTITUTION(#4)[.01] HOLIDAY(#40.5)[#133.027(.01)] NEW PERSON(#200)[#133.361(.01)]
MailMan	1	MAIL GROUP(#3.8)[43]
Scheduling	1	HOSPITAL LOCATION(#44)[42]
Surgery	1	SURGERY(#130)[#133.028(.01)]

Fields, Total: 44

Field #	Name	Loc	Type	Details
.01	SITE	0;1	POINTER TO INSTITUTION FILE (#4)	**********************REQUIRED FIELD********************** INSTITUTION(#4) LAST EDITED: `JAN 13, 2006` DESCRIPTION: `This is the institution responsible for the Surgery service. If the facility is multi-divisional, there will be more than one entry in this file.` DELETE TEST: `1,0)= N SRX S SRX=$C(7)_"Deletion from this file is not allowed !!" D EN^DDIOL(SRX) I 1` CROSS-REFERENCE: `133^B` `1)= S ^SRO(133,"B",$E(X,1,30),DA)=""` `2)= K ^SRO(133,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `^^TRIGGER^133^18` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRO(133,D0,0)):^(0),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X="A" S DIH=$G(^SRO(133,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=133,DIG=18 D ^DICR` `2)= Q` `CREATE VALUE)= S X="A"` `DELETE VALUE)= NO EFFECT` `FIELD)= UPDATES TO PCE` `The trigger on the SITE field stuffs the UPDATES TO PCE field with "A" for ALL CASES.` CROSS-REFERENCE: `^^TRIGGER^133^19` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRO(133,D0,0)):^(0),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$G(^SRO(133,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=133,DIG=19 D ^DICR` `2)= Q` `CREATE VALUE)= S X=1` `DELETE VALUE)= NO EFFECT` `FIELD)= ASK CLASSIFICATION QUESTIONS` `The trigger on the SITE field stuffs the ASK CLASSIFICATION QUESTIONS field with "1" for YES.`
3	MAIL CODE FOR ANESTHESIA	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `OCT 10, 1996` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This is the mail code for the Anesthesia service. It will be used to flag Anesthesiologists on the Anesthesia AMIS.`
6	CANCEL IVS	0;7	SET	'0' FOR NOT CANCEL; '1' FOR CANCEL; LAST EDITED: `FEB 10, 1993` HELP-PROMPT: `Enter '1' to cancel IVs when the operation begins.` DESCRIPTION: `This field indicates the site's preference to allow or not allow current IV orders for a patient to be cancelled when a surgical or non-OR procedure begins. If this field is set to NOT CANCEL, IV orders will not be` `cancelled. If this field is set to CANCEL, upon entering the anesthesia care start time for a case, the user will be prompted to cancel or not cancel current IV orders if not more than 24 hours have passed since the start` `of the operation or procedure.`
8	LATEST 30-READMISSION REPORT	0;9	FREE TEXT	INPUT TRANSFORM: `D QTR^SROQ30D` OUTPUT TRANSFORM: `S Y=$E(Y,1,4)_", Quarter #"_$E(Y,5)` LAST EDITED: `JUL 05, 2011` HELP-PROMPT: `Enter the FISCAL YEAR and QUARTER separated by a hyphen (-), e.g., 2011-4.` DESCRIPTION: `This field contains the latest fiscal quarter for which the 30-day postoperative readmissions report has been transmitted to the VASQIP database.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
9	CHIEF'S NAME	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 07, 1987` HELP-PROMPT: `Your answer must be from 1 to 40 characters in length.` DESCRIPTION: `This is the name of the Chief of Surgery. The name will be displayed on management reports.`
10	LOCK AFTER HOW MANY DAYS	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>365)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 17, 1987` HELP-PROMPT: `Enter a number between 1 and 365.` DESCRIPTION: `This is the number of days a case can be edited, after completion, without needing the Chief of Surgery's approval.`
11	REQUEST DEADLINE	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?2N1":"2N) X Q:'$D(X) S X=$E(X,1,2)_$E(X,4,5)` OUTPUT TRANSFORM: `S Y=$E(Y,1,2)_":"_$E(Y,3,4)` LAST EDITED: `JUL 06, 1988` HELP-PROMPT: `Enter the latest time (00:01 to 24:00) for which requests can be made on the request cutoff day for a particular date.` DESCRIPTION: `This field is the time on the request cutoff day after which no requests can be made for a date. Your answer must be in a military time format with leading zeros. For example, a time of 7:00 AM MUST be entered in the` `format 07:00. The time 7:00 PM would be entered 19:00.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
12	OR SCHEDULE DEVICES	1;0	Multiple #133.012	133.012 DESCRIPTION: `This contains all devices which will be used when the Schedule of Operations is printed.`
13	SCHEDULE CLOSE TIME	0;12	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<5)!'(X?2N1":"2N) X Q:'$D(X) S X=$E(X,1,2)_$E(X,4,5) K:X>1500!($E(X,3,4)>59) X` OUTPUT TRANSFORM: `S Y=$E(Y,1,2)_":"_$E(Y,3,4)` LAST EDITED: `AUG 18, 1992` HELP-PROMPT: `Enter the time the final surgery schedule for the next day is published.` DESCRIPTION: `This field contains the time of day at which the surgery schedule for the following day is considered to be closed. Any scheduled cases canceled after this time will be included in computing the cancellation rate for the` `facility. The time entered in this field may be earlier than, but no later than, 15:00. Your answer must be in a military time format with leading zeros. For example, a time of 9:00 AM MUST be entered in the format` `09:00. 15:00 is the default time for this field if no time is entered.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
14	VERSION NUMBER	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `JAN 12, 1993` HELP-PROMPT: `Answer must be 1-5 characters in length.` DESCRIPTION: `This field contains the current version number of the Surgery software.` `UNEDITABLE`
15	CARDIAC ASSESSMENT IN USE(Y/N)	0;5	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `APR 03, 2001` HELP-PROMPT: `If the Cardiac Risk Assessment Module is being used at this medical center, enter 'YES'.` DESCRIPTION: `This determines whether the Cardiac Risk Assessment Module is being used at this facility. If so, enter 'YES', if not enter 'NO'.`
16	LATEST CASE WORKLOAD REPORT	0;13	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 01, 2010` HELP-PROMPT: `Enter the month/year of the latest transmitted monthly workload report.` DESCRIPTION: `This field contains the date (month/year) of the latest VASQIP monthly case workload report automatically tasked for transmission to the national database. This field is an uneditable field and is set automatically when` `the monthly case workload report is transmitted by way of the nightly task process.` `WRITE AUTHORITY: ^` `UNEDITABLE`
17	ASK FOR RISK PREOP INFO	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `NOV 14, 1995` HELP-PROMPT: `Enter YES to prompt for risk assessment preoperative information when entering a new case.` DESCRIPTION: `Enter YES if the user should be prompted for risk assessment preoperative information when entering a new case and when updating a requested or scheduled case.`
18	UPDATES TO PCE	0;15	SET	'O' FOR OUTPATIENT ONLY; 'A' FOR ALL CASES; 'N' FOR PCE NOT UPDATED; LAST EDITED: `FEB 17, 2004` HELP-PROMPT: `Enter the site's preference for PCE updating.` DESCRIPTION: `This indicates the site's preference for PCE updating. If this field contains O, PCE will be updated with outpatient case information only. If this field contains A, PCE will be updated information from all cases, both` `inpatient and outpatient. If this field contains N or is null, no PCE updating will occur.` `UNEDITABLE` NOTES: `TRIGGERED by the SITE field of the SURGERY SITE PARAMETERS File`
18.5	PCE UPDATE ACTIVATION DATE	0;17	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 09, 1996` HELP-PROMPT: `Enter the earliest date for which surgical cases may be filed with PCE.` DESCRIPTION: `This is the earliest date of operation for which surgical cases may be filed with PCE. Surgical cases or non-OR procedures performed before this date will not be filed with PCE. If no date is entered, this parameter will` `be ignored.`
19	ASK CLASSIFICATION QUESTIONS	0;16	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 05, 2004` HELP-PROMPT: `Enter YES if classification questions should be asked when requesting a case.` DESCRIPTION: `This field indicates whether the patient service connected classification questions should be asked when entering a new case or when updating an existing case.` `UNEDITABLE` NOTES: `TRIGGERED by the SITE field of the SURGERY SITE PARAMETERS File`
20	REQUEST CUTOFF FOR SUNDAY	2;1	SET	'0' FOR SCHEDULING NOT ALLOWED; '1' FOR SATURDAY; '2' FOR FRIDAY; '3' FOR THURSDAY; '4' FOR WEDNESDAY; '5' FOR TUESDAY; '6' FOR MONDAY; LAST EDITED: `JAN 31, 1992` HELP-PROMPT: `Enter the day of the week on which the request deadline for Sunday occurs.` DESCRIPTION: `Enter the day of the week on which the request deadline occurs for` `Sunday scheduling. Enter '0' if Sunday scheduling is not allowed.` `If no entry is made in this field, the package will assume the request` `cutoff day for Sunday is Saturday.`
21	REQUEST CUTOFF FOR MONDAY	2;2	SET	'0' FOR SCHEDULING NOT ALLOWED; '1' FOR SUNDAY; '2' FOR SATURDAY; '3' FOR FRIDAY; '4' FOR THURSDAY; '5' FOR WEDNESDAY; '6' FOR TUESDAY; LAST EDITED: `JAN 31, 1992` HELP-PROMPT: `Enter the day of the week on which the request deadline for Monday occurs.` DESCRIPTION: `Enter the day of the week on which the request deadline occurs for` `Monday scheduling. Enter '0' if Monday scheduling is not allowed.` `If no entry is made in this field, the package will assume the request` `cutoff day for Monday is Sunday.`
22	REQUEST CUTOFF FOR TUESDAY	2;3	SET	'0' FOR SCHEDULING NOT ALLOWED; '1' FOR MONDAY; '2' FOR SUNDAY; '3' FOR SATURDAY; '4' FOR FRIDAY; '5' FOR THURSDAY; '6' FOR WEDNESDAY; LAST EDITED: `JAN 31, 1992` HELP-PROMPT: `Enter the day of the week on which the request deadline for Tuesday occurs.` DESCRIPTION: `Enter the day of the week on which the request deadline occurs for` `Tuesday scheduling. Enter '0' if Tuesday scheduling is not allowed.` `If no entry is made in this field, the package will assume the request` `cutoff day for Tuesday is Monday.`
23	REQUEST CUTOFF FOR WEDNESDAY	2;4	SET	'0' FOR SCHEDULING NOT ALLOWED; '1' FOR TUESDAY; '2' FOR MONDAY; '3' FOR SUNDAY; '4' FOR SATURDAY; '5' FOR FRIDAY; '6' FOR THURSDAY; LAST EDITED: `JAN 31, 1992` HELP-PROMPT: `Enter the day of the week on which the request deadline for Wednesday occurs.` DESCRIPTION: `Enter the day of the week on which the request deadline occurs for` `Wednesday scheduling. Enter '0' if Wednesday scheduling is not allowed.` `If no entry is made in this field, the package will assume the request` `cutoff day for Wednesday is Tuesday`
24	REQUEST CUTOFF FOR THURSDAY	2;5	SET	'0' FOR SCHEDULING NOT ALLOWED; '1' FOR WEDNESDAY; '2' FOR TUESDAY; '3' FOR MONDAY; '4' FOR SUNDAY; '5' FOR SATURDAY; '6' FOR FRIDAY; LAST EDITED: `JAN 31, 1992` HELP-PROMPT: `Enter the day of the week on which the request deadline for Thursday occurs.` DESCRIPTION: `Enter the day of the week on which the request deadline occurs for` `Thursday scheduling. Enter '0' if Thursday scheduling is not allowed.` `If no entry is made in this field, the package will assume the request` `cutoff day for Thursday is Wednesday.`
25	REQUEST CUTOFF FOR FRIDAY	2;6	SET	'0' FOR SCHEDULING NOT ALLOWED; '1' FOR THURSDAY; '2' FOR WEDNESDAY; '3' FOR TUESDAY; '4' FOR MONDAY; '5' FOR SUNDAY; '6' FOR SATURDAY; LAST EDITED: `JAN 31, 1992` HELP-PROMPT: `Enter the day of the week on which the request deadline for Friday occurs.` DESCRIPTION: `Enter the day of the week on which the request deadline occurs for Friday scheduling. Enter '0' if Friday scheduling is not allowed. If no entry is made in this field, the software will use Thursday as the request cutoff` `day for Friday.`
26	REQUEST CUTOFF FOR SATURDAY	2;7	SET	'0' FOR SCHEDULING NOT ALLOWED; '1' FOR FRIDAY; '2' FOR THURSDAY; '3' FOR WEDNESDAY; '4' FOR TUESDAY; '5' FOR MONDAY; '6' FOR SUNDAY; LAST EDITED: `JAN 31, 1992` HELP-PROMPT: `Enter the day of the week on which the request deadline for Saturday occurs.` DESCRIPTION: `Enter the day of the week on which the request deadline occurs for` `Saturday scheduling. Enter '0' if Saturday scheduling is not allowed.` `If no entry is made in this field, the package will assume the request` `cutoff day for Saturday is Friday.`
27	HOLIDAY SCHEDULING ALLOWED	3;0	POINTER Multiple #133.027	133.027 LAST EDITED: `DEC 24, 1991` DESCRIPTION: `These are the holidays on which the scheduling of surgical cases will be` `allowed.`
28	REQUIRED FIELDS FOR SCHEDULING	4;0	POINTER Multiple #133.028	133.028 DESCRIPTION: `This contains the names of fields that must be entered prior to scheduling a requested procedure.` TECHNICAL DESCR: `This is a modified pointer. It will point to the data dictionary of the SURGERY file (130). The pointer value will equal the field number in the SURGERY file (130).`
29	NURSE INTRAOP REPORT	0;6	SET	'0' FOR PRINT TITLES WITH INFO ONLY; '1' FOR PRINT ALL FIELD TITLES; LAST EDITED: `JAN 24, 1992` HELP-PROMPT: `Enter '1' if you want the Nurse Intraoperative Report to print all field titles regardless of data, or '0' to print only those titles that have information entered.` DESCRIPTION: `This determines the format of the Nurse Intraoperative Report. Enter '1' if you want to list all field titles in the report regardless as to whether information has been entered for that field. If you want a shorter` `report, enter '0'. This format will print only those fields that have information entered. If nothing is entered for this parameter, the report will include all field titles.` TECHNICAL DESCR: `This determines the format of the Nurse Intraoperative Report. This information will be stored in the variable SRSITE("NRPT") when the Site Parameter routine (SROVAR) is run.`
30	OPERATION REPORT FORMAT	0;8	SET	'1' FOR PRINT ALL FIELD TITLES; '0' FOR PRINT TITLES WITH INFO ONLY; LAST EDITED: `JAN 24, 1992` HELP-PROMPT: `Select format '1' if you want to display all field titles, or format '0' if you only want to display titles when information has been entered for that field.` DESCRIPTION: `This determines the format of the Operation Report. If you want to display all field titles on the report and 'N/A' for those fields that do not have information entered, select format '1'. If you only want to display` `field titles when information has been entered, select format '0'.` TECHNICAL DESCR: `This determines the format of the Operation Report. The routine SROPRPT1 will check this field and determine which format to use. If no format is selected, the report will print all field titles.`
31	VASQIP 30 DAY FOLLOW-UP LETTER	5;0	WORD-PROCESSING #133.031	LAST EDITED: `DEC 01, 2010` DESCRIPTION: `This field contains the text of the VASQIP 30-day follow-up letter to be printed and mailed to the patient approximately 30 days following surgery.` `VASQIP 30 Day Follow-Up Letter` LAST EDITED: `DEC 01, 2010` HELP-PROMPT: `Enter the text of the 30-day follow-up letter.`
32	LATEST QUARTERLY REPORT	0;18	FREE TEXT	INPUT TRANSFORM: `D QTR^SROQ0` OUTPUT TRANSFORM: `S Y=$E(Y,1,4)_", Quarter #"_$E(Y,5)` LAST EDITED: `DEC 13, 1996` HELP-PROMPT: `Enter the FISCAL YEAR and QUARTER separated ba a hyphen (-), e.g., 1996-4.` DESCRIPTION: `This field contains the latest fiscal quarter for which the Quarterly Report has been transmitted to the Surgical Service, Headquarters, national database.` `WRITE AUTHORITY: ^` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
33	SURGICAL RESIDENTS (Y/N)	0;19	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 13, 1996` HELP-PROMPT: `Enter YES if surgical residents may perform surgery at this facility.` DESCRIPTION: `This field indicates whether surgery may be performed by residents at this facility. Enter NO if all surgeons at this facility are staff surgeons. If this field is NO an attending surgeon will not be required by the PCE` `interface and cases with no attend code will be counted as Level 0 (Staff Alone) on the Quarterly Report.`
34	HL7 V. 1.5 COMPATIBLE	0;20	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 09, 1998` HELP-PROMPT: `Enter YES to use Surgery HL7 interface compatible with HL7 V. 1.5.` DESCRIPTION: `If applications communicating with the Surgery HL7 interface must use the interface designed for use with HL7 V. 1.5, enter YES. Otherwise, enter NO or leave this field blank.`
35	INACTIVE?	0;21	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 15, 1998` HELP-PROMPT: `Enter 'YES' to inactivate this site.` DESCRIPTION: `Enter YES to make this SURGERY SITE inactive and to prevent its selection and use by Surgery users.`
36	CPT COPYRIGHT NOTICE DATE	6;0	DATE Multiple #133.036	133.036 LAST EDITED: `JUN 04, 1998`
37	AUTOMATED CASE CART ORDERING	0;22	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 22, 2002` HELP-PROMPT: `Enter YES if the CoreFLS interface for Surgery is in use.` DESCRIPTION: `This indicates whether the CoreFLS interface for Surgery is in use at this facility. If so, enter YES. Otherwise, enter NO or leave blank.`
38	CPT ON NURSE INTRAOP	.1;2	SET	'0' FOR NO, DO NOT INCLUDE CPT; '1' FOR YES, INCLUDE CPT; LAST EDITED: `SEP 14, 2001` HELP-PROMPT: `Enter YES to require the principal CPT code prior to electronic signature and to make it part of the report.` DESCRIPTION: `If this field is set to YES, INCLUDE CPT, the principal CPT code will be required before electronic signature can be applied and the CPT code will be part of the report. If the field is null or set to NO, DO NOT INCLUDE` `CPT, the principal CPT code will not be required before electronic signature can be applied and the CPT code will not be part of the report.`
39	ICD ON NURSE INTRAOP	.1;3	SET	'0' FOR NO, DO NOT INCLUDE ICD; '1' FOR YES, INCLUDE ICD; LAST EDITED: `NOV 07, 2011` HELP-PROMPT: `Enter YES to require the principal diagnosis code prior to electronic signature and to make it part of the report.` DESCRIPTION: `If this field is set to YES, INCLUDE ICD, the principal diagnosis code will be required before electronic signature can be applied and the ICD code will be part of the report. If the field is null or set to NO, DO NOT` `INCLUDE ICD, the principal diagnosis code will not be required before electronic signature can be applied.`
40	ANESTHESIA REPORT IN USE	.1;4	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 18, 2001` HELP-PROMPT: `Enter YES if the electronically signed Anesthesia Report is used.` DESCRIPTION: `This YES/NO field determines if the Anesthesia Report should be created and electronically signed. Only if this field is marked YES will the functionality be invoked to create the Anesthesia Report for a case in TIU.`
41	DEFAULT BLOOD COMPONENT	7;1	FREE TEXT	INPUT TRANSFORM: `D ITRAN^VBECA5A` LAST EDITED: `JAN 16, 2003` HELP-PROMPT: `Answer must be 3-45 characters in length.` DESCRIPTION: `This field contains the default blood type used during surgery. If a certain type is used frequently, this field should be completed.` EXECUTABLE HELP: `D OUT66^VBECA5A` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
42	DEFAULT CLINIC FOR DOCUMENTS	0;23	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) INPUT TRANSFORM: `S DIC("S")="I $$NOCNT^SROUTL(DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 21, 2004` HELP-PROMPT: `Enter a non-count clinic that will be the default clinic associated with TIU documents.` DESCRIPTION: `This non-count clinic is the default clinic for this division. It will be the location passed to TIU when Surgery documents are created if no other location can be identified.` SCREEN: `S DIC("S")="I $$NOCNT^SROUTL(DA)"` EXPLANATION: `Screen requires selection of non-count clinic.`
43	CODE ISSUE MAIL GROUP	7;2	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `JUN 23, 2005` HELP-PROMPT: `Enter the name of the mail group that will receive all coding issue messages.` DESCRIPTION: `This is the name of the mail group that will receive all coding issue messages sent by the Risk Assessment Nurse Reviewer. When the Non-Cardiac and Cardiac Risk Assessment option Alert Coder Regarding Coding Issues is` `used, a mail message is sent to the person that coded the Surgery case and the mail group identified in this field.`
44	KIDNEY TRANSPLANTS ASSESSED	8;1	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 08, 2008` HELP-PROMPT: `If Kidney Transplants are assessed at this medical center, enter 'YES'.` DESCRIPTION: `This determines whether Kidney Transplants are performed and assessed at this facility. If so, enter 'YES', if not enter 'NO'. Answer YES if transplants are done at an affiliated non-VA medical center, but assessed by the` `Transplant Coordinator at this facility.`
45	LIVER TRANSPLANTS ASSESSED	8;2	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 08, 2008` HELP-PROMPT: `If Liver Transplants are assessed at this medical center, enter 'YES'.` DESCRIPTION: `This determines whether Liver Transplants are performed and assessed at this facility. If so, enter 'YES', if not enter 'NO'. Answer YES if transplants are done at an affiliated non-VA medical center, but assessed by the` `Transplant Coordinator at this facility.`
46	LUNG TRANSPLANTS ASSESSED	8;3	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 08, 2008` HELP-PROMPT: `If Lung Transplants are assessed at this medical center, enter 'YES'.` DESCRIPTION: `This determines whether Lung Transplants are performed and assessed at this facility. If so, enter 'YES', if not enter 'NO'. Answer YES if transplants are done at an affiliated non-VA medical center, but assessed by the` `Transplant Coordinator at this facility.`
47	HEART TRANSPLANTS ASSESSED	8;4	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `JUL 08, 2008` HELP-PROMPT: `If Heart Transplants are assessed at this medical center, enter 'YES'.` DESCRIPTION: `This determines whether Heart Transplants are performed and assessed at this facility. If so, enter 'YES', if not enter 'NO'. Answer YES if transplants are done at an affiliated non-VA medical center, but assessed by the` `Transplant Coordinator at this facility.`

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	16+1, 18.5+1
>> D0	.01(XREF 2S), .01(XREF 3S)
>> DA	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S)
DIC	42+1!*
DIC("S"	42+1, 42SCR+1
>> DIE	42+1
>> DIG	.01(XREF 2S), .01(XREF 3S)
>> DIH	.01(XREF 2S), .01(XREF 3S)
>> DIU	.01(XREF 2S), .01(XREF 3S)
DIV	.01(XREF 2S), .01(XREF 3S)
DIV(0	.01(XREF 2S), .01(XREF 3S)
SRX	.01DEL1+1~*
U	.01(XREF 2S), .01(XREF 3S)
X	.01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 3S), 3+1!, 9+1!, 10+1!, 11+1!, 13+1!, 14+1! , 16+1!, 18.5+1!, 42+1*!
Y	.01(XREF 2S), .01(XREF 3S), 8OT+1, 11OT+1, 13OT+1, 16+1, 18.5+1, 32OT+1, 42+1
Y(0	8OT+1, 11OT+1, 13OT+1, 32OT+1
Y(1	.01(XREF 2S), .01(XREF 3S)

Customize PDF page

Package: Surgery

Global: ^SRO(133

Information

Description

Directly Accessed By Routines, Total: 79

Accessed By FileMan Db Calls, Total: 10

Pointer To FileMan Files, Total: 6

Fields, Total: 44

Found Entries, Total: 1

ICR, Total: 1

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	16+1, 18.5+1
EN^DDIOL	.01DEL1+1
^DIC	42+1
^DICR	.01(XREF 2S), .01(XREF 3S)
QTR^SROQ0	32+1
QTR^SROQ30D	8+1
ITRAN^VBECA5A	41+1
OUT66^VBECA5A	41(HELP )