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

Package: Registration

Global: ^DGPF(26.11


Information

FileMan FileNo FileMan Filename Package
26.11 PRF LOCAL FLAG Registration

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Registration 13 DGPFALH    ^DGPF(26.11    DG53P554    DGPFALF    DGPFALF1    DGPFAPI1    DGPFAPIU    DGPFLF6
DGPFRPI    DGPFRPI1    DGPFXCRN    DGY994PO    PRINCIPAL INVESTIGATOR(S)    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Registration 6 DGPFALF    DGPFLF3    DGPFLF5    DGPFRPI    DGPFUT64    DGY994PO    
Scheduling 4 SDES2BLDAPPT2    SDES2PATDATA    SDESPATFLAGS    SDESPATIENTDATA2    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Registration 2 PRF LOCAL FLAG HISTORY(#26.12)[.01]    PRF ASSIGNMENT(#26.13)[.02]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[#26.112(.01)]    
MailMan 1 MAIL GROUP(#3.8)[.06]    
Registration 1 PRF TYPE(#26.16)[.03]    
Text Integration Utility 1 TIU DOCUMENT DEFINITION(#8925.1)[.07]    

Fields, Total: 9

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

  • INPUT TRANSFORM:  S X=$$UP^XLFSTR(X) K:$E(X)'?1U!($E(X,$L(X))?1P)!($L(X)>30)!($L(X)<3)!'($TR(X," ","")?1U.UN) X
  • LAST EDITED:  MAR 31, 2004
  • HELP-PROMPT:  Answer must be 3-30 characters in length. No punctuation characters except spaces may be used. No leading or trailing spaces. Can contain numbers but not in the first position.
  • DESCRIPTION:  
    This field contains the locally assigned name of the Patient Record Flag.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  26.11^B
    1)= S ^DGPF(26.11,"B",$E(X,1,30),DA)=""
    2)= K ^DGPF(26.11,"B",$E(X,1,30),DA)
  • RECORD INDEXES:  ASTAT (#256), ATIU (#644), ATYP (#257)
.02 STATUS 0;2 SET
************************REQUIRED FIELD************************
  • '0' FOR INACTIVE;
  • '1' FOR ACTIVE;

  • LAST EDITED:  APR 23, 2003
  • HELP-PROMPT:  Enter the status of the patient record flag.
  • DESCRIPTION:  
    This field contains the ACTIVE or INACTIVE status of the Patient Record Flag. Changing this field from ACTIVE to INACTIVE will inactivate all patient record flag assignments associated with this flag.
  • TECHNICAL DESCR:  This field contains the Active or Inactive status of the Patient Record Flag as a set of codes. This field will be used as a trigger that will be fired when the Status of either a LOCAL (#26.11) or a NATIONAL (#26.15)
    Patient Record Flag is changed from Active to Inactive. The trigger process will Inactivate ALL active Patient Record Flag Assignment records in the PRF ASSIGNMENT (#26.13) file associated with this flag.
    UNEDITABLE
  • FIELD INDEX:  AINACT (#255) MUMPS I ACTION
    Short Descr: Trigger for Status change to all Assignments.
    Description: The trigger process will Inactivate ALL active Patient Record Flag Assignment records in the PRF ASSIGNMENT (#26.13) file associated with this flag.
    Set Logic: I X(1)=0,X1(1)=1 D INACT^DGPFDD(DA,X(1),26.11,DUZ)
    Kill Logic: Q
    X(1): STATUS (26.11,.02) (forwards)
  • RECORD INDEXES:  ASTAT (#256)
.03 TYPE 0;3 POINTER TO PRF TYPE FILE (#26.16)
************************REQUIRED FIELD************************
PRF TYPE(#26.16)

  • LAST EDITED:  APR 23, 2003
  • HELP-PROMPT:  Enter the Patient Record Flag Type.
  • DESCRIPTION:  
    This field identifies the usage classification of the Patient Record Flag.
  • TECHNICAL DESCR:  
    This field identifies the usage classification of the Patient Record Flag as a pointer to the PRF TYPE file (#26.16).
    UNEDITABLE
  • RECORD INDEXES:  ATYP (#257)
.04 REVIEW FREQUENCY DAYS 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 31, 2003
  • HELP-PROMPT:  Enter a number of days from 0 to 9999. (ex: 730 days = 2 years)
  • DESCRIPTION:  
    This field represents the number of days that may elapse between reviews of a Patient Record Flag Assignment. A value of zero ("0") indicates that no automatic review will occur. (example: 730 = 2 years)
    UNEDITABLE
.05 NOTIFICATION DAYS 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9998)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 23, 2003
  • HELP-PROMPT:  Enter a Number between 0 and 9998, 0 Decimal Digits
  • DESCRIPTION:  This field contains the number of days prior to a patient record flag assignment's Review date that a review notification is sent to the flag's Review Mail Group. A value of zero ("0") indicates that NO prior notification
    is required. This field should always be less than the Review Frequency field value.
    UNEDITABLE
.06 REVIEW MAIL GROUP 0;6 POINTER TO MAIL GROUP FILE (#3.8) MAIL GROUP(#3.8)

  • INPUT TRANSFORM:  S DIC("S")="I $E($P(^(0),""^""),1,4)=""DGPF""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  APR 25, 2003
  • HELP-PROMPT:  Enter the mail group that will receive review notifications.
  • DESCRIPTION:  This field contains the name of the mail group whose members will receive MailMan notification of Patient Record Flag Assignments that are due for review.
    The mail group name must begin with 'DGPF' and it is further recommended that locally-defined flag mail group names begin with 'DGPFZ' to prevent conflicts with nationally-released patient record flags.
  • SCREEN:  S DIC("S")="I $E($P(^(0),""^""),1,4)=""DGPF"""
  • EXPLANATION:  Allows only mail group names that begin with DGPF.
    UNEDITABLE
.07 TIU PN TITLE 0;7 POINTER TO TIU DOCUMENT DEFINITION FILE (#8925.1)
************************REQUIRED FIELD************************
TIU DOCUMENT DEFINITION(#8925.1)

  • INPUT TRANSFORM:  S DIC("S")="I $$TIULIST^DGPFDD(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JUN 07, 2004
  • HELP-PROMPT:  Enter the associated Category II Progress Note Title.
  • DESCRIPTION:  
    This field contains the Category II Progress Note Title that is associated with this Patient Record Flag.
  • TECHNICAL DESCR:  
    This field contains the pointer to the TIU DOCUMENT DEFINITION file (#8925.1). This field is used to link a Progress Note Title to the Patient Record Flag. DBIA Reference: (#4386)
  • SCREEN:  S DIC("S")="I $$TIULIST^DGPFDD(Y)"
  • EXPLANATION:  Allows only Category II Progress Note Titles to be displayed.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  ATIU (#644)
1 DESCRIPTION 1;0 WORD-PROCESSING #26.111

  • LAST EDITED:  DEC 26, 2002
  • DESCRIPTION:  
    This field contains the text that describes the purpose and instructions for application of this local Patient Record Flag to a patient.
  • LAST EDITED:  APR 23, 2003
  • HELP-PROMPT:  Enter the purpose and instructions for assigning this flag.
2 PRINCIPAL INVESTIGATOR(S) 2;0 POINTER Multiple #26.112 26.112

  • DESCRIPTION:  
    This multiple field contains the principal investigator(s) names when the Flag TYPE is RESEARCH.
  • TECHNICAL DESCR:  
    This multiple field contains the principal investigator(s) names as a pointer to the NEW PERSON file (#200). This field is only used when the Flag TYPE is RESEARCH.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #7020
  • Scheduling
  • NAME (.01).
    Access: Read w/Fileman

    STATUS (.02).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    INACT^DGPFDD IXAINACTSL+1
    ^DIC .06+1, .07+1
    Y^DIQ ID.03+1
    $$UP^XLFSTR .01+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(26.16 ID.03+1
    ^DGPF(26.11 - [#26.11] IXASTATSL+1*, IXASTATKL+1!, IXASTATKEIC+1!, IXATIUSL+1*, IXATIUKL+1!, IXATIUKEIC+1!, IXATYPSL+1*, IXATYPKL+1!, IXATYPKEIC+1!, IXCSL+1*
    , IXCKL+1!, IXCKEIC+1!, .01(XREF 1S), .01(XREF 1K)
    ^DGPF(26.16 - [#26.16] ID.03+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.03+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    %I ID.03+1*!
    >> C ID.03+1*
    >> DA IXAINACTSL+1, IXASTATSL+1, IXASTATKL+1, IXATIUSL+1, IXATIUKL+1, IXATYPSL+1, IXATYPKL+1, IXCSL+1, IXCKL+1, .01(XREF 1S)
    .01(XREF 1K)
    >> DA(1 IXCSL+1, IXCKL+1
    DIC ID.02+1, ID.03+1, .06+1!*, .07+1!*
    DIC("S" .06+1*, .06SCR+1*, .07+1*, .07SCR+1*
    >> DIE .06+1, .07+1
    DUZ IXAINACTSL+1
    U ID.03+1
    X IXCSL+1, IXCKL+1, .01+1*!, .01(XREF 1S), .01(XREF 1K), .04+1!, .05+1!, .06+1*!, .07+1*!
    X(1 IXAINACTSL+1, IXASTATSL+1, IXASTATKL+1, IXATIUSL+1, IXATIUKL+1, IXATYPSL+1, IXATYPKL+1
    X(2 IXASTATSL+1, IXASTATKL+1, IXATIUSL+1, IXATIUKL+1, IXATYPSL+1, IXATYPKL+1
    >> X1(1 IXAINACTSL+1
    >> Y ID.03+1*, .06+1, .07+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All