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 |