Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 26.131

Package: Registration

PRF ASSIGNMENT(#26.13)-->26.131

Sub-Field: 26.131


Information

Parent File Name Number Package
PRF ASSIGNMENT(#26.13) DBRS NUMBER 26.131 Registration

Details

Field # Name Loc Type Details
.01 DBRS NUMBER 0;1 FREE TEXT

  • INPUT TRANSFORM:  S:X?.E1L.E X=$$UP^XLFSTR(X) K:$L(X)>17!($L(X)<10)!'((X?3N.7UN1"."6N)!(X?3N1"/".6UN1"."6N)) X
    MAXIMUM LENGTH: 17
  • LAST EDITED:  JUL 26, 2018
  • HELP-PROMPT:  Answer must be 10-17 characters in length, .NNNNNN
  • DESCRIPTION:  This is the number as registered in the external system Disruptive Behavioral Record System (DBRS).
    The DBRS# format on that system is .YYNNNC where:
    site_number := 3 numbers followed by 0-7 alphanumeric characters
    for example: 6739AA for a nursing home
    site_number := 3 numbers, 1 "/", 1-6 alphanumeric characters
    for example: 673/107C
    YYNNNC := 6 numbers
  • DELETE TEST:  1,0)= I +$P(^DGPF(26.13,DA(1),2,DA,0),U,4)'=+$$SITE^VASITE,'$G(DGDBRSE) D EN^DDIOL("Only the facility which first entered this record may delete it!"),EN^DDIOL("","","!?0")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  26.131^B
    1)= S ^DGPF(26.13,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^DGPF(26.13,DA(1),2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^26.131^.03
    1)= X ^DD(26.131,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGPF(26.13,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$E($$NOW^XLFDT,1,12) X ^DD(26.131,.01,1,2,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DGPF(26.13,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,3)=""
    1.4)= S DIH=$G(^DGPF(26.13,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=26.131,DIG=.03 D ^DICR
    2)= Q
    CREATE CONDITION)= DATE=""
    CREATE VALUE)= S X=+$E($$NOW^XLFDT,1,12)
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE
    This data is computer generated. Whenever a new record is created in this multiple, this trigger will stuff the date and time that this record was created.
  • CROSS-REFERENCE:  ^^TRIGGER^26.131^.04
    1)= X ^DD(26.131,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGPF(26.13,D0,2,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=+$$SITE^VASITE X ^DD(26.131,.01,1,3,1.4)
    1.3)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DGPF(26.13,D0,2,D1,0)):^(0),1:"") S X=$P($G(^DIC(4,+$P(Y(1),U,4),0)),U)=""
    1.4)= S DIH=$G(^DGPF(26.13,DIV(0),2,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=26.131,DIG=.04 D ^DICR
    2)= Q
    CREATE CONDITION)= CREATE SITE=""
    CREATE VALUE)= S X=+$$SITE^VASITE
    DELETE VALUE)= NO EFFECT
    FIELD)= CREATE
    This will populate the CREATE SITE field with the VAMC Facility name.
  • FIELD INDEX:  DBRS (#208) REGULAR IR LOOKUP & SORTING WHOLE FILE (#26.13)
    Short Descr: Index entire file by DBRS#
    Description: This index is used by a KEY to ensure that a DBRS Number is entered once and only once in this VistA System.
    Set Logic: S ^DGPF(26.13,"DBRS",$E(X,1,30),DA(1),DA)=""
    Kill Logic: K ^DGPF(26.13,"DBRS",$E(X,1,30),DA(1),DA)
    Whole Kill: K ^DGPF(26.13,"DBRS")
    X(1): DBRS NUMBER (26.131,.01) (Subscr 1) (Len 30) (forwards)
.02 OTHER DBRS DATA 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
    MAXIMUM LENGTH: 60
  • LAST EDITED:  JAN 03, 2018
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    Enter any relevant information as desired.
.03 DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAR 05, 2018
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  This date is computer generated at the time this DBRS record was created by a trigger cross reference on the .01 field. Thus the meaning of this is that it is the date that this DBRS record was entered in the owner
    facility system.
  • NOTES:  TRIGGERED by the DBRS NUMBER field of the DBRS NUMBER sub-field of the PRF ASSIGNMENT File
.04 CREATE SITE 0;4 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  JUL 27, 2018
  • HELP-PROMPT:  VAMC that first entered this DBRS Number
  • DESCRIPTION:  This field value is created by a Trigger cross reference on the .01 field. It is the name of the facility that first entered this DBRS# for this assignment.
    Business rule: only the VAMC that created this DBRS record is allowed to delete it.
  • NOTES:  TRIGGERED by the DBRS NUMBER field of the DBRS NUMBER sub-field of the PRF ASSIGNMENT File
Info |  Details