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 |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^SDWL(409.36

Package: Scheduling

Global: ^SDWL(409.36


Information

FileMan FileNo FileMan Filename Package
409.36 SDWL TRANSFER ACCEPT Scheduling

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
Scheduling 5 SDWLE6    SDWLIFT    SDWLIFT3    SDWLIFT6    ^SDWL(409.36    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Scheduling 7 SDWLE6    SDWLIFT    SDWLIFT0    SDWLIFT3    SDWLIFT5    SDWLIFT6    SDWLIFT7    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Kernel 1 STATE(#5)[.115]    
Oncology 1 COUNTY(#5.1)[.117]    
Scheduling 1 SD WAIT LIST(#409.3)[409.3]    

Fields, Total: 29

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAR 25, 2005
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format. This value must be 3-30 characters in length and may contain only uppercase alpha characters, spaces, apostrophes, hyphens and one comma. All other
    characters and parenthetical text will be removed.
    DELETE AUTHORITY: #
  • CROSS-REFERENCE:  409.36^B
    1)= S ^SDWL(409.36,"B",$E(X,1,30),DA)=""
    2)= K ^SDWL(409.36,"B",$E(X,1,30),DA)
.02 SEX 1;1 SET
  • 'M' FOR MALE;
  • 'F' FOR FEMALE;

  • LAST EDITED:  MAR 31, 2005
  • DESCRIPTION:  
    Enter 'M' if this applicant is a male, or 'F' if female.
    DELETE AUTHORITY: #
.03 DATE OF BIRTH 1;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 31, 2005
  • DESCRIPTION:  
    Enter the applicant's date of birth between December 31, 1870 and today's date.
    DELETE AUTHORITY: #
.09 SOCIAL SECURITY NUMBER 1;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<9) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Answer must be 9-11 characters in length.
  • DESCRIPTION:  Enter the applicants social security number as nine digits, i.e., 123456789. If the social security number is unknown and you need to assign a pseudo SSN follow it with a 'P', i.e., 123456789P. Simply enter a 'P' if you
    wish the system to determine the proper pseudo SSN. Pseudo SSN's are determined as follows:
    1.  Based on the following table assign the first three numbers
    of the pseudo SSN based on the patient's three initials in
    first-middle-last initial order.  For example, if the name
    is 'SMITH,JOHN P' the table would be used to convert JPS
    (the initials for JOHN P SMITH) into 467.
    ALPHA     NUMBER              ALPHA      NUMBER
    -----     ------              -----      ------
    A,B,C       1                 D,E,F        2
    G,H,I       3                 J,K,L        4
    M,N,O       5                 P,Q,R        6
    S,T,U       7                 V,W,X        8
    Y,Z         9                 NO INITIAL   0
    2.  Using the patient's date of birth convert it to six numerics
    in month-day-year order.  Where a month, day or year consists of
    less than one numeric, i.e., JUNE=6, preceed it by a zero, i.e.,
    JUNE=06.  If the month and/or year of birth are unknown indicate
    them as '00'.
    EXAMPLES
    --------
    Patient Name             DOB                 Pseudo SSN
    ------------             ---                 ----------
    SMITH,JOHN P             Jan 3, 1917         467010317P
    SMITH,JOHN P             Jan 1917            467010017P
    SMITH,JOHN P             1917                467000017P
    SMITH,JOHN               Dec 15, 1945        407121545P
    DELETE AUTHORITY: #
.1 REQUESTING STATION NUMBER .1;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 13, 2005
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the Station Number of the requesting facility. When acknowledgement messages are returned, the domain to which they are to be sent can be derived from this value.
    DELETE AUTHORITY: #
.111 STREET ADDRESS [LINE 1] ADDR;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>45!($L(X)<3) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Answer must be 3-45 characters in length.
  • DESCRIPTION:  
    Enter the first line of this applicant's residence street address [3-35 characters].
    DELETE AUTHORITY: #
.112 STREET ADDRESS [LINE 2] ADDR;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the second line of this applicant's residence street address [3-30 characters] if the space provided in 'street address' was not sufficient.
    DELETE AUTHORITY: #
.113 STREET ADDRESS [LINE 3] ADDR;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the third line of this applicant's residence street address [3-30 characters] if the space provided in 'street address' and 'street address 2' was not sufficient.
    DELETE AUTHORITY: #
.114 CITY ADDR;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    Enter the city in which this applicant resides [2-15 characters]. If the space provided is not sufficient please abbreviate the city to the best of your ability.
    DELETE AUTHORITY: #
.115 STATE ADDR;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  MAR 31, 2005
  • DESCRIPTION:  
    From the available listing choose the state in which this applicant resides.
    DELETE AUTHORITY: #
.116 ZIP CODE ADDR;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the zip code [5 numerics] for the city in which this applicant resides.
    DELETE AUTHORITY: #
.117 COUNTY ADDR;7 POINTER TO COUNTY FILE (#5.1) COUNTY(#5.1)

  • LAST EDITED:  APR 07, 2005
  • DESCRIPTION:  
    If a state of residence is entered select from the available listing the county in which this applicant resides.  If no state (or a non-state) is entered no selection is possible.
    DELETE AUTHORITY: #
.1217 TEMPORARY ADDRESS START DATE ADDR;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 07, 2005
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the date on which the applicant will commence being contacted at the temporary address indicated, otherwise nothing may be entered. This field may not
    be deleted as long as the need for a temporary address is indicated.
    DELETE AUTHORITY: #
.1218 TEMPORARY ADDRESS END DATE ADDR;10 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 07, 2005
  • DESCRIPTION:  If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the date as of which the applicant will no longer be contacted at that temporary address, otherwise nothing may be entered. This field may not be
    deleted as long as the need for a temporary address is indicated.
    DELETE AUTHORITY: #
.131 PHONE NUMBER ADDR;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 07, 2005
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • DESCRIPTION:  
    Enter the telephone number [4-20 characters] to this applicant's place of residence.
    DELETE AUTHORITY: #
.2 TRANSMISSION DATE/TIME .1;2 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 31, 2005
  • DESCRIPTION:  
    The date and time (including seconds) of the moment of transmission.
    DELETE AUTHORITY: #
.3 COVERSHEET REQUESTED .1;3 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JUN 13, 2005
  • DESCRIPTION:  
    This is a flag to indicate if a request has been made to print a coversheet with the transmitted details of the patient to be transferred. If the flag has been set to YES, the request can be notified as Accepted.
.301 SERVICE CONNECTED? 2;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAR 31, 2005
  • DESCRIPTION:  Enter 'Y' if this applicant is service connected, 'N' if not. Applicants identified as being non-veterans cannot be entered as service connected. Once eligibility has been verified only users holding the designated
    security key may enter/edit this field.
    DELETE AUTHORITY: #
.302 SERVICE CONNECTED PERCENTAGE 2;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 100, 0 Decimal Digits
  • DESCRIPTION:  If this applicant is service connected (SERVICE CONNECTED prompt must be answered YES) enter the service connected percentage [a number between 0-100]. Once eligibility has been verified only users who hold the designated
    security key may enter/edit this field.  Field may not be deleted as long as service connection is indicated.
    DELETE AUTHORITY: #
.361 PRIMARY ELIGIBILITY CODE 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<3) X
  • LAST EDITED:  APR 29, 2005
  • HELP-PROMPT:  Answer must be 3-75 characters in length.
  • DESCRIPTION:  Select from the available listing the appropriate eligibility code for this applicant. For non-veteran applicants a wide variety of choices are available. For veteran applicants the choices are screened [in the following
    order] dependent on the responses to other prompts:
    1.  If the SERVICE CONNECTED prompt (field .301) is answered YES
    only the following two choices are available:
    a.  If the SERVICE CONNECTED PERCENTAGE prompt (field .302) entered
    is 50% or greater 'SERVICE CONNECTED 50% TO 100%' can be
    selected.
    b.  Otherwise, the percentage is assumed to be less than 50% and
    only 'SC, LESS THAN 50%' may be entered.
    2.  If the response to the WERE YOU A PRISONER OF WAR field (# .525)
    is YES and the veteran is not service connected, you must select
    PRISONER OF WAR as the eligibility code.
    3.  If the veteran is receiving VA benefits, but does not meet the
    criteria in items 1 and 2 above, then the following choices may
    be presented for selection:
    If RECEIVING A&A BENEFITS is answered YES, the eligibility code
    AID & ATTENDANCE may be selected.
    If the RECEIVING HOUSEBOUND BENEFITS is answered YES ,the eligibility
    code HOUSEBOUND may be selected.
    If the above two prompts were answered NO, but the RECEIVING A VA
    PENSION prompt was answered YES, only the NSC, VA PENSION prompt
    may be selected.
    4.  If none of the above pertain to this veteran, then the NSC eligibility
    will be available for selection.
    **  Dependent on the birthdate of the applicant, the following two
    eligibility codes may be displayed along with those shown in items
    3 through 5 above:  WORLD WAR I and MEXICAN BORDER WAR.  These would
    display for veterans not meeting the criteria in items 1 and 2, but
    whose date of birth is prior to 1920.
    DELETE AUTHORITY: #
.4 COMMENTS COMM;0 WORD-PROCESSING #409.364
.5 SENDING FACILITY TRANSFER ID 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 07, 2005
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Identifying reference to the transfer file on the transmitting facility (#409.35).
    DELETE AUTHORITY: #
1 STATUS 2;4 SET
  • 'P' FOR PENDING;
  • 'E' FOR EWL;
  • 'C' FOR CLOSED;
  • 'R' FOR REMOVED;
  • 'T' FOR TRANSFERRED;

  • LAST EDITED:  APR 04, 2006
  • DESCRIPTION:  The current stage in the transfer process. Possible values are P - PENDING: where a transfer request has been received but no action has yet been taken E - EWL: the transfer patient has been place on the Electronic Wait
    List C - CLOSED: the transfer has been completed T - TRANSFERRED: the transfer patient has been the subject of request to another facility R - REMOVED: the transfer request has been cancelled T - TRANSFERRED: the transfer
    patient has been the subject of request to another facility
2 FACILITY TRANSFERRED TO 2;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 04, 2006
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The stop code of the facility if the patient for this transfer has become the subject of a further tranfer elsewhere
4 WAIT LIST TYPE WL;1 SET
  • '1' FOR PCMM TEAM ASSIGNMENT;
  • '2' FOR PCMM POSITION ASSIGNMENT;
  • '3' FOR SERVICE/SPECIALTY;
  • '4' FOR SPECIFIC CLINIC;

  • LAST EDITED:  APR 07, 2005
  • DESCRIPTION:  
    Set of codes as on the WAIT LIST ENTRY file (#409.3)
    DELETE AUTHORITY: #
5 WAIT LIST TYPE EXTENSION WL;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  APR 07, 2005
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    A free text expansion of the attribute associated with the WAIT LIST TYPE. E.g. A Wait List Type of 3: SERVICE/SPECIALTY would typically hold the relevant Specialty.
    DELETE AUTHORITY: #
22 DESIRED DATE OF APPOINTMENT WL;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 07, 2016
  • HELP-PROMPT:  Enter the desired date for the appointment. The date can be imprecise.
  • DESCRIPTION:  Desired Date of Appointment taken from the Wait List Entry file from the transmitting facility. The field title contains 'CID/PREFERRED DATE', where 'CID' stands for Clinically Indicated Date. This is an alternate name for
    the field name used for reports and to present to users when adding and displaying appointment information in the Scheduling package.
    DELETE AUTHORITY: #
409.3 SD WAIT LIST ENTRY 2;5 POINTER TO SD WAIT LIST FILE (#409.3) SD WAIT LIST(#409.3)

  • LAST EDITED:  MAR 15, 2006
  • DESCRIPTION:  
    Pointer to the associated EWL entry
  • CROSS-REFERENCE:  409.36^C
    1)= S ^SDWL(409.36,"C",$E(X,1,30),DA)=""
    2)= K ^SDWL(409.36,"C",$E(X,1,30),DA)
991.01 INTEGRATION CONTROL NUMBER 1;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 31, 2005
  • HELP-PROMPT:  Type a Number between 0 and 999999999999, 0 Decimal Digits
  • DESCRIPTION:  
    Machine to machine identifier for a patient.  Included in the hope of making a match with the same patient on the receiving system.
    DELETE AUTHORITY: #

External References

Name Field # of Occurrence
^%DT .03+1, .1217+1, .1218+1, .2+1, 22+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SDWL(409.36 - [#409.36] .01(XREF 1S), .01(XREF 1K), 409.3(XREF 1S), 409.3(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .03+1*, .1217+1*, .1218+1*, .2+1*, 22+1*
>> DA .01(XREF 1S), .01(XREF 1K), 409.3(XREF 1S), 409.3(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .03+1*!, .09+1!, .1+1!, .111+1!, .112+1!, .113+1!, .114+1!
, .116+1!, .1217+1*!, .1218+1*!, .131+1!, .2+1*!, .302+1!, .361+1!, .5+1!, 2+1!, 5+1!
, 22+1*!, 409.3(XREF 1S), 409.3(XREF 1K), 991.01+1!
>> Y .03+1, .1217+1, .1218+1, .2+1, 22+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All