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

Package: Computerized Public Health Activity Data

Global: ^BNIREC


Information

FileMan FileNo FileMan Filename Package
90510 BNI CPHAD ACTIVITY RECORDS Computerized Public Health Activity Data

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
Computerized Public Health Activity Data 15 BNIE    BNIG    BNIGU    BNIGVL1    BNIGVLP    BNIGVLP8    BNIGVLU    BNIRDSG
BNIRP1    BNIRP2    BNIRP3    BNIRP4    BNIRP5    BNIRP6    BNIRP7    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Computerized Public Health Activity Data 4 BNIE    BNIG    BNIGE    BNIPOST    

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.0115(.02)]    

Fields, Total: 25

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:  FEB 23, 2006
  • 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^B
    1)= S ^BNIREC("B",$E(X,1,30),DA)=""
    2)= K ^BNIREC("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90510^AA^MUMPS
    1)= I $P(^BNIREC(DA,0),U,8) S ^BNIREC("AA",$P(^BNIREC(DA,0),U,8),(9999999-X),DA)=""
    2)= I $P(^BNIREC(DA,0),U,8) K ^BNIREC("AA",$P(^BNIREC(DA,0),U,8),(9999999-X),DA)
  • CROSS-REFERENCE:  90510^AE^MUMPS
    1)= S ^BNIREC("AE",(9999999-X),DA)=""
    2)= K ^BNIREC("AE",(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:  FEB 02, 2006
  • CROSS-REFERENCE:  90510^ACP^MUMPS
    1)= S ^BNIREC("ACP",X,$P(^BNIREC(DA,0),U),DA)=""
    2)= K ^BNIREC("ACP",X,$P(^BNIREC(DA,0),U),DA)
.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 CPHAD ACTIVITY RECORDS File
.05 DATE LAST EDITED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 14, 2005
  • NOTES:  TRIGGERED by the LOG OF EDITING field of the LOG OF EDITING sub-field of the BNI CPHAD ACTIVITY RECORDS File
.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:  FEB 02, 2006
  • CROSS-REFERENCE:  90510^AC
    1)= S ^BNIREC("AC",$E(X,1,30),DA)=""
    2)= K ^BNIREC("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90510^AATOO^MUMPS
    1)= I $P(^BNIREC(DA,0),U) S ^BNIREC("AA",X,(9999999-$P(^BNIREC(DA,0),U)),DA)=""
    2)= I $P(^BNIREC(DA,0),U) K ^BNIREC("AA",X,(9999999-$P(^BNIREC(DA,0),U)),DA)
  • CROSS-REFERENCE:  90510^ACP^MUMPS
    1)= S ^BNIREC("ACP",X,$P(^BNIREC(DA,0),U),DA)=""
    2)= K ^BNIREC("ACP",X,$P(^BNIREC(DA,0),U),DA)
.09 TOTAL TIME SPENT (hrs) 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."3N.N) X I $D(X),'$$ATIP^BNIE(X) K X
  • LAST EDITED:  DEC 28, 2005
  • HELP-PROMPT:  Enter Total Time Spent in hours and quarter of hour (e.g. 1.25, 2.5, 4, 8.75)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.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:  Enter the Name or Code for the General Health Concern
.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=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 28, 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=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 28, 2005
  • SCREEN:  S DIC("S")="I $$COMM^BNIE(Y)"
  • EXPLANATION:  Must be a community within your CPHAD taxonomy.
.17 TRAVEL TIME IN MINUTES 0;17 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  DEC 27, 2005
  • HELP-PROMPT:  Enter the number of travel minutes
.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
.19 MONTH 0;19 SET
  • '1' FOR JANUARY;
  • '2' FOR FEBRUARY;
  • '3' FOR MARCH;
  • '4' FOR APRIL;
  • '5' FOR MAY;
  • '6' FOR JUNE;
  • '7' FOR JULY;
  • '8' FOR AUGUST;
  • '9' FOR SEPTEMBER;
  • '10' FOR OCTOBER;
  • '11' FOR NOVEMBER;
  • '12' FOR DECEMBER;

  • LAST EDITED:  DEC 19, 2005
.21 YEAR 0;21 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 19, 2005
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.0114
1500 LOG OF EDITING 15;0 DATE Multiple #90510.0115 90510.0115
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All