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: ^BNIGROUP

Package: Computerized Public Health Activity Data

Global: ^BNIGROUP


Information

FileMan FileNo FileMan Filename Package
90510.5 BNI GROUP RECORD DEFINITION Computerized Public Health Activity Data

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Computerized Public Health Activity Data 1 BNIG    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Computerized Public Health Activity Data 1 BNIG    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
Computerized Public Health Activity Data 5 BNI CPHAD ACTIVITY SETTING(#90511.05)[.15]    BNI GENERAL PUBLIC HEALTH CONCERNS(#90511.01)[.11]    BNI CPHAD GROUP SERVED(#90511.04)[.14]    BNI SPECIFIC HEALTH TOPIC(#90511.02)[.12]    BNI TYPE OF ACTIVITY(#90511.03)[.13]    
Utility Tables 2 COMMUNITY(#9999999.05)[.16]    LOCATION(#9999999.06)[.06, .07]    
Kernel 1 NEW PERSON(#200)[.03, .04, .08, #90510.5115(.02), #90510.516(.01)]    

Fields, Total: 24

Field # Name Loc Type Details
.01 DATE OF ACTIVITY 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X K:$E(X,5,6)="00" X
  • LAST EDITED:  OCT 23, 2005
  • HELP-PROMPT:  Enter the date of the activity. A month and year is required.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90510.5^B
    1)= S ^BNIGROUP("B",$E(X,1,30),DA)=""
    2)= K ^BNIGROUP("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90510.5^AA^MUMPS
    1)= I $P(^BNIGROUP(DA,0),U,8) S ^BNIGROUP("AA",$P(^BNIGROUP(DA,0),U,8),(9999999-X),DA)=""
    2)= I $P(^BNIGROUP(DA,0),U,8) K ^BNIGROUP("AA",$P(^BNIGROUP(DA,0),U,8),(9999999-X),DA)
.02 DATE CREATED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 19, 2005
.03 CREATED BY 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 18, 2005
.04 LAST EDITED BY 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  OCT 18, 2005
  • NOTES:  TRIGGERED by the USER WHO EDITED field of the LOG OF EDITING sub-field of the BNI GROUP RECORD DEFINITION File
.05 DATE/TIME LAST EDITED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 19, 2005
.06 LOCATION WHERE RECORD CREATED 0;6 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  OCT 18, 2005
.07 LOCATION 0;7 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  OCT 18, 2005
.08 PERSON PERFORMING ACTIVITY 0;8 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  OCT 22, 2005
  • CROSS-REFERENCE:  90510.5^AC
    1)= S ^BNIGROUP("AC",$E(X,1,30),DA)=""
    2)= K ^BNIGROUP("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90510.5^AATOO^MUMPS
    1)= I $P(^BNIGROUP(DA,0),U) S ^BNIGROUP("AA",X,(9999999-$P(^BNIGROUP(DA,0),U)),DA)=""
    2)= I $P(^BNIGROUP(DA,0),U) K ^BNIGROUP("AA",X,(9999999-$P(^BNIGROUP(DA,0),U)),DA)
.09 TOTAL TIME SPENT 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  OCT 18, 2005
  • HELP-PROMPT:  Type a Number between 0 and 99999, 2 Decimal Digits
.11 GENERAL HEALTH CONCERN 0;11 POINTER TO BNI GENERAL PUBLIC HEALTH CONCERNS FILE (#90511.01)
************************REQUIRED FIELD************************
BNI GENERAL PUBLIC HEALTH CONCERNS(#90511.01)

  • LAST EDITED:  OCT 19, 2005
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
.12 SPECIFIC HEALTH TOPIC 0;12 POINTER TO BNI SPECIFIC HEALTH TOPIC FILE (#90511.02)
************************REQUIRED FIELD************************
BNI SPECIFIC HEALTH TOPIC(#90511.02)

  • INPUT TRANSFORM:  S DIC("S")="I $$SHTSCR^BNIE(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 19, 2005
  • SCREEN:  S DIC("S")="I $$SHTSCR^BNIE(Y)"
  • EXPLANATION:  Must be in the general category selected for this record.
.13 TYPE OF ACTIVITY 0;13 POINTER TO BNI TYPE OF ACTIVITY FILE (#90511.03)
************************REQUIRED FIELD************************
BNI TYPE OF ACTIVITY(#90511.03)

  • LAST EDITED:  OCT 18, 2005
.14 GROUP SERVED 0;14 POINTER TO BNI CPHAD GROUP SERVED FILE (#90511.04) BNI CPHAD GROUP SERVED(#90511.04)

  • LAST EDITED:  OCT 18, 2005
.15 ACTIVITY SETTING 0;15 POINTER TO BNI CPHAD ACTIVITY SETTING FILE (#90511.05) BNI CPHAD ACTIVITY SETTING(#90511.05)

  • LAST EDITED:  OCT 18, 2005
.16 COMMUNITY W/IN SERVICE AREA 0;16 POINTER TO COMMUNITY FILE (#9999999.05) COMMUNITY(#9999999.05)

  • INPUT TRANSFORM:  S DIC("S")="I $$COMM^BNIE(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 19, 2005
  • SCREEN:  S DIC("S")="I $$COMM^BNIE(Y)"
  • EXPLANATION:  Must be a community within your CPHAD taxonomy.
.17 TRAVEL TIME 0;17 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 18, 2005
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
.18 NUMBER SERVED/ATTENDED 0;18 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 18, 2005
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
1101 GENERAL HEALTH CONCERN (OTHER) 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>64!($L(X)<2) X
  • LAST EDITED:  OCT 18, 2005
  • HELP-PROMPT:  Answer must be 2-64 characters in length.
1102 SPECIFIC HEALTH TOPIC (OTHER) 11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>64!($L(X)<2) X
  • LAST EDITED:  OCT 18, 2005
  • HELP-PROMPT:  Answer must be 2-64 characters in length.
1103 TYPE OF ACTIVITY IF OTHER 11;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>64!($L(X)<2) X
  • LAST EDITED:  OCT 18, 2005
  • HELP-PROMPT:  Answer must be 2-64 characters in length.
1201 GROUP SERVED IF OTHER 12;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>64!($L(X)<2) X
  • LAST EDITED:  OCT 18, 2005
  • HELP-PROMPT:  Answer must be 2-64 characters in length.
1400 ADDITIONAL COMMENTS 14;0 WORD-PROCESSING #90510.5114
1500 LOG OF EDITING 15;0 DATE Multiple #90510.5115 90510.5115
1600 PERSONS PERFORMING ACTIVITY 16;0 POINTER Multiple #90510.516 90510.516
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All