SDWLIFT3 ;IOFO BAY PINES/OG - INTER-FACILITY TRANSFER: NEW TRANSFER ; Compiled March 23, 2005 11:15:27 ; Compiled April 16, 2007 10:52:44
Source file <SDWLIFT3.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| MSG | ;acknowledgement notification to destination | |
| ISEWL2(SDWLDA,DFN) | ; If the EWL entry exists, is not closed, is a team or team position assignment and not already in transit. | |
| EN | ; INITIALIZE VARIABLES | |
| EN2(SDWLDA) | ; Entry point if Wait List has been selected elsewhere. ; SDWLOPT is the option to be queried. ; 1: Patient & Wait List Entry ; 2: Institution ; 3: Comments ; 4: Processing ; 5: Confirmation | |
| ISEWL(DFN) | ; Filter for seach of PATIENT file ; OG ; SD*5.3*446 | 
| Name | Field # of Occurrence | 
|---|---|
| NOW^%DTC | EN2+82, MSG+7 | 
| ^DIC | EN2+17, EN2+59 | 
| LIST^DIC | EN2+20 | 
| FILE^DICN | EN2+78, EN2+81 | 
| ^DIE | EN2+84, MSG+43, MSG+45 | 
| $$GET1^DIQ | EN2+26, EN2+41, EN2+43, EN2+46, EN2+54, EN2+61, EN2+83, MSG+8, MSG+32, MSG+33 , MSG+38 | 
| GETS^DIQ | ISEWL2+3, MSG+9, MSG+13 | 
| ^DIR | EN2+35, EN2+47, EN2+75 | 
| EN^DIWE | EN2+69 | 
| $$GETTRN^SDWLIFT1 | ISEWL2+5 | 
| INIT^SDWLIFT1 | EN+4 | 
| ADD^VADPT | MSG+12 | 
| DEM^VADPT | MSG+12 | 
| FULL^VALM1 | EN+2 | 
| $$SITE^VASITE | MSG+19 | 
| ^XMD | MSG+41 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | GET1^DIQ, GETS^DIQ | 
| ^DIC(4 - [#4] | GET1^DIQ | 
| ^SDWL(409.3 - [#409.3] | GET1^DIQ, GETS^DIQ, LIST^DIC | 
| ^SDWL(409.35 - [#409.35] | GET1^DIQ | 
| ^SDWL(409.36 - [#409.36] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^SDWL(409.3 - [#409.3] | ISEWL+3, ISEWL+5 | 
| ^SDWL(409.36 - [#409.36] | EN2+39, EN2+41 | 
| ^TMP("SDWLIFT" | EN2+81 | 
| Name | Line Occurrences | 
|---|---|
| $$ISEWL2 | ISEWL+5 | 
| EN2 | EN+3 | 
| MSG | EN2+85 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | EN2+12~, EN2+82, MSG+7 | 
| DA | EN2+12~, MSG+1~, MSG+43*, MSG+45* | 
| DA(1 | EN2+80* | 
| DFN | EN2+14~, EN2+19*, ISEWL~, ISEWL+3, ISEWL+5, ISEWL2~, ISEWL2+4, MSG+1~, MSG+10*, MSG+13 , MSG+30, MSG+31, MSG+32, MSG+40 | 
| DIC | EN+1~, EN2+12~, EN2+16*, EN2+55*, EN2+66*, EN2+68*, EN2+74!, EN2+77*, EN2+80* | 
| DIC("A" | EN2+57* | 
| DIC("S" | EN2+16*, EN2+58* | 
| DIC(0 | EN2+16*, EN2+56*, EN2+77* | 
| DIE | EN+1~, EN2+12~, EN2+83*, MSG+1~, MSG+43*, MSG+45* | 
| DIR | EN+1~, EN2+12~, EN2+86! | 
| DIR("A" | EN2+35*, EN2+42*, EN2+43*, EN2+45*, EN2+46*, EN2+75* | 
| DIR("B" | EN2+75* | 
| DIR(0 | EN2+30*, EN2+35*, EN2+42*, EN2+75* | 
| DIWETXT | EN2+12~, EN2+66*, EN2+67 | 
| DO | EN2+12~, EN2+81! | 
| DR | EN+1~, EN2+83*, MSG+1~, MSG+43*, MSG+45* | 
| DUZ | EN2+83 | 
| I | EN2+12~, EN2+21*, EN2+24, EN2+25, EN2+26, EN2+27, EN2+28, EN2+30 | 
| SDWLC | EN2+14~ | 
| SDWLDA | EN2~, EN2+9*, EN2+38*, EN2+39, EN2+41, EN2+54, EN2+77, ISEWL+1~, ISEWL+4*, ISEWL+5* , ISEWL2~, ISEWL2+3, ISEWL2+4, ISEWL2+5, MSG+1~, MSG+8*, MSG+9, MSG+10, MSG+11, MSG+38 , MSG+39, MSG+45 | 
| SDWLDFN | EN2+12~, EN2+54* | 
| SDWLDMN | EN2+12~, EN2+61*, EN2+62, MSG+4 | 
| SDWLDTM | EN2+73~, EN2+82*, EN2+83, MSG+1~, MSG+7*, MSG+36 | 
| SDWLI | EN2+14~, EN2+80*, EN2+81*, MSG+1~, MSG+2~, MSG+34* | 
| SDWLIFTN | EN2+12~, EN2+40~, EN2+41*, EN2+79*, MSG+8, MSG+33, MSG+35, MSG+43 | 
| SDWLINST | EN2+12~, EN2+63*, EN2+83 | 
| SDWLNM | EN2+14~ | 
| SDWLOK | EN2+14~, EN2+39*, EN2+48*, ISEWL+1~, ISEWL+2*, ISEWL+3, ISEWL+5*, ISEWL+6 | 
| SDWLOPT | EN2+7~, EN2+8*, EN2+9*, EN2+10, EN2+11, EN2+13, EN2+18*, EN2+39*, EN2+50*, EN2+52 , EN2+60*, EN2+63*, EN2+65, EN2+70*, EN2+72, EN2+76*, EN2+86* | 
| SDWLOPT0 | EN2+7~, EN2+10*, EN2+60 | 
| SDWLOUT | EN2+14~ | 
| SDWLSTA | EN2+22~, EN2+26*, EN2+27 | 
| SDWLSTN | EN2+40~, EN2+41*, EN2+43, EN2+46 | 
| SDWLTMP | EN2+14~ | 
| SDWLTMP("DILIST" | EN2+21, EN2+24, EN2+25, EN2+26, EN2+27, EN2+35, EN2+36, EN2+38 | 
| SDWLTMP("WLTY" | EN2+26*, EN2+27*, EN2+28, EN2+37 | 
| SDWLTY | MSG+1~, MSG+11*, MSG+37, MSG+38 | 
| SDWLX | MSG+1~, MSG+2~ | 
| SDWLX( | MSG+15*, MSG+16*, MSG+17*, MSG+18*, MSG+19*, MSG+20*, MSG+21*, MSG+22*, MSG+23*, MSG+24* , MSG+25*, MSG+26*, MSG+27*, MSG+28*, MSG+29*, MSG+30*, MSG+31*, MSG+32*, MSG+34*, MSG+35* , MSG+36*, MSG+37*, MSG+38*, MSG+39*, MSG+40* | 
| SDWLX(0 | MSG+14*, MSG+15*, MSG+16*, MSG+17*, MSG+18*, MSG+19*, MSG+20*, MSG+21*, MSG+22*, MSG+23* , MSG+24*, MSG+25*, MSG+26*, MSG+27*, MSG+28*, MSG+29*, MSG+30*, MSG+31*, MSG+32*, MSG+34* , MSG+35*, MSG+36*, MSG+37*, MSG+38*, MSG+39*, MSG+40* | 
| SDWLY | EN2+53~, EN2+61*, EN2+63 | 
| TMP | EN2+22~, EN2+23*, EN2+24*, EN2+28*, EN2+30, ISEWL2+1~, MSG+1~ | 
| TMP( | ISEWL2+4, ISEWL2+5, MSG+10, MSG+11, MSG+39 | 
| TMP(2 | MSG+30, MSG+31, MSG+40 | 
| U | EN2+20, MSG+15, MSG+16, MSG+17, MSG+18, MSG+19, MSG+20, MSG+21, MSG+22, MSG+23 , MSG+24, MSG+25, MSG+26, MSG+27, MSG+28, MSG+29, MSG+30, MSG+31, MSG+32, MSG+34 , MSG+35, MSG+36, MSG+37, MSG+38, MSG+39, MSG+40 | 
| VADM | EN+1~ | 
| VADM(1 | MSG+15 | 
| VADM(2 | MSG+18 | 
| VADM(3 | MSG+17 | 
| VADM(5 | MSG+16 | 
| >> VALMBCK | EN+6* | 
| VAPA | MSG+1~ | 
| VAPA(1 | MSG+20 | 
| VAPA(10 | MSG+28 | 
| VAPA(2 | MSG+21 | 
| VAPA(3 | MSG+22 | 
| VAPA(4 | MSG+23 | 
| VAPA(5 | MSG+24 | 
| VAPA(6 | MSG+25 | 
| VAPA(7 | MSG+26 | 
| VAPA(8 | MSG+29 | 
| VAPA(9 | MSG+27 | 
| WP | MSG+1~ | 
| WP( | MSG+34 | 
| X | EN+1~, EN2+15!, EN2+77*, EN2+81*, MSG+33* | 
| XMDUZ | MSG+2~, MSG+6* | 
| XMSUB | MSG+2~, MSG+3* | 
| XMTEXT | MSG+2~, MSG+5* | 
| XMY | MSG+2~ | 
| XMY("S.SDWL-XFER-SERVER@" | MSG+4* | 
| Y | EN+1~, EN2+12~, EN2+15!, EN2+18, EN2+19, EN2+20, EN2+34*, EN2+35, EN2+36, EN2+37 , EN2+38, EN2+60, EN2+61, EN2+76, EN2+79, EN2+80 |