Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9009011.01

Package: IHS Changes To ADT

ADT CENSUS-WARD-OLD(#9009011)-->9009011.01

Sub-Field: 9009011.01


Information

Parent File Name Number Package
ADT CENSUS-WARD-OLD(#9009011) CENSUS 9009011.01 IHS Changes To ADT

Details

Field # Name Loc Type Details
.01 DAILY CENSUS 0;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
  • LAST EDITED:  APR 04, 1991
  • HELP-PROMPT:  Census Date
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009011^AB
    1)= S ^ADGWD("AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADGWD("AB",$E(X,1,30),DA(1),DA)
1 PATIENTS REMAINING 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 25, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
2 ADMISSIONS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
3 DISCHARGES 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
4 TRANSFERS IN 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
5 TRANSFERS OUT 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
6 DEATHS 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
7 ONE DAY PATIENTS 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
8 LENGTH OF STAY 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 19, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
9 READY FOR DISTRIBUTION 0;10 SET
  • 'Y' FOR YES;

  • LAST EDITED:  FEB 18, 1988
  • HELP-PROMPT:  Is this census date ready for general distribution?
11 TREATING SPECIALTY T;0 POINTER Multiple #9009011.02 9009011.02
12 NB PATIENTS REMAINING 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
13 NB ADMISSIONS 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
14 NB DISCHARGES 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
15 NB TRANSFERS IN 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
16 NB TRANSFERS OUT 0;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
17 NB DEATHS 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
18 NB ONE DAY PATIENTS 0;18 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
19 NB LENGTH OF STAY 0;19 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
Info |  Details |  All