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 |