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    QAC3PRE    QAC5PRE    QACBYLOC
QACCODE    QACCSSTD    QACDISC    QACENV17    QACGEN    QACI1    QACI2D    QACMAIL1
QACNEW    QACPOST    QACPRE17    QACPST17    QACSPRD2    QACUTIL    ^QA(745.2    ^QA(745.4
QACSRPT    

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