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.51

Package: IHS Changes To ADT

ADT CENSUS-TREATING SPECIALTY-OLD(#9009011.5)-->9009011.51

Sub-Field: 9009011.51


Information

Parent File Name Number Package
ADT CENSUS-TREATING SPECIALTY-OLD(#9009011.5) CENSUS 9009011.51 IHS Changes To ADT

Details

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
  • HELP-PROMPT:  Enter first census date
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 ADULT PATIENTS IN SERVICE 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
2 ADMISSIONS TO SERVICE (ADULT) 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 FROM SERVICE(ADULT) 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 (ADULT) 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 (ADULT) 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 (ADULT) 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 PEDS PATIENTS IN SERVICE 1;1 NUMBER

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

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

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
10 TRANSFERS IN (PEDS) 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
11 TRANSFERS OUT (PEDS) 1;5 NUMBER

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

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1987
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
13 ONE DAY PATIENTS (PEDS) 1;7 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
14 ONE DAY PATIENTS (ADULT) 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
15 LENGTH OF STAY (ADULT) 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
16 LENGTH OF STAY (PEDS) 1;8 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
Info |  Details |  All