SDWLE10 ;;IOFO BAY PINES/TEH - WAITING LIST-ENTER/EDIT - RETREIVE DATA;06/12/2002 ; 20 Aug 2002 2:10 PM
;;5.3;scheduling;**263**;AUG 13 1993
;
;
;******************************************************************
; 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLE10 1014 printed Dec 13, 2024@03:02:24 Page 2
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**;AUG 13 1993
+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
