Global: ^ACK(509850.6

FileMan FileNo	FileMan Filename	Package
509850.6	A&SP CLINIC VISIT	Quasar

Package	Total	Routines
Quasar	32	ACKQAS ACKQAS2 ACKQAS4 ACKQAS5 ACKQASU1 ACKQASU2 ACKQASU3 ACKQASU5 ACKQASU6 ACKQCDD2 ACKQCP ACKQDWL1 ACKQIPST ACKQPCE1 ACKQPCE3 ACKQPCX ACKQTE ACKQTE10 ACKQTE11 ACKQTE2 ACKQTE6 ACKQTE7 ACKQTE8 ACKQTE9 ACKQUTL ACKQUTL2 ACKQUTL3 ACKQUTL4 ACKQUTL5 ACKQUTL6 ACKQUTL7 ACKQUTL8
DSS Extracts	2	ECXAECQ ECXQSR

Package	Total	FileMan Files
Quasar	6	CDR ACCOUNT(#509850)[5] A&SP DIAGNOSTIC CONDITION(#509850.1)[#509850.63(.01)] A&SP PATIENT(#509850.2)[1] A&SP STAFF(#509850.3)[.25, .27, 6, 7, 8, #509850.61(.05), #509850.615(.05), #509850.63(.14), #509850.66(.01)] A&SP PROCEDURE CODE(#509850.4)[#509850.61(.01)] A&SP PROCEDURE MODIFIER(#509850.5)[#509850.64(.01)]
Registration	2	MEDICAL CENTER DIVISION(#40.8)[60] ELIGIBILITY CODE(#8)[80]
Event Capture	1	EC NATIONAL PROCEDURE(#725)[#509850.615(.01)]
Scheduling	1	HOSPITAL LOCATION(#44)[2.6]

Fields, Total: 66

Field #	Name	Loc	Type	Details
.01	DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EXT" D ^%DT S:Y["." Y=$P(Y,".",1) S X=Y K:Y<0 X I $D(X) D CHKDT^ACKQAS` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Enter the patient's clinic visit date.` DESCRIPTION: `The DATE field contains the encounter date or date and time.` LAYGO TEST: `1,0)= W:'$D(ACKLAYGO) !!?5,"Input should take place ONLY through the QUASAR menu options.",!! I $D(ACKLAYGO)` `WRITE AUTHORITY: ^` `UNEDITABLE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `509850.6^B` `1)= S ^ACK(509850.6,"B",$E(X,1,30),DA)=""` `2)= K ^ACK(509850.6,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `509850.6^ATMV^MUMPS` `1)= S ACKMO=$E(X,1,5)_"00",$P(^(ACKMO),U)=$S($D(^ACK(509850.6,"ATMV",ACKMO)):^(ACKMO)+1,1:1) K ACKMO` `2)= S ACKMO=$E(X,1,5)_"00" S:$D(^ACK(509850.6,"ATMV",ACKMO)) $P(^(ACKMO),U)=^(ACKMO)-1 K:$S($D(^(ACKMO)):'^(ACKMO),1:0) ^(ACKMO) K ACKMO` `3)= DO NOT DELETE!` `This cross reference is ordered by FileMan internal date (year and month). It is used to store an incremental count of total monthly visits.` CROSS-REFERENCE: `509850.6^APCED^MUMPS` `1)= D SETREF^ACKQUTL5(X,DA,"D")` `2)= D KILLREF^ACKQUTL5(X,DA,"D")` `3)= Do not Delete` `This cross reference is only set when all four of the required fields (Visit Date, Patient, Clinic Location and Visit Time) for this cross reference exist within the Visit File. After the cross reference has been set up,` `if any of the required fields are deleted the cross reference is deleted. If any of the required fields are amended the cross reference is deleted and reset with the amended values.` CROSS-REFERENCE: `509850.6^AM^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= Q` `3)= Do not Delete` `Call to update PCE PENDING field with '1', set the SENT OKAY field to null and the LAST EDITED IN QUASAR field to todays date. This processing is not run when the dummy record is created (i.e. when D0 is undefined).`
.07	TIME SPENT (minutes)	0;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 09, 2007` HELP-PROMPT: `Enter the entire amount of time that was spent on this visit (in minutes).` DESCRIPTION: `The TIME SPENT field is used to record the TOTAL number of minutes that were used during this clinic visit. TIME SPENT is to include direct (e.g., face-to-face) and indirect time (e.g., paperwork, documentation,` `administration).` EXECUTABLE HELP: `W !?5,"Your answer should be a number between 0 and 999.",!` `WRITE AUTHORITY: ^`
.08	LINKED C&P EXAM	0;8	FREE TEXT	INPUT TRANSFORM: `W !,"You may not edit this field!",*7 K X` LAST EDITED: `JAN 08, 2008` DESCRIPTION: `For C&P exams, the LINKED C&P EXAM field is automatically filled in by the QUASAR package. It provides a means of linking this QUASAR visit with a specific AMIE C&P request. If the visit is not a C&P exam this field is` `left blank.` `This field should not be edited manually.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `509850.6^ALCP` `1)= S ^ACK(509850.6,"ALCP",$E(X,1,30),DA)=""` `2)= K ^ACK(509850.6,"ALCP",$E(X,1,30),DA)` `3)= Do not Delete` `This cross-reference stores the soft link data from the AMIE interface and the internal entry number for each clinic visit which is an AMIE C&P request.`
.09	C AND P STATUS	0;9	SET	'0' FOR NOT A C&P EXAM; '1' FOR NOT SIGNED OFF; '2' FOR AWAITING ADEQUATION; '3' FOR COMPLETE; LAST EDITED: `JUL 17, 1995` HELP-PROMPT: `Enter the code for the C&P status.` DESCRIPTION: `The C AND P STATUS field indicates the status of the C&P exam (if any). 0 stands for NOT A C&P EXAM, 1 stands for NOT SIGNED OFF, 2 stands for AWAITING ADEQUATION, and 3 stands for COMPLETE.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the C AND P field of the A&SP CLINIC VISIT File` `TRIGGERED by the SIGNATURE field of the A&SP CLINIC VISIT File` `TRIGGERED by the ADEQUATED BY field of the A&SP CLINIC VISIT File` CROSS-REFERENCE: `509850.6^AWAIT^MUMPS` `1)= S:X=1!(X=2) ^ACK(509850.6,"AWAIT",X,DA)=""` `2)= K ^ACK(509850.6,"AWAIT",X,DA)` `3)= DO NOT DELETE!` `This cross-reference is ordered by C AND P STATUS set of codes number, followed by internal entry number. It is used to quickly find C&P exams waiting for signatures. A look-up cross-reference was not used, as the lookup` `was not intended to be available to FileMan proper.`
.25	*SECOND CLINCIAN	2;5	POINTER TO A&SP STAFF FILE (#509850.3)	A&SP STAFF(#509850.3) INPUT TRANSFORM: `S DIC("S")="I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""0""!(ACKVALSC=""-6"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `If a secondary provider was involved with this visit, enter his or her name.` DESCRIPTION: `If more than one provider was involved in this exam, the name of the SECONDARY PROVIDER should be entered here. In order to enter a provider in this field, the provider must already exist in the A&SP STAFF file` `(#509850.3) and the ACTIVATION DATE and INACTIVATION DATE must indicate that the selected provider is active on the date of the exam. The SECONDARY PROVIDER field can be left blank.` SCREEN: `S DIC("S")="I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""0""!(ACKVALSC=""-6"")"` EXPLANATION: `Only A&SP CLINICIANS or OTHER PROVIDERS who are ACTIVE on the VISIT DATE can be selected.` EXECUTABLE HELP: `I '$D(ACKVD) W !?5,"Input should take place ONLY through the QUASAR menu options.",!` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `509850.6^ST2^MUMPS` `1)= S ^ACK(509850.6,"ST",X,DA)=2` `2)= K ^ACK(509850.6,"ST",X,DA)` `3)= DO NOT DELETE!` `The ST subscript holds cross-references for all staff involved in this clinic visit. Rather than set the cross-reference equal to null, it is coded as to the position of the staff member.` `1 = PRIMARY PROVIDER` `2 = SECONDARY PROVIDER` `3 = STUDENT` CROSS-REFERENCE: `509850.6^AJ^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `Call to update send to PCE field with todays date, this in turn creates the cross reference used by the overnight send to PCE process.`
.27	*LEAD ROLE	2;7	POINTER TO A&SP STAFF FILE (#509850.3)	A&SP STAFF(#509850.3) INPUT TRANSFORM: `S DIC("S")="I $D(ACKSTF(Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 19, 1999` HELP-PROMPT: `Enter the name of the lead staff member involved in this exam.` DESCRIPTION: `For visits involving more than one staff member, the LEAD ROLE field is provided to show which staff member played the leading role in the examination. Credit for the visit is always given to the clinician in the LEAD` `ROLL field.` `This field can only be entered through the Enter Clinic Visits option.` `The LEAD ROLE field has been marked for deletion. This field is not used by QUASAR V. 3.0. Eighteen months after the release of QUASAR 3.0, this field can be removed.` SCREEN: `S DIC("S")="I $D(ACKSTF(Y))"` EXPLANATION: `You must select a clinician, other provider, or student involved with this exam.` `WRITE AUTHORITY: ^`
1	PATIENT NAME	0;2	POINTER TO A&SP PATIENT FILE (#509850.2)	**********************REQUIRED FIELD********************** A&SP PATIENT(#509850.2) INPUT TRANSFORM: `S DFN=X` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Enter the name of the patient seen during this clinic visit.` DESCRIPTION: `The PATIENT NAME field contains the name of the patient seen during this clinic visit. In order to enter a patient name into this field, the patient must already exist in the PATIENT file (#2).` `WRITE AUTHORITY: ^` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^509850.6^2` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(509850.6,1,1,1,1.1) X ^DD(509850.6,1,1,1,1.4)` `1.1)= S X=DIV X ^DD(509850.6,1,1,1,49.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,.36)):^(.36),1:"") S X=$S('$D(^DIC(8,+$P(Y(201),U,1),0)):"",1:$P(^(0),U,1)) S D0=I(0,0)` `1.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=509850.6,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(509850.6,1,1,1,2.4)` `2.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=509850.6,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `3)= DO NOT DELETE!` `49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACK(509850.2,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""),Y(101)=$S($D(^ACK(509850.2,D0,0)):^(0),1:"")` `CREATE VALUE)= PATIENT NAME:NAME:ELIGIBILITY CODE` `DELETE VALUE)= @` `FIELD)= PATIENT ELIGI` `The PATIENT NAME field triggers the appropriate value into the PATIENT ELIGIBILITY CODE field.` CROSS-REFERENCE: `^^TRIGGER^509850.6^1.5` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV D AOA^ACKQAS X ^DD(509850.6,1,1,2,1.4)` `1.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=509850.6,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(509850.6,1,1,2,2.4)` `2.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=509850.6,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `3)= DO NOT DELETE!` `CREATE VALUE)= D AOA^ACKQAS` `DELETE VALUE)= @` `FIELD)= AGE ON APPOINTMENT` `The PATIENT NAME field triggers the appropriate value into the AGE ON APPOINTMENT field.` CROSS-REFERENCE: `509850.6^APT` `1)= S ^ACK(509850.6,"APT",$E(X,1,30),DA)=""` `2)= K ^ACK(509850.6,"APT",$E(X,1,30),DA)` `3)= DO NOT DELETE!` `This cross-reference is in patient DFN and internal entry number order.` CROSS-REFERENCE: `^^TRIGGER^509850.2^1` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(509850.6,1,1,4,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV D IVD^ACKQAS X ^DD(509850.6,1,1,4,1.4)` `1.4)= S DIH=$S($D(^ACK(509850.2,DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=509850.2,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `2)= Q` `3)= Do not Delete.` `89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:""),D0=$P(Y(1),U,2) S:'$D(^ACK(509850.2,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACK(509850.2,D0,0)):^(0),1:"")` `CREATE VALUE)= D IVD^ACKQAS` `DELETE VALUE)= NO EFFECT` `FIELD)= #1:#1` `When a PATIENT NAME is selected for this visit, the user is asked for the patient's INITIAL VISIT DATE if it has not been entered.` CROSS-REFERENCE: `509850.6^APD^MUMPS` `1)= S ^ACK(509850.6,"APD",X,+^ACK(509850.6,DA,0),DA)=""` `2)= K ^ACK(509850.6,"APD",X,+^ACK(509850.6,DA,0),DA)` `3)= DO NOT DELETE!` `This cross-reference is in patient DFN, date of visit, and internal entry number order. It is used to check for duplicate visits by this patient on this date.` CROSS-REFERENCE: `509850.6^C` `1)= S ^ACK(509850.6,"C",$E(X,1,30),DA)=""` `2)= K ^ACK(509850.6,"C",$E(X,1,30),DA)` `3)= DO NOT DELETE!` `This cross-reference is in patient DFN and internal entry number order. It is used for lookup by patient name.` CROSS-REFERENCE: `509850.6^APCEP^MUMPS` `1)= D SETREF^ACKQUTL5(X,DA,"P")` `2)= D KILLREF^ACKQUTL5(X,DA,"P")` `3)= Do not Delete` `This cross reference is only set when all four of the required fields (Visit Date, Patient, Clinic Location and Visit Time) for this cross reference exist within the Visit File. After the cross reference has been set up,` `if any of the required fields are deleted the cross reference is deleted. If any of the required fields are amended the cross reference is deleted and reset with the amended values.` CROSS-REFERENCE: `509850.6^AEXPAT^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index sets the last edited in Quasar to NOW which in turn may cause the visit to be a PCE Exception.`
1.5	AGE ON APPOINTMENT	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>120)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 17, 1995` HELP-PROMPT: `Enter a number between 0 and 120 with 0 decimal digits.` DESCRIPTION: `The AGE ON APPOINTMENT field is automatically filled in by the QUASAR package. It is triggered by the PATIENT NAME field of the A&SP CLINIC VISIT file (#509850.6).` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the PATIENT NAME field of the A&SP CLINIC VISIT File`
2	PATIENT ELIGIBILITY CODE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 02, 2000` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: `This is the Primary Eligibility of the patient` EXECUTABLE HELP: `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the PATIENT NAME field of the A&SP CLINIC VISIT File`
2.5	C AND P	0;5	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Is this a C&P exam?` DESCRIPTION: `The C AND P field contains 0 or NO if this is not a C&P exam. The field contains 1 or YES if this is a C&P exam.` `WARNING: QUASAR points to the AMIE 2507 REQUEST file (#396.3) to determine if a patient on a given date is a C&P visit. If AUDIO exam is not found in the exam list, QUASAR does not recognize the visit as a C&P visit.` `The C AND P field can be filled with 1 or YES at the "Is this a C&P exam?" prompt or by entering ^C AND P. This provides you with the AMIE worksheet fields, but the examination is not available for adequation and is not` `linked to the AMIE system.` EXECUTABLE HELP: `WRITE AUTHORITY: ^` CROSS-REFERENCE: `^^TRIGGER^509850.6^.09` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,2.5,1,1,1.4)` `1.1)= S X=DIV S X=DIV,X=X S X=X=1,Y(1)=X S X=1,Y(2)=X S X=1,Y(3)=X S X=0,X=$S(Y(1):Y(2),Y(3):X)` `1.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,2.5,1,1,2.4)` `2.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `3)= DO NOT DELETE!` `CREATE VALUE)= D TRIGCP^ACKQUTL` `DELETE VALUE)= D TRIGCP^ACKQUTL` `FIELD)= #.09` `The C AND P field triggers the appropriate value into the C AND P STATUS field.`
2.6	CLINIC LOCATION	0;6	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Enter the clinic location for this visit.` DESCRIPTION: `The CLINIC LOCATION field is a pointer to the HOSPITAL LOCATION file (#44). Clinic location names must match exactly with MAS clinic names set up in DHCP.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `509850.6^APCEC^MUMPS` `1)= D SETREF^ACKQUTL5(X,DA,"C")` `2)= D KILLREF^ACKQUTL5(X,DA,"C")` `3)= Do not Delete` `This cross reference is only set when all four of the required fields (Visit Date, Patient, Clinic Location and Visit Time) for this cross reference exist within the Visit File. After the cross reference has been set up,` `if any of the required fields are deleted the cross reference is deleted. If any of the required fields are amended the cross reference is deleted and reset with the amended values.` CROSS-REFERENCE: `509850.6^AEXCLN^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updated the Last Edited in Quasar field which in turn may cause the visit to become a PCE Exception.`
2.7	SECONDARY PROVIDER	2.7;0	POINTER Multiple #509850.66	509850.66 LAST EDITED: `NOV 04, 1999`
3	DIAGNOSTIC CODE	1;0	POINTER Multiple #509850.63	509850.63 DESCRIPTION: `The DIAGNOSTIC CODE field is a pointer to the A&SP DIAGNOSTIC CONDITION file (#509850.1).` `WRITE AUTHORITY: ^`
4	CLINIC STOP CODE	2;1	SET	'A' FOR AUDIOLOGY; 'S' FOR SPEECH; 'AT' FOR TELEPHONE AUDIOLOGY; 'ST' FOR TELEPHONE SPEECH; LAST EDITED: `MAY 12, 1999` HELP-PROMPT: DESCRIPTION: `The CLINIC STOP CODE field contains A for Audiology, S for Speech Pathology, AT for an Audiology Telephone visit and ST for Speech Telephone visit.` `WRITE AUTHORITY: ^`
4.01	TONE R500	4;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE R500 field indicates the patient's pure tone threshold at 500Hz. The 500Hz threshold is not currently used for evaluation, but is used in determining whether or not a ratable hearing loss exists. It is not` `included in the four-frequency average.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `509850.6^AMD^MUMPS` `1)= S X1=^ACK(509850.6,DA,0) S:'$D(ACKNAMD) ^ACK(509850.6,"AMD",+$P(X1,U,2),9999999-$P(X1,U),DA)="" K X1` `2)= S X1=^ACK(509850.6,DA,0) K ^ACK(509850.6,"AMD",+$P(X1,U,2),9999999-$P(X1,U),DA),X1` `3)= Do not delete` `This cross-reference is in patient DFN, inverse date, and internal entry number order. It is used to easily locate the most recent audiometric data for a patient.`
4.02	TONE R1000	4;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE R1000 field indicates the pure tone threshold (Right) at 1000Hz for this patient.` `WRITE AUTHORITY: ^`
4.03	TONE R2000	4;3	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE R2000 field indicates the pure tone threshold (Right) at 2000Hz for this patient.` `WRITE AUTHORITY: ^`
4.04	TONE R3000	4;4	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE R3000 field indicates the pure tone threshold (Right) at 3000Hz for this patient.` `WRITE AUTHORITY: ^`
4.05	TONE R4000	4;5	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE R4000 field indicates the pure tone threshold (Right) at 4000Hz for this patient.` `WRITE AUTHORITY: ^`
4.06	TONE R AVERAGE	4;6	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 17, 1998` HELP-PROMPT: `Type a Number between 0 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE R AVERAGE field is the average pure tone threshold for this patient's right ear. This indicates the average of the 1000, 2000, 3000 and 4000Hz scores for the right ear.` `This is a computed field. If the package options are used to enter the 1000 to 4000Hz threshold values, this field is computed and filled in by the QUASAR software.` EXECUTABLE HELP: `W !?5,"This field is automatically filled in by the package.",!` `WRITE AUTHORITY: ^`
4.07	TONE L500	4;7	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE L500 field indicates the patient's pure tone threshold at 500Hz. The 500Hz threshold is not currently used for evaluation, but is used in determining whether or not a ratable hearing loss exists. It is not` `included in the four-frequency average.` `WRITE AUTHORITY: ^`
4.08	TONE L1000	4;8	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE L1000 field indicates the pure tone threshold (Left) at 1000Hz for this patient.` `WRITE AUTHORITY: ^`
4.09	TONE L2000	4;9	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE L2000 field indicates the pure tone threshold (Left) at 2000Hz for this patient.` `WRITE AUTHORITY: ^`
4.1	TONE L3000	4;10	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE L3000 field indicates the pure tone threshold (Left) at 3000Hz for this patient.` `WRITE AUTHORITY: ^`
4.11	TONE L4000	4;11	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<-10)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Type a Number between -10 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE L4000 field indicates the pure tone threshold (Left) at 4000Hz for this patient.` `WRITE AUTHORITY: ^`
4.12	TONE L AVERAGE	4;12	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>105)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 17, 1998` HELP-PROMPT: `Type a Number between 0 and 105, 0 Decimal Digits` DESCRIPTION: `The TONE L AVERAGE field is the average pure tone threshold for this patient's left ear. This indicates the average of the 1000, 2000, 3000 and 4000Hz scores for the left ear.` `This is a computed field. If the package options are used to enter the 1000 to 4000Hz threshold values, this field is computed and filled in by the QUASAR software.` EXECUTABLE HELP: `W !?5,"This field is automatically filled in by the package.",!` `WRITE AUTHORITY: ^`
4.13	CNC R	4;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Enter a number between 0 and 100 without the % symbol.` DESCRIPTION: `The CNC R field contains the patient's (Right) word recognition score for Maryland CNC material. This score is a percentage between 0 and 100.` `WRITE AUTHORITY: ^`
4.14	CNC L	4;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Enter a number between 0 and 100 without the % symbol.` DESCRIPTION: `The CNC L field contains the patient's (Left) word recognition score for Maryland CNC material. This score is a percentage between 0 and 100.` `WRITE AUTHORITY: ^`
4.15	W22 R	4;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Enter a number between 0 and 100 without the % symbol.` DESCRIPTION: `The W22 R field contains the patient's (Right) word recognition score for CID W-22 material. This score is a percentage between 0 and 100.` `WRITE AUTHORITY: ^`
4.16	W22 L	4;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Enter a number between 0 and 100 without the % symbol.` DESCRIPTION: `The W22 L field contains the patient's (Left) word recognition score for CID W-22 material. This score is a percentage between 0 and 100.` `WRITE AUTHORITY: ^`
4.17	SIGNATURE	4;17	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 01, 2007` HELP-PROMPT: `Your answer must be 3 to 30 characters in length.` DESCRIPTION: `For C&P exams, the SIGNATURE field contains the electronic signature of the audiologist who completed the exam. When the exam is signed, it is released for adequation by the supervisor. Clinicians and adequators must` `have an electronic signature provided by IRM or selected through the Edit Electronic Signature Code option on the User's Toolbox menu in the user's secondary DHCP menu. The signature field is not displayed for routine` `exams.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `^^TRIGGER^509850.6^.09` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,4.17,1,1,1.4)` `1.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,4.17,1,1,2.4)` `2.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `3)= DO NOT DELETE!` `CREATE VALUE)= D TRIGCP^ACKQUTL` `DELETE VALUE)= D TRIGCP^ACKQUTL` `FIELD)= #.09` `The SIGNATURE field triggers the appropriate value into the C&P STATUS field.`
4.18	DATE SIGNED	4;18	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 01, 2007` HELP-PROMPT: `Enter the date and time that the electronic signature was entered.` DESCRIPTION: `For C&P exams, the DATE SIGNED field contains the date that the electronic signature was entered, thereby releasing the C&P exam for adequation. The DATE SIGNED field is not displayed for routine exams.` `WRITE AUTHORITY: ^`
4.19	ADEQUATED BY	4;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `JUL 25, 1995` HELP-PROMPT: `Your answer must be 3 to 30 characters in length.` DESCRIPTION: `The ADEQUATED BY field contains the electronic signature of the audiologist who adequated the clinic visit. Only an adequator designated as a supervisor in the A&SP STAFF file (#509850.3) can adequate a C&P exam for other` `clinicians. Clinicians may adequate there own C&P exams.` `Adequators must have an electronic signature provided by IRM or selected through the Edit Electronic Signature Code option on the User's Toolbox menu in the user's secondary DHCP menu. The signature field is not displayed` `for routine exams. Adequated exams can be printed and/or released to the AMIE package.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `^^TRIGGER^509850.6^.09` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,4.19,1,1,1.4)` `1.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,4.19,1,1,2.4)` `2.4)= S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'=""` `3)= DO NOT DELETE!` `CREATE VALUE)= D TRIGCP^ACKQUTL` `DELETE VALUE)= D TRIGCP^ACKQUTL` `FIELD)= #.09` `The ADEQUATED BY field triggers the appropriate value into the C&P STATUS field.`
4.2	DATE ADEQUATED	4;20	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUL 25, 1995` HELP-PROMPT: `Enter the date and time that the electronic signature was entered.` DESCRIPTION: `The DATE ADEQUATED field contains the date that the electronic signature was entered for the adequation of this C&P exam.` `WRITE AUTHORITY: ^`
4.21	*NU6 R	4;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 14, 1995` HELP-PROMPT: `Enter a number between 0 and 100 with 0 decimal digits.` DESCRIPTION: `The NU6 R field contains the patient's (Right) word recognition score for NU-6 material. This score is a percentage between 0 and 100.` `The NU6 R field has been marked for deletion. This field is not used by QUASAR V. 2.0. Eighteen months after the release of QUASAR 2.0, this field can be removed.` `WRITE AUTHORITY: ^`
4.22	*NU6 L	4;22	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 14, 1995` HELP-PROMPT: `Enter a number between 0 and 100 with 0 decimal digits.` DESCRIPTION: `The NU6 L field contains the patient's (Left) word recognition score for NU-6 material. This score is a percentage between 0 and 100.` `The NU6 L field has been marked for deletion. This field is not used by QUASAR V. 2.0. Eighteen months after the release of QUASAR 2.0, this field can be removed.` `WRITE AUTHORITY: ^`
4.23	DATE OF AUDIOMETRIC TESTING	4;23	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Enter the date that audiometric testing was done.` DESCRIPTION: `When audiometric data are pulled from a past visit (i.e., testing is not done on the current date), the DATE OF AUDIOMETRIC TESTING field is filled with the date when actual testing was done.` `WRITE AUTHORITY: ^`
4.24	COMPLETER TITLE	4;24	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `MAY 01, 2007` HELP-PROMPT: `Your answer must be 3 to 30 characters in length.` DESCRIPTION: `For C&P exams, the COMPLETER TITLE field contains the title of the audiologist who completed the exam. QUASAR fills in this field from the SIGNATURE BLOCK TITLE in the NEW PERSON file (#200). SIGNATURE BLOCK TITLE can be` `entered by IRM or through the Edit Electronic Signature Code option on the User's Toolbox menu in the user's secondary DHCP menu. The title field is not displayed for routine exams.` `WRITE AUTHORITY: ^`
4.25	ADEQUATOR TITLE	4;25	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X` LAST EDITED: `APR 02, 1996` HELP-PROMPT: `Your answer must be 3 to 30 characters in length.` DESCRIPTION: `For C&P exams, the ADEQUATOR TITLE field contains the title of the audiologist who adequated the clinic visit. QUASAR fills in this field from the SIGNATURE BLOCK TITLE in the NEW PERSON file (#200). SIGNATURE BLOCK` `TITLE can be entered by IRM or through the Edit Electronic Signature Code option on the User's Toolbox menu in the user's secondary DHCP menu. The title field is not displayed for routine exams.` `WRITE AUTHORITY: ^`
5	CDR ACCOUNT	2;2	POINTER TO CDR ACCOUNT FILE (#509850)	CDR ACCOUNT(#509850) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 30, 2007` HELP-PROMPT: `Enter the CDR account number for this exam.` DESCRIPTION: `The CDR ACCOUNT field contains the CDR account number to be credited with this clinic visit.` SCREEN: `S DIC("S")="I $P(^(0),U,5)=1"` EXPLANATION: `The CDR account must be active.` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `509850.6^ATCAT^MUMPS` `1)= S ACKCAT=$E(^ACK(509850,X,0),1,2),ACKMO=$E(^ACK(509850.6,DA,0),1,5)_"00",$P(^(ACKCAT),U)=$S($D(^ACK(509850.6,"ATCAT",ACKMO,ACKCAT)):^(ACKCAT)+1,1:1)` `2)= S ACKCAT=$E(^ACK(509850,X,0),1,2),ACKMO=$E(^ACK(509850.6,DA,0),1,5)_"00" S:$D(^ACK(509850.6,"ATCAT",ACKMO,ACKCAT)) $P(^(ACKCAT),U)=^(ACKCAT)-1 K:$S($D(^(ACKCAT)):'^(ACKCAT),1:0) ^(ACKCAT) K ACKCAT,ACKMO` `3)= DO NOT DELETE!` `This cross reference is ordered by FileMan internal date (year and month), followed by the first two digits of the CDR account number. The cross-reference is used to store an incremental count of the visits for the` `month/CDR category.` CROSS-REFERENCE: `509850.6^ATCDR^MUMPS` `1)= S ACKCDR=+^ACK(509850,X,0),ACKMO=$E(^ACK(509850.6,DA,0),1,5)_"00",$P(^(ACKCDR),U)=$S($D(^ACK(509850.6,"ATCDR",ACKMO,ACKCDR)):^(ACKCDR)+1,1:1) K ACKMO,ACKCDR` `2)= S ACKCDR=+^ACK(509850,X,0),ACKMO=$E(^ACK(509850.6,DA,0),1,5)_"00" S:$D(^ACK(509850.6,"ATCDR",ACKMO,ACKCDR)) $P(^(ACKCDR),U)=^(ACKCDR)-1 K:$S($D(^(ACKCDR)):'^(ACKCDR),1:0) ^(ACKCDR) K ACKMO,ACKCDR` `3)= DO NOT DELETE!` `This cross reference is ordered by FileMan internal date (year and month), followed by the full CDR account number (without trailing ".00"). The cross-reference is used to store an incremental count of the visits for the` `month and CDR account number.` CROSS-REFERENCE: `509850.6^ADCI^MUMPS` `1)= S ^ACK(509850.6,"ADCI",$E($P(^ACK(509850.6,DA,0),U),1,5)_"00",X,DA)=""` `2)= K ^ACK(509850.6,"ADCI",$E($P(^ACK(509850.6,DA,0),U),1,5)_"00",X,DA)` `3)= DO NOT DELETE!` `This cross-reference identifies the date (internal FileMan year and month), CDR number (pointer to the CDR ACCOUNT file (#509850)), and internal entry number for each clinic visit.`
6	PRIMARY PROVIDER	2;3	POINTER TO A&SP STAFF FILE (#509850.3)	A&SP STAFF(#509850.3) INPUT TRANSFORM: `S DIC("S")="I $D(ACKVD),'$$STACT^ACKQUTL(+Y,ACKVD)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Enter the name of the Primary Provider who saw the patient.` DESCRIPTION: `The PRIMARY PROVIDER field contains the name of the primary A&SP Provider who participated in this exam. In order to enter a Provider in this field, the Provider must already exist in the A&SP STAFF file (#509850.3) and` `the ACTIVATION DATE and INACTIVATION DATE must indicate that the selected Provider is active on the date of the exam.` `Credit for a clinic visit is always credited to the Primary Provider. If you want credit be given to the SECONDARY PROVIDER or STUDENT, then you should enter ONLY the name of the provider who will get the credit. For` `example, if a health technician provides care and will get credit for the visit, the health technician's name should be entered in the SECONDARY PROVIDER field. All other fields should be left blank.` SCREEN: `S DIC("S")="I $D(ACKVD),'$$STACT^ACKQUTL(+Y,ACKVD)"` EXPLANATION: `Only A&SP PRIMARY PROVIDERS who are ACTIVE on the VISIT DATE can be selected.` EXECUTABLE HELP: `I '$D(ACKVD) W !?5,"Input should take place ONLY through the QUASAR menu options.",!` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `509850.6^ST1^MUMPS` `1)= S ^ACK(509850.6,"ST",X,DA)=1` `2)= K ^ACK(509850.6,"ST",X,DA)` `3)= DO NOT DELETE!` `The ST subscript holds cross-references for all staff involved in this clinic visit. Rather than set the cross-reference equal to null, it is coded as to the position of the staff member.` `1 = PRIMARY PROVIDER` `2 = SECONDARY PROVIDER` `3 = STUDENT` CROSS-REFERENCE: `509850.6^AI^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
6.5	PCE ERROR	6.5;0	Multiple #509850.65	509850.65 LAST EDITED: `JUL 02, 1999` DESCRIPTION: `This multiple contains any error messages returned by PCE when this visit was transmitted via the Interface to PCE. The multiple contains the name of the field in error, the internal value of the field, the external value` `of the field (where possible) and the text of the error message.`
7	STUDENT	2;4	POINTER TO A&SP STAFF FILE (#509850.3)	A&SP STAFF(#509850.3) INPUT TRANSFORM: `S DIC("S")="I $D(ACKVD),$$STACT^ACKQUTL(+Y,ACKVD)=-2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `If a student was involved with this visit, enter the student's name.` DESCRIPTION: `If a student or trainee participated in this exam, the name of the STUDENT should be entered here. In order to enter a student in this field, the student must already exist in the A&SP STAFF file (#509850.3), be` `designated as a student, and the ACTIVATION DATE and INACTIVATION DATE must indicate that the selected student is active on the date of the exam.` `QUASAR assumes that students are supervised 100% of the time.` SCREEN: `S DIC("S")="I $D(ACKVD),$$STACT^ACKQUTL(+Y,ACKVD)=-2"` EXPLANATION: `Only STUDENTS who are ACTIVE on the VISIT DATE can be selected.` EXECUTABLE HELP: `I '$D(ACKVD) W !?5,"Input should take place ONLY through the QUASAR menu options.",!` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `509850.6^ST3^MUMPS` `1)= S ^ACK(509850.6,"ST",X,DA)=3` `2)= K ^ACK(509850.6,"ST",X,DA)` `3)= DO NOT DELETE!` `The ST subscript holds cross-references for all staff involved in this clinic visit. Rather than set the cross-reference equal to null, it is coded as to the position of the staff member.` `1 = CLINICIAN` `2 = SECOND CLINICIAN` `3 = STUDENT` `4 = OTHER PROVIDER` CROSS-REFERENCE: `509850.6^AK^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
8	*OTHER PROVIDER	2;8	POINTER TO A&SP STAFF FILE (#509850.3)	A&SP STAFF(#509850.3) INPUT TRANSFORM: `S DIC("S")="I $D(ACKVD),$$STACT^ACKQUTL(+Y,ACKVD)=-6" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 19, 1999` HELP-PROMPT: `If an health technician was involved with this visit, enter his or her name.` DESCRIPTION: `The OTHER PROVIDER field contains the name of the health technician who participated in this exam. In order to enter a name in this field, the person must already exist in the A&SP STAFF file (#509850.3) and the` `ACTIVATION DATE and INACTIVATION DATE must indicate that the selected individual is active on the date of the exam.` `The OTHER PROVIDER field has been marked for deletion. This field is not used by QUASAR V. 3.0. Eighteen months after the release of QUASAR 3.0, this field can be removed.` SCREEN: `S DIC("S")="I $D(ACKVD),$$STACT^ACKQUTL(+Y,ACKVD)=-6"` EXPLANATION: `Only OTHER PROVIDERS who are ACTIVE on the VISIT DATE can be selected.` EXECUTABLE HELP: `I '$D(ACKVD) W !?5,"Input should take place ONLY through the QUASAR menu options.",!` `WRITE AUTHORITY: ^` CROSS-REFERENCE: `509850.6^ST4^MUMPS` `1)= S ^ACK(509850.6,"ST",X,DA)=4` `2)= K ^ACK(509850.6,"ST",X,DA)` `3)= DO NOT DELETE!` `The ST subscript holds cross-references for all staff involved in this clinic visit. Rather than set the cross-reference equal to null, it is coded as to the position of the staff member.` `1 = CLINICIAN` `2 = SECOND CLINICIAN` `3 = STUDENT` `4 = OTHER PROVIDER`
9	*DISPOSITION	2;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<3) X` LAST EDITED: `FEB 19, 1999` HELP-PROMPT: `Your answer must be 3 to 80 characters in length.` DESCRIPTION: `The DISPOSITION field permits you to enter free text data (up to 80 characters). You can code any data in this field such as clinic outcomes, pre and/or post test data, patient satisfaction, or any other numerical data.` `This data field can be sorted using FileMan in the Tailor-Made A&SP Reports option on the A&SP Reports menu.` `The DISPOSITION field has been marked for deletion. This field is not used by QUASAR V. 3.0. Eighteen months after the release of QUASAR 3.0, this field can be removed.` `WRITE AUTHORITY: ^`
10	PROCEDURE CODE	3;0	POINTER Multiple #509850.61	509850.61 DESCRIPTION: `The PROCEDURE CODE field contains CPT-4 procedure codes and modifiers, if any, for this exam.` `WRITE AUTHORITY: ^`
15	EVENT CAPTURE PROCEDURE	7;0	POINTER Multiple #509850.615	509850.615 LAST EDITED: `OCT 03, 2000`
20	SERVICE CONNECTED	5;3	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Was care for Service Connected Condition ? Enter YES or NO` DESCRIPTION: `This prompt allows the user to indicate if the visit is Service Connected or not. If the visit is not Service Connected the user may be prompted for additional information relating to Agent Orange, Radiation and` `Environmental Contaminants.` EXECUTABLE HELP: `D RATDIS^ACKQNQ W !!` CROSS-REFERENCE: `509850.6^AE^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
25	AGENT ORANGE	5;4	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Was care related to Agent Orange Exposure ? Enter YES or NO` DESCRIPTION: `Is this visit related to Agent Orange Exposure.` CROSS-REFERENCE: `509850.6^AF^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
30	RADIATION	5;5	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Was care related to Ionizing Radiation Exposure ? Enter YES or NO` DESCRIPTION: `Is this visit related to Radiation Exposure.` CROSS-REFERENCE: `509850.6^AG^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
35	ENVIRONMENTAL CONTAMINANTS	5;6	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Was care related to Environmental Contaminants Exposure ? Enter YES or NO` DESCRIPTION: `Is this visit related to Environmental Contaminants exposure.` CROSS-REFERENCE: `509850.6^AH^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
40	HEAD AND/OR NECK CANCER	5;9	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 24, 2010` HELP-PROMPT: `Was care related to Head and/or Neck Cancer?` DESCRIPTION: `Indicates whether or not the visit is related to Head and/or Neck Cancer.`
45	COMBAT RELATED	5;10	SET	**********************REQUIRED FIELD********************** '0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 24, 2010` HELP-PROMPT: `Was care related to Combat?` DESCRIPTION: `Indicates whether or not the visit is related to Combat.`
55	APPOINTMENT TIME	5;8	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X I $D(X) S X=$$DATACHEK^ACKQUTL6(X,DA) K:'X X I $D(X) I '$$DUPECHK^ACKQUTL6(X,DA,$G(ACKPAT)) S ACKITME=X K X` OUTPUT TRANSFORM: `Q:'$D(Y) S Y=$TR(Y,".",""),Y=$$FMT^ACKQUTL6(Y)` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `Enter the time the visit took place such as 10, 10AM, 10:30, 0100, 0025 etc. You may also enter a time, such as NOON, MIDNIGHT or NOW. Time is REQUIRED in this response.` EXECUTABLE HELP: `D:$D(ACKITME) DUPCHK^ACKQUTL6 D TIMERR^ACKQASU5` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `509850.6^AN^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.` CROSS-REFERENCE: `509850.6^APCET^MUMPS` `1)= D SETREF^ACKQUTL5(X,DA,"T")` `2)= D KILLREF^ACKQUTL5(X,DA,"T")` `3)= Do not Delete` `This cross reference is only set when all four of the required fields (Visit Date, Patient, Clinic Location and Visit Time) for this cross reference exist within the Visit File. After the cross reference has been set up,` `if any of the required fields are deleted the cross reference is deleted. If any of the required fields are amended the cross reference is deleted and reset with the amended values.`
60	DIVISION	5;1	POINTER TO MEDICAL CENTER DIVISION FILE (#40.8)	**********************REQUIRED FIELD********************** MEDICAL CENTER DIVISION(#40.8) LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Enter the Division at which the visit took place.` DESCRIPTION: `This is the division at which the visit took place. All clinics are defined as part of a Division. The user may only select a division that has been entered on the A&SP Site Parameters file.` CROSS-REFERENCE: `509850.6^AL^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
80	VISIT ELIGIBILITY	5;2	POINTER TO ELIGIBILITY CODE FILE (#8)	**********************REQUIRED FIELD********************** ELIGIBILITY CODE(#8) INPUT TRANSFORM: `S DIC("S")="I $D(ACKELDIS(Y))",DIC("W")="W """"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: DESCRIPTION: `Only Eligibilities associated with the visit are valid for entry.` SCREEN: `S DIC("S")="I $D(ACKELDIS(Y))",DIC("W")="W """""` EXPLANATION: `Only eligibilities associated with the visit are valid for entry.` CROSS-REFERENCE: `509850.6^AD^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
90	MILITARY SEXUAL TRAUMA	2;9	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `Please enter YES or NO.` DESCRIPTION: `Indicates whether the patients visit was related to Military Sexual Trauma.` CROSS-REFERENCE: `509850.6^AP^MUMPS` `1)= D SEND^ACKQUTL5(DA)` `2)= D SEND^ACKQUTL5(DA)` `3)= Do not Delete` `This index updates the Last Edited in QUASAR field. This in turn may cause the visit to become a PCE Exception.`
100	REVIEW OF MEDICAL RECORDS	100;0	WORD-PROCESSING #509850.62	LAST EDITED: `JUN 04, 1997` DESCRIPTION: `REVIEW OF MEDICAL RECORDS: Indicate whether the C-file was reviewed. If` `the C-file was not reviewed or was not available for review, the examiner` `should so state.` `WRITE AUTHORITY: ^` GROUP: `C AND P` `Review of Medical Records` LAST EDITED: `JUN 04, 1997` HELP-PROMPT: `State whether the C-file and SMRs were reviewed.` DESCRIPTION: `REVIEW OF MEDICAL RECORDS: Indicate whether the C-file was reviewed. If` `the C-file was not reviewed or was not available for review, the examiner` `should so state.` EXECUTABLE HELP:
101	MEDICAL HISTORY	101;0	WORD-PROCESSING #509850.6101	LAST EDITED: `JUN 04, 1997` DESCRIPTION: `MEDICAL HISTORY (SUBJECTIVE COMPLAINTS): \|NOWRAP\|` `Comment on:` `1. Chief Complaint.` `2. Situation of greatest difficulty.` `3. Pertinent service history.` `4. History of military, occupational, and recreational noise exposure.` `5. Tinnitus - If present, state:` `a. date and circumstances of onset` `b. whether it is unilateral or bilateral` `c. whether it is recurrent (indicate frequency and duration)` `d. State the most likely etiology of the tinnitus, and` `specifically, if hearing loss is present, whether the tinnitus` `is due to the same etiology (or causative factor) as the hearing` `loss.` `WRITE AUTHORITY: ^` `Medical History` LAST EDITED: `JUN 04, 1997` HELP-PROMPT: `Enter a brief medical history, including tinnitus assessment.` DESCRIPTION: `MEDICAL HISTORY (SUBJECTIVE COMPLAINTS): \|NOWRAP\|` `Comment on:` `1. Chief Complaint.` `2. Situation of greatest difficulty.` `3. Pertinent service history.` `4. History of military, occupational, and recreational noise exposure.` `5. Tinnitus - If present, state:` `a. date and circumstances of onset` `b. whether it is unilateral or bilateral` `c. whether it is recurrent (indicate frequency and duration)` `d. State the most likely etiology of the tinnitus, and` `specifically, if hearing loss is present, whether the tinnitus` `is due to the same etiology (or causative factor) as the hearing` `loss.`
102	PHYSICAL EXAMINATION	102;0	WORD-PROCESSING #509850.6102	LAST EDITED: `JUN 04, 1997` DESCRIPTION: `PHYSICAL EXAMINATION (OBJECTIVE FINDINGS): \|NOWRAP\|` `1. Measure pure tone thresholds in decibels at the indicated` `frequencies (air conduction):` `==========RIGHT EAR=============================LEFT EAR===============` `A* B C D E ** A* B C D E *` `500 1000 2000 3000 4000 average 500 1000 2000 3000 4000 average` `The pure tone threshold at 500 Hz is not used in determining the` `evaluation but is used in determining whether or not a ratable` `hearing loss exists.` `*The average of B, C, D, and E.` `2. Speech Recognition Score:` `Maryland CNC word list ______% right ear _____% left ear` `3. When only pure tone results should be used to evaluate hearing` `loss, the examiner, who must be a state-licensed audiologist, should` `certify that language difficulties or other problems (specify what` `the problems are) make the combined use of pure tone average and` `speech discrimination inappropriate.` `WRITE AUTHORITY: ^` `Physical Examination` LAST EDITED: `JUN 04, 1997` HELP-PROMPT: `Enter results of physical examination.` DESCRIPTION: `PHYSICAL EXAMINATION (OBJECTIVE FINDINGS): \|NOWRAP\|` `1. Measure pure tone thresholds in decibels at the indicated` `frequencies (air conduction):` `==========RIGHT EAR=============================LEFT EAR===============` `A B C D E ** A* B C D E *` `500 1000 2000 3000 4000 average 500 1000 2000 3000 4000 average` `The pure tone threshold at 500 Hz is not used in determining the` `evaluation but is used in determining whether or not a ratable` `hearing loss exists.` `**The average of B, C, D, and E.` `2. Speech Recognition Score:` `Maryland CNC word list ______% right ear _____% left ear` `3. When only pure tone results should be used to evaluate hearing` `loss, the examiner, who must be a state-licensed audiologist, should` `certify that language difficulties or other problems (specify what` `the problems are) make the combined use of pure tone average and` `speech discrimination inappropriate.`
103	DIAGNOSTIC AND CLINICAL TESTS	103;0	WORD-PROCESSING #509850.6103	LAST EDITED: `JUN 04, 1997` DESCRIPTION: `DIAGNOSTIC AND CLINICAL TESTS: \|NOWRAP\|` `1. Report middle-ear status, confirm type of loss, and indicate need for` `medical follow-up. In cases where there is poor inter-test` `reliability and/or positive Stenger test results, obtain and report` `estimates of hearing thresholds using a combination of behavioral` `testing, Stenger interference levels, and electrophysiological tests.` `2. Include results of all diagnostic and clinical tests conducted in the` `examination report.` `WRITE AUTHORITY: ^` `Diagnostic and Clinical Tests` LAST EDITED: `JUN 04, 1997` HELP-PROMPT: `Enter a summary of all diagnostic and clinical tests.` DESCRIPTION: `DIAGNOSTIC AND CLINICAL TESTS: \|NOWRAP\|` `1. Report middle-ear status, confirm type of loss, and indicate need for` `medical follow-up. In cases where there is poor inter-test` `reliability and/or positive Stenger test results, obtain and report` `estimates of hearing thresholds using a combination of behavioral` `testing, Stenger interference levels, and electrophysiological tests.` `2. Include results of all diagnostic and clinical tests conducted in the` `examination report.`
104	DIAGNOSIS	104;0	WORD-PROCESSING #509850.6104	LAST EDITED: `JUN 04, 1997` DESCRIPTION: `DIAGNOSIS: \|NOWRAP\|` `1. Summary of audiologic test results. Indicate type and degree of` `hearing loss for the frequency range from 500 to 4000 Hz. For type of` `loss, indicate whether it is normal, conductive, sensorineural,` `central, or mixed. For degree, indicate whether it is mild (26-40 dB` `HL), moderate (41-54 dB HL), moderately-severe (55-69 dB HL), severe` `(70-89 dB HL), or profound (90+ dB HL). For VA purposes, impaired` `hearing is considered to be a disability when the auditory threshold` `in any of the frequencies 500, 1000, 2000, 3000, and 4000 Hz is 40 dB` `HL or greater; or when the auditory thresholds for at least three of` `these frequencies are 26 dB HL or greater; or when speech recognition` `scores are less than 94%.` `2. Note whether, based on audiologic results, medical follow-up is needed` `for an ear or hearing problem, and whether there is a problem that, if` `treated, might cause a change in hearing threshold levels.` `WRITE AUTHORITY: ^` `Diagnosis` LAST EDITED: `JUN 04, 1997` HELP-PROMPT: `Enter your diagnosis for the outcome of this exam.` DESCRIPTION: `DIAGNOSIS: \|NOWRAP\|` `1. Summary of audiologic test results. Indicate type and degree of` `hearing loss for the frequency range from 500 to 4000 Hz. For type of` `loss, indicate whether it is normal, conductive, sensorineural,` `central, or mixed. For degree, indicate whether it is mild (26-40 dB` `HL), moderate (41-54 dB HL), moderately-severe (55-69 dB HL), severe` `(70-89 dB HL), or profound (90+ dB HL). For VA purposes, impaired` `hearing is considered to be a disability when the auditory threshold` `in any of the frequencies 500, 1000, 2000, 3000, and 4000 Hz is 40 dB` `HL or greater; or when the auditory thresholds for at least three of` `these frequencies are 26 dB HL or greater; or when speech recognition` `scores are less than 94%.` `2. Note whether, based on audiologic results, medical follow-up is needed` `for an ear or hearing problem, and whether there is a problem that, if` `treated, might cause a change in hearing threshold levels.`
125	PCE VISIT IEN	6;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>8!($L(X)<1) X` LAST EDITED: `OCT 06, 1999` HELP-PROMPT: `Answer must be 1-8 characters in length.` DESCRIPTION: `This is the IEN of the PCE visit passed back by the send to PCE processing.` CROSS-REFERENCE: `509850.6^AEX3^MUMPS` `1)= D EXCEPT^ACKQUTL5(DA,125,X)` `2)= D EXCEPT^ACKQUTL5(DA,125,X)` `3)= Do not Delete` `Set and Kill logic gets LAST SENT TO QUASAR,LAST EDITED IN QUASAR and PCE VISIT IEN field values and runs processing that either sets or kills the EXCEPTION DATE depending on the field values.`
135	LAST SENT TO PCE	6;5	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 06, 1999` DESCRIPTION: `The Date/Time that the system last attempted to send this data to PCE.` CROSS-REFERENCE: `509850.6^AEX2^MUMPS` `1)= D EXCEPT^ACKQUTL5(DA,135,X)` `2)= D EXCEPT^ACKQUTL5(DA,135,X)` `3)= Do not Delete` `Set and Kill logic gets LAST SENT TO QUASAR,LAST EDITED IN QUASAR and PCE VISIT IEN field values and runs processing that either sets or kills the EXCEPTION DATE depending on the field values.`
140	LAST EDITED IN QUASAR	6;7	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 06, 1999` DESCRIPTION: `This date is the date when the visit record was last edited in Quasar. This field is not dependant on the PCE interface being on for the current Division.` CROSS-REFERENCE: `509850.6^AEX1^MUMPS` `1)= D EXCEPT^ACKQUTL5(DA,140,X)` `2)= D EXCEPT^ACKQUTL5(DA,140,X)` `3)= Do not Delete` `Set and Kill logic gets LAST SENT TO QUASAR,LAST EDITED IN QUASAR and PCE VISIT IEN field values and runs processing that either sets or kills the EXCEPTION DATE depending on the field values.`
900	EXCEPTION DATE	6;6	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 06, 1999` DESCRIPTION: `Set to NOW whenever the system determines that the Visit has become a PCE Exception. Triggered by changes to the PCE Visit IEN field, the LAST SENT TO PCE field and the LAST EDITED IN QUASAR field.` `NB. This field has been numbered 900 to ensure it is the last field killed when a visit is deleted.` CROSS-REFERENCE: `509850.6^AEX^MUMPS` `1)= S ^ACK(509850.6,"AEX",X,DA)=""` `2)= K ^ACK(509850.6,"AEX",X,DA)` `This index is used by the PCE Exception Report to identify all visits that are EXCEPTIONS.`

Customize PDF page

Package: Quasar

Global: ^ACK(509850.6

Information

Description

Accessed By FileMan Db Calls, Total: 34

Pointer To FileMan Files, Total: 10

Fields, Total: 66

ICR, Total: 1