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 24 QAC DAILY    QAC DAILY HEADER    QAC PAT BRIEF    QAC RESP DUE    QAC RESP DUE HEADER    QAC3PRE    QAC5PRE    QACBYLOC
QACCODE    QACCSSTD    QACDISC    QACENV17    QACGEN    QACI1    QACI2D    QACMAIL1
QACNEW    QACPOST    QACPRE17    QACPST17    QACSPRD2    QACSRPT    QACUTIL    ^QA(745.2
Kernel 1 FILE    

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: A    CODE: A01    CODE: A02    CODE: A03    CODE: A04    CODE: A05    CODE: A06    CODE: A07    
CODE: A08    CODE: A09    CODE: A10    CODE: A11    CODE: A12    CODE: A13    CODE: A14    CODE: A99    
CODE: AC    CODE: AC01    CODE: AC02    CODE: AC03    CODE: AC04    CODE: AC05    CODE: AC06    CODE: AC07    
CODE: AC08    CODE: AC09    CODE: AC10    CODE: AC11    CODE: AC12    CODE: B    CODE: B01    CODE: B02    
CODE: B03    CODE: B04    CODE: B05    CODE: B06    CODE: B99    CODE: C    CODE: C01    CODE: C02    
CODE: C03    CODE: C04    CODE: C05    CODE: C06    CODE: C07    CODE: C08    CODE: C09    CODE: C10    
CODE: C13    CODE: C14    CODE: C15    CODE: C16    CODE: C17    CODE: C19    CODE: C20    CODE: C21    
CODE: C22    CODE: C23    CODE: C99    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: CA201    CODE: CA202    CODE: CA21    CODE: CA22    CODE: CA23    CODE: CA24    CODE: CA25    CODE: CA26    
CODE: CA27    CODE: CA28    CODE: CA29    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: CM    CODE: CM01    CODE: CM02    CODE: CM03    CODE: CM04    
CODE: CM05    CODE: CM06    CODE: CM07    CODE: CM201    CODE: CO    CODE: CO01    CODE: CO02    CODE: CO03    
CODE: CO04    CODE: CP    CODE: CP01    CODE: D    CODE: D01    CODE: D02    CODE: D03    CODE: D04    
CODE: D05    CODE: D06    CODE: D07    CODE: D08    CODE: D09    CODE: D10    CODE: D11    CODE: D12    
CODE: D13    CODE: D14    CODE: D15    CODE: D99    CODE: E    CODE: E01    CODE: E02    CODE: E03    
CODE: E04    CODE: E05    CODE: E06    CODE: E07    CODE: E08    CODE: E09    CODE: E10    CODE: E11    
CODE: E12    CODE: E13    CODE: E14    CODE: E15    CODE: E16    CODE: E99    CODE: ED    CODE: ED01    
CODE: ED02    CODE: ED03    CODE: ED04    CODE: ED05    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: EM    CODE: EM01    CODE: EM02    CODE: EM03    CODE: EN    CODE: EN01    CODE: EN02    
CODE: EN03    CODE: EN04    CODE: EN05    CODE: EN06    CODE: EV    CODE: EV01    CODE: EV02    CODE: EV03    
CODE: F    CODE: F01    CODE: F02    CODE: F03    CODE: F04    CODE: F05    CODE: F06    CODE: F07    
CODE: F08    CODE: F09    CODE: F10    CODE: F11    CODE: F12    CODE: F13    CODE: F99    CODE: FI    
CODE: FI01    CODE: G    CODE: G01    CODE: G02    CODE: G03    CODE: G04    CODE: G05    CODE: G06    
CODE: G07    CODE: G08    CODE: G09    CODE: G10    CODE: G11    CODE: G12    CODE: G13    CODE: G14    
CODE: G99    CODE: IF    CODE: IF01    CODE: IF02    CODE: IF04    CODE: IF05    CODE: IF06    CODE: IF07    
CODE: IF08    CODE: IF09    CODE: IF10    CODE: IN    CODE: IN01    CODE: IN02    CODE: IN03    CODE: IN04    
CODE: IN05    CODE: IN06    CODE: IN07    CODE: IN08    CODE: IN09    CODE: IN10    CODE: IN11    CODE: LL    
CODE: LL01    CODE: LL02    CODE: LL03    CODE: LL04    CODE: MR    CODE: MR01    CODE: MR02    CODE: MR03    
CODE: MR04    CODE: MR05    CODE: MR06    CODE: MR07    CODE: OP    CODE: OP01    CODE: OP02    CODE: PC    
CODE: PC01    CODE: PC02    CODE: PP    CODE: PP01    CODE: PP02    CODE: PP03    CODE: PR    CODE: PR01    
CODE: PR02    CODE: PR03    CODE: PR04    CODE: RE    CODE: RE01    CODE: RG    CODE: RG01    CODE: RG02    
CODE: RG03    CODE: RI    CODE: RI01    CODE: RI02    CODE: RI03    CODE: RI04    CODE: RI05    CODE: SC    
CODE: SC01    CODE: SC02    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: TR    CODE: TR01    

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