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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^QA(745.1

Package: Patient Representative

Global: ^QA(745.1


Information

FileMan FileNo FileMan Filename Package
745.1 CONSUMER CONTACT Patient Representative

Description

Directly Accessed By Routines, Total: 62

Package Total Routines
Patient Representative 52 *REFER TO    *SERVICES INVOLVED    DISCIPLINES INVOLVED    EMPLOYEE    ISSUE CODES    QAC CONTACT ENTER/EDIT    QAC DAILY    QAC DAILY HEADER
QAC PAT BRIEF    QAC RESP DUE    QAC RESP DUE HEADER    QAC SERV RPT    QAC SERV/DISC    QAC20PST    QACALRT0    QACALRT1
QACALRT2    QACBYLOC    QACCONV0    QACCSSTD    QACDELT    QACDISC    QACEDIT    QACEMPE
QACGEN    QACI1    QACI20    QACI2C    QACI2D    QACI5    QACMAIL1    QACNEW
^QA(745.4    QACI2A    QACMAIL0    QACPAT    QACPOST    QACPRT    QACRPT    QACSPRD
QACSPRD1    QACSPRD2    QACSPRD3    QACSRPT    QACSTAT    QACUTIL    QM INVOLVEMENT    ^QA(745.1
REFER CONTACT TO    SERV/SECT INVOLVED    SERVICE/DISCIPLINE    SOURCE(S) OF CONTACT    

Accessed By FileMan Db Calls, Total: 24

Package Total Routines
Patient Representative 24 QACALRT2    QACARCH    QACBYLOC    QACDAILY    QACDELT    QACDISPC    QACDISPS    QACEDIT
QACEMPC    QACEMPE    QACI1    QACI20    QACI5    QACMAIL0    QACMAIL1    QACNEW
QACNOPTS    QACOPEN    QACPAT    QACPOST    QACPRT    QACRESP    QACRPT    QACSTAT

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
Patient Representative 5 CONTACT ISSUE CODE(#745.2)[#745.121(.01)]    *QUALITY MATRIX(#745.3)[16]    CONGRESSIONAL OFFICE(#745.4)[29]    CONTACT DISCIPLINES(#745.5)[#745.1212(.01), #745.1213(1)]    QAC SERVICE/DISCIPLINE(#745.55)[#745.1213(.01)]    
Kernel 3 INSTITUTION(#4)[37]    SERVICE/SECTION(#49)[#745.1211(.01)]    NEW PERSON(#200)[8, 9, #745.117(.01), #745.128(.01)]    
Registration 2 PERIOD OF SERVICE(#21)[31]    PATIENT(#2)[2]    
Interim Management Support 1 NATIONAL SERVICE(#730)[#745.115(.01)]    
Scheduling 1 HOSPITAL LOCATION(#44)[14]    

Fields, Total: 45

Field # Name Loc Type Details
.01 CONTACT NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<10) X
  • LAST EDITED:  DEC 08, 1998
  • HELP-PROMPT:  This field is non interactive with a user. It is a self generated Contact number used to identify the consumer contact.
  • DESCRIPTION:  
    This is a self generated Contact number used to identify consumer contact.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  745.1^B
    1)= S ^QA(745.1,"B",$E(X,1,30),DA)=""
    2)= K ^QA(745.1,"B",$E(X,1,30),DA)
    Regular cross-reference used for look-up.
  • CROSS-REFERENCE:  745.1^C^MUMPS
    1)= S ^QA(745.1,"C",$E($P(X,".",2),3,99),DA)=""
    2)= K ^QA(745.1,"C",$E($P(X,".",2),3,99),DA)
    Cross-reference of the sequence number portion of the contact number.
1 DATE OF CONTACT 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 06, 1997
  • HELP-PROMPT:  Enter a date of Today or earlier.
  • DESCRIPTION:  
    This is the date the Patient Representative was initially contacted. The date must be Today or earlier.
  • CROSS-REFERENCE:  745.1^D
    1)= S ^QA(745.1,"D",$E(X,1,30),DA)=""
    2)= K ^QA(745.1,"D",$E(X,1,30),DA)
    Regular cross-reference used for look-up.
2 PATIENT NAME 0;3 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  SEP 22, 1993
  • HELP-PROMPT:  Enter the name of the patient who is the subject of the contact.
  • DESCRIPTION:  
    This is the name of the patient concerned in the inquiry.
  • CROSS-REFERENCE:  745.1^E
    1)= S ^QA(745.1,"E",$E(X,1,30),DA)=""
    2)= K ^QA(745.1,"E",$E(X,1,30),DA)
    Regular cross-reference used for look-up.
