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

Package: Registration

WAIT LIST(#42.5)-->42.51

Sub-Field: 42.51


Information

Parent File Name Number Package
WAIT LIST(#42.5) PATIENT 42.51 Registration

Details

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • LAST EDITED:  JUN 07, 1989
  • HELP-PROMPT:  Enter the patient name or number you want to put on to this waiting list. Once entered, the name can not be edited, only deleted. To delete the entry, use the 'Delete Waiting List Entry' option.
  • DESCRIPTION:  
    Enter the name of the patient who you would like to put on the waiting list.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  42.5^C
    1)= S ^DGWAIT("C",$E(X,1,30),DA(1),DA)=""
    2)= K ^DGWAIT("C",$E(X,1,30),DA(1),DA)
  • CROSS-REFERENCE:  42.51^B
    1)= S ^DGWAIT(DA(1),"P","B",$E(X,1,30),DA)=""
    2)= K ^DGWAIT(DA(1),"P","B",$E(X,1,30),DA)
1 BEDSECTION APPLYING TO 0;5 SET
************************REQUIRED FIELD************************
  • '334' FOR PSYCHIATRY;
  • '335' FOR INTERMEDIATE;
  • '336' FOR MEDICINE;
  • '337' FOR NEUROLOGY;
  • '338' FOR REHAB MEDICINE;
  • '339' FOR BLIND REHAB;
  • '340' FOR SPINAL CORD INJURY;
  • '341' FOR SURGERY;
  • '345' FOR NHCU;

  • LAST EDITED:  OCT 26, 1984
  • HELP-PROMPT:  Enter the bedsection this patient is applying for care to.
  • DESCRIPTION:  
    This field contains the bed-section the patient is appying to for care.
1.5 TREATING SPECIALTY 0;10 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • INPUT TRANSFORM:  S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGWAIT(DA(1),""P"",DA,0)),U,2))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 28, 1995
  • HELP-PROMPT:  Enter treating specialty. This must be an active treating specialty.
  • DESCRIPTION:  
    Enter the treating specialty for which this patient is waiting to receive care.
  • SCREEN:  S DIC("S")="I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGWAIT(DA(1),""P"",DA,0)),U,2))"
  • EXPLANATION:  Allows only active treating specialties.
2 DATE/TIME OF APPLICATION 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 29, 1987
  • HELP-PROMPT:  Enter the date/time the patient was logged into the wait list.
  • DESCRIPTION:  
    Enter the date/time the patient was entered on the waiting list.
3 SERVICE CONNECTED 0;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • HELP-PROMPT:  Enter 'Y' if the patient is service connected, 'N' if he is not.
  • DESCRIPTION:  
    Is the patient that is being placed on the waiting list service connected?
3.5 IN ANOTHER HOSPITAL 0;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  FEB 12, 1984
  • HELP-PROMPT:  Enter 'Y' if the patient is in a hospital not under VA authorization, 'N' if not.
  • DESCRIPTION:  
    Is the patient on the waiting list currently at another hospital?
3.6 VA FACILITY 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 27, 1984
  • HELP-PROMPT:  Enter 'Y' if the facility the patient is in is part of the VA, 'N' if not.
  • DESCRIPTION:  
    Enter yes if the patient is currently at a VA facility. Otherwise, respond no.
3.7 HOSPITAL NAME 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<3) X
  • LAST EDITED:  FEB 27, 1984
  • HELP-PROMPT:  Enter the facility name, 3-40 characters.
  • DESCRIPTION:  
    If the patient is currently at another hospital (either VA or non-VA), enter the name of that hospital here.
4 ACTION 0;4 SET
  • '0' FOR PENDING;
  • '1' FOR ACCEPTED;
  • '2' FOR NOT ACCEPTED;

  • LAST EDITED:  FEB 27, 1984
  • HELP-PROMPT:  Enter the action taken on this application.
  • DESCRIPTION:  
    Enter the current status of this patient on the waiting list (pending, accepted, or not accepted).
5 PRIORITY GROUPING 0;9 POINTER TO PRIORITY GROUPING FILE (#42.55)
************************REQUIRED FIELD************************
PRIORITY GROUPING(#42.55)

  • INPUT TRANSFORM:  X ^DD(42.51,5,9.3) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 31, 1987
  • DESCRIPTION:  
    Enter the priority assigned to this patient on the waiting list. This is based on the patient's service connected status among other factors.
  • SCREEN:  S DIC("S")="S DGZ=+$P(^(0),U,6) I $P(^(0),U,10),$P(^(0),U,5)=$P(^DGWAIT(DA(1),""P"",DA,0),U,12) S DFN=$P(^DGWAIT(DA(1),""P"",DA,0),U,2) I $S('DGZ:1,'$D(^DPT(DFN,.36)):0,+$P(^(0),U,1)+1=DGZ:1,1:0)"
  • EXPLANATION:  Active Grouping for HOSPITAL or NHCU!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 COMMENTS C;0 WORD-PROCESSING #42.52

  • DESCRIPTION:  
    This is a word processing fields where you may enter comments about this patient's status on the waiting list.
  • HELP-PROMPT:  Enter any pertinent comments on this application.
  • DESCRIPTION:  
    Enter a word processing comment about the patient and his/her status on the waiting list.
11 DATE ADMITTED ADM;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 20, 1984
  • DESCRIPTION:  
    If the patient was admitted from the waiting list, enter the date the patient was admitted.
12 HOSPITAL/NHCU APPLICATION 0;12 SET
************************REQUIRED FIELD************************

  • LAST EDITED:  JUL 31, 1987
  • DESCRIPTION:  
    If this patient is being placed on the waiting list for hospital care, enter H. If the patient is being placed on the waiting list for the nursing home, enter N.
13 CATEGORY OF NEED 0;13 SET

  • LAST EDITED:  JUL 31, 1987
  • DESCRIPTION:  
    Enter U if this patient requires urgent medical attention and should be admitted from the waiting list as soon as possible. Otherwise, enter G.
Info |  Details