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 |  All
Print Page as PDF
Global: ^BCHRPAT

Package: IHS RPMS CHR System

Global: ^BCHRPAT


Information

FileMan FileNo FileMan Filename Package
90002.11 CHR NON REGISTERED PATIENTS IHS RPMS CHR System

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
IHS RPMS CHR System 6 BCHEGP1    BCHEGR    BCHRNRL    BCHRU11    ^BCHR    BCHVDO    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
IHS RPMS CHR System 5 BCHEGP1    BCHEGR2    BCHMNRP    BCHUADD1    BCHUEDT    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
IHS RPMS CHR System 2 BCH GROUP DEFINITION(#90002.67)[#90002.6751(.01)]    CHR RECORD(#90002)[1112, 8901]    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Utility Tables 3 COMMUNITY(#9999999.05)[.06]    LOCATION(#9999999.06)[.08]    TRIBE(#9999999.03)[.05]    

Fields, Total: 9

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

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X
  • LAST EDITED:  NOV 16, 2011
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90002.11^B
    1)= S ^BCHRPAT("B",$E(X,1,30),DA)=""
    2)= K ^BCHRPAT("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90002.11^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X="CHR"_DA S DIH=$G(^BCHRPAT(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90002.11,DIG=.09 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X="CHR"_DA S DIH=$G(^BCHRPAT(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90002.11,DIG=.09 D ^DICR
    CREATE VALUE)= S X="CHR"_DA
    DELETE VALUE)= S X="CHR"_DA
    FIELD)= #.09
  • CROSS-REFERENCE:  90002.11^C^SOUNDEX
    1)= S I=$E(X,1,27) D SOU^DICM S ^BCHRPAT("C",X_I,DA)=""
    2)= S I=$E(X,1,27) D SOU^DICM K ^BCHRPAT("C",X_I,DA)
  • CROSS-REFERENCE:  90002.11^D^KWIC
    1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^BCHRPAT("D",I,DA)=""
    2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^BCHRPAT("D",I,DA)
.02 DOB 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EXP" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 16, 2011
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 GENDER 0;3 SET
************************REQUIRED FIELD************************
  • 'F' FOR FEMALE;
  • 'M' FOR MALE;

  • LAST EDITED:  NOV 16, 2011
.04 SSN 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<9)!'(X?9N) X
  • LAST EDITED:  MAR 23, 2011
  • HELP-PROMPT:  Answer must be 9 characters in length. Enter the SSN without the dashes
.05 TRIBE 0;5 POINTER TO TRIBE FILE (#9999999.03)
************************REQUIRED FIELD************************
TRIBE(#9999999.03)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 16, 2011
  • SCREEN:  S DIC("S")="I '$P(^(0),U,4)"
  • EXPLANATION:  Must not be an inactive tribe.
.06 COMMUNITY OF RESIDENCE 0;6 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • LAST EDITED:  APR 15, 2011
.07 HRN 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 15, 2011
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
.08 FACILITY 0;8 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  APR 15, 2011
.09 CHR INTERNAL NUMBER 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  MAY 24, 2011
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • NOTES:  TRIGGERED by the PATIENT NAME field of the CHR NON REGISTERED PATIENTS File
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All