SDWLE10.m

SDWLE10 ;;IOFO BAY PINES/TEH - WAITING LIST-ENTER/EDIT - RETREIVE DATA;06/12/2002 ; 20 Aug 2002  2:10 PM

 ;;5.3;scheduling;**263,1015**;AUG 13 1993;Build 21

 ;

 ;

 ;******************************************************************

 ;                             CHANGE LOG

 ;                                               

 ;   DATE                        PATCH                   DESCRIPTION

 ;   ----                        -----                   -----------

 ;   

 ;   

 ;   

 ;      

 ;

EN ;RETRIEVE DATA FOR EDITING

 ;

 S SDWLDATA=$G(^SDWL(409.3,SDWLDA,0))

 S SDWLIN=$P(SDWLDATA,U,3),SDWLCL=+$P(SDWLDATA,U,4),(SDWLTYE,SDWLTY)=$P(SDWLDATA,U,5),SDWLST=$P(SDWLDATA,U,6)

 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)

 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

 I $D(^SDWL(409.32,+SDWLSC,0)) S SDWLSCP=$P(^SDWL(409.32,+SDWLSC,0),U,1)

 Q

SDWLE10   ;;IOFO BAY PINES/TEH - WAITING LIST-ENTER/EDIT - RETREIVE DATA;06/12/2002 ; 20 Aug 2002  2:10 PM

 +1       ;;5.3;scheduling;**263,1015**;AUG 13 1993;Build 21

 +2       ;

 +3       ;

 +4       ;******************************************************************

 +5       ;                             CHANGE LOG

 +6       ;                                               

 +7       ;   DATE                        PATCH                   DESCRIPTION

 +8       ;   ----                        -----                   -----------

 +9       ;   

 +10      ;   

 +11      ;   

 +12      ;      

 +13      ;

EN        ;RETRIEVE DATA FOR EDITING

 +1       ;

 +2        SET SDWLDATA=$GET(^SDWL(409.3,SDWLDA,0))

 +3        SET SDWLIN=$PIECE(SDWLDATA,U,3)

           SET SDWLCL=+$PIECE(SDWLDATA,U,4)

           SET (SDWLTYE,SDWLTY)=$PIECE(SDWLDATA,U,5)

           SET SDWLST=$PIECE(SDWLDATA,U,6)

 +4        SET SDWLSP=$PIECE(SDWLDATA,U,7)

           SET SDWLSS=$PIECE(SDWLDATA,U,8)

           SET SDWLSC=$PIECE(SDWLDATA,U,9)

           SET SDWLPRI=$PIECE(SDWLDATA,U,10)

           SET SDWLRB=$PIECE(SDWLDATA,U,11)

 +5        SET SDWLPROV=$PIECE(SDWLDATA,U,13)

           SET SDWLDAPT=$PIECE(SDWLDATA,U,16)

           SET SDWLTT=$PIECE(SDWLDATA,U,17)

           SET SDWLCOM=$PIECE(SDWLDATA,U,18)

           SET SDWLDUZ=DUZ

           SET SDWLEDT=DT

 +6        IF $DATA(^SDWL(409.32,+SDWLSC,0))

               SET SDWLSCP=$PIECE(^SDWL(409.32,+SDWLSC,0),U,1)

 +7        QUIT