3 SSN COMPUTED

  • MUMPS CODE:  X ^DD(745.1,3,9.2) S X=$P(Y(745.1,3,101),U,9) S D0=Y(745.1,3,80)
    9.2 = S Y(745.1,3,80)=$S($D(D0):D0,1:""),Y(745.1,3,1)=$S($D(^QA(745.1,D0,0)):^(0),1:""),D0=$P(Y(745.1,3,1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S Y(745.1,3,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  2:.09
  • DESCRIPTION:  
    This is the Social Security Number of the patient concerned in the contact.
4 DOB COMPUTED DATE

  • MUMPS CODE:  X ^DD(745.1,4,9.2) S X=$P(Y(745.1,4,101),U,3) S D0=Y(745.1,4,80)
    9.2 = S Y(745.1,4,80)=$S($D(D0):D0,1:""),Y(745.1,4,1)=$S($D(^QA(745.1,D0,0)):^(0),1:""),D0=$P(Y(745.1,4,1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S Y(745.1,4,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  2:.03
  • DESCRIPTION:  
    This is the date of birth of the patient concerned in the contact.
5 SEX COMPUTED

  • MUMPS CODE:  X ^DD(745.1,5,9.3) S X=$P($P(Y(745.1,5,102),$C(59)_$P(Y(745.1,5,101),U,2)_":",2),$C(59),1) S D0=Y(745.1,5,80)
    9.2 = S Y(745.1,5,80)=$S($D(D0):D0,1:""),Y(745.1,5,1)=$S($D(^QA(745.1,D0,0)):^(0),1:""),D0=$P(Y(745.1,5,1),U,3) S:'$D(^DPT(+D0,0)) D0=-1
    9.3 = X ^DD(745.1,5,9.2) S Y(745.1,5,102)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:""),Y(745.1,5,101)=$S($D(^DPT(D0,0)):^(0),1:"")
  • ALGORITHM:  2:.02
  • DESCRIPTION:  
    This is the sex of the patient concerned in the contact.
6 ELIGIBILITY STATUS 0;4 FREE TEXT

  • INPUT TRANSFORM:  S DIC=8,DIC(0)="EMNQZ" D ^DIC S X=$P($G(Y(0)),"^",1) K:Y'>0 X
  • LAST EDITED:  SEP 20, 1993
  • HELP-PROMPT:  This is the patient's eligibility status.
  • DESCRIPTION:  
    This is the patient's eligibility status at the time of the contact.
  • EXECUTABLE HELP:  N D,DO,X S D="B",DIC="^DIC(8,",DIC(0)="AEMNQ" D DQ^DICQ Q
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
7 CATEGORY 0;5 FREE TEXT

  • INPUT TRANSFORM:  S DIC=408.32,DIC(0)="EMNQZ" D ^DIC S X=$P($G(Y(0)),"^",1) K:Y'>0 X
  • LAST EDITED:  SEP 20, 1993
  • HELP-PROMPT:  This is the patient's Means test category.
  • DESCRIPTION:  
    This is the Means test category assigned to the patient at the time of the contact.
  • EXECUTABLE HELP:  N D,DO,X S D="B",DIC="^DG(408.32,",DIC(0)="AEMNQ" D DQ^DICQ Q
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8 INFORMATION TAKEN BY 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""QAC CONTACT"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 20, 1993
  • HELP-PROMPT:  Enter the name of the person who collected the information.
  • DESCRIPTION:  
    This is the name of the person who collected the information from the contact.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""QAC CONTACT"",+Y))"
  • EXPLANATION:  Persons able to collect information for the Patient Representative package.
  • EXECUTABLE HELP:  I '$O(^XUSEC("QAC CONTACT",0)) D EN^DDIOL(" No applicable persons found! Use the 'Patient Representative"),EN^DDIOL(" Keys' option to create a list of choices.")
9 ENTERED BY 0;7 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  SEP 20, 1993
  • DESCRIPTION:  
    This is the person entering the contact information. This is not a user interactive field.
10 NAME OF CONTACT 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 20, 1993
  • HELP-PROMPT:  Enter the name of the person (3-30 characters) who made the contact.
  • DESCRIPTION:  
    This is the name of the person who contacted the Patient Representative.
11 TELEPHONE NO. OF CONTACT 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:X'?3N1"-"4N&(X'?3N1"-"4N1" "3.4N)&(X'?3N1" "3N1"-"4N)&(X'?3N1" "3N1"-"4N1" "3.4N) X I $G(X)]"",($P(X," ")?3N) S X="("_$P(X," ")_")"_$P(X," ",2,3)
  • OUTPUT TRANSFORM:  I $P(X," ")?3N S $P(X," ")="("_$P(X," ")_")"
  • LAST EDITED:  DEC 08, 1997
  • HELP-PROMPT:  Answer with phone number.
  • DESCRIPTION:  This is the telephone number of the contact. Use one of the following formats. Use a hyphen in the main portion of the number. Leave a space between area code and the number and between the number and any extension.
    i.e. 123 123-1234 123 123-1234 1234 123-1234 123-1234 1234
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
12 CONTACT MADE BY 0;10 SET
  • 'PA' FOR Patient;
  • 'RE' FOR Relative;
  • 'FR' FOR Friend;
  • 'CO' FOR Congressional;
  • 'VH' FOR VISN/HQ;
  • 'VO' FOR Veterans Service Organization;
  • 'AT' FOR Attorney/Legal Guardian/Conservator/Trustee;
  • 'DI' FOR Director's Office;
  • 'ST' FOR Staff - VAMC;
  • 'OT' FOR Other;

  • LAST EDITED:  AUG 03, 1997
  • HELP-PROMPT:  Enter the person, organization, or authority that made the contact.
  • DESCRIPTION:  
    This is the person, organization, or authority that made the contact.
  • CROSS-REFERENCE:  745.1^CMB
    1)= S ^QA(745.1,"CMB",$E(X,1,30),DA)=""
    2)= K ^QA(745.1,"CMB",$E(X,1,30),DA)
    Used for sorting and by the Congressional Contact field to check for entries or edits of "CO" (Congressional) type contacts.
  • CROSS-REFERENCE:  ^^TRIGGER^745.1^29
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'="CO" I X S X=DIV S Y(1)=$S($D(^QA(745.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(745.1,12,1,2,1.4)
    1.4)= S DIH=$S($D(^QA(745.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=745.1,DIG=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^QA(745.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S X=X'="CO" I X S X=DIV S Y(1)=$S($D(^QA(745.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" X ^DD(745.
    1,12,1,2,2.4)
    2.4)= S DIH=$S($D(^QA(745.1,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,13)=DIV,DIH=745.1,DIG=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= INTERNAL(#12)'="CO"
    CREATE VALUE)= @
    DELETE CONDITION)= INTERNAL(#12)'="CO"
    DELETE VALUE)= @
    FIELD)= CONGRES
    When the Contact Made By field is edited, this cross reference checks to see if the entry is "CO". If it is not "CO", it deletes any entry in the Congressional Contact field.
13 SOURCE OF CONTACT 0;11 SET
  • 'L' FOR Letter;
  • 'W' FOR Ward Visit;
  • 'V' FOR Visit;
  • 'P' FOR Phone;
  • 'S' FOR Survey;
  • 'I' FOR Internet;

  • LAST EDITED:  JUL 17, 1997
  • HELP-PROMPT:  Enter the method of contact.
  • DESCRIPTION:  
    This is how the contact was made.
14 LOCATION OF EVENT 0;12 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  NOV 04, 1993
  • HELP-PROMPT:  The location must be a valid entry in the Hospital Location file.
  • DESCRIPTION:  
    This is the hospital location associated with the issue of the contact.
15 *SERVICES INVOLVED 1;0 POINTER Multiple #745.115 745.115

  • LAST EDITED:  NOV 23, 1994
16 *CATEGORY OF CARE 2;1 POINTER TO *QUALITY MATRIX FILE (#745.3) *QUALITY MATRIX(#745.3)

  • INPUT TRANSFORM:  S DIC("S")="S QA=^(0),QA(2)=$P(QA,U,2),QA(3)=$P(QA,U,3),QA(4)=$P(QA,U,4) I QA(4)="""",QA(2)]"""",(QA(3)]""""&(QA(2)'=4))!(QA(3)=""""&(QA(2)=4)),'$G(^(""I""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 23, 1994
  • HELP-PROMPT:  Enter the Service and Level of patient's care.
  • DESCRIPTION:  
    This is the patient's service and level of care as defined for the Quality Matrix.
  • SCREEN:  S DIC("S")="S QA=^(0),QA(2)=$P(QA,U,2),QA(3)=$P(QA,U,3),QA(4)=$P(QA,U,4) I QA(4)="""",QA(2)]"""",(QA(3)]""""&(QA(2)'=4))!(QA(3)=""""&(QA(2)=4)),'$G(^(""I""))"
  • EXPLANATION:  Indicates Category of Care (Service and Level).
16.5 TREATMENT STATUS 2;2 SET
************************REQUIRED FIELD************************
  • 'I' FOR Inpatient;
  • 'O' FOR Outpatient;
  • 'D' FOR Domiciliary;
  • 'N' FOR NHCU;
  • 'L' FOR Long Term Psych;
  • 'E' FOR Extended/Intermed. Care;
  • 'H' FOR HBHC;

  • LAST EDITED:  AUG 11, 1997
  • HELP-PROMPT:  Enter whether the patient was inpatient, outpatient, etc. at the time of the issue.
  • DESCRIPTION:  
    This indicates whether the patient was inpatient, outpatient, etc.
17 EMPLOYEE 8;0 POINTER Multiple #745.117 745.117

  • DESCRIPTION:  
    This is the employee allegedly involved in the issue or the employee receiving the compliment.
18 *REFER TO 10;0 Multiple #745.118 745.118

  • LAST EDITED:  NOV 23, 1994
  • DESCRIPTION:  
    This is the person or service the issue is referred to for action.
19 DATE SENT 2;4 DATE

  • INPUT TRANSFORM:  S %DT="EXP",%DT(0)=$P(^QA(745.1,D0,0),"^",2)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X
  • LAST EDITED:  NOV 04, 1993
  • HELP-PROMPT:  Enter the date this issue was referred for action.
  • DESCRIPTION:  
    This is the date the issue was referred to a person or service for action.
  • EXECUTABLE HELP:  D EN3^QACUTIL
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
20 DAYS RESPONSE EXPECTED BY 2;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 20, 1993
  • HELP-PROMPT:  Enter the number of days (0-9999) a response is expected on the issue.
  • DESCRIPTION:  
    This is the number of days to expect a response on the issue. Enter a whole number between 0 and 9999.
20.1 DATE DUE COMPUTED DATE

  • MUMPS CODE:  S Y(745.1,20.1,1)=$S($D(^QA(745.1,D0,2)):^(2),1:"") S X=$P(Y(745.1,20.1,1),U,4),X1=X,X2=+$P(Y(745.1,20.1,1),U,5),X="" D C^%DTC:X1
  • ALGORITHM:  DATE SENT+DAYS RESPONSE EXPECTED BY
  • DESCRIPTION:  
    If there is a number in the Days Response Expected By field, that is added to the Date Sent to obtain the entry in the Date Due field. Date Due applies to when a response is expected for a Report of Contact.
21 ISSUE CODES 3;0 POINTER Multiple #745.121 745.121

  • LAST EDITED:  AUG 06, 1997
  • DESCRIPTION:  
    This is a code for a brief statement of the issue.
22 ISSUE TEXT 4;0 WORD-PROCESSING #745.122

  • DESCRIPTION:  
    This is a written discussion of the issue(s).
23 *REPORT OF CONTACT GENERATED 5;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 10, 1995
  • DESCRIPTION:  
    This field contains a "1" when a report of contact has been generated. This is not a user interactive field.
24 QM INVOLVEMENT 9;0 SET Multiple #745.124 745.124

  • DESCRIPTION:  
    This is the type of QM activity for this same issue.
25 RESOLUTION COMMENTS 6;0 WORD-PROCESSING #745.125

  • DESCRIPTION:  
    This is a discussion of how the issue or issues were resolved.
26 DATE RESOLVED 7;1 DATE

  • INPUT TRANSFORM:  S %DT="EXP",%DT(0)=$P(^QA(745.1,D0,0),"^",2)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X
  • LAST EDITED:  AUG 16, 1997
  • HELP-PROMPT:  Enter the date the record was closed.
  • DESCRIPTION:  
    This is the date the record was closed.
  • EXECUTABLE HELP:  D EN3^QACUTIL
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^745.1^27
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^QA(745.1,D0,7)):^(7),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="C" X ^DD(745.1,26,1,1,1.4)
    1.4)= S DIH=$S($D(^QA(745.1,DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,2)=DIV,DIH=745.1,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^QA(745.1,D0,7)):^(7),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="O" X ^DD(745.1,26,1,1,2.4)
    2.4)= S DIH=$S($D(^QA(745.1,DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,2)=DIV,DIH=745.1,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X="C"
    DELETE VALUE)= S X="O"
    FIELD)= STATUS
    When this field has a date entered, it will stuff a "C" in the status field to close the record and prevent the record from showing up again in the edit option.
27 STATUS 7;2 SET
  • 'O' FOR Open;
  • 'C' FOR Closed;

  • LAST EDITED:  MAR 23, 1995
  • DESCRIPTION:  
    This field contains "O" while the record is Open and "C" when the record is Closed. This is not a user interactive field.
  • NOTES:  TRIGGERED by the DATE RESOLVED field of the CONSUMER CONTACT File
    TRIGGERED by the *DATE RESOLVED field of the CONSUMER CONTACT File
  • CROSS-REFERENCE:  745.1^AC^MUMPS
    1)= I $D(QACALERT)#2,$P($G(^QA(740,1,"QAC")),U,2),X="C" D CLOSE^QACALRT0(DA)
    2)= Q
    When a record is closed all pending alerts are killed.
