Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^ACK(509850.6

Package: Quasar

Global: ^ACK(509850.6


Information

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

Description

Directly Accessed By Routines, Total: 51

Package Total Routines
Quasar 46 ACKQAS    ACKQAS1    ACKQAS2    ACKQAS4    ACKQAS5    ACKQASU1    ACKQASU2    ACKQASU3
ACKQCD2    ACKQCDD2    ACKQCP    ACKQCP1    ACKQCPL    ACKQDWL1    ACKQIPST    ACKQPCE1
ACKQPCE3    ACKQPCX    ACKQR1    ACKQR2    ACKQR3    ACKQR4    ACKQR5    ACKQTDS
ACKQTE    ACKQTE10    ACKQTE11    ACKQTE2    ACKQTE6    ACKQTE7    ACKQTE8    ACKQTE9
ACKQUTL    ACKQUTL3    ACKQUTL4    ACKQUTL5    ACKQUTL6    ACKQUTL8    ACKQWL1    CPT MODIFIER
DIAGNOSTIC CODE    EVENT CAPTURE PROCEDURE    PCE ERROR    PROCEDURE CODE    SECONDARY PROVIDER    ^ACK(509850.6    
DSS Extracts 1 ECXQSR    

Accessed By FileMan Db Calls, Total: 34

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    

Pointer To FileMan Files, Total: 10

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.27678#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
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: ^
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: ^
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: ^
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: ^
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.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1558
  • DSS Extracts
  • Spinal Cord Dysfunction
  • DATE (.01).
    Access: Direct Global Read & w/Fileman

    PATIENT NAME (1).
    Access: Direct Global Read & w/Fileman

    CLINIC LOCATION (2.6).
    Access: Direct Global Read & w/Fileman

    CLINIC STOP CODE (4).
    Access: Direct Global Read & w/Fileman

    LEAD ROLE (.27).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE (.01).
    Access: Direct Global Read & w/Fileman

    VOLUME (.03).
    Access: Direct Global Read & w/Fileman

    DIAGNOSTIC CODE (.01).
    Access: Direct Global Read & w/Fileman

    CPT MODIFIER (.04).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE sub-file (#509850.61).

    External References

    Name Field # of Occurrence
    ^%DT .01+1, 4.18+1, 4.2+1, 4.23+1, 135+1, 140+1, 900+1
    AOA^ACKQAS 1(XREF 2S)
    CHKDT^ACKQAS .01+1
    IVD^ACKQAS 1(XREF 4S)
    TIMERR^ACKQASU5 55(HELP )
    RATDIS^ACKQNQ 20(HELP )
    TRIGCP^ACKQUTL 2.5(XREF 1S), 2.5(XREF 1K), 4.17(XREF 1S), 4.17(XREF 1K), 4.19(XREF 1S), 4.19(XREF 1K)
    EXCEPT^ACKQUTL5 125(XREF 1S), 125(XREF 1K), 135(XREF 1S), 135(XREF 1K), 140(XREF 1S), 140(XREF 1K)
    KILLREF^ACKQUTL5 .01(XREF 3K), 1(XREF 7K), 2.6(XREF 1K), 55(XREF 2K)
    SEND^ACKQUTL5 .01(XREF 4S), .25(XREF 2S), .25(XREF 2K), 1(XREF 8S), 1(XREF 8K), 2.6(XREF 2S), 2.6(XREF 2K), 6(XREF 2S), 6(XREF 2K), 7(XREF 2S)
    7(XREF 2K), 20(XREF 1S), 20(XREF 1K), 25(XREF 1S), 25(XREF 1K), 30(XREF 1S), 30(XREF 1K), 35(XREF 1S), 35(XREF 1K), 55(XREF 1S)
    55(XREF 1K), 60(XREF 1S), 60(XREF 1K), 80(XREF 1S), 80(XREF 1K), 90(XREF 1S), 90(XREF 1K)
    SETREF^ACKQUTL5 .01(XREF 3S), 1(XREF 7S), 2.6(XREF 1S), 55(XREF 2S)
    $$DATACHEK^ACKQUTL6 55+1
    $$DUPECHK^ACKQUTL6 55+1
    $$FMT^ACKQUTL6 55OT+1
    DUPCHK^ACKQUTL6 55(HELP )
    ^DIC .25+1, .27+1, 5+1, 6+1, 7+1, 8+1, 80+1
    ^DICR 1(XREF 1n1.4), 1(XREF 1n2.4), 1(XREF 2n1.4), 1(XREF 2n2.4), 1(XREF 4n1.4), 2.5(XREF 1n1.4), 2.5(XREF 1n2.4), 4.17(XREF 1n1.4), 4.17(XREF 1n2.4), 4.19(XREF 1n1.4)
    4.19(XREF 1n2.4)
    Y^DIQ ID1+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^ACK(509850 - [#509850] 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
    ^ACK(509850.2 - [#509850.2] ID1+1, 1(XREF 1n49.2), 1(XREF 4n1.4), 1(XREF 4n89.2)
    ^ACK(509850.6 - [#509850.6] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .25(XREF 1S), .25(XREF 1K)
    1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4), 1(XREF 3S), 1(XREF 3K)
    1(XREF 4n89.2), 1(XREF 5S), 1(XREF 5K), 1(XREF 6S), 1(XREF 6K), 2.5(XREF 1S), 2.5(XREF 1n1.4), 2.5(XREF 1K), 2.5(XREF 1n2.4), 4.01(XREF 1S)
    4.01(XREF 1K), 4.17(XREF 1S), 4.17(XREF 1n1.4), 4.17(XREF 1K), 4.17(XREF 1n2.4), 4.19(XREF 1S), 4.19(XREF 1n1.4), 4.19(XREF 1K), 4.19(XREF 1n2.4), 5(XREF 1S)
    5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K), 6(XREF 1S), 6(XREF 1K), 7(XREF 1S), 7(XREF 1K), 8(XREF 1S)
    8(XREF 1K), 900(XREF 1S), 900(XREF 1K)
    ^DD( 1(XREF 1n1.4), 1(XREF 1n2.4), 1(XREF 2n1.4), 1(XREF 2n2.4), 1(XREF 4n1.4), 2.5(XREF 1n1.4), 2.5(XREF 1n2.4), 4.17(XREF 1n1.4), 4.17(XREF 1n2.4), 4.19(XREF 1n1.4)
    4.19(XREF 1n2.4)
    ^DD(509850.2 ID1+1
    ^DD(509850.6 1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 4S), 2.5(XREF 1S), 2.5(XREF 1K), 4.17(XREF 1S), 4.17(XREF 1K)
    4.19(XREF 1S), 4.19(XREF 1K)
    ^DIC(8 - [#8] 1(XREF 1n1.1)
    ^DPT - [#2] 1(XREF 1n1.1)

    Naked Globals

    Name Field # of Occurrence
    ^( .01(XREF 2S), .01(XREF 2K), 1(XREF 1n1.1), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
    ^(0 ID1+1, 1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 1n49.2), 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K)
    1(XREF 2n2.4), 1(XREF 4n1.4), 1(XREF 4n89.2), 2.5(XREF 1S), 2.5(XREF 1n1.4), 2.5(XREF 1K), 2.5(XREF 1n2.4), 4.17(XREF 1S), 4.17(XREF 1n1.4), 4.17(XREF 1K)
    4.17(XREF 1n2.4), 4.19(XREF 1S), 4.19(XREF 1n1.4), 4.19(XREF 1K), 4.19(XREF 1n2.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*, 4.18+1*, 4.2+1*, 4.23+1*, 135+1*, 140+1*, 900+1*
    %I ID1+1*!
    ACKCAT 5(XREF 1S), 5(XREF 1K)
    ACKCDR 5(XREF 2S), 5(XREF 2K)
    >> ACKITME 55+1*, 55(HELP )
    >> ACKLAYGO .01LAYGO1+1
    ACKMO .01(XREF 2S), .01(XREF 2K), 5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K)
    >> ACKNAMD 4.01(XREF 1S)
    >> ACKPAT 55+1
    >> ACKVD .25(HELP ), 6(HELP ), 7(HELP ), 8(HELP )
    >> C ID1+1*
    >> D0 1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1K), 1(XREF 1n49.2), 1(XREF 2S), 1(XREF 2K), 1(XREF 4S), 1(XREF 4n89.2), 2.5(XREF 1S), 2.5(XREF 1K)
    4.17(XREF 1S), 4.17(XREF 1K), 4.19(XREF 1S), 4.19(XREF 1K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .08(XREF 1S), .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .25(XREF 1S)
    .25(XREF 1K), .25(XREF 2S), .25(XREF 2K), 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 3S), 1(XREF 3K), 1(XREF 4S)
    1(XREF 5S), 1(XREF 5K), 1(XREF 6S), 1(XREF 6K), 1(XREF 7S), 1(XREF 7K), 1(XREF 8S), 1(XREF 8K), 2.5(XREF 1S), 2.5(XREF 1K)
    2.6(XREF 1S), 2.6(XREF 1K), 2.6(XREF 2S), 2.6(XREF 2K), 4.01(XREF 1S), 4.01(XREF 1K), 4.17(XREF 1S), 4.17(XREF 1K), 4.19(XREF 1S), 4.19(XREF 1K)
    5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K), 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 6(XREF 2K)
    7(XREF 1S), 7(XREF 1K), 7(XREF 2S), 7(XREF 2K), 8(XREF 1S), 8(XREF 1K), 20(XREF 1S), 20(XREF 1K), 25(XREF 1S), 25(XREF 1K)
    30(XREF 1S), 30(XREF 1K), 35(XREF 1S), 35(XREF 1K), 55+1, 55(XREF 1S), 55(XREF 1K), 55(XREF 2S), 55(XREF 2K), 60(XREF 1S)
    60(XREF 1K), 80(XREF 1S), 80(XREF 1K), 90(XREF 1S), 90(XREF 1K), 125(XREF 1S), 125(XREF 1K), 135(XREF 1S), 135(XREF 1K), 140(XREF 1S)
    140(XREF 1K), 900(XREF 1S), 900(XREF 1K)
    >> DFN 1+1*
    DIC ID1+1, .25+1!*, .27+1!*, 5+1!*, 6+1!*, 7+1!*, 8+1!*, 80+1!*
    DIC("S" .25+1*, .25SCR+1*, .27+1*, .27SCR+1*, 5+1*, 5SCR+1*, 6+1*, 6SCR+1*, 7+1*, 7SCR+1*
    , 8+1*, 8SCR+1*, 80+1*, 80SCR+1*
    DIC("W" 80+1*, 80SCR+1*
    >> DIE .25+1, .27+1, 5+1, 6+1, 7+1, 8+1, 80+1
    >> DIG 1(XREF 1n1.4), 1(XREF 1n2.4), 1(XREF 2n1.4), 1(XREF 2n2.4), 1(XREF 4n1.4), 2.5(XREF 1n1.4), 2.5(XREF 1n2.4), 4.17(XREF 1n1.4), 4.17(XREF 1n2.4), 4.19(XREF 1n1.4)
    4.19(XREF 1n2.4)
    >> DIH 1(XREF 1n1.4), 1(XREF 1n2.4), 1(XREF 2n1.4), 1(XREF 2n2.4), 1(XREF 4n1.4), 2.5(XREF 1n1.4), 2.5(XREF 1n2.4), 4.17(XREF 1n1.4), 4.17(XREF 1n2.4), 4.19(XREF 1n1.4)
    4.19(XREF 1n2.4)
    >> DIU 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 4S), 2.5(XREF 1S), 2.5(XREF 1K), 4.17(XREF 1S), 4.17(XREF 1K), 4.19(XREF 1S)
    4.19(XREF 1K)
    DIV 1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 1n49.2), 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4)
    1(XREF 4S), 1(XREF 4n1.4), 2.5(XREF 1S), 2.5(XREF 1n1.1), 2.5(XREF 1n1.4), 2.5(XREF 1K), 2.5(XREF 1n2.4), 4.17(XREF 1S), 4.17(XREF 1n1.4), 4.17(XREF 1K)
    4.17(XREF 1n2.4), 4.19(XREF 1S), 4.19(XREF 1n1.4), 4.19(XREF 1K), 4.19(XREF 1n2.4)
    DIV(0 1(XREF 1S), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4), 1(XREF 4S), 1(XREF 4n1.4)
    1(XREF 4n89.2), 2.5(XREF 1S), 2.5(XREF 1n1.4), 2.5(XREF 1K), 2.5(XREF 1n2.4), 4.17(XREF 1S), 4.17(XREF 1n1.4), 4.17(XREF 1K), 4.17(XREF 1n2.4), 4.19(XREF 1S)
    4.19(XREF 1n1.4), 4.19(XREF 1K), 4.19(XREF 1n2.4)
    >> I(0 1(XREF 1n1.1), 1(XREF 1n49.2), 1(XREF 4S), 1(XREF 4n89.2)
    >> I(100 1(XREF 1n49.2)
    U ID1+1, .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1n1.1), 1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 2S), 1(XREF 2n1.4)
    1(XREF 2K), 1(XREF 2n2.4), 1(XREF 4S), 1(XREF 4n1.4), 1(XREF 4n89.2), 2.5(XREF 1S), 2.5(XREF 1n1.4), 2.5(XREF 1K), 2.5(XREF 1n2.4), 4.01(XREF 1S)
    4.01(XREF 1K), 4.17(XREF 1S), 4.17(XREF 1n1.4), 4.17(XREF 1K), 4.17(XREF 1n2.4), 4.19(XREF 1S), 4.19(XREF 1n1.4), 4.19(XREF 1K), 4.19(XREF 1n2.4), 5(XREF 1S)
    5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K)
    X .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .07+1!, .08+1!, .08(XREF 1S)
    .08(XREF 1K), .09(XREF 1S), .09(XREF 1K), .25+1*!, .25(XREF 1S), .25(XREF 1K), .27+1*!, 1+1, 1(XREF 1S), 1(XREF 1n1.1)
    1(XREF 1n1.4), 1(XREF 1K), 1(XREF 1n2.4), 1(XREF 2S), 1(XREF 2n1.4), 1(XREF 2K), 1(XREF 2n2.4), 1(XREF 3S), 1(XREF 3K), 1(XREF 4S)
    1(XREF 4n1.4), 1(XREF 5S), 1(XREF 5K), 1(XREF 6S), 1(XREF 6K), 1(XREF 7S), 1(XREF 7K), 1.5+1!, 2+1!, 2.5(XREF 1S)
    2.5(XREF 1n1.1), 2.5(XREF 1n1.4), 2.5(XREF 1K), 2.5(XREF 1n2.4), 2.6(XREF 1S), 2.6(XREF 1K), 4.01+1!, 4.02+1!, 4.03+1!, 4.04+1!
    , 4.05+1!, 4.06+1!, 4.07+1!, 4.08+1!, 4.09+1!, 4.1+1!, 4.11+1!, 4.12+1!, 4.13+1!, 4.14+1!
    , 4.15+1!, 4.16+1!, 4.17+1!, 4.17(XREF 1S), 4.17(XREF 1n1.4), 4.17(XREF 1K), 4.17(XREF 1n2.4), 4.18+1*!, 4.19+1!, 4.19(XREF 1S)
    4.19(XREF 1n1.4), 4.19(XREF 1K), 4.19(XREF 1n2.4), 4.2+1*!, 4.21+1!, 4.22+1!, 4.23+1*!, 4.24+1!, 4.25+1!, 5+1*!
    5(XREF 1S), 5(XREF 1K), 5(XREF 2S), 5(XREF 2K), 5(XREF 3S), 5(XREF 3K), 6+1*!, 6(XREF 1S), 6(XREF 1K), 7+1*!
    7(XREF 1S), 7(XREF 1K), 8+1*!, 8(XREF 1S), 8(XREF 1K), 9+1!, 55+1!*, 55(XREF 2S), 55(XREF 2K), 80+1*!
    , 125+1!, 125(XREF 1S), 125(XREF 1K), 135+1*!, 135(XREF 1S), 135(XREF 1K), 140+1*!, 140(XREF 1S), 140(XREF 1K), 900+1*!
    900(XREF 1S), 900(XREF 1K)
    X1 4.01(XREF 1S), 4.01(XREF 1K)
    Y ID1+1*, .01+1*, .25+1, .27+1, 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 4S), 2.5(XREF 1S)
    2.5(XREF 1K), 4.17(XREF 1S), 4.17(XREF 1K), 4.18+1, 4.19(XREF 1S), 4.19(XREF 1K), 4.2+1, 4.23+1, 5+1, 6+1
    , 7+1, 8+1, 55OT+1*, 80+1, 135+1, 140+1, 900+1
    Y(0 55OT+1*
    Y(1 1(XREF 1S), 1(XREF 1K), 1(XREF 2S), 1(XREF 2K), 1(XREF 4n89.2), 2.5(XREF 1S), 2.5(XREF 1n1.1), 2.5(XREF 1K), 4.17(XREF 1S), 4.17(XREF 1K)
    4.19(XREF 1S), 4.19(XREF 1K)
    Y(101 1(XREF 1n1.1), 1(XREF 1n49.2), 1(XREF 4S), 1(XREF 4n89.2)
    Y(2 2.5(XREF 1n1.1)
    Y(201 1(XREF 1n1.1)
    Y(3 2.5(XREF 1n1.1)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All