source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDWLE10.m@ 1104

Last change on this file since 1104 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 992 bytes
Line 
1SDWLE10 ;;IOFO BAY PINES/TEH - WAITING LIST-ENTER/EDIT - RETREIVE DATA;06/12/2002 ; 20 Aug 2002 2:10 PM
2 ;;5.3;scheduling;**263**;AUG 13 1993
3 ;
4 ;
5 ;******************************************************************
6 ; CHANGE LOG
7 ;
8 ; DATE PATCH DESCRIPTION
9 ; ---- ----- -----------
10 ;
11 ;
12 ;
13 ;
14 ;
15EN ;RETRIEVE DATA FOR EDITING
16 ;
17 S SDWLDATA=$G(^SDWL(409.3,SDWLDA,0))
18 S SDWLIN=$P(SDWLDATA,U,3),SDWLCL=+$P(SDWLDATA,U,4),(SDWLTYE,SDWLTY)=$P(SDWLDATA,U,5),SDWLST=$P(SDWLDATA,U,6)
19 S SDWLSP=$P(SDWLDATA,U,7),SDWLSS=$P(SDWLDATA,U,8),SDWLSC=$P(SDWLDATA,U,9),SDWLPRI=$P(SDWLDATA,U,10),SDWLRB=$P(SDWLDATA,U,11)
20 S SDWLPROV=$P(SDWLDATA,U,13),SDWLDAPT=$P(SDWLDATA,U,16),SDWLTT=$P(SDWLDATA,U,17),SDWLCOM=$P(SDWLDATA,U,18),SDWLDUZ=DUZ,SDWLEDT=DT
21 I $D(^SDWL(409.32,+SDWLSC,0)) S SDWLSCP=$P(^SDWL(409.32,+SDWLSC,0),U,1)
22 Q
Note: See TracBrowser for help on using the repository browser.