28 REFER CONTACT TO 11;0 POINTER Multiple #745.128 745.128

  • DESCRIPTION:  
    This is the person(s) who will be notified of this patient contact.
29 CONGRESSIONAL CONTACT 0;13 POINTER TO CONGRESSIONAL OFFICE FILE (#745.4) CONGRESSIONAL OFFICE(#745.4)

  • INPUT TRANSFORM:  S DIC("S")="I ($P(^QA(745.1,D0,0),U,10)=""CO""),(+$P(^QA(745.4,+Y,0),U,2)=0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 02, 1994
  • HELP-PROMPT:  Enter the name of the office or person making the contact.
  • DESCRIPTION:  
    This is the congressional office or person that contacted the Patient Representative.
  • SCREEN:  S DIC("S")="I ($P(^QA(745.1,D0,0),U,10)=""CO""),(+$P(^QA(745.4,+Y,0),U,2)=0)"
  • EXPLANATION:  Screen for Active congressional names.
  • NOTES:  TRIGGERED by the CONTACT MADE BY field of the CONSUMER CONTACT File
30 SOURCE(S) OF CONTACT 12;0 SET Multiple #745.11 745.11
31 PERIOD OF SERVICE 0;14 POINTER TO PERIOD OF SERVICE FILE (#21) PERIOD OF SERVICE(#21)

  • LAST EDITED:  AUG 07, 1997
  • DESCRIPTION:  
    This is the period of service, taken from the Patient File.
32 PERSIAN GULF SERVICE 0;15 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  FEB 03, 1998
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is taken from the Patient file, field #.32201, Persian War Service.
33 REFER TO SEAT 2;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 24, 1997
  • HELP-PROMPT:  Has this Report of Contact been referred to SEAT?
  • DESCRIPTION:  
    Has this Report of Contact been referred to SEAT?
  • TECHNICAL DESCR:  
    Field will no longer be used after QAC*2.0*17.
34 *DATE RESOLVED 7;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 18, 1997
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This field will not be used-was set up in planning stages of patch QAC*2*3
    UNEDITABLE
  • CROSS-REFERENCE:  ^^TRIGGER^745.1^27
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^QA(745.1,D0,7)):^(7),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="C" X ^DD(745.1,34,1,1,1.4)
    1.4)= S DIH=$S($D(^QA(745.1,DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,2)=DIV,DIH=745.1,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^QA(745.1,D0,7)):^(7),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="O" X ^DD(745.1,34,1,1,2.4)
    2.4)= S DIH=$S($D(^QA(745.1,DIV(0),7)):^(7),1:""),DIV=X S $P(^(7),U,2)=DIV,DIH=745.1,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= S X="C"
    DELETE VALUE)= S X="O"
    FIELD)= #27
