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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^BNISHT

Package: Computerized Public Health Activity Data

Global: ^BNISHT


Information

FileMan FileNo FileMan Filename Package
90511.02 BNI SPECIFIC HEALTH TOPIC Computerized Public Health Activity Data

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Computerized Public Health Activity Data 11 BNIE    BNIG    BNIGU    BNIRP1    BNIRP2    BNIRP3    BNIRP4    BNIRP5
BNIRP6    BNIRP7    BNITSHT    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Computerized Public Health Activity Data 2 BNI GROUP RECORD DEFINITION(#90510.5)[.12]    BNI CPHAD ACTIVITY RECORDS(#90510)[.12]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Computerized Public Health Activity Data 1 BNI GENERAL PUBLIC HEALTH CONCERNS(#90511.01)[.03]    

Fields, Total: 6

Field # Name Loc Type Details
.01 SPECIFIC HEALTH TOPIC 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  OCT 23, 2005
  • HELP-PROMPT:  Answer must be 3-100 characters in length
  • CROSS-REFERENCE:  90511.02^B
    1)= S ^BNISHT("B",$E(X,1,30),DA)=""
    2)= K ^BNISHT("B",$E(X,1,30),DA)
.02 CODE 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 18, 2005
  • HELP-PROMPT:  Type a Number between 1 and 999, 0 Decimal Digits
  • CROSS-REFERENCE:  90511.02^C
    1)= S ^BNISHT("C",$E(X,1,30),DA)=""
    2)= K ^BNISHT("C",$E(X,1,30),DA)
.03 GENERAL PUBLIC HEALTH CONCERN 0;3 POINTER TO BNI GENERAL PUBLIC HEALTH CONCERNS FILE (#90511.01) BNI GENERAL PUBLIC HEALTH CONCERNS(#90511.01)

  • LAST EDITED:  OCT 18, 2005
  • CROSS-REFERENCE:  90511.02^AC
    1)= S ^BNISHT("AC",$E(X,1,30),DA)=""
    2)= K ^BNISHT("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90511.02^AATOO^MUMPS
    1)= I $P(^BNISHT(DA,0),U,6) S ^BNISHT("AA",X,$P(^BNISHT(DA,0),U,6),DA)=""
    2)= I $P(^BNISHT(DA,0),U,6) K ^BNISHT("AA",X,$P(^BNISHT(DA,0),U,6),DA)
.04 GPRA ITEM? 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 18, 2005
.05 ASK FOR OTHER TEXT? 0;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 18, 2005
.06 GENERAL TOPIC 0;6 SET
  • '1' FOR GENERAL;

  • LAST EDITED:  OCT 18, 2005
  • CROSS-REFERENCE:  90511.02^AA^MUMPS
    1)= I $P(^BNISHT(DA,0),U,3) S ^BNISHT("AA",$P(^BNISHT(DA,0),U,3),X,DA)=""
    2)= I $P(^BNISHT(DA,0),U,3) K ^BNISHT("AA",$P(^BNISHT(DA,0),U,3),X,DA)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All