Released SD*5.3*689 SEQ #572 Extracted from mail message **KIDS**:SD*5.3*689^ **INSTALL NAME** SD*5.3*689 "BLD",11067,0) SD*5.3*689^SCHEDULING^0^3180501^y "BLD",11067,1,0) ^^2^2^3180501^ "BLD",11067,1,1,0) Patch SD*5.3*689 corrects a missing date of the clinic issue on the "BLD",11067,1,2,0) No-Show Report. "BLD",11067,4,0) ^9.64PA^^ "BLD",11067,6.3) 2 "BLD",11067,"KRN",0) ^9.67PA^779.2^20 "BLD",11067,"KRN",.4,0) .4 "BLD",11067,"KRN",.401,0) .401 "BLD",11067,"KRN",.402,0) .402 "BLD",11067,"KRN",.403,0) .403 "BLD",11067,"KRN",.5,0) .5 "BLD",11067,"KRN",.84,0) .84 "BLD",11067,"KRN",3.6,0) 3.6 "BLD",11067,"KRN",3.8,0) 3.8 "BLD",11067,"KRN",9.2,0) 9.2 "BLD",11067,"KRN",9.8,0) 9.8 "BLD",11067,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",11067,"KRN",9.8,"NM",1,0) SDNOS1^^0^B26186060 "BLD",11067,"KRN",9.8,"NM","B","SDNOS1",1) "BLD",11067,"KRN",19,0) 19 "BLD",11067,"KRN",19.1,0) 19.1 "BLD",11067,"KRN",101,0) 101 "BLD",11067,"KRN",409.61,0) 409.61 "BLD",11067,"KRN",771,0) 771 "BLD",11067,"KRN",779.2,0) 779.2 "BLD",11067,"KRN",870,0) 870 "BLD",11067,"KRN",8989.51,0) 8989.51 "BLD",11067,"KRN",8989.52,0) 8989.52 "BLD",11067,"KRN",8994,0) 8994 "BLD",11067,"KRN","B",.4,.4) "BLD",11067,"KRN","B",.401,.401) "BLD",11067,"KRN","B",.402,.402) "BLD",11067,"KRN","B",.403,.403) "BLD",11067,"KRN","B",.5,.5) "BLD",11067,"KRN","B",.84,.84) "BLD",11067,"KRN","B",3.6,3.6) "BLD",11067,"KRN","B",3.8,3.8) "BLD",11067,"KRN","B",9.2,9.2) "BLD",11067,"KRN","B",9.8,9.8) "BLD",11067,"KRN","B",19,19) "BLD",11067,"KRN","B",19.1,19.1) "BLD",11067,"KRN","B",101,101) "BLD",11067,"KRN","B",409.61,409.61) "BLD",11067,"KRN","B",771,771) "BLD",11067,"KRN","B",779.2,779.2) "BLD",11067,"KRN","B",870,870) "BLD",11067,"KRN","B",8989.51,8989.51) "BLD",11067,"KRN","B",8989.52,8989.52) "BLD",11067,"KRN","B",8994,8994) "BLD",11067,"QDEF") ^^^^^^^^^^YES "BLD",11067,"QUES",0) ^9.62^^ "BLD",11067,"REQB",0) ^9.611^1^1 "BLD",11067,"REQB",1,0) SD*5.3*410^2 "BLD",11067,"REQB","B","SD*5.3*410",1) "MBREQ") 0 "PKG",16,-1) 1^1 "PKG",16,0) SCHEDULING^SD^APPOINTMENTS,PROFILES,LETTERS,AMIS REPORTS "PKG",16,20,0) ^9.402P^^ "PKG",16,22,0) ^9.49I^1^1 "PKG",16,22,1,0) 5.3^2930813 "PKG",16,22,1,"PAH",1,0) 689^3180501 "PKG",16,22,1,"PAH",1,1,0) ^^2^2^3180501 "PKG",16,22,1,"PAH",1,1,1,0) Patch SD*5.3*689 corrects a missing date of the clinic issue on the "PKG",16,22,1,"PAH",1,1,2,0) No-Show Report. "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","SDNOS1") 0^1^B26186060^B24624553 "RTN","SDNOS1",1,0) SDNOS1 ;ALB/LDB - NO-SHOW REPORT ;07 May 99 11:13 AM "RTN","SDNOS1",2,0) ;;5.3;Scheduling;**194,410,689**;Aug 13, 1993;Build 2 "RTN","SDNOS1",3,0) D:'SDV1 CL I SDV1 F SDDIV=0:0 S SDDIV=$O(^UTILITY($J,"SDNO",SDDIV)) Q:'SDDIV!(SDDIV="") Q:SDIO=IO(0)&(SDEND) D CL Q:SDEND D:SDIO=IO(0) SCR Q:SDEND "RTN","SDNOS1",4,0) I 'SDABB D:SDIO'=IO TP^DGUTL "RTN","SDNOS1",5,0) D END^SDNOS Q "RTN","SDNOS1",6,0) ; "RTN","SDNOS1",7,0) CL S SDC="***TOT***",Q=SDCL(1) I SDABB D ABB Q "RTN","SDNOS1",8,0) F C=0:1 S SDC=$O(^UTILITY($J,"SDNO",SDDIV,SDC)) Q:(SDC?1"***".E)!(SDC="")!SDEND I (^(SDC,"***TOT***")>0&'Q)!Q D HDR,HDR1 S SDHD=1 D WR S SDTOT=1 Q:SDEND D:SDIO=IO(0) SCR Q:SDEND D HDR,HDR2,TOT S SDTOT=0 W !! D:SDIO=IO(0) SCR Q:SDEND "RTN","SDNOS1",9,0) Q:SDEND S SDTOT1=1 D SDTOT^SDNOS2 S SDTOT1=0 "RTN","SDNOS1",10,0) Q "RTN","SDNOS1",11,0) ; "RTN","SDNOS1",12,0) HDR D NOW^%DTC S Y=% X ^DD("DD") W @IOF,Y,?70,"PAGE " S P1=P1+1 W P1 "RTN","SDNOS1",13,0) W !,?30,"NO SHOW REPORT",$S(SDTOT!SDTOT1:" TOTALS",1:""),! D LINE^SDNOS1A W !!,?2,"FOR PERIOD COVERING: " S Y=SDBD D D^DIQ S SDBG=Y W ?30,SDBG "RTN","SDNOS1",14,0) I $D(SDED) S Y=SDED D D^DIQ W " TO ",Y "RTN","SDNOS1",15,0) D DIV^SDNOS1A D:SDABB HDR3 Q "RTN","SDNOS1",16,0) ; "RTN","SDNOS1",17,0) HDR1 Q:SDIO=IO&(SDEND) W !,"DATE",?23,"TIME",?32,"PATIENT",?63,"SSN",!,"----",?23,"----",?32,"-------",?63,"---" "RTN","SDNOS1",18,0) Q "RTN","SDNOS1",19,0) ; "RTN","SDNOS1",20,0) WR S (SDNO,X1,Y3)=0 S C1=0 F C6=1:1 S Y3=C1,C1=$O(^UTILITY($J,"SDNO",SDDIV,SDC,C1)) Q:SDEND D:(C6=1)&(C1?1"***".E) NONE Q:C1?1"***".E!(C1="")!(SDEND) S:C6=1 Y3=C1 S X1=0 Q:SDIO=IO(0)&(SDEND) D WR1 "RTN","SDNOS1",21,0) Q "RTN","SDNOS1",22,0) ; "RTN","SDNOS1",23,0) NONE W !!!,"*** NO NO-SHOWS OCCURRED IN THIS CLINIC DURING THIS TIME FRAME ***" Q "RTN","SDNOS1",24,0) ; "RTN","SDNOS1",25,0) WR1 N SDX S SDPT=0 F C2=0:0 S SDPT=$O(^UTILITY($J,"SDNO",SDDIV,SDC,C1,SDPT)) Q:SDPT?1"***".E!(SDPT="")!(SDEND) S C3=0 F C4=0:0 S C3=$O(^UTILITY($J,"SDNO",SDDIV,SDC,C1,SDPT,C3)) Q:C3<1!(SDEND) S SDX=^(C3) D WR2 "RTN","SDNOS1",26,0) Q "RTN","SDNOS1",27,0) ; "RTN","SDNOS1",28,0) WR2 S X=C1 X ^DD("FUNC",2,1) S Y2=X "RTN","SDNOS1",29,0) S X=C1 D DW^%DTC S SDOW=X,Y=C1 X ^DD("DD") S Y1=$P(Y,"@") "RTN","SDNOS1",30,0) Q:SDEND "RTN","SDNOS1",31,0) I $Y+6>IOSL D:SDIO=IO(0) SCR Q:SDEND D HDR,HDR1 S SDHD=1 Q:SDEND "RTN","SDNOS1",32,0) I SDHD=1 S X=C1 X ^DD("FUNC",2,1) S Y2=X W !!,SDOW,?10,Y1 W:$L(Y2)>7 ?22 W:$L(Y2)<8 ?23 W Y2,?32,SDPT,?63,C3 "RTN","SDNOS1",33,0) I $P(Y3,".",2)']""&('SDHD) W !!,SDOW,?10,Y1 W:$L(Y2)>7 ?22 W:$L(Y2)<8 ?23 W Y2,?32,SDPT,?63,C3 "RTN","SDNOS1",34,0) ;I $P(Y3,".",2)]""&('SDHD) W !! W:$L(Y2)>7 ?22 W:$L(Y2)<8 ?23 W Y2,?32,SDPT,?63,C3 "RTN","SDNOS1",35,0) I $P(Y3,".",2)]""&('SDHD) D "RTN","SDNOS1",36,0) . ; SD*689 - compare dates: if NOT the same, print date of week and date of clinic "RTN","SDNOS1",37,0) . I $P(Y3,".",1)'=$P(C1,".",1) W !!,SDOW,?10,Y1 W:$L(Y2)>7 ?22 W:$L(Y2)<8 ?23 W Y2,?32,SDPT,?63,C3 "RTN","SDNOS1",38,0) . E W !! W:$L(Y2)>7 ?22 W:$L(Y2)<8 ?23 W Y2,?32,SDPT,?63,C3 "RTN","SDNOS1",39,0) W !,?32,"CLERK: ",$S($P(SDX,U,3):$P($G(^VA(200,$P(SDX,U,3),0)),U),$P(SDX,U)["NT":"NONE - NO ACTION TAKEN",1:"UNKNOWN") "RTN","SDNOS1",40,0) S SDHD=0,Y3=C1 "RTN","SDNOS1",41,0) WR3 I $P(SDX,U)["A" W !,?32,"REBOOKED ON " S SDRB=$P(SDX,U,2),Y=SDRB X ^DD("DD") W Y,! "RTN","SDNOS1",42,0) Q "RTN","SDNOS1",43,0) ; "RTN","SDNOS1",44,0) TOT I 'SDABB F C1=0:0 S C1=$O(^UTILITY($J,"SDNO",SDDIV,SDC,C1)) Q:(C1?1"***".E)!(C1="")!SDEND D TOTAL "RTN","SDNOS1",45,0) S SDT4=$G(^UTILITY($J,"SDNO",SDDIV,SDC,"***N***","***TOT***"))+$G(^UTILITY($J,"SDNO",SDDIV,SDC,"***NT***","***TOT***"))+$G(^UTILITY($J,"SDNO",SDDIV,SDC,"******","***TOT***")) "RTN","SDNOS1",46,0) S SDT5=+$G(^UTILITY($J,"SDNO",SDDIV,SDC,"***NA***","***TOT***")) "RTN","SDNOS1",47,0) S SDT6=+^UTILITY($J,"SDNO",SDDIV,SDC,"***TOT***") "RTN","SDNOS1",48,0) Q:SDEND "RTN","SDNOS1",49,0) D:$Y+6>IOSL&(SDIO=IO(0)) SCR Q:SDEND "RTN","SDNOS1",50,0) D:$Y+6>IOSL HDR "RTN","SDNOS1",51,0) I 'SDABB W !,?27,"___",?45,"___",?75,"___",!!,?27,SDT4,?47,SDT5,?75,SDT6 "RTN","SDNOS1",52,0) I 'SDABB D:$Y+6>IOSL&(SDIO=IO(0)) SCR Q:SDEND D:$Y+6>IOSL HDR "RTN","SDNOS1",53,0) S SDPR=$S(^UTILITY($J,"SDNO",SDDIV,SDC,"***TOT***"):$J((^("***TOT***")/^UTILITY($J,"SDNO",SDDIV,SDC,"***SDNMS***")*100),2,0),1:0)_"%" "RTN","SDNOS1",54,0) I 'SDABB W !!!,SDPR," of appointments for ",SDC," were NO-SHOWS for this period" Q "RTN","SDNOS1",55,0) I SDABB W !,SDC,?40,$J(SDT4,5),?50,$J(SDT5,5),?60,$J(SDT6,5),?70,$J(SDPR,5) "RTN","SDNOS1",56,0) Q "RTN","SDNOS1",57,0) ; "RTN","SDNOS1",58,0) TOTAL S SDT1=$G(^UTILITY($J,"SDNO",SDDIV,SDC,C1,"***N***","***TOT***"))+$G(^UTILITY($J,"SDNO",SDDIV,SDC,C1,"***NT***","***TOT***"))+$G(^UTILITY($J,"SDNO",SDDIV,SDC,C1,"******","***TOT***")) "RTN","SDNOS1",59,0) S:SDT1 SDOK=1 "RTN","SDNOS1",60,0) S SDT2=+$G(^UTILITY($J,"SDNO",SDDIV,SDC,C1,"***NA***","***TOT***")) "RTN","SDNOS1",61,0) I SDT1!(SDT2) D WTOT "RTN","SDNOS1",62,0) Q "RTN","SDNOS1",63,0) ; "RTN","SDNOS1",64,0) WTOT D:$Y+5>IOSL&(SDIO=IO(0)) SCR Q:SDEND D:$Y+6>IOSL HDR,HDR2 S X=C1 D DW^%DTC W !,X S Y=C1 X ^DD("DD") W ?10,Y,?27,SDT1,?47,SDT2 S SDT3=SDT1+SDT2 W ?75,SDT3,! "RTN","SDNOS1",65,0) Q "RTN","SDNOS1",66,0) ; "RTN","SDNOS1",67,0) HDR2 W !!,?23,"TOTAL NO-SHOWS W/NO",?45,"TOTAL NO-SHOWS W/",?65,"TOTAL NO-SHOWS" "RTN","SDNOS1",68,0) W:'SDTOT1 !,"DATE" W:SDTOT1 ! W ?23,"REBOOKED APPTS.",?45,"REBOOKED APPTS." D LINE^SDNOS1A "RTN","SDNOS1",69,0) Q "RTN","SDNOS1",70,0) ; "RTN","SDNOS1",71,0) SCR I $E(IOST,1,2)="C-" D OUT^SDUTL Q "RTN","SDNOS1",72,0) Q "RTN","SDNOS1",73,0) ; "RTN","SDNOS1",74,0) ABB ;Print abbreviated no-show report (clinic totals only) "RTN","SDNOS1",75,0) S (SDTOT,SDTOT1)=1 D HDR "RTN","SDNOS1",76,0) F C=0:1 S SDC=$O(^UTILITY($J,"SDNO",SDDIV,SDC)) Q:(SDC?1"***".E)!(SDC="")!SDEND D "RTN","SDNOS1",77,0) .I (^UTILITY($J,"SDNO",SDDIV,SDC,"***TOT***")>0&'Q)!Q D:$Y>(IOSL-2) ABBHD Q:SDEND D TOT "RTN","SDNOS1",78,0) .Q "RTN","SDNOS1",79,0) Q:SDEND D:$E(IOST,1,2)="C-" SCR Q:SDEND D SDTOT^SDNOS2 "RTN","SDNOS1",80,0) Q "RTN","SDNOS1",81,0) ; "RTN","SDNOS1",82,0) ABBHD I $E(IOST,1,2)="C-" D OUT^SDUTL Q "RTN","SDNOS1",83,0) D HDR,HDR3 Q "RTN","SDNOS1",84,0) ; "RTN","SDNOS1",85,0) HDR3 N SDLINE,SDI "RTN","SDNOS1",86,0) S SDLINE="",$P(SDLINE,"-",31)="" "RTN","SDNOS1",87,0) W ?40,"Without",?50,"With",!?40,"Rebooked",?50,"Rebooked",?60,"Total" "RTN","SDNOS1",88,0) W ?70,"Percent",!,"Clinic",?40,"Appts.",?50,"Appts.",?60,"No-Shows" "RTN","SDNOS1",89,0) W ?70,"No-Shows",!,SDLINE F SDI=1:1:4 W ?(30+(10*SDI)),$E(SDLINE,1,8) "RTN","SDNOS1",90,0) Q "VER") 8.0^22.2 "BLD",11067,6) ^572 **END** **END**