35 DAYS TO RESOLUTION 7;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 24, 1997
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This a field calculated by subtracting date ROC created by date resolved.
    WRITE AUTHORITY: ^
36 LEVEL OF SATISFACTION 7;5 SET
  • '1' FOR Not at all satisfied;
  • '2' FOR Slightly satisfied;
  • '3' FOR Somewhat satisfied;
  • '4' FOR Pretty satisfied;
  • '5' FOR Very satisfied;
  • '6' FOR Extremey satisfied;

  • LAST EDITED:  APR 16, 2002
  • HELP-PROMPT:  Enter the patient's report of level of satisfaction
  • DESCRIPTION:  
    This is the patient's level of satisfaction with the resolution of the Report of Contact. This field will not be used after patch QAC*2*17.
37 DIVISION 0;16 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^DG(40.8,""AD"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 26, 2002
  • HELP-PROMPT:  Enter the Division of this Contact. Enter "??" for choices.
  • DESCRIPTION:  
    This field will hold the Division where the Contact occured.
  • SCREEN:  S DIC("S")="I $D(^DG(40.8,""AD"",+Y))"
  • EXPLANATION:  Choice is made from INSTITUTION (#4) file entries pointed to by the MEDICAL CENTER DIVISION (#40.8) file.
  • EXECUTABLE HELP:  
38 DISCIPLINE 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  SEP 15, 1997
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
39 RESOLVED BY SEAT? 2;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 01, 1997
  • DESCRIPTION:  
    This field stores whether or not there has been a resolution of the problem by SEAT.
  • TECHNICAL DESCR:  
    Field will no longer be used after QAC*2.0*17.
40 SEAT RESOLUTION COMMENTS 14;0 WORD-PROCESSING #745.12

  • TECHNICAL DESCR:  
    Field will no longer be used after QAC*2.0*17.
41 ROLL-UP STATUS 7;6 SET
  • '0' FOR CLEARED;
  • '1' FOR REJECTED;
  • '2' FOR SENT - OPEN;
  • '3' FOR EDITED;

  • LAST EDITED:  APR 10, 2001
  • DESCRIPTION:  This field is being changed with QAC*2.0*17. The field will now contain a "3" if it was edited since the last run of the QAC Patient Representative Roll-up. It will be deleted after the next run.
    ******************Original use of this field****************************** ****This field will be stuffed if a record is rejected from roll-up either because the record has not been closed or does not have at least one
    issue code. It will also be stuffed if it was sent but still open.
  • CROSS-REFERENCE:  745.1^F^MUMPS
    1)= S ^QA(745.1,"F",$E(X,1,30),DA)=""
    2)= K ^QA(745.1,"F",$E(X,1,30),DA)
    This cross reference will allow for look-ups of those records that were not rolled up in previous runs of the roll-up routines (QACMAIL*).
