23 lines
992 B
Mathematica
23 lines
992 B
Mathematica
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
|