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

Package: Computerized Public Health Activity Data

Global: ^BNIGRI


Information

FileMan FileNo FileMan Filename Package
90512.87 BNI GENERAL RETRIEVAL ITEMS Computerized Public Health Activity Data

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
Computerized Public Health Activity Data 9 BNIGT    BNIGVL0    BNIGVL1    BNIGVL4    BNIGVLP    BNIGVLP1    BNIGVLP3    BNIGVLP8
BNIGVLS    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Computerized Public Health Activity Data 1 BNIPOST    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Computerized Public Health Activity Data 1 BNI GENERAL RETRIEVAL TMP(#90512.88)[.07, #90512.89101(.01), #90512.89102(.01)]

Fields, Total: 23

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 08, 1993
  • HELP-PROMPT:  Type a Number between 1 and 9999999, 0 Decimal Digits
.01 ITEM 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  APR 02, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  90512.87^B
    1)= S ^BNIGRI("B",$E(X,1,30),DA)=""
    2)= K ^BNIGRI("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90512.87^U^MUMPS
    1)= S ^BNIGRI("U",$$UP^XLFSTR(X),DA)=""
    2)= K ^BNIGRI("U",$$UP^XLFSTR(X),DA)
.02 TYPE 0;2 SET
  • 'Q' FOR QMAN;
  • 'R' FOR READER;
  • 'D' FOR DATE RANGE;
  • 'N' FOR NUMERIC;
  • 'F' FOR FREE TEXT;
  • 'Y' FOR YES/NO;
  • 'W' FOR WORD PROCESSING;
  • 'J' FOR JUST A HIT, NO INTERACTION;

  • LAST EDITED:  SEP 29, 1994
.021 INPUT TX FOR FREE TEXT 21;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.022 HELP PROMPT FOR FREE TEXT 22;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.025 INPUT TX FOR NUMERIC 25;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.026 HELP PROMPT FOR NUMERIC 26;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  AUG 10, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
.03 QMAN TERM 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  SEP 20, 1993
  • HELP-PROMPT:  Answer must be 2-30 characters in length.
.04 FILE,FIELD FOR DIR/DIQ 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
.05 PRINT/SELECT/SORT 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  MAY 09, 1994
  • HELP-PROMPT:  Answer must be 1-3 characters in length.
.06 COLUMN HEADER 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 21, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
.07 SUGGESTED COLUMN WIDTH 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>80)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  Type a Number between 1 and 80, 0 Decimal Digits
.08 MULT LOGIC 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 21, 1993
.09 ORDER ON MENU 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."2N.N) X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999, 1 Decimal Digit
  • CROSS-REFERENCE:  90512.87^C
    1)= S ^BNIGRI("C",$E(X,1,30),DA)=""
    2)= K ^BNIGRI("C",$E(X,1,30),DA)
.11 RECORD 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  OCT 27, 2005
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
.12 PRINT MENU HEADER 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  MAY 31, 1994
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
.13 DATE RANGE NECESSARY 0;13 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 04, 1998
.14 GUI LOOKUP VALUE 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  JUN 06, 2006
  • HELP-PROMPT:  Answer must be 3-40 characters in length.
1 SCREEN LOGIC 1;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 21, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
2 TRANSLATION LOGIC 2;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 09, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
3 PRINT LOGIC 3;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  SEP 23, 1993
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
4 SORT LOGIC 4;E1,245 MUMPS

  • INPUT TRANSFORM:  K:$L(X)>245 X D:$D(X) ^DIM
  • LAST EDITED:  OCT 04, 1994
  • HELP-PROMPT:  This is Standard MUMPS code.
    WRITE AUTHORITY:  @
99991 DAY OF WEEK 9999;1 SET
  • '0' FOR SUNDAY;
  • '1' FOR MONDAY;
  • '2' FOR TUESDAY;
  • '3' FOR WEDNESDAY;
  • '4' FOR THURSDAY;
  • '5' FOR FRIDAY;
  • '6' FOR SATURDAY;
  • '7' FOR SUNDAY;

  • LAST EDITED:  NOV 14, 2005
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  All