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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^BEHOCIR

Package: IHS Electronic Health Record

Global: ^BEHOCIR


Information

FileMan FileNo FileMan Filename Package
90461.63 BEH RECONCILIATION IHS Electronic Health Record

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
IHS Electronic Health Record 1 BEHOCIR    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
IHS Electronic Health Record 3 BEHOARCV    BEHOCIR    BEHOCIR1    
IHS Mods To Text Integration Utilities 1 BTIULO    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[#90461.632(.02)]    

Fields, Total: 13

Field # Name Loc Type Details
.01 DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 04, 2013
  • CROSS-REFERENCE:  90461.63^B
    1)= S ^BEHOCIR("B",$E(X,1,30),DA)=""
    2)= K ^BEHOCIR("B",$E(X,1,30),DA)
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  MAY 09, 2013
  • CROSS-REFERENCE:  90461.63^C
    1)= S ^BEHOCIR("C",$E(X,1,30),DA)=""
    2)= K ^BEHOCIR("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90461.63^AA^MUMPS
    1)= Q:$P(^BEHOCIR(DA,0),U,2)=""  S ^BEHOCIR("AA",X,(9999999-$P(+^BEHOCIR(DA,0),".",1)),DA)=""
    2)= Q:$P(^BEHOCIR(DA,0),U,2)=""  K ^BEHOCIR("AA",X,(9999999-$P(+^BEHOCIR(DA,0),".",1)),DA)
    Cross-reference on patient and inverse date
.03 SOURCE 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  MAR 04, 2013
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
.04 RECONCILIATION COMPLETED 0;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 11, 2013
.05 RESPONSIBLE PARTY 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  MAY 13, 2013
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
.06 ENCOUNTER DATE 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAY 13, 2013
  • HELP-PROMPT:  (No range limit on date)
.07 ALLERGY RECONCILIATION 3;1 DATE

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 13, 2013
  • HELP-PROMPT:  (No range limit on date)
  • CROSS-REFERENCE:  90461.63^AE^MUMPS
    1)= Q:$P(^BEHOCIR(DA,1),U,1)=""  S ^BEHOCIR("AE",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)=""
    2)= Q:$P(^BEHOCIR(DA,1),U,1)=""  K ^BEHOCIR("AE",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)
    Lookup by image and inverse date
.08 PROBLEM RECONCILIATION 3;2 DATE

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 13, 2013
  • HELP-PROMPT:  (No range limit on date)
  • CROSS-REFERENCE:  90461.63^AF^MUMPS
    1)= Q:$P(^BEHOCIR(DA,1),U,1)=""  S ^BEHOCIR("AF",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)=""
    2)= Q:$P(^BEHOCIR(DA,1),U,1)=""  K ^BEHOCIR("AF",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)
    Index by image and inverse date
.09 MEDICATION RECONCILIATION 3;3 DATE

  • INPUT TRANSFORM:  S %DT="ETR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  SEP 13, 2013
  • HELP-PROMPT:  (No range limit on date)
  • CROSS-REFERENCE:  90461.63^AG^MUMPS
    1)= Q:$P(^BEHOCIR(DA,1),U,1)=""  S ^BEHOCIR("AG",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)=""
    2)= Q:$P(^BEHOCIR(DA,1),U,1)=""  K ^BEHOCIR("AG",$P(^BEHOCIR(DA,1),U,1),9999999-X,DA)
    Index by image and inverse date
1.1 IMAGE 1;1 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  MAR 11, 2013
  • CROSS-REFERENCE:  90461.63^D
    1)= S ^BEHOCIR("D",$E(X,1,30),DA)=""
    2)= K ^BEHOCIR("D",$E(X,1,30),DA)
1.2 HIE OID 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  MAR 11, 2013
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • CROSS-REFERENCE:  90461.63^E
    1)= S ^BEHOCIR("E",$E(X,1,30),DA)=""
    2)= K ^BEHOCIR("E",$E(X,1,30),DA)
1.3 HIE EXT 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAR 11, 2013
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
2 ITEM RECONCILED 2;0 DATE Multiple #90461.632 90461.632
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All