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: 9009013.13

Package: IHS Changes To ADT

SCHEDULED VISIT-OLD(#9009013.1)-->9009013.13

Sub-Field: 9009013.13


Information

Parent File Name Number Package
SCHEDULED VISIT-OLD(#9009013.1) DATE EXPECTED IN 9009013.13 IHS Changes To ADT

Details

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

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
  • LAST EDITED:  MAR 18, 1988
  • HELP-PROMPT:  Enter date patient is expected to facility.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9009013.1^AB
    1)= S ^ADGAUTH("AB",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADGAUTH("AB",$E(X,1,30),DA(1),DA)
1 PROVIDER 0;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 28, 1996
2 TREATING SPECIALTY 0;3 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)
2.5 CLINIC 0;12 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  JAN 30, 1991
3 REFERRING MD 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • HELP-PROMPT:  ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
4 TYPE OF VISIT 0;5 SET
  • 'I' FOR IP;
  • 'O' FOR OP;
  • 'D' FOR DS;
  • 'Q' FOR QU;

  • LAST EDITED:  JAN 30, 1991
  • HELP-PROMPT:  Enter I (Inpatient) if patient is to be admitted, O for Outpatient, D for Day Surgery, or Q if patient will be staying in Quarters.
  • CROSS-REFERENCE:  9009013.1^AD
    1)= S ^ADGAUTH("AD",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADGAUTH("AD",$E(X,1,30),DA(1),DA)
4.5 DATE ADMTG PACKET SENT 0;11 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 25, 1990
  • HELP-PROMPT:  Enter date admitting packet was sent to patient.
5 EXPECTED LENGTH OF STAY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Enter the estimated number of days the patient will be staying.
6 WARD 0;7 POINTER TO WARD LOCATION FILE (#42) WARD LOCATION(#42)

  • LAST EDITED:  MAR 18, 1988
  • CROSS-REFERENCE:  9009013.1^AC
    1)= S ^ADGAUTH("AC",$E(X,1,30),DA(1),DA)=""
    2)= K ^ADGAUTH("AC",$E(X,1,30),DA(1),DA)
7 SURGERY DATE 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter scheduled surgery date.
8 DIAGNOSIS 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>28!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-28 CHARACTERS IN LENGTH
8.5 PROCEDURE 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JAN 30, 1991
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
9 COMMENTS 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
10 PAYMENT FOR TRAVEL AUTHORIZED 0;13 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JAN 30, 1991
  • HELP-PROMPT:  Has the facility authorized payment for this patient's travel?
Info |  Details |  All