Global: ^QA(740

FileMan FileNo	FileMan Filename	Package
740	QUALITY ASSURANCE SITE PARAMETERS	Quality Assurance Integration

Package	Total	Routines
Incident Reporting	22	INSTANCE OF DEATH QAN ENTER TIME QAN QUICK EDIT QANAUX1 QANBENE QANBENE0 QANBRIF QANCDNT QANCNV0 QANDBASE QANDELE QANEWS QANEWS0 QANFULL QANMAIL QANOPEN QANPEDT QANRPT1 QANRPT2 QANSITE QANSUMM QANUTL3
Occurrence Screen	16	QAOAUTO QAOC0 QAOC102 QAOC107 QAOEDT QAOSCNV1 QAOSEWS0 QAOSLAPS QAOSPCL0 QAOSPHDR QAOSPMG0 QAOSPPR0 QAOSPSM1 QAOSSFR0 QAOSSFR1 QAOSUPL0
Patient Representative	9	QAC20PST QACI2A QACMAIL0 QACMAIL1 QACPOST REFER CONTACT TO ^QA(745.1 ^QA(745.4 QACSPRD3
Quality Assurance Integration	9	^QA(740 AUDIT TRAIL IR HOSPITAL DIVISION OS HOSPITAL DIVISION PAT REP HOSPITAL DIVISION QAQA QAN SITE PARAMETERS QAQA QAOS SITE PARAMETERS QAQPKGVR SCHEDULED ADMISSION CLINIC
Clinical Monitoring System	5	QAMAUTO3 QAMAUTO4 QAMEDT6 QAMPRUN0 QAMTIME0

Package	Total	Routines
Incident Reporting	2	QANAUX1 QANRPT1
Patient Representative	2	QACMAIL0 QACMAIL1
Quality Assurance Integration	1	QAQSITE

Package	Total	FileMan Files
Kernel	2	INSTITUTION(#4)[.01, #740.03(.01), #740.0752(.01)] STATE(#5)[747.04]
MailMan	1	MAIL GROUP(#3.8)[740.05, 740.06, 742.01]
Registration	1	MEDICAL CENTER DIVISION(#40.8)[#740.02(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[#740.01(.01)]

Fields, Total: 67

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 10, 1989` HELP-PROMPT: `Please enter '1', only one entry allowed.` DESCRIPTION: `This file has DINUM set to one (1). The only valid entry for this field is 1.`
.01	NAME	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `S DINUM=1` LAST EDITED: `NOV 21, 1991` HELP-PROMPT: `Please enter your station name or number.` DESCRIPTION: `This is the name of this institution.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `740^B` `1)= S ^QA(740,"B",$E(X,1,30),DA)=""` `2)= K ^QA(740,"B",$E(X,1,30),DA)`
740.01	EWS MAIL GROUP/SERVER	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>32!($L(X)<5)!'(X?1U1"."3.30NUP) X` LAST EDITED: `APR 02, 1992` HELP-PROMPT: `Answer must be 5-32 characters in length.` DESCRIPTION: `Enter the mail group or server name that the Early Warning System bulletin should be sent to. For mail groups you should enter G.(MAILGROUP). For mail servers you should enter S.(MAILSERVER).`
740.02	EWS DOMAIN	0;3	FREE TEXT	INPUT TRANSFORM: `S DIC=4.2,DIC(0)="EMNQ" D ^DIC S X=$P(Y,"^",2) K:Y'>0 X` LAST EDITED: `JUN 10, 1991` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: `Enter the domain name that the Early Warning System bulletins should be sent to.` EXECUTABLE HELP: `N D,X S D="B",DIC="^DIC(4.2,",DIC(0)="AEMNQ" D DQ^DICQ Q` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
740.03	NQADB MAIL GROUP/SERVER	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>32!($L(X)<5)!'(X?1U1"."3.30NUP) X` LAST EDITED: `APR 02, 1992` HELP-PROMPT: `Answer must be 5-32 characters in length.` DESCRIPTION: `Enter the mail group or server name that the NQADB bulletin should be sent to. For mail groups you should enter, G.MAILGROUP. For mail servers you should enter, S.MAILSERVER.`
740.04	NQADB DOMAIN	0;5	FREE TEXT	INPUT TRANSFORM: `S DIC=4.2,DIC(0)="EMNQ" D ^DIC S X=$P(Y,"^",2) K:Y'>0 X` LAST EDITED: `JUL 08, 1991` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: `Enter the domain name that the NQADB bulletins should be sent to.` EXECUTABLE HELP: `N D,X S D="B",DIC="^DIC(4.2,",DIC(0)="AEMNQ" D DQ^DICQ Q` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
740.05	EWS LOCAL MAIL GROUP	0;6	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `JUL 24, 1991` HELP-PROMPT: `Enter the mail group at your site that the automatic EWS bulletins should be sent to.` DESCRIPTION: `This field contains the local mail group that the EWS bulletins should be sent to. This will allow the member(s) of the mail group to save the EWS bulletins in their own mail baskets and to check the status of those` `bulletins.`
740.06	MAIL GROUP (IRM)	0;7	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `FEB 10, 1993` HELP-PROMPT: `Enter a mail group in which IRM will receive diagnostic messages.` DESCRIPTION: `This field contains a mail group in which IRM will receive diagnostic messages pertaining to the QM module.`
740.07	IRM MAIL GROUP SWITCH	0;8	SET	'1' FOR YES; LAST EDITED: `FEB 10, 1993` HELP-PROMPT: `Enter 'Y'es if diagnostic mail is to be delivered to IRM.` DESCRIPTION: `Indicates if diagnostic mail is to be delivered to IRM.`
740.99	VERSION (QAQ)	VER;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X` LAST EDITED: `OCT 22, 1992` HELP-PROMPT: `Enter the version of this package currently running, (1-8 characters).` DESCRIPTION: `Indicates the version of the QM Integration Module package.`
741.01	PEER REVIEW DAYS	OS;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 01, 1990` HELP-PROMPT: `Type a Number between 0 and 365, 0 Decimal Digits` DESCRIPTION: `This is the allowable number of days between the completion of the Clinical Review and the completion of the Peer Review.` GROUP: `QAOS`
741.02	MANAGEMENT REVIEW DAYS	OS;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>365)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 01, 1990` HELP-PROMPT: `Type a Number between 0 and 365, 0 Decimal Digits` DESCRIPTION: `This is the number of allowable days between the completion of the Clinical Review and the completion of the Management Review.` GROUP: `QAOS`
741.03	CLINICAL WORKSHEET PART 1	OS;3	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `OCT 10, 1989` HELP-PROMPT: `ENTER 'YES' TO PRINT PART 1 OF THE CLINICAL WORKSHEET.` DESCRIPTION: `This field controls the printing of PART 1 of the CLINICAL WORKSHEET.` `0- 'NO', do not print part 1.` `1- 'YES', print part 1.` GROUP: `QAOS`
741.04	AUTO-PRINT CLINICAL WORKSHEET	OS;4	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `OCT 10, 1989` HELP-PROMPT: `ENTER 'YES' TO PRINT CLINICAL WORKSHEETS AS PART OF THE AUTO ENROLL PROCESS.` DESCRIPTION: `This field controls whether or not Clinical Worksheets are automatically printed as part of the Auto Enrollment process.` `0- 'NO', do not print Clinical Worksheets.` `1- 'YES', print Clinical Worksheets.` GROUP: `QAOS`
741.05	DEFAULT OS DEVICE	OS;5	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D EN1^QAQAUTL K:Y<0 X` OUTPUT TRANSFORM: `S Y=$P(Y,";")` LAST EDITED: `AUG 19, 1993` HELP-PROMPT: `ENTER THE DEFAULT 'OCCURRENCE SCREEN' PRINTER DEVICE.` DESCRIPTION: `This field contains the default printer device for OCCURRENCE SCREEN. Auto-Print Clinical Worksheets will be routed to this device.` EXECUTABLE HELP: `D EN3^QAQAUTL(740,741.05)` GROUP: `QAOS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
741.06	MIN TIME BETWEEN LOGOUT & ADM	OS;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>24)!(X<0)!(X?.E1"."2N.N) X` LAST EDITED: `MAY 03, 1991` HELP-PROMPT: `Type a Number between 0 and 24, up to 1 Decimal Digit` DESCRIPTION: `Enter the minimum time, in hours, between a disposition log out and an admission. This time is used when auto enrolling admissions within 3 days following unscheduled ambulatory care visits. If the time between the log` `out and the admission is less than this time, the event will not be captured. If the time is greater than or equal to this time, it will be captured.`
741.07	SCHEDULED ADMISSION CLINIC	OS1;0	POINTER Multiple #740.01	740.01 LAST EDITED: `NOV 09, 1992` DESCRIPTION: `This field contains the clinic(s) that are used to schedule patient admissions. The data entered in this field is used by the auto enroll to determine which admissions are scheduled.`
741.08	SURGERY PACKAGE INSTALLED	OS;7	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `APR 21, 1992` HELP-PROMPT: `Enter Y(es) if the DHCP Surgery package is installed at your site.` DESCRIPTION: `If this field is answered Y(es) the auto enroll will scan the Surgery package for screen 107, Return to the O.R. in the same admission.`
741.09	ALLOW MULT PATIENT SELECTION	OS;8	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `AUG 05, 1992` HELP-PROMPT: `Enter Y(es) to select several patients to edit at once.` DESCRIPTION: `Entering Y(es) at this prompt will allow you to select several patients at once for editing. Patients may be selected in the normal manner, i.e., by name, SSN, etc., or by an occurrence date range. The selected patients` `will then be brought up sequentially for editing. Entering N(o) will allow you to select only one patient at a time.`
741.1	MULTI-DIVISIONAL OS FACILITY	OS;9	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `NOV 22, 1997` HELP-PROMPT: `Enter Y(es) if this is a multi-divisional facility.` DESCRIPTION: `This field is used in conjunction with the DIVISION field to determine which output device the auto enroll reports will be sent to. Answering Y(es) to this field will allow you to select a different auto enroll output` `device for each division.`
741.11	OS HOSPITAL DIVISION	OS2;0	POINTER Multiple #740.02	740.02 LAST EDITED: `NOV 22, 1997` IDENTIFIED BY: `DEVICE(#.02)[R]`
741.97	*SCREEN FILE CONVERSION DATE	QAO;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `AUG 09, 1991` HELP-PROMPT: `Enter the date the screen file entries were DINUMed.` DESCRIPTION: `This field contains the date that the entries in the screen file #741.1 were DINUMed. This field is used to prevent the conversion from being run twice. Running this conversion twice would not corrupt the data, but it` `could potentially waste a lot of time.`
741.98	*SEVERITY CONVERSION DATE	QAO;1	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 13, 1991` HELP-PROMPT: `Enter the date that the severity levels were converted.` DESCRIPTION: `This field contains the date that the severity levels in file #741.8 were converted from a seven point scale to a four point scale. This field is used to prevent the conversion from being run twice.`
741.99	VERSION (QAO)	VER;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X` LAST EDITED: `OCT 22, 1992` HELP-PROMPT: `Enter the version of this package currently running, (1-8 characters).` DESCRIPTION: `Indicates the version of the Occurrence Screen package.`
742.01	MAIL GROUP (QAN)	QAN;1	POINTER TO MAIL GROUP FILE (#3.8)	MAIL GROUP(#3.8) LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Enter the MAILGROUP the bulletin should be sent to.` DESCRIPTION: `Indicates the MAILGROUP where the mail message should be sent. A proper recipient should be specified at this time.`
742.02	BULLETIN SENT (QAN)	QAN;2	SET	'1' FOR YES; LAST EDITED: `FEB 04, 1993` HELP-PROMPT: `Enter whether the bulletin should be fired off to the specified mailgroup.` DESCRIPTION: `Indicates whether a bulletin will be sent off to the specified mailgroup.`
742.03	RESPONSIBLE PERSON SWITCH	QAN;3	SET	'0' FOR OFF; '1' FOR ON; LAST EDITED: `JAN 29, 1993` HELP-PROMPT: `Enter whether the field 'Resposible Person' should be asked.` DESCRIPTION: `Indicates whether or not the 'Responsible Person' field should be asked.`
742.04	QM TIME FRAME	QAN;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 12, 1993` HELP-PROMPT: `Enter the number of days after which you will receive a warning.` DESCRIPTION: `This field hold the number of days the user wishes to wait before the system warns the user of potential negligence in filing a 'VA 10-2633 Report Of Special Incident Involving A Beneficiary' form. This is only for` `incident events that do not require immediate notification to the region.`
742.99	VERSION (QAN)	VER;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X` LAST EDITED: `OCT 22, 1992` HELP-PROMPT: `Enter the version of this package currently running, (1-8 characters).` DESCRIPTION: `Indicates the version of the Incident Reporting package.`
743.01	DAY WEEKLY TIME FRAME BEGINS	QAM;1	SET	'0' FOR Sunday; '1' FOR Monday; '2' FOR Tuesday; '3' FOR Wednesday; '4' FOR Thursday; '5' FOR Friday; '6' FOR Saturday; LAST EDITED: `DEC 10, 1990` HELP-PROMPT: `Enter the day the weekly time frame begins.` DESCRIPTION: `This field contains the day of the week that the weekly time frame begins. This data is used by auto enroll for the update of the history file.`
743.02	MONITORING SYSTEM DEVICE	QAM;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `D EN1^QAQAUTL K:Y<0 X` OUTPUT TRANSFORM: `S Y=$P(Y,";")` LAST EDITED: `JUL 17, 1991` HELP-PROMPT: `ENTER THE DEFAULT 'MONITORING SYSTEM' PRINTER DEVICE.` DESCRIPTION: `This field contains the default printer device for the Monitoring System. Auto-Print Fall Out Reports will be routed to this device.` EXECUTABLE HELP: `D EN3^QAQAUTL(740,743.02)` GROUP: `QAM` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
743.03	MAX DAYS PER MANUAL AUTO RUN	QAM;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>31)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 09, 1991` HELP-PROMPT: `Type a Number between 1 and 31, 0 Decimal Digits` DESCRIPTION: `This field gives the maximum number of auto enroll runs that may be run consecutively.`
743.04	TIME BETWEEN MANUAL AUTO RUNS	QAM;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 09, 1991` HELP-PROMPT: `Type the number of minutes between 1 and 120, 0 decimal digits.` DESCRIPTION: `This field contains the number of minutes between queued runs of auto enroll.`
743.05	MANUAL AUTO RUN ALLOWED TIMES	QAM;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9)!'(X?4N1"-"4N) X D:$D(X) EN5^QAQAUTL` LAST EDITED: `MAR 22, 1991` HELP-PROMPT: `Enter the range of times a manual auto enroll may run.` DESCRIPTION: `This field contains the range of time during which auto enroll may be manually queued to run. The format is HHMM-HHMM, where HH = Hours (00-23), and MM = Minutes (00-59). The second time must be greater than the first.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
743.06	ALLOW USE OF `[' IN GROUP EDIT	QAM;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `FEB 21, 1991` HELP-PROMPT: `Enter Y(es) if the contains operator ([) is allowed in the group edit.` DESCRIPTION: `If this field is set to YES the user may enter [GROUP MEMBER at the Select GROUP MEMBER prompt to select all entries that contain the text GROUP MEMBER as part of their name.`
743.99	VERSION (QAM)	VER;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X` LAST EDITED: `OCT 22, 1992` HELP-PROMPT: `Enter the version of this package currently running, (1-8 characters).` DESCRIPTION: `Indicates the version of the Monitoring System package.`
745.01	DISPLAY ISSUE CODES?	QAC;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 07, 1994` HELP-PROMPT: `Enter YES if you want to display Issue Codes and Services that were previously selected.` DESCRIPTION: `While editing a contact record, if you want to display all the Issue Codes and Services you previously selected prior to the prompt Issue Codes, enter YES at this prompt.`
745.02	AUTOMATIC ROC ALERT	QAC;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 14, 1994` HELP-PROMPT: `Enter 'YES' to automatically send ROC alerts to entries in the Refer Contact To field.` DESCRIPTION: `If this field contains a 'YES', an alert for a Patient Rep Report of Contact will be sent automatically to the entries in the Refer Contact To field. Responses from each alert will be automatically laid into the` `Resolution field for review/edit by the Patient Representative.`
745.99	VERSION (QAC)	VER;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `OCT 19, 1993` HELP-PROMPT: `Enter the version of this package currently running, (1-8 characters).` DESCRIPTION: `Indicates the version of the Patient Representative package.`
747.01	1ST ADDRESS LINE	RC;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the 1st address line for the Facility.`
747.02	2ND ADDRESS LINE	RC;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the 2nd address line for the Facility.`
747.03	CITY	RC;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the city of the Facility.`
747.04	STATE	RC;4	POINTER TO STATE FILE (#5)	STATE(#5) LAST EDITED: `OCT 30, 1989` DESCRIPTION: `This field is a pointer to the State File and contains the State of the Facility.`
747.05	ZIP	RC;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<5) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 5-10 characters in length.` DESCRIPTION: `This field contains the zip code of the Facility.`
747.06	MAIN TELE. NO.	RC;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>14!($L(X)<7) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 7-14 characters in length.` DESCRIPTION: `Please use the format:(XXX)111-1111`
747.07	COORD. SEC. NAME	RC;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Name of the Credentialing Coordinator's Secretary.`
747.08	COORDINATOR	RC;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Name of Coordinator for the Credentialing process.`
747.09	COORD. TELE.	RC;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<4) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 4-25 characters in length.` DESCRIPTION: `This field contains the Coordinator's telephone number.`
747.1	PERSONNEL CHIEF	RC;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the name of the Personnel Chief for the Facility.`
747.11	DIRECTOR NAME	RC1;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `This field contains the name of the Director for the Facility.`
747.12	APPLICANT NAME		COMPUTED	MUMPS CODE: `S X=$S($D(SELAPP):SELAPP,1:"")` ALGORITHM: `S X=$S($D(SELAPP):SELAPP,1:"")` DESCRIPTION: `This field is a computed field and requires no input.`
747.13	PERSONNEL ROUTING SYM	RC1;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<2) X` LAST EDITED: `OCT 30, 1989` HELP-PROMPT: `Answer must be 2-9 characters in length.` DESCRIPTION: `This field contains the mail routing symbol for the Personnel Service.`
747.14	COORD. ROUTING SYM	RC1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<2) X` LAST EDITED: `NOV 02, 1989` HELP-PROMPT: `Answer must be 2-9 characters in length.` DESCRIPTION: `This field contains the mail routing symbol for the Credentialing Coordinator.`
747.15	COORD. TITLE	RC1;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>35!($L(X)<3) X` LAST EDITED: `FEB 09, 1990` HELP-PROMPT: `Answer must be 3-35 characters in length.` DESCRIPTION: `This field contains the official title of the Credentialing Coordinator.`
747.16	FSMB DOMAIN	RC1;5	FREE TEXT	INPUT TRANSFORM: `S DIC=4.2,DIC(0)="EMNQ" D ^DIC S X=$P(Y,"^",2) K:Y'>0 X` LAST EDITED: `MAR 05, 1991` HELP-PROMPT: `Answer must be 1-12 characters in length.` DESCRIPTION: `This field is used to input the server name and Domain if your region decides to use the FSMB portion of this package. ie S.QARFSMB@ISC-CHICAGO.` EXECUTABLE HELP: `S D="B",DIC="^DIC(4.2,",DIC(0)="AEMNQ" D DQ^DICQ` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
747.2	CHIEF OF STAFF	RC1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 3-30 characters in length.` DESCRIPTION: `Name of Chief of Staff for this facility.`
747.21	C.O.S TELE.#	RC1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<7) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Please Use format (999)123-1234` DESCRIPTION: `This field contains the telephone number of the Chief of Staff.`
747.23	C.O.S. ROUTING SYM	RC1;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<2) X` LAST EDITED: `SEP 13, 1991` HELP-PROMPT: `Answer must be 2-9 characters in length.` DESCRIPTION: `This field contains the mail routing symbol for the Chief of Staff.`
747.99	VERSION (QAR)	VER;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X` LAST EDITED: `OCT 22, 1992` HELP-PROMPT: `Enter the version of this package currently running, (1-8 characters).` DESCRIPTION: `Indicates the version of the Credentials Tracking package.`
748.99	VERSION (QAP)	VER;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X` LAST EDITED: `OCT 22, 1992` HELP-PROMPT: `Enter the version of this package currently running, (1-8 characters).` DESCRIPTION: `Indicates the version of the Survey Generator package.`
749	MULTI-DIVISIONAL PAT REP FACILITY	QAC;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `NOV 22, 1997` HELP-PROMPT: `Enter Y(ES) if facility is multi-divisional for Pet. Rep.` DESCRIPTION: `This field is set to YES if the facility has been integrated via the DBIA process, and has one computer system and database for more than one station.`
750	PAT REP HOSPITAL DIVISION	QAC2;0	POINTER Multiple #740.03	740.03
751	MULTI-DIVISIONAL INCID REP FACILITY	QAN;5	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `DEC 09, 1997` HELP-PROMPT: `Enter '1' if your site has integrated through NDBI.` DESCRIPTION: `This field holds a '1' or 'YES' if the station is an NDBI integrated Facility, with more than one Medical Center using one database.`
752	IR HOSPITAL DIVISION	QAN2;0	POINTER Multiple #740.0752	740.0752 DESCRIPTION: `This field is a pointer to the INSTITUTION file (#4). It is used by integrated sites to store the names of the Medical Centers in the integrated group.`
753	QAC LAST RECORD	QAC;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 01, 2000` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits` DESCRIPTION: `This field holds the IEN from file #745.1 of the last record that has been rolled up to the national database. The records are rolled up by a daily tasked job run by routines QACMAIL0 and ^QACMAIL1.`
754	QAC ROLLUP TASK	QAC;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 13, 2000` HELP-PROMPT: `Type a Number between 0 and 999999999999999, 0 Decimal Digits` DESCRIPTION: `This field will hold the task number of the latest data rollup for the Patient Representative package. This task number will be checked before tasking the daily rollup to see if there is already a copy of the job on the` `task list. This will prevent multiple copies of the job from being tasked.`
755	QAN TIME REQUIRED	QAN;6	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 09, 2000` HELP-PROMPT: `Enter '1' or 'Yes' if your site requires a time be entered in the Date of Incident field.` DESCRIPTION: `Field set to '1' or 'Yes' if site requires Date of Incident to include time of day.`

ICR LINK	Subscribing Package(s)	Fields Referenced
ICR #2073	Patient Representative	MULTI-DIVISIONAL FACILITY (741.1). Access: Read w/Fileman HOSPITAL DIVISION (.01). Access: Read w/Fileman
ICR #2163	Incident Reporting	MULTI-DIVISIONAL INCID REP FACILITY (751). Access: Read w/Fileman IR HOSPITAL DIVISION (752). Access: Read w/Fileman
ICR #3061	Patient Representative	QAC LAST RECORD (753). Access: Direct Global R/W & w/Fileman QAC ROLLUP TASK (754). Access: Write w/Fileman

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	741.97+1, 741.98+1
D	740.02(HELP ), 740.04(HELP ), 747.16(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K)
>> DIC	740.02+1, 740.02(HELP ), 740.04+1, 740.04(HELP ), 747.16+1*, 747.16(HELP )
>> DIC(0	740.02+1, 740.02(HELP ), 740.04+1, 740.04(HELP ), 747.16+1*, 747.16(HELP )
>> DINUM	.01+1*
>> SELAPP	747.12+1
X	.001+1!, .01(XREF 1S), .01(XREF 1K), 740.01+1!, 740.02+1!, 740.02(HELP ), 740.03+1!, 740.04+1!, 740.04(HELP ), 740.99+1! , 741.01+1!, 741.02+1!, 741.05+1!, 741.06+1!, 741.97+1!, 741.98+1!, 741.99+1!, 742.04+1!, 742.99+1!, 743.02+1! , 743.03+1!, 743.04+1!, 743.05+1!, 743.99+1!, 745.99+1!, 747.01+1!, 747.02+1!, 747.03+1!, 747.05+1!, 747.06+1! , 747.07+1!, 747.08+1!, 747.09+1!, 747.1+1!, 747.11+1!, 747.12+1, 747.13+1!, 747.14+1!, 747.15+1!, 747.16+1! , 747.2+1!, 747.21+1!, 747.23+1!, 747.99+1!, 748.99+1!, 753+1!, 754+1!
>> Y	740.02+1, 740.04+1, 741.05+1, 741.05OT+1, 741.97+1, 741.98+1, 743.02+1, 743.02OT+1, 747.16+1
>> Y(0	741.05OT+1, 743.02OT+1

Customize PDF page

Package: Quality Assurance Integration

Global: ^QA(740

Information

Description

Directly Accessed By Routines, Total: 61

Accessed By FileMan Db Calls, Total: 5

Pointer To FileMan Files, Total: 5

Fields, Total: 67

Found Entries, Total: 1

ICR, Total: 3

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	741.97+1, 741.98+1
^DIC	740.02+1, 740.04+1, 747.16+1
DQ^DICQ	740.02(HELP ), 740.04(HELP ), 747.16(HELP )
EN1^QAQAUTL	741.05+1, 743.02+1
EN3^QAQAUTL	741.05(HELP ), 743.02(HELP )
EN5^QAQAUTL	743.05+1