43 INTERNAL APPEAL 2;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  APR 17, 2002
  • HELP-PROMPT:  Enter 'YES' if this Contact will be referred for Internal Appeal.
  • DESCRIPTION:  
    This field will flag ROCs that need, or have gotten, Internal Appeals.
  • TECHNICAL DESCR:  
    This field is added with patch QAC*2.0*17.

External References

Name Field # of Occurrence
^%DT 1+1, 19+1, 26+1, 34+1
C^%DTC 20.1+1
EN^DDIOL 8(HELP )
^DIC 6+1, 7+1, 8+1, 16+1, 29+1, 37+1
DQ^DICQ 6(HELP ), 7(HELP )
^DICR 12(XREF 2n1.4), 12(XREF 2n2.4), 26(XREF 1n1.4), 26(XREF 1n2.4), 34(XREF 1n1.4), 34(XREF 1n2.4)
Y^DIQ ID2+1
CLOSE^QACALRT0 27(XREF 1S)
EN3^QACUTIL 19(HELP ), 26(HELP )

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 12(XREF 2n1.4), 12(XREF 2n2.4), 26(XREF 1n1.4), 26(XREF 1n2.4), 34(XREF 1n1.4), 34(XREF 1n2.4)
^DD(2 ID2+1, 5OF9.3+1
^DD(745.1 3+1, 4+1, 5+1, 5OF9.3+1, 12(XREF 2S), 12(XREF 2K), 26(XREF 1S), 26(XREF 1K), 34(XREF 1S), 34(XREF 1K)
^DPT - [#2] ID2+1, 3OF9.2+1, 4OF9.2+1, 5OF9.2+1, 5OF9.3+1
^QA(740 - [#740] 27(XREF 1S)
^QA(745.1 - [#745.1] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 3OF9.2+1, 4OF9.2+1
, 5OF9.2+1, 12(XREF 1S), 12(XREF 1K), 12(XREF 2S), 12(XREF 2n1.4), 12(XREF 2K), 12(XREF 2n2.4), 19+1, 20.1+1, 26+1
, 26(XREF 1S), 26(XREF 1n1.4), 26(XREF 1K), 26(XREF 1n2.4), 34(XREF 1S), 34(XREF 1n1.4), 34(XREF 1K), 34(XREF 1n2.4), 41(XREF 1S), 41(XREF 1K)
^XUSEC("QAC CONTACT" 8(HELP )

Naked Globals

Name Field # of Occurrence
^(0 ID1+1, ID2+1, 3OF9.2+1, 4OF9.2+1, 5OF9.2+1, 5OF9.3+1, 12(XREF 2S), 12(XREF 2n1.4), 12(XREF 2K), 12(XREF 2n2.4)
^(2 20.1+1
^(7 26(XREF 1S), 26(XREF 1n1.4), 26(XREF 1K), 26(XREF 1n2.4), 34(XREF 1S), 34(XREF 1n1.4), 34(XREF 1K), 34(XREF 1n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 1+1*, 19+1*, 26+1*, 34+1*
%DT(0 19+1*!, 26+1*!
%I ID2+1*!
>> C ID2+1*
D 6(HELP ), 7(HELP )
>> D0 3+1*, 3OF9.2+1*, 4+1*, 4OF9.2+1*, 5+1*, 5OF9.2+1*, 5OF9.3+1, 12(XREF 2S), 12(XREF 2K), 19+1
, 20.1+1, 26+1, 26(XREF 1S), 26(XREF 1K), 34(XREF 1S), 34(XREF 1K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 12(XREF 1S), 12(XREF 1K)
, 12(XREF 2S), 12(XREF 2K), 26(XREF 1S), 26(XREF 1K), 27(XREF 1S), 34(XREF 1S), 34(XREF 1K), 41(XREF 1S), 41(XREF 1K)
DIC ID2+1, 6+1*, 6(HELP ), 7+1*, 7(HELP ), 8+1!*, 16+1!*, 29+1!*, 37+1!*
DIC("S" 8+1*, 8SCR+1*, 16+1*, 16SCR+1*, 29+1*, 29SCR+1*, 37+1*, 37SCR+1*
DIC(0 6+1*, 6(HELP ), 7+1*, 7(HELP )
>> DIE 8+1, 16+1, 29+1, 37+1
>> DIG 12(XREF 2n1.4), 12(XREF 2n2.4), 26(XREF 1n1.4), 26(XREF 1n2.4), 34(XREF 1n1.4), 34(XREF 1n2.4)
>> DIH 12(XREF 2n1.4), 12(XREF 2n2.4), 26(XREF 1n1.4), 26(XREF 1n2.4), 34(XREF 1n1.4), 34(XREF 1n2.4)
>> DIU 12(XREF 2S), 12(XREF 2K), 26(XREF 1S), 26(XREF 1K), 34(XREF 1S), 34(XREF 1K)
DIV 12(XREF 2S), 12(XREF 2n1.4), 12(XREF 2K), 12(XREF 2n2.4), 26(XREF 1S), 26(XREF 1n1.4), 26(XREF 1K), 26(XREF 1n2.4), 34(XREF 1S), 34(XREF 1n1.4)
, 34(XREF 1K), 34(XREF 1n2.4)
DIV(0 12(XREF 2S), 12(XREF 2n1.4), 12(XREF 2K), 12(XREF 2n2.4), 26(XREF 1S), 26(XREF 1n1.4), 26(XREF 1K), 26(XREF 1n2.4), 34(XREF 1S), 34(XREF 1n1.4)
, 34(XREF 1K), 34(XREF 1n2.4)
DO 6(HELP ), 7(HELP )
DT 19+1, 26+1
>> QACALERT 27(XREF 1S)
U ID1+1, ID2+1, 3+1, 3OF9.2+1, 4+1, 4OF9.2+1, 5+1, 5OF9.2+1, 5OF9.3+1, 12(XREF 2S)
, 12(XREF 2n1.4), 12(XREF 2K), 12(XREF 2n2.4), 20.1+1, 26(XREF 1S), 26(XREF 1n1.4), 26(XREF 1K), 26(XREF 1n2.4), 27(XREF 1S), 34(XREF 1S)
, 34(XREF 1n1.4), 34(XREF 1K), 34(XREF 1n2.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1*!, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K)
, 3+1*, 4+1*, 5+1*, 6+1*!, 6(HELP ), 7+1*!, 7(HELP ), 8+1*!, 10+1!, 11+1!*
, 11OT+1*, 12(XREF 1S), 12(XREF 1K), 12(XREF 2S), 12(XREF 2n1.4), 12(XREF 2K), 12(XREF 2n2.4), 16+1*!, 19+1*!, 20+1!
, 20.1+1*, 26+1*!, 26(XREF 1S), 26(XREF 1n1.4), 26(XREF 1K), 26(XREF 1n2.4), 27(XREF 1S), 29+1*!, 34+1*!, 34(XREF 1S)
, 34(XREF 1n1.4), 34(XREF 1K), 34(XREF 1n2.4), 35+1!, 37+1*!, 38+1!, 41(XREF 1S), 41(XREF 1K)
>> X1 20.1+1*
>> X2 20.1+1*
Y ID2+1*, 1+1, 6+1, 7+1, 8+1, 11OT+1, 12(XREF 2S), 12(XREF 2K), 16+1, 19+1
, 26+1, 26(XREF 1S), 26(XREF 1K), 29+1, 34+1, 34(XREF 1S), 34(XREF 1K), 37+1
Y( 3+1, 3OF9.2+1*, 4+1, 4OF9.2+1*, 5+1, 5OF9.2+1*, 5OF9.3+1*, 20.1+1*
Y(0 6+1, 7+1, 11OT+1*, 12(XREF 2S), 12(XREF 2K)
Y(1 12(XREF 2S), 12(XREF 2K), 26(XREF 1S), 26(XREF 1K), 34(XREF 1S), 34(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All