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 |  Local Variables  | All
Print Page as PDF
Global: ^RORDATA(798.4

Package: Clinical Case Registries

Global: ^RORDATA(798.4


Information

FileMan FileNo FileMan Filename Package
798.4 ROR PATIENT Clinical Case Registries

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Clinical Case Registries 5 RORPTSTATUS    ^RORDATA(798.4    ^RORDATA(799.4    RORUPD51    RORUPD52    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Clinical Case Registries 3 RORDD01    RORRP019    RORUPD50    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Clinical Case Registries 2 ROR REGISTRY RECORD(#798)[.01]    ROR HISTORICAL DATA EXTRACTION(#799.6)[#799.641(.01)]    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Registration 2 PERIOD OF SERVICE(#21)[.323]    PATIENT(#2)[.01]    

Fields, Total: 14

Field # Name Loc Type Details
.01 PATIENT NAME 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • INPUT TRANSFORM:  S:$D(X) DINUM=X
  • LAST EDITED:  MAY 23, 2000
  • DESCRIPTION:  You can select an existing patient or add a new one from the PATIENT file (#2).
    You can access records of this file only if you have appropriate security key(s) for any registry.
  • TECHNICAL DESCR:  
    The PATIENT NAME field points to the patient record in the PATIENT file (#2). Internal value of this field is used as internal entry number of the record ("DINUM" feature).
  • DELETE TEST:  1,0)= I $D(^RORDATA(798,"B",+$G(DA)))
    DELETE AUTHORITY: @
    WRITE AUTHORITY: @
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  798.4^B
    1)= S ^RORDATA(798.4,"B",$E(X,1,30),DA)=""
    2)= K ^RORDATA(798.4,"B",$E(X,1,30),DA)
    3)= Do not delete!
.02 SEX 1;3 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • LAST EDITED:  NOV 20, 2001
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    See the corresponding field in the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
.03 DATE OF BIRTH 1;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  S Y(0)=Y S X=Y(0) S:X X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_(1700+$E(X,1,3)) S Y=X
  • LAST EDITED:  NOV 20, 2001
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    See the corresponding field in the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
.09 SOCIAL SECURITY NUMBER 1;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X
  • OUTPUT TRANSFORM:  S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)
  • LAST EDITED:  APR 03, 2002
  • HELP-PROMPT:  Answer must be 9-11 characters in length.
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    See the corresponding field in the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
  • CROSS-REFERENCE:  798.4^BS^MUMPS
    1)= S ^RORDATA(798.4,"BS",$E(X,6,9),DA)=""
    2)= K ^RORDATA(798.4,"BS",$E(X,6,9),DA)
    3)= Do not delete!
    The cross-reference on the last four digits of the SSN.
  • CROSS-REFERENCE:  798.4^BS5^MUMPS
    1)= S ^RORDATA(798.4,"BS5",$E(^DPT(DA,0),1)_$E(X,6,9),DA)=""
    2)= K ^RORDATA(798.4,"BS5",$E(^DPT(DA,0),1)_$E(X,6,9),DA)
    3)= Do not delete!
    This cross-reference contains values combined from the first letter of the last name and last four digits of the SSN.
  • CROSS-REFERENCE:  798.4^SSN
    1)= S ^RORDATA(798.4,"SSN",$E(X,1,30),DA)=""
    2)= K ^RORDATA(798.4,"SSN",$E(X,1,30),DA)
    3)= Do not delete!
.1112 ZIP+4 1;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5) X
  • LAST EDITED:  NOV 20, 2001
  • HELP-PROMPT:  Answer must be 5-9 characters in length.
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    See the corresponding field in the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
.301 SERVICE CONNECTED? 1;6 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 20, 2001
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    See the corresponding field in the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
.302 SERVICE CONNECTED PERCENTAGE 1;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 20, 2001
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits.
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    See the corresponding field in the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
.323 PERIOD OF SERVICE 1;5 POINTER TO PERIOD OF SERVICE FILE (#21) PERIOD OF SERVICE(#21)

  • LAST EDITED:  NOV 20, 2001
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    See the corresponding field in the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
.351 DATE OF DEATH 1;4 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 02, 2002
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    See the corresponding field in the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
.3721 RATED DISABILITIES DATA 3;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  NOV 06, 2002
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  This field stores the CRC32 value for combined data from the RATED DISABILITIES (VA) multiple (.3721) of the PATIENT file (#2). This data can be used only for comparison (by the RORUPD52 routine) to the data in the PATIENT
    file!
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
2 RACE AND ETHNICITY DATA 2;E1,245 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  NOV 06, 2002
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  This field stores the combined data from the RACE INFORMATION (2) and ETHNICITY INFORMATION (6) multiples of the PATIENT file (#2). This data can be used only for comparison (by the RORUPD52 routine) to the data in the
    PATIENT file. Do not try to parse values of this field in any way!
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE
10.1 OLD SSN 10;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X
  • LAST EDITED:  NOV 20, 2001
  • HELP-PROMPT:  Answer must be 9-11 characters in length.
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    This field contains the previous value of the patient SSN. The registry extraction process transmits both new and old values of the SSN to the national registries.
  • GROUP:  OLD DEMOGRAPHICS
    UNEDITABLE
10.2 OLD ICN 10;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1) X
  • LAST EDITED:  NOV 01, 2002
  • HELP-PROMPT:  Answer must be 1-19 characters in length.
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    This field contains the previous value of the patient ICN (with the checksum). The registry extraction process transmits both new and old values of the ICN to the national registries.
  • GROUP:  OLD DEMOGRAPHICS
    UNEDITABLE
991 INTEGRATION CONTROL NUMBER 1;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>19!($L(X)<1) X
  • LAST EDITED:  NOV 01, 2002
  • HELP-PROMPT:  Answer must be 1-19 characters in length.
  • DESCRIPTION:  
    Do not edit this field!
  • TECHNICAL DESCR:  
    This field stores the patient's full Integration Control Number (the ICN and checksum separated by the "V"). See the fields 991.01 and 991.02 of the PATIENT file (#2).
  • GROUP:  DEMOGRAPHIC DATA
    UNEDITABLE

External References

Name Field # of Occurrence
^%DT .03+1, .351+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] .09(XREF 2S), .09(XREF 2K)
^RORDATA(798 - [#798] .01DEL1+1
^RORDATA(798.4 - [#798.4] .01(XREF 1S), .01(XREF 1K), .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .351+1*
>> DA .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K), .09(XREF 3S), .09(XREF 3K)
>> DINUM .01+1*
X .01+1, .01(XREF 1S), .01(XREF 1K), .03+1*!, .03OT+1*, .09+1!, .09(XREF 1S), .09(XREF 1K), .09(XREF 2S), .09(XREF 2K)
.09(XREF 3S), .09(XREF 3K), .1112+1!, .302+1!, .351+1*!, .3721+1!, 2+1!, 10.1+1!, 10.2+1!, 991+1!
>> Y .03+1, .03OT+1*, .09OT+1*, .351+1
>> Y(0 .03OT+1*, .09OT+1*
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 |  Local Variables  | All