Global: ^SDWL(409.36

FileMan FileNo	FileMan Filename	Package
409.36	SDWL TRANSFER ACCEPT	Scheduling

Package	Total	Routines
Scheduling	6	SDWLE6 SDWLIFT SDWLIFT3 SDWLIFT6 TEAM POSITIONS ^SDWL(409.36

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

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	LAST EDITED: `APR 01, 2005`
.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: #`

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

Customize PDF page

Package: Scheduling

Global: ^SDWL(409.36

Information

Description

Directly Accessed By Routines, Total: 6

Accessed By FileMan Db Calls, Total: 7

Pointer To FileMan Files, Total: 3

Fields, Total: 29

External References

Global Variables Directly Accessed

Local Variables

Legend: