- SDWLROI ;;IOFO BAY PINES/TEH/WAIT LIST STAT REPORT - ENROLLEE ; 01 Oct 2002 4:42 PM ; Compiled December 21, 2006 15:21:55
- ;;5.3;scheduling;**263,412,415,446,1015**;AUG 13 1993;Build 21
- ;
- ; Removed Sort logic as routine exceeded SACC maximum size of 10000
- ; New routine SDWLROIS was created to perform the Sort functionality
- ;
- ;
- EN ;
- N ZCODE,ZTDESC,ZTDTH,ZTIO,ZTQUEDED,ZTREQ,ZTRTN,ZTSK
- D INIT G END:$D(DUOUT)
- D SORT^SDWLROIS(SDWLBD,SDWLED,SDWLINS,.SDWL) ; SD*5.3*412 new routine to perform sort
- I $$S^ZTLOAD G END
- D PRT
- G END
- INIT ;
- I $D(CT) S SDWLCT=CT
- I $D(DATE) S SDWLDATE=DATE
- I $D(INS) S SDWLINS=INS
- I $D(ZTSAVE) D
- .S SDWLCT=$G(ZTSAVE("CT")),SDWLDATE=$G(ZTSAVE("DATE")),SDWLINS=$G(ZTSAVE("INS"))
- I SDWLINS'="ALL" F I=1:1 S SDWL=$P(SDWLINS,";",I) Q:SDWL="" S SDWL("INS",+SDWL)=""
- S SDWLBD=$P(SDWLDATE,U,1),SDWLED=$P(SDWLDATE,U,2),SDWLPG=0
- D NOW^%DTC S Y=% D DD^%DT S SDWLDTP=$P(Y,":",1,2)
- K ZTSAVE
- N POP S POP=0 ;SD*5.3*412
- Q
- ;
- PRT ;PRINT REPORT SD*5.3*412 Q:POP added where needed to allow early exit
- G END:$$S^ZTLOAD
- S (T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13)=0 ;SD*5.3*446
- S (TT1,TT2,TT3,TT4,TT5,TT6,TT7,TT8,TT9,TT10,TT11,TT12,TT13,SDWLPG)=0 D HD,HD1 ;SD*5.3*446
- I '$D(^TMP("SDWLROI1",$J)) W !!,"No Wait List Data to Report" Q
- S SDWLINS="" F S SDWLINS=$O(^TMP("SDWLROI1",$J,SDWLINS)) Q:SDWLINS="" D Q:POP D T2 Q:POP W !,"________________" I $Y>(IOSL-8) D:$D(SDWLIOSR) SCR Q:POP D HD,HD1 ;SD*5.3*412 added Quit for early exit; 446
- .W !!,"INSTITUTION: ",SDWLINS
- .S W1="" F S W1=$O(^TMP("SDWLROI1",$J,SDWLINS,W1)) Q:W1="" D Q:POP D T1 Q:POP I $Y>(IOSL-8) D:$D(SDWLIOSR) SCR Q:POP D HD,HD1 ; SD*5.3*446
- ..W !,"ENROLLMENT PRIORITY: ",$S(W1="P":"PRIOR",W1="N":"NEW",W1="E":"ESTABLISHED",1:"UNDETERMINED")
- ..S SDWLTY="" F S SDWLTY=$O(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY)) Q:SDWLTY="" D Q:POP
- ...S SDWLTNM=$$EXTERNAL^DILFD(409.3,4,,SDWLTY) W !,$E(SDWLTNM,1,15) I $Y>(IOSL-8) D:$D(SDWLIOSR) SCR Q:POP D HD,HD1 ; SD*5.3*446
- ...S SDWLSCN="" F S SDWLSCN=$O(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN)) Q:SDWLSCN="" D Q:POP
- ....S SDWLSCNM="" F S SDWLSCNM=$O(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM)) Q:SDWLSCNM="" D Q:POP
- .....S SDWLPRI="" F S SDWLPRI=$O(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI)) Q:SDWLPRI="" D Q:POP
- ......N SDWLCLO ;SD*5.3*446
- ......W !,?2,$E(SDWLSCNM,1,10)," ",$S(SDWLPRI="A":"ASAP",SDWLPRI="F":"FUTURE",1:"")
- ......S SDWLPR=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"PR")) W ?20,SDWLPR
- ......S SDWLCLO=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"CL")) W ?27,SDWLCLO ;SD*5.3*415,446
- ......S SDWLD=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLD")) W ?34,SDWLD ;SD*5.3*415,446
- ......S SDWLNC=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLNC")) W ?41,SDWLNC ;SD*5.3*446
- ......S SDWLSA=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLSA")) W ?48,SDWLSA ;SD*5.3*446
- ......S SDWLCC=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLCC")) W ?55,SDWLCC ;SD*5.3*446
- ......S SDWLNN=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLNN")) W ?62,SDWLNN ;SD*5.3*446
- ......S SDWLER=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLER")) W ?69,SDWLER ;SD*5.3*446
- ......S SDWLCL=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLCL")) W ?76,SDWLCL ;SD*5.3*446
- ......S SDWLTR=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLTR")) W ?83,SDWLTR ;SD*5.3*446
- ......S SDWLAD=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"AD")) W ?90,SDWLAD ;SD*5.3*415,446
- ......S SDWLRR=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"RR")) W ?97,SDWLRR ;SD*5.3*415,446
- ......S SDWLNR=+$G(^TMP("SDWLROI1",$J,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"NR")) W ?104,SDWLNR ; SD*5.3*446
- ......S T1=T1+SDWLPR,TT1=TT1+SDWLPR
- ......S T2=T2+SDWLCLO,TT2=TT2+SDWLCLO
- ......S T3=T3+SDWLD,TT3=TT3+SDWLD
- ......S T4=T4+SDWLNC,TT4=TT4+SDWLNC
- ......S T5=T5+SDWLSA,TT4=TT4+SDWLSA
- ......S T6=T6+SDWLCC,TT6=TT6+SDWLCC
- ......S T7=T7+SDWLNN,TT7=TT7+SDWLNN
- ......S T8=T8+SDWLER,TT8=TT8+SDWLER
- ......S T9=T9+SDWLCL,TT9=TT9+SDWLCL ;SD*5.3*446
- ......S T10=T10+SDWLTR,TT10=TT10+SDWLTR ;SD*5.3*446
- ......S T11=T11+SDWLAD,TT11=TT11+SDWLAD ;SD*5.3*446
- ......S T12=T12+SDWLRR,TT12=TT12+SDWLRR ;SD*5.3*446
- ......S T13=T13+SDWLNR,TT13=TT13+SDWLNR ;SD*5.3*446
- ......I $Y>(IOSL-8) D:$D(SDWLIOSR) SCR Q:POP D HD,HD1 ;SD*5.3*446
- Q
- T1 ;
- ;write sub-totals
- W !?20,"------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------" ;SD*5.3*446
- W !,"Sub-Totals:",?20,T1,?27,T2,?34,T3,?41,T4,?48,T5,?55,T6,?62,T7,?69,T8,?76,T9,?83,T10,?90,T11,?97,T12,?104,T13 ;SD*5.3*446
- S (T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13)=0 ;SD*5.3*446
- I $Y>(IOSL-8) D:$D(SDWLIOSR) SCR Q:POP D HD,HD1 ;SD*5.3*446
- Q
- T2 W !,"Institution Totals:"
- W ?20,TT1,?27,TT2,?34,TT3,?41,TT4,?48,TT5,?55,TT6,?62,TT7,?69,TT8,?76,TT9,?83,TT10,?90,TT11,?97,TT12,?104,TT13,! ;SD*5.3*446
- S (TT1,TT2,TT3,TT4,TT5,TT6,TT7,TT8,TT9,TT10,TT11,TT12,TT13)=0 ;SD*5.3*415,446
- I $Y>(IOSL-8) D:$D(SDWLIOSR) SCR Q:POP D HD,HD1 ;SD*5.3*446
- Q
- HD W:$D(IOF) @IOF S SDWLPG=SDWLPG+1 W !!,SDWLDTP,?80-$L("Wait List (Sch/PCMM) Enroll Status Report")\2,"Wait List (Sch/PCMM) Enroll Status Report",?65,"Page: ",SDWLPG
- W !,?80-$L("STARTED Date: ")\2,"STARTED Date: " S Y=$P(SDWLDATE,U,1) D DD^%DT W Y
- W !,?80-$L("FINISHED Date: ")\2,"FINISHED Date: " S Y=$P(SDWLDATE,U,2) D DD^%DT W Y
- Q
- HD1 ;
- W !,?20,"PREV",?90,"#",?97,"#",?104,"# NOT" ;SD*5.3*415,446
- W !,"WAIT LIST TYPE",?20,"REMN",?27,"CLSD",?34,"DTH",?41,"NC",?48,"SA",?55,"CC",?62,"NN",?69,"ER",?76,"CL",?83,"TR",?90,"ADD",?97,"REMN",?104,"REMVD" ;SD*5.3*446
- Q
- SCR S DIR(0)="E" D ^DIR S:X="^" POP=1
- Q
- END D EN^SDWLKIL
- K ^TMP("SDWLROI1",$J),^TMP("SDWLROI2",$J),CT,DATE,I,INS
- K T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,X1,X2,X3,X0,Y1,W1,X4,X1,X2 ;SD*5.3*446
- K TT1,TT2,TT3,TT4,TT5,TT6,TT7,TT8,TT9,TT10,TT11,TT12,TT13,SDWLXEN,SDWLRDT,SDWLIOSR ;SD*5.3*446
- Q
- SDWLROI ;;IOFO BAY PINES/TEH/WAIT LIST STAT REPORT - ENROLLEE ; 01 Oct 2002 4:42 PM ; Compiled December 21, 2006 15:21:55
- +1 ;;5.3;scheduling;**263,412,415,446,1015**;AUG 13 1993;Build 21
- +2 ;
- +3 ; Removed Sort logic as routine exceeded SACC maximum size of 10000
- +4 ; New routine SDWLROIS was created to perform the Sort functionality
- +5 ;
- +6 ;
- EN ;
- +1 NEW ZCODE,ZTDESC,ZTDTH,ZTIO,ZTQUEDED,ZTREQ,ZTRTN,ZTSK
- +2 DO INIT
- IF $DATA(DUOUT)
- GOTO END
- +3 ; SD*5.3*412 new routine to perform sort
- DO SORT^SDWLROIS(SDWLBD,SDWLED,SDWLINS,.SDWL)
- +4 IF $$S^ZTLOAD
- GOTO END
- +5 DO PRT
- +6 GOTO END
- INIT ;
- +1 IF $DATA(CT)
- SET SDWLCT=CT
- +2 IF $DATA(DATE)
- SET SDWLDATE=DATE
- +3 IF $DATA(INS)
- SET SDWLINS=INS
- +4 IF $DATA(ZTSAVE)
- Begin DoDot:1
- +5 SET SDWLCT=$GET(ZTSAVE("CT"))
- SET SDWLDATE=$GET(ZTSAVE("DATE"))
- SET SDWLINS=$GET(ZTSAVE("INS"))
- End DoDot:1
- +6 IF SDWLINS'="ALL"
- FOR I=1:1
- SET SDWL=$PIECE(SDWLINS,";",I)
- IF SDWL=""
- QUIT
- SET SDWL("INS",+SDWL)=""
- +7 SET SDWLBD=$PIECE(SDWLDATE,U,1)
- SET SDWLED=$PIECE(SDWLDATE,U,2)
- SET SDWLPG=0
- +8 DO NOW^%DTC
- SET Y=%
- DO DD^%DT
- SET SDWLDTP=$PIECE(Y,":",1,2)
- +9 KILL ZTSAVE
- +10 ;SD*5.3*412
- NEW POP
- SET POP=0
- +11 QUIT
- +12 ;
- PRT ;PRINT REPORT SD*5.3*412 Q:POP added where needed to allow early exit
- +1 IF $$S^ZTLOAD
- GOTO END
- +2 ;SD*5.3*446
- SET (T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13)=0
- +3 ;SD*5.3*446
- SET (TT1,TT2,TT3,TT4,TT5,TT6,TT7,TT8,TT9,TT10,TT11,TT12,TT13,SDWLPG)=0
- DO HD
- DO HD1
- +4 IF '$DATA(^TMP("SDWLROI1",$JOB))
- WRITE !!,"No Wait List Data to Report"
- QUIT
- +5 ;SD*5.3*412 added Quit for early exit; 446
- SET SDWLINS=""
- FOR
- SET SDWLINS=$ORDER(^TMP("SDWLROI1",$JOB,SDWLINS))
- IF SDWLINS=""
- QUIT
- Begin DoDot:1
- +6 WRITE !!,"INSTITUTION: ",SDWLINS
- +7 ; SD*5.3*446
- SET W1=""
- FOR
- SET W1=$ORDER(^TMP("SDWLROI1",$JOB,SDWLINS,W1))
- IF W1=""
- QUIT
- Begin DoDot:2
- +8 WRITE !,"ENROLLMENT PRIORITY: ",$SELECT(W1="P":"PRIOR",W1="N":"NEW",W1="E":"ESTABLISHED",1:"UNDETERMINED")
- +9 SET SDWLTY=""
- FOR
- SET SDWLTY=$ORDER(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY))
- IF SDWLTY=""
- QUIT
- Begin DoDot:3
- +10 ; SD*5.3*446
- SET SDWLTNM=$$EXTERNAL^DILFD(409.3,4,,SDWLTY)
- WRITE !,$EXTRACT(SDWLTNM,1,15)
- IF $Y>(IOSL-8)
- IF $DATA(SDWLIOSR)
- DO SCR
- IF POP
- QUIT
- DO HD
- DO HD1
- +11 SET SDWLSCN=""
- FOR
- SET SDWLSCN=$ORDER(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN))
- IF SDWLSCN=""
- QUIT
- Begin DoDot:4
- +12 SET SDWLSCNM=""
- FOR
- SET SDWLSCNM=$ORDER(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM))
- IF SDWLSCNM=""
- QUIT
- Begin DoDot:5
- +13 SET SDWLPRI=""
- FOR
- SET SDWLPRI=$ORDER(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI))
- IF SDWLPRI=""
- QUIT
- Begin DoDot:6
- +14 ;SD*5.3*446
- NEW SDWLCLO
- +15 WRITE !,?2,$EXTRACT(SDWLSCNM,1,10)," ",$SELECT(SDWLPRI="A":"ASAP",SDWLPRI="F":"FUTURE",1:"")
- +16 SET SDWLPR=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"PR"))
- WRITE ?20,SDWLPR
- +17 ;SD*5.3*415,446
- SET SDWLCLO=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"CL"))
- WRITE ?27,SDWLCLO
- +18 ;SD*5.3*415,446
- SET SDWLD=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLD"))
- WRITE ?34,SDWLD
- +19 ;SD*5.3*446
- SET SDWLNC=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLNC"))
- WRITE ?41,SDWLNC
- +20 ;SD*5.3*446
- SET SDWLSA=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLSA"))
- WRITE ?48,SDWLSA
- +21 ;SD*5.3*446
- SET SDWLCC=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLCC"))
- WRITE ?55,SDWLCC
- +22 ;SD*5.3*446
- SET SDWLNN=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLNN"))
- WRITE ?62,SDWLNN
- +23 ;SD*5.3*446
- SET SDWLER=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLER"))
- WRITE ?69,SDWLER
- +24 ;SD*5.3*446
- SET SDWLCL=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLCL"))
- WRITE ?76,SDWLCL
- +25 ;SD*5.3*446
- SET SDWLTR=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"SDWLTR"))
- WRITE ?83,SDWLTR
- +26 ;SD*5.3*415,446
- SET SDWLAD=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"AD"))
- WRITE ?90,SDWLAD
- +27 ;SD*5.3*415,446
- SET SDWLRR=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"RR"))
- WRITE ?97,SDWLRR
- +28 ; SD*5.3*446
- SET SDWLNR=+$GET(^TMP("SDWLROI1",$JOB,SDWLINS,W1,SDWLTY,SDWLSCN,SDWLSCNM,SDWLPRI,"NR"))
- WRITE ?104,SDWLNR
- +29 SET T1=T1+SDWLPR
- SET TT1=TT1+SDWLPR
- +30 SET T2=T2+SDWLCLO
- SET TT2=TT2+SDWLCLO
- +31 SET T3=T3+SDWLD
- SET TT3=TT3+SDWLD
- +32 SET T4=T4+SDWLNC
- SET TT4=TT4+SDWLNC
- +33 SET T5=T5+SDWLSA
- SET TT4=TT4+SDWLSA
- +34 SET T6=T6+SDWLCC
- SET TT6=TT6+SDWLCC
- +35 SET T7=T7+SDWLNN
- SET TT7=TT7+SDWLNN
- +36 SET T8=T8+SDWLER
- SET TT8=TT8+SDWLER
- +37 ;SD*5.3*446
- SET T9=T9+SDWLCL
- SET TT9=TT9+SDWLCL
- +38 ;SD*5.3*446
- SET T10=T10+SDWLTR
- SET TT10=TT10+SDWLTR
- +39 ;SD*5.3*446
- SET T11=T11+SDWLAD
- SET TT11=TT11+SDWLAD
- +40 ;SD*5.3*446
- SET T12=T12+SDWLRR
- SET TT12=TT12+SDWLRR
- +41 ;SD*5.3*446
- SET T13=T13+SDWLNR
- SET TT13=TT13+SDWLNR
- +42 ;SD*5.3*446
- IF $Y>(IOSL-8)
- IF $DATA(SDWLIOSR)
- DO SCR
- IF POP
- QUIT
- DO HD
- DO HD1
- End DoDot:6
- IF POP
- QUIT
- End DoDot:5
- IF POP
- QUIT
- End DoDot:4
- IF POP
- QUIT
- End DoDot:3
- IF POP
- QUIT
- End DoDot:2
- IF POP
- QUIT
- DO T1
- IF POP
- QUIT
- IF $Y>(IOSL-8)
- IF $DATA(SDWLIOSR)
- DO SCR
- IF POP
- QUIT
- DO HD
- DO HD1
- End DoDot:1
- IF POP
- QUIT
- DO T2
- IF POP
- QUIT
- WRITE !,"________________"
- IF $Y>(IOSL-8)
- IF $DATA(SDWLIOSR)
- DO SCR
- IF POP
- QUIT
- DO HD
- DO HD1
- +43 QUIT
- T1 ;
- +1 ;write sub-totals
- +2 ;SD*5.3*446
- WRITE !?20,"------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------ ------"
- +3 ;SD*5.3*446
- WRITE !,"Sub-Totals:",?20,T1,?27,T2,?34,T3,?41,T4,?48,T5,?55,T6,?62,T7,?69,T8,?76,T9,?83,T10,?90,T11,?97,T12,?104,T13
- +4 ;SD*5.3*446
- SET (T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13)=0
- +5 ;SD*5.3*446
- IF $Y>(IOSL-8)
- IF $DATA(SDWLIOSR)
- DO SCR
- IF POP
- QUIT
- DO HD
- DO HD1
- +6 QUIT
- T2 WRITE !,"Institution Totals:"
- +1 ;SD*5.3*446
- WRITE ?20,TT1,?27,TT2,?34,TT3,?41,TT4,?48,TT5,?55,TT6,?62,TT7,?69,TT8,?76,TT9,?83,TT10,?90,TT11,?97,TT12,?104,TT13,!
- +2 ;SD*5.3*415,446
- SET (TT1,TT2,TT3,TT4,TT5,TT6,TT7,TT8,TT9,TT10,TT11,TT12,TT13)=0
- +3 ;SD*5.3*446
- IF $Y>(IOSL-8)
- IF $DATA(SDWLIOSR)
- DO SCR
- IF POP
- QUIT
- DO HD
- DO HD1
- +4 QUIT
- HD IF $DATA(IOF)
- WRITE @IOF
- SET SDWLPG=SDWLPG+1
- WRITE !!,SDWLDTP,?80-$LENGTH("Wait List (Sch/PCMM) Enroll Status Report")\2,"Wait List (Sch/PCMM) Enroll Status Report",?65,"Page: ",SDWLPG
- +1 WRITE !,?80-$LENGTH("STARTED Date: ")\2,"STARTED Date: "
- SET Y=$PIECE(SDWLDATE,U,1)
- DO DD^%DT
- WRITE Y
- +2 WRITE !,?80-$LENGTH("FINISHED Date: ")\2,"FINISHED Date: "
- SET Y=$PIECE(SDWLDATE,U,2)
- DO DD^%DT
- WRITE Y
- +3 QUIT
- HD1 ;
- +1 ;SD*5.3*415,446
- WRITE !,?20,"PREV",?90,"#",?97,"#",?104,"# NOT"
- +2 ;SD*5.3*446
- WRITE !,"WAIT LIST TYPE",?20,"REMN",?27,"CLSD",?34,"DTH",?41,"NC",?48,"SA",?55,"CC",?62,"NN",?69,"ER",?76,"CL",?83,"TR",?90,"ADD",?97,"REMN",?104,"REMVD"
- +3 QUIT
- SCR SET DIR(0)="E"
- DO ^DIR
- IF X="^"
- SET POP=1
- +1 QUIT
- END DO EN^SDWLKIL
- +1 KILL ^TMP("SDWLROI1",$JOB),^TMP("SDWLROI2",$JOB),CT,DATE,I,INS
- +2 ;SD*5.3*446
- KILL T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T13,X1,X2,X3,X0,Y1,W1,X4,X1,X2
- +3 ;SD*5.3*446
- KILL TT1,TT2,TT3,TT4,TT5,TT6,TT7,TT8,TT9,TT10,TT11,TT12,TT13,SDWLXEN,SDWLRDT,SDWLIOSR
- +4 QUIT
