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

Package: Registration

Global: ^DGPF(26.14


Information

FileMan FileNo FileMan Filename Package
26.14 PRF ASSIGNMENT HISTORY Registration

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
Registration 15 DBRS NUMBER    DGPFAAH    DGPFAPI1    DGPFAPI2    DGPFAPIH    DGPFAPIU    DGPFHLL    DGPFRAB
DGPFRAB1    DGPFRAL    DGPFRAL1    DGPFRPI    DGPFUT62    DGPFUT7    ^DGPF(26.14    

Accessed By FileMan Db Calls, Total: 11

Package Total Routines
Registration 11 DG53P951    DGPFAAH    DGPFAAH2    DGPFAPIH    DGPFHLQ4    DGPFHLU    DGPFLMQ2    DGPFRAB
DGPFUT    DGPFUT3    DGPFUT62    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Registration 1 PRF HL7 TRANSMISSION LOG(#26.17)[.02]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Kernel 2 INSTITUTION(#4)[.09, #26.142(.05)]    NEW PERSON(#200)[.04, .05]    
Registration 1 PRF ASSIGNMENT(#26.13)[.01]    
Text Integration Utility 1 TIU DOCUMENT(#8925)[.06]    

Fields, Total: 10

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 23, 2003
  • HELP-PROMPT:  Type a Number between 1 and 999999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the internal entry number which is assigned to each record of this file.
    UNEDITABLE
.01 PRF ASSIGNMENT 0;1 POINTER TO PRF ASSIGNMENT FILE (#26.13)
************************REQUIRED FIELD************************
PRF ASSIGNMENT(#26.13)

  • LAST EDITED:  MAY 24, 2018
  • HELP-PROMPT:  Enter the record flag assignment associated with this history record.
  • DESCRIPTION:  
    This field contains the history record's parent Patient Record Flag Assignment in the PRF ASSIGNMENT file.
  • TECHNICAL DESCR:  
    This field is a pointer to the history record's parent Patient Record Flag Assignment in the PRF ASSIGNMENT file (#26.13).
    UNEDITABLE
  • CROSS-REFERENCE:  26.14^B
    1)= S ^DGPF(26.14,"B",$E(X,1,30),DA)=""
    2)= K ^DGPF(26.14,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^26.14^.09
    1)= X ^DD(26.14,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGPF(26.14,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=+$$SITE^VASITE S DIH=$G(^DGPF(26.14,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=26.14,DIG=.09 D ^
    DICR
    1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGPF(26.14,D0,0)):^(0),1:"") S X=$P($G(^DIC(4,+$P(Y(1),U,9),0)),U)=""
    2)= Q
    CREATE CONDITION)= #.09=""
    CREATE VALUE)= S X=+$$SITE^VASITE
    DELETE VALUE)= NO EFFECT
    FIELD)= #.09
    Upon creation of a History record, stuff the current default INSTITUTION into field CREATED BY SITE.
  • RECORD INDEXES:  APPRO (#265), C (#266)
.02 DATE/TIME 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2003
  • HELP-PROMPT:  Enter the Date/Time of the assignment history.
  • DESCRIPTION:  
    This field will contain the Date and [optional] Time of either the initial ASSIGNMENT of the PATIENT RECORD FLAG or the REVIEW Date/Time of the PATIENT RECORD FLAG.
    UNEDITABLE
  • RECORD INDEXES:  C (#266), D (#267)
.03 ACTION 0;3 SET
************************REQUIRED FIELD************************
  • '1' FOR NEW ASSIGNMENT;
  • '2' FOR CONTINUE;
  • '3' FOR INACTIVATE;
  • '4' FOR REACTIVATE;
  • '5' FOR ENTERED IN ERROR;
  • '6' FOR DBRS#/OTHER FIELD UPDATE;
  • '7' FOR REFRESH INACTIVE;
  • '8' FOR REFRESH ACTIVE;

  • LAST EDITED:  SEP 11, 2018
  • HELP-PROMPT:  Enter the action associated with the assignment history.
  • DESCRIPTION:  
    This field contains the event that occurred to create this PRF ASSIGNMENT HISTORY record.
    UNEDITABLE
.04 ENTERED BY 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  APR 23, 2003
  • HELP-PROMPT:  Enter the user who is entering or editing the record flag assignment.
  • DESCRIPTION:  
    This field contains the name of the person entering, editing or reviewing the associated patient record flag assignment.
  • TECHNICAL DESCR:  
    This field contains the pointer to the NEW PERSON FILE (#200) of the person making the Enter/Edit/Review to a PATIENT RECORD FLAG of the associated PRF ASSIGNMENT FILE (#26.13) record.
    UNEDITABLE
.05 APPROVED BY 0;5 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • OUTPUT TRANSFORM:  S Y=$$COS^DGPFDD(Y)
  • LAST EDITED:  MAY 09, 2003
  • HELP-PROMPT:  Enter the person approving the record flag assignment.
  • DESCRIPTION:  
    This field contains the name of the person who approved the assignment of the patient record flag to the patient.
  • TECHNICAL DESCR:  This field contains the pointer to the NEW PERSON FILE (#200) of the person who approved the assignment of the patient record flag to the patient. When the assignment originates from a site different from the local site,
    the internal value of the field will be .5 (POSTMASTER). An output transform converts POSTMASTER to the text "CHIEF OF STAFF" for screen displays and reports.
    UNEDITABLE
  • RECORD INDEXES:  APPRO (#265), D (#267)
.06 TIU PN LINK 0;6 POINTER TO TIU DOCUMENT FILE (#8925)
************************REQUIRED FIELD************************
TIU DOCUMENT(#8925)

  • LAST EDITED:  APR 20, 2004
  • HELP-PROMPT:  Enter the Progress Note IEN that will be linked to this assignment history record.
  • DESCRIPTION:  
    This field contains the IEN of the TIU Progress Note that is linked to this PRF Assignment History record. Integration Agreement #4387.
  • TECHNICAL DESCR:  
    This field contains the pointer to the TIU DOCUMENT file (#8925) of the Progress Note that is linked to this PRF Assignment History record.
    UNEDITABLE
  • FIELD INDEX:  ATIUPN (#646) REGULAR IR SORTING ONLY
    Short Descr: This is a sort only index of the TIU PN LINK field.
    Set Logic: S ^DGPF(26.14,"ATIUPN",X,DA)=""
    Kill Logic: K ^DGPF(26.14,"ATIUPN",X,DA)
    Whole Kill: K ^DGPF(26.14,"ATIUPN")
    X(1): TIU PN LINK (26.14,.06) (Subscr 1) (forwards)
.09 CREATED BY SITE 0;9 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  SEP 24, 2018
  • HELP-PROMPT:  Enter the name of the facility that created this record.
  • DESCRIPTION:  Enter the name of the INSTITUTION which created this history record. This field is auto-populated with the system's facility name whenever a new record is created in this file by a Fileman trigger cross reference on the
    .01 field.
  • NOTES:  TRIGGERED by the PRF ASSIGNMENT field of the PRF ASSIGNMENT HISTORY File
1 HISTORY COMMENTS 1;0 WORD-PROCESSING #26.141

  • DESCRIPTION:  
    This word processing field contains the comments associated with the patient record flag assignment history. The history comments should describe the reason that the history record was generated.
  • LAST EDITED:  APR 23, 2003
  • HELP-PROMPT:  Enter the comments associated with this history record.
  • TECHNICAL DESCR:  
    This field will contain the comments that apply to the Enter/Edit/Review of the patient's RECORD FLAG of the PRF ASSIGNMENT FILE (#26.13).
2 DBRS NUMBER 2;0 Multiple #26.142 26.142

  • DESCRIPTION:  
    The Disruptive Behavior Reporting System (DBRS) has information which might be of interest. This field records any changes to DBRS# records in file 26.13.

External References

Name Field # of Occurrence
^%DT .02+1
$$COS^DGPFDD .05OT+1
^DICR .01(XREF 2S)
$$FMTE^DILIBF ID.02+1
$$SITE^VASITE .01(XREF 2S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(26.14 .01(XREF 2S)
^DGPF(26.14 - [#26.14] IXAPPROSL+1*, IXAPPROKL+1!, IXAPPROKEIC+1!, IXATIUPNSL+1*, IXATIUPNKL+1!, IXATIUPNKEIC+1!, IXCSL+1*, IXCKL+1!, IXCKEIC+1!, IXDSL+1*
, IXDKL+1!, IXDKEIC+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3)
^DIC(4 - [#4] .01(XREF 2n1.3)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, .01(XREF 2S), .01(XREF 2n1.3)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*
>> D0 .01(XREF 2S), .01(XREF 2n1.3)
>> DA IXAPPROSL+1, IXAPPROKL+1, IXATIUPNSL+1, IXATIUPNKL+1, IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, .01(XREF 1S), .01(XREF 1K)
, .01(XREF 2n1.3)
>> DIC ID.03+1
>> DIG .01(XREF 2S)
>> DIH .01(XREF 2S)
>> DIU .01(XREF 2S)
DIV .01(XREF 2S), .01(XREF 2n1.3)
DIV(0 .01(XREF 2S), .01(XREF 2n1.3)
U ID.02+1, .01(XREF 2S), .01(XREF 2n1.3)
X IXATIUPNSL+1, IXATIUPNKL+1, .001+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.3), .02+1*!
X(1 IXAPPROSL+1, IXAPPROKL+1, IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1
X(2 IXAPPROSL+1, IXAPPROKL+1, IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1
Y .01(XREF 2S), .02+1, .05OT+1*
Y(0 .01(XREF 2n1.3), .05OT+1*
Y(1 .01(XREF 2S), .01(XREF 2n1.3)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All