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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^QA(745.2

Package: Patient Representative

Global: ^QA(745.2


Information

FileMan FileNo FileMan Filename Package
745.2 CONTACT ISSUE CODE Patient Representative

Description

Directly Accessed By Routines, Total: 29

Package Total Routines
Patient Representative 25 QAC DAILY    QAC DAILY HEADER    QAC PAT BRIEF    QAC RESP DUE    QAC RESP DUE HEADER    ^QA(745.2    ^QA(745.4    QAC3PRE
QAC5PRE    QACBYLOC    QACCODE    QACCSSTD    QACDISC    QACENV17    QACGEN    QACI1
QACI2D    QACMAIL1    QACNEW    QACPOST    QACPRE17    QACPST17    QACSPRD2    QACSRPT
QACUTIL    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Patient Representative 5 QAC3PRE    QACBYLOC    QACCODE    QACPRE17    QACPST17    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Patient Representative 1 CONSUMER CONTACT(#745.1)[#745.121(.01)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Patient Representative 2 *QUALITY MATRIX(#745.3)[3]    CUSTOMER SERVICE STANDARDS(#745.6)[7]    

Fields, Total: 8

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  AUG 19, 1997
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    This is the code that is associated with an issue type.
  • EXECUTABLE HELP:  
    UNEDITABLE
  • CROSS-REFERENCE:  745.2^B
    1)= S ^QA(745.2,"B",$E(X,1,30),DA)=""
    2)= K ^QA(745.2,"B",$E(X,1,30),DA)
    Regular cross-reference used for look-up.
  • CROSS-REFERENCE:  745.2^BU^MUMPS
    1)= S ^QA(745.2,"BU",$E($$UP^XLFSTR(X),1,10),DA)=""
    2)= K ^QA(745.2,"BU",$E($$UP^XLFSTR(X),1,10),DA)
    Uppercase cross-reference of the code.
  • CROSS-REFERENCE:  745.2^AH^MUMPS
    1)= S ^QA(745.2,"AH",$E(X,1,2),+$E(X,3,5),DA)=""
    2)= K ^QA(745.2,"AH",$E(X,1,2),+$E(X,3,5),DA)
    This X-ref extracts the number from the code. Used by the routine QACCODE when building a new code.
1 HEADING (Y/N) 0;2 SET
************************REQUIRED FIELD************************
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 14, 1993
  • HELP-PROMPT:  Only Quality Aspects can be headings.
  • DESCRIPTION:  
    Yes, means this is a heading. No means it is not a heading. Headings are the Quality Aspects of the Quality Matrix.
    WRITE AUTHORITY: ^
2 NAME 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'((X'?1P.E)) X
  • LAST EDITED:  SEP 29, 1997
  • HELP-PROMPT:  Enter an issue type, 3-60 characters in length.
  • DESCRIPTION:  
    This is the description of the issue type.
  • CROSS-REFERENCE:  745.2^C
    1)= S ^QA(745.2,"C",$E(X,1,30),DA)=""
    2)= K ^QA(745.2,"C",$E(X,1,30),DA)
    Regular cross-reference used for look-up.
  • CROSS-REFERENCE:  745.2^E^MUMPS
    1)= S ^QA(745.2,"CU",$E($$UP^XLFSTR(X),1,60),DA)=""
    2)= K ^QA(745.2,"CU",$E($$UP^XLFSTR(X),1,60),DA)
    Uppercase cross-reference for the name.
3 *QUALITY ASPECT 0;4 POINTER TO *QUALITY MATRIX FILE (#745.3) *QUALITY MATRIX(#745.3)

  • INPUT TRANSFORM:  S DIC("S")="I '$G(^(""I""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 07, 1994
  • HELP-PROMPT:  Select a Quality Aspect.
  • DESCRIPTION:  
    These are the only Quality Aspects that are selectable.
  • SCREEN:  S DIC("S")="I '$G(^(""I""))"
  • EXPLANATION:  Screening for active Quality Aspects.
    WRITE AUTHORITY: ^
4 STATUS 0;5 SET
************************REQUIRED FIELD************************
  • 'N' FOR NATIONAL;
  • 'L' FOR LOCAL;
  • '1' FOR INACTIVE;

  • LAST EDITED:  MAR 07, 2002
  • HELP-PROMPT:  Enter the appropriate issue code status.
  • DESCRIPTION:  
    Issue codes cannot be edited or deleted. Only National Issue Codes can be selected. The list of valid National Issue Codes will be reviewed periodically for possible additions/changes.
  • SCREEN:  S DIC("S")="I $S($P(^QA(745.2,D0,0),""^"",5)=""N"":1,Y=""N"":1,1:1)"
  • EXPLANATION:  National Issue Codes may not be changed.
  • CROSS-REFERENCE:  ^^TRIGGER^745.2^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=1 I X S X=DIV S Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(745.2,4,1,1,1.4)
    1.4)= S DIH=$S($D(^QA(745.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=745.2,DIG=6 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.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S X=X'=1 I X S X=DIV S Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(745.2,4,1
    ,1,2.4)
    2.4)= S DIH=$S($D(^QA(745.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=745.2,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= INTERNAL(STATUS)=1
    CREATE VALUE)= TODAY
    DELETE CONDITION)= INTERNAL(STATUS)'=1
    DELETE VALUE)= @
    FIELD)= INACTIVATIO
    When the status of an issue code is made Inactive, the date is stuffed in the field Inactivation Date. If the Inactive status is changed, the date is deleted.
5 DEFINITION 1;0 WORD-PROCESSING #745.25

  • LAST EDITED:  JAN 04, 1994
  • DESCRIPTION:  
    This is the definition of the code name.
6 INACTIVATION DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 23, 1994
  • HELP-PROMPT:  Enter the date this issue code became inactive.
  • DESCRIPTION:  
    This is the date this issue was made inactive.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the STATUS field of the CONTACT ISSUE CODE File
7 CUSTOMER SERVICE STANDARD 0;7 POINTER TO CUSTOMER SERVICE STANDARDS FILE (#745.6) CUSTOMER SERVICE STANDARDS(#745.6)

  • LAST EDITED:  SEP 08, 1997
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Pointer to Customer Service Standard File (745.6)
    UNEDITABLE

Found Entries, Total: 312

CODE: B    CODE: E01    CODE: E02    CODE: E03    CODE: E04    CODE: D    CODE: F01    CODE: E05    
CODE: B99    CODE: G03    CODE: A01    CODE: B01    CODE: G07    CODE: F02    CODE: A02    CODE: A05    
CODE: C15    CODE: C03    CODE: A03    CODE: D04    CODE: A08    CODE: C09    CODE: C    CODE: E11    
CODE: E13    CODE: C99    CODE: F    CODE: F99    CODE: C10    CODE: C07    CODE: C13    CODE: E99    
CODE: G    CODE: G99    CODE: C08    CODE: G12    CODE: A    CODE: E06    CODE: D99    CODE: E    
CODE: C04    CODE: C05    CODE: D03    CODE: A99    CODE: A04    CODE: A06    CODE: A07    CODE: A09    
CODE: A10    CODE: A11    CODE: A12    CODE: B02    CODE: B03    CODE: C14    CODE: C06    CODE: D01    
CODE: D02    CODE: D05    CODE: D07    CODE: D08    CODE: D09    CODE: D10    CODE: D11    CODE: D12    
CODE: D13    CODE: D14    CODE: D06    CODE: E07    CODE: E08    CODE: E09    CODE: E12    CODE: E14    
CODE: F03    CODE: F04    CODE: F05    CODE: F06    CODE: F07    CODE: F08    CODE: F09    CODE: F10    
CODE: G01    CODE: G02    CODE: G04    CODE: G05    CODE: G06    CODE: G08    CODE: G09    CODE: G10    
CODE: G11    CODE: G13    CODE: C01    CODE: C02    CODE: C16    CODE: A13    CODE: A14    CODE: C17    
CODE: C19    CODE: C20    CODE: C21    CODE: C22    CODE: C23    CODE: F11    CODE: F12    CODE: E15    
CODE: D15    CODE: E16    CODE: F13    CODE: G14    CODE: B04    CODE: B05    CODE: B06    CODE: E10    
CODE: CA    CODE: CA01    CODE: CA02    CODE: CA03    CODE: CA04    CODE: CA05    CODE: CA06    CODE: CA07    
CODE: CA08    CODE: CA09    CODE: CA10    CODE: CA11    CODE: CA12    CODE: CA13    CODE: CA14    CODE: CA15    
CODE: CA16    CODE: CA17    CODE: CA18    CODE: CA19    CODE: CA20    CODE: CA21    CODE: CA22    CODE: CA23    
CODE: CA24    CODE: CA25    CODE: CA26    CODE: CA27    CODE: CA28    CODE: TI    CODE: TI01    CODE: TI02    
CODE: TI03    CODE: TI04    CODE: TI05    CODE: TI06    CODE: TI07    CODE: TI08    CODE: TI09    CODE: TI10    
CODE: TI11    CODE: TI12    CODE: TI13    CODE: TI14    CODE: TI15    CODE: TI16    CODE: TI17    CODE: TI18    
CODE: TI19    CODE: CC    CODE: CC01    CODE: CC02    CODE: CC03    CODE: CC04    CODE: CC05    CODE: CC06    
CODE: CC07    CODE: CC08    CODE: CC09    CODE: CC10    CODE: CC11    CODE: CC12    CODE: CC13    CODE: CC14    
CODE: CC15    CODE: ED    CODE: ED01    CODE: ED02    CODE: ED03    CODE: ED04    CODE: EN    CODE: EN01    
CODE: EN02    CODE: EN03    CODE: EN04    CODE: EN05    CODE: EN06    CODE: PP    CODE: PP01    CODE: PP02    
CODE: PP03    CODE: EL    CODE: EL01    CODE: EL02    CODE: EL03    CODE: EL04    CODE: EL05    CODE: EL06    
CODE: EL07    CODE: EL08    CODE: EL09    CODE: EL10    CODE: EL11    CODE: EL12    CODE: MR    CODE: MR01    
CODE: MR02    CODE: MR03    CODE: MR04    CODE: MR05    CODE: IN    CODE: IN01    CODE: IN02    CODE: IN03    
CODE: IN04    CODE: IN05    CODE: IN06    CODE: IN07    CODE: IN08    CODE: IN09    CODE: IN10    CODE: CM    
CODE: CM01    CODE: CM02    CODE: CM03    CODE: CM04    CODE: CM05    CODE: CM06    CODE: CM07    CODE: CA201    
CODE: CA202    CODE: CM201    CODE: CA29    CODE: ED05    CODE: MR06    CODE: MR07    CODE: IN11    CODE: TR01    
CODE: CO03    CODE: SC01    CODE: SC02    CODE: AC01    CODE: AC02    CODE: AC03    CODE: AC04    CODE: AC05    
CODE: AC06    CODE: AC07    CODE: AC08    CODE: AC09    CODE: AC11    CODE: AC10    CODE: AC12    CODE: OP01    
CODE: OP02    CODE: PR01    CODE: PR02    CODE: PR03    CODE: PR04    CODE: EM01    CODE: EM02    CODE: EM03    
CODE: PC01    CODE: PC02    CODE: CO01    CODE: CO02    CODE: CO04    CODE: FI01    CODE: RI01    CODE: RI02    
CODE: RI03    CODE: RI04    CODE: RI05    CODE: RE01    CODE: LL01    CODE: LL02    CODE: LL03    CODE: LL04    
CODE: EV01    CODE: EV02    CODE: EV03    CODE: RG01    CODE: IF01    CODE: IF02    CODE: IF04    CODE: IF05    
CODE: IF06    CODE: IF07    CODE: IF08    CODE: IF09    CODE: IF10    CODE: CP01    CODE: RG02    CODE: RG03    
CODE: SC    CODE: AC    CODE: OP    CODE: PR    CODE: EM    CODE: PC    CODE: CO    CODE: TR    
CODE: FI    CODE: RI    CODE: RE    CODE: LL    CODE: EV    CODE: RG    CODE: IF    CODE: CP    

External References

Name Field # of Occurrence
^%DT 6+1
NOW^%DTC 4(XREF 1S)
^DIC 3+1
^DICR 4(XREF 1n1.4), 4(XREF 1n2.4)
Y^DIQ IDWRITE+1
$$UP^XLFSTR .01(XREF 2S), .01(XREF 2K), 2(XREF 2S), 2(XREF 2K)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 4(XREF 1n1.4), 4(XREF 1n2.4)
^DD(745.2 4(XREF 1S), 4(XREF 1K)
^DD(745.3 IDWRITE+1
^QA(745.2 - [#745.2] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
, 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
^QA(745.3 - [#745.3] IDWRITE+1

Naked Globals

Name Field # of Occurrence
^(0 ID2+1, IDWRITE+1, 2SCR+1, 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% 4(XREF 1S)
>> %DT 6+1*
%H 4(XREF 1S)
%I IDWRITE+1*, 4(XREF 1S)
>> C IDWRITE+1*
>> D0 4(XREF 1S), 4(XREF 1K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
, 4(XREF 1S), 4(XREF 1K)
DIC 3+1!*
DIC("S" 3+1*, 3SCR+1*, 4SCR+1*
>> DIE 3+1
>> DIG 4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIH 4(XREF 1n1.4), 4(XREF 1n2.4)
>> DIU 4(XREF 1S), 4(XREF 1K)
DIV 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
DIV(0 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
U ID2+1, IDWRITE+1, 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 2+1!, 2(XREF 1S), 2(XREF 1K)
, 2(XREF 2S), 2(XREF 2K), 3+1*!, 4(XREF 1S), 4(XREF 1n1.4), 4(XREF 1K), 4(XREF 1n2.4), 6+1*!
Y IDWRITE+1*, 3+1, 4(XREF 1S), 4(XREF 1K), 6+1
Y(0 4(XREF 1S), 4(XREF 1K)
Y(1 4(XREF 1S), 4(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All