- BSDCCR5 ; IHS/ANMC/LJF - CLINIC CAPACITY REPORT CONT. ;
- ;;5.3;PIMS;;APR 26, 2002
- ;COPY OF SCRPW75 BEFORE PATCH #223
- ;IHS/ANMC/LJF 10/05/2000 removed time from date appt made in ^TMP
- ; 10/06/2000 added call to IHS footer code
- ; 6/15/2001 added code for Cache (Set $P of undef global)
- ; 3/13/2002 only process for selected clinics
- ;
- NAVA(SDBDT,SDEDT,SDEX) ;Gather next available appointment wait time information
- ;Input: SDBDT=beginning date
- ;Input: SDEDT=ending date
- ;Input: SDEX='0' for user report, '1' for Austin extract
- ;Output: ^TMP("SDNAVA",$J) array in the format:
- ; ^TMP("SDNAVA",$J,division)='x'
- ; ^TMP("SDNAVA",$J,division,credit_pair)='x'
- ; ^TMP("SDNAVA",$J,division,credit_pair,clinic_ifn)='x'
- ; ^TMP("SDNAVA",$J,division;credit_pair,clinic_ifn,date_scheduled)='x'
- ; where 'x' = flag '0' appts.^ave. flag '0' wait time^flag
- ; '1' appts.^ave. flag '1' wait time^flag '2'
- ; appts.^ave. flag '2' wait time^flag '3' appts.
- ; ^ave. flag '3' wait time
- ;
- N SDT,SDCT,DFN,SDADT,SDAP,SDAP0,SDWAIT,SDCL,SDFLAG,SDX,SDI,SC0,SDCP
- S SDT=SDBDT-1,(SDOUT,SDCT)=0
- K ^TMP("SDXNAVA",$J),^TMP("SDNAVA",$J)
- ;
- ;IHS/ANMC/LJF 3/13/2002 use IHS xref so only selected clinics used
- ; original VA code
- ;F S SDT=$O(^DPT("ASADM",SDT)) Q:SDOUT!'SDT!(SDT>SDEDT) S DFN=0 D
- ;.F S DFN=$O(^DPT("ASADM",SDT,DFN)) Q:SDOUT!'DFN S SDADT=0 D
- ;..F S SDADT=$O(^DPT("ASADM",SDT,DFN,SDADT)) Q:SDOUT!'SDADT D
- ;...S SDCT=SDCT+1 I SDCT#1000=0 D STOP Q:SDOUT
- ;...S SDAP0=$G(^DPT(DFN,"S",SDADT,0)) Q:$P(SDAP0,U,19)'=SDT
- ;...S SDCL=+SDAP0 Q:SDCL<1 S SDFLAG=+$P(SDAP0,U,26)
- ;...S SDWAIT=$S(SDADT<SDT:0,1:$$FMDIFF^XLFDT(SDADT,SDT,1))
- ;...S $P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+1))=$P($G(^TMP("SDXNAVA",$J,SDCL)),U,((SDFLAG*2)+1))+1
- ;...S $P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+2))=$P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+2))+SDWAIT
- ;...Q:SDEX=1!(SDFMT'="D")
- ;...Q
- ;..Q
- ;.Q
- ;
- ;IHS code using AIHSDAM xref on file 44 instead of ASADM on file 2
- NEW BSDCL,X,BSDN
- S X=0 F S X=$O(SDSORT(X)) Q:X="" S BSDCL(SDSORT(X))=X
- S SDCL=0 F S SDCL=$O(BSDCL(SDCL)) Q:'SDCL D
- . S SDT=SDBDT-1
- . F S SDT=$O(^SC("AIHSDAM",SDCL,SDT)) Q:'SDT!(SDT>SDEDT) D
- .. S SDADT=0 F S SDADT=$O(^SC("AIHSDAM",SDCL,SDT,SDADT)) Q:'SDADT D
- ... S BSDN=0
- ... F S BSDN=$O(^SC("AIHSDAM",SDCL,SDT,SDADT,BSDN)) Q:'BSDN D
- .... S SDCT=SDCT+1 I SDCT#1000=0 D STOP Q:SDOUT
- .... S SDWAIT=$S(SDADT<SDT:0,1:$$FMDIFF^XLFDT(SDADT,SDT,1))
- ....;
- ....S SDFLAG=0 ;IHS/ANMC/LJF 10/5/2000
- ....;
- ....;IHS/ANMC/LJF 6/15/2001
- ....I '$D(^TMP("SDXNAVA",$J,SDCL)) S ^TMP("SDXNAVA",$J,SDCL)=""
- ....I '$D(^TMP("SDXNAVA",$J,SDCL,(SDT\1))) S ^TMP("SDXNAVA",$J,SDCL,(SDT\1))=""
- ....;IHS/ANMC/LJF 6/15/2001 end of mods
- ....;
- ....S $P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+1))=$P($G(^TMP("SDXNAVA",$J,SDCL)),U,((SDFLAG*2)+1))+1
- ....S $P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+2))=$P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+2))+SDWAIT
- ....Q:SDEX=1!(SDFMT'="D")
- ....;
- ....;IHS/ANMC/LJF 10/5/2000
- ....;S $P(^TMP("SDXNAVA",$J,SDCL,SDT),U,((SDFLAG*2)+1))=$P($G(^TMP("SDXNAVA",$J,SDCL,SDT)),U,((SDFLAG*2)+1))+1
- ....;S $P(^TMP("SDXNAVA",$J,SDCL,SDT),U,((SDFLAG*2)+2))=$P(^TMP("SDXNAVA",$J,SDCL,SDT),U,((SDFLAG*2)+2))+SDWAIT
- ....S $P(^TMP("SDXNAVA",$J,SDCL,(SDT\1)),U,((SDFLAG*2)+1))=$P($G(^TMP("SDXNAVA",$J,SDCL,(SDT\1))),U,((SDFLAG*2)+1))+1
- ....S $P(^TMP("SDXNAVA",$J,SDCL,(SDT\1)),U,((SDFLAG*2)+2))=$P(^TMP("SDXNAVA",$J,SDCL,(SDT\1)),U,((SDFLAG*2)+2))+SDWAIT
- ;IHS/ANMC/LJF 10/5/2000 end of mods
- ;IHS/ANMC/LJF 3/13/2002 end of mods
- ;
- ;
- Q:SDOUT S SDCL=0
- F S SDCL=$O(^TMP("SDXNAVA",$J,SDCL)) Q:'SDCL D
- .S SC0=$G(^SC(SDCL,0)) Q:'$L(SC0) Q:'$$CPAIR^BSDCCR1(SC0,.SDCP)
- .S SDIV=$$DIV^BSDCCR1(SC0) Q:'$L(SDIV)
- .Q:'$D(^TMP("SD",$J,SDIV,SDCP,SDCL))
- .S:'$D(^TMP("SDNAVA",$J,SDIV,SDCP)) ^TMP("SDNAVA",$J,SDIV,SDCP)=""
- .I SDMD S:'$D(^TMP("SDNAVA",$J,0,SDCP)) ^TMP("SDNAVA",$J,0,SDCP)=""
- .S SDX=^TMP("SDXNAVA",$J,SDCL),^TMP("SDNAVA",$J,SDIV,SDCP,SDCL)=$$AVE(SDX)
- .I SDMD S ^TMP("SDNAVA",$J,0,SDCP,SDCL)=$$AVE(SDX)
- .;
- .;IHS/ANMC/LJF 6/15/2001 add line for Cache
- .I SDMD,'$D(^TMP("SDNAVA",$J,0)) S ^TMP("SDNAVA",$J,0)=""
- .I '$D(^TMP("SDNAVA",$J,SDIV)) S ^TMP("SDNAVA",$J,SDIV)=""
- .I SDMD,'$D(^TMP("SDNAVA",$J,0,SDCP)) S ^TMP("SDNAVA",$J,0,SDCP)=""
- .I '$D(^TMP("SDNAVA",$J,SDIV,SDCP)) S ^TMP("SDNAVA",$J,SDIV,SDCP)=""
- .;IHS/ANMC/LJF end of new code
- .;
- .F SDI=1:1:8 S $P(^TMP("SDNAVA",$J,SDIV),U,SDI)=$P($G(^TMP("SDNAVA",$J,SDIV)),U,SDI)+$P(SDX,U,SDI)
- .I SDMD F SDI=1:1:8 S $P(^TMP("SDNAVA",$J,0),U,SDI)=$P($G(^TMP("SDNAVA",$J,0)),U,SDI)+$P(SDX,U,SDI)
- .F SDI=1:1:8 S $P(^TMP("SDNAVA",$J,SDIV,SDCP),U,SDI)=$P(^TMP("SDNAVA",$J,SDIV,SDCP),U,SDI)+$P(SDX,U,SDI)
- .I SDMD F SDI=1:1:8 S $P(^TMP("SDNAVA",$J,0,SDCP),U,SDI)=$P(^TMP("SDNAVA",$J,0,SDCP),U,SDI)+$P(SDX,U,SDI)
- .S SDT=0 F S SDT=$O(^TMP("SDXNAVA",$J,SDCL,SDT)) Q:SDOUT!'SDT D
- ..S SDX=^TMP("SDXNAVA",$J,SDCL,SDT),^TMP("SDNAVA",$J,SDIV,SDCP,SDCL,SDT)=$$AVE(SDX)
- ..Q
- .Q
- S SDIV="" F S SDIV=$O(^TMP("SDNAVA",$J,SDIV)) Q:'$L(SDIV) D
- .S SDCP=0 F S SDCP=$O(^TMP("SDNAVA",$J,SDIV,SDCP)) Q:'SDCP D
- ..S SDX=^TMP("SDNAVA",$J,SDIV,SDCP),^TMP("SDNAVA",$J,SDIV,SDCP)=$$AVE(SDX)
- ..Q
- .Q
- S SDIV="" F S SDIV=$O(^TMP("SDNAVA",$J,SDIV)) Q:SDIV="" D
- .S SDX=^TMP("SDNAVA",$J,SDIV),^TMP("SDNAVA",$J,SDIV)=$$AVE(SDX)
- .Q
- K ^TMP("SDXNAVA",$J)
- Q
- ;
- AVE(SDX) ;Calculate averages
- ;Input: SDX=string of appointment totals and total waiting time
- ;Output: string of appointment totals and average waiting time
- N SDI,SDY
- F SDI=2,4,6,8 D
- .S SDY=+$P(SDX,U,(SDI-1)),$P(SDX,U,(SDI-1))=SDY
- .S $P(SDX,U,SDI)=$FN($S(SDY=0:0,1:$P(SDX,U,SDI)/SDY),"",1)
- .Q
- Q SDX
- ;
- STOP ;Check for stop task request
- S:$D(ZTQUEUED) (SDOUT,ZTSTOP)=$S($$S^%ZTLOAD:1,1:0) Q
- ;
- ;Input: SDTX=array to return text
- D FOOT^BSDCCRL(.SDTX) Q ;IHS/ANMC/LJF 10/6/2000
- S SDTX(1)=SDLINE
- S SDTX(2)="NOTE: TYPE '0' activity represents appointments scheduled during the report time frame that were not indicated by the user or by"
- S SDTX(3)="calculation to be ""next available"" appointments. TYPE '1' activity represents appointments defined by the user as being ""next"
- S SDTX(4)="available"" appointments. TYPE '2' activity represents appointments calculated to be ""next available"" appointments. TYPE '3'"
- S SDTX(5)="activity represents appointments indicated both by the user and by calculation to be ""next available"" appointments. WAIT TIME is"
- S SDTX(6)="the average number of days from the date an appointment was scheduled to the date it is to be performed."
- S SDTX(7)=SDLINE
- Q
- BSDCCR5 ; IHS/ANMC/LJF - CLINIC CAPACITY REPORT CONT. ;
- +1 ;;5.3;PIMS;;APR 26, 2002
- +2 ;COPY OF SCRPW75 BEFORE PATCH #223
- +3 ;IHS/ANMC/LJF 10/05/2000 removed time from date appt made in ^TMP
- +4 ; 10/06/2000 added call to IHS footer code
- +5 ; 6/15/2001 added code for Cache (Set $P of undef global)
- +6 ; 3/13/2002 only process for selected clinics
- +7 ;
- NAVA(SDBDT,SDEDT,SDEX) ;Gather next available appointment wait time information
- +1 ;Input: SDBDT=beginning date
- +2 ;Input: SDEDT=ending date
- +3 ;Input: SDEX='0' for user report, '1' for Austin extract
- +4 ;Output: ^TMP("SDNAVA",$J) array in the format:
- +5 ; ^TMP("SDNAVA",$J,division)='x'
- +6 ; ^TMP("SDNAVA",$J,division,credit_pair)='x'
- +7 ; ^TMP("SDNAVA",$J,division,credit_pair,clinic_ifn)='x'
- +8 ; ^TMP("SDNAVA",$J,division;credit_pair,clinic_ifn,date_scheduled)='x'
- +9 ; where 'x' = flag '0' appts.^ave. flag '0' wait time^flag
- +10 ; '1' appts.^ave. flag '1' wait time^flag '2'
- +11 ; appts.^ave. flag '2' wait time^flag '3' appts.
- +12 ; ^ave. flag '3' wait time
- +13 ;
- +14 NEW SDT,SDCT,DFN,SDADT,SDAP,SDAP0,SDWAIT,SDCL,SDFLAG,SDX,SDI,SC0,SDCP
- +15 SET SDT=SDBDT-1
- SET (SDOUT,SDCT)=0
- +16 KILL ^TMP("SDXNAVA",$JOB),^TMP("SDNAVA",$JOB)
- +17 ;
- +18 ;IHS/ANMC/LJF 3/13/2002 use IHS xref so only selected clinics used
- +19 ; original VA code
- +20 ;F S SDT=$O(^DPT("ASADM",SDT)) Q:SDOUT!'SDT!(SDT>SDEDT) S DFN=0 D
- +21 ;.F S DFN=$O(^DPT("ASADM",SDT,DFN)) Q:SDOUT!'DFN S SDADT=0 D
- +22 ;..F S SDADT=$O(^DPT("ASADM",SDT,DFN,SDADT)) Q:SDOUT!'SDADT D
- +23 ;...S SDCT=SDCT+1 I SDCT#1000=0 D STOP Q:SDOUT
- +24 ;...S SDAP0=$G(^DPT(DFN,"S",SDADT,0)) Q:$P(SDAP0,U,19)'=SDT
- +25 ;...S SDCL=+SDAP0 Q:SDCL<1 S SDFLAG=+$P(SDAP0,U,26)
- +26 ;...S SDWAIT=$S(SDADT<SDT:0,1:$$FMDIFF^XLFDT(SDADT,SDT,1))
- +27 ;...S $P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+1))=$P($G(^TMP("SDXNAVA",$J,SDCL)),U,((SDFLAG*2)+1))+1
- +28 ;...S $P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+2))=$P(^TMP("SDXNAVA",$J,SDCL),U,((SDFLAG*2)+2))+SDWAIT
- +29 ;...Q:SDEX=1!(SDFMT'="D")
- +30 ;...Q
- +31 ;..Q
- +32 ;.Q
- +33 ;
- +34 ;IHS code using AIHSDAM xref on file 44 instead of ASADM on file 2
- +35 NEW BSDCL,X,BSDN
- +36 SET X=0
- FOR
- SET X=$ORDER(SDSORT(X))
- IF X=""
- QUIT
- SET BSDCL(SDSORT(X))=X
- +37 SET SDCL=0
- FOR
- SET SDCL=$ORDER(BSDCL(SDCL))
- IF 'SDCL
- QUIT
- Begin DoDot:1
- +38 SET SDT=SDBDT-1
- +39 FOR
- SET SDT=$ORDER(^SC("AIHSDAM",SDCL,SDT))
- IF 'SDT!(SDT>SDEDT)
- QUIT
- Begin DoDot:2
- +40 SET SDADT=0
- FOR
- SET SDADT=$ORDER(^SC("AIHSDAM",SDCL,SDT,SDADT))
- IF 'SDADT
- QUIT
- Begin DoDot:3
- +41 SET BSDN=0
- +42 FOR
- SET BSDN=$ORDER(^SC("AIHSDAM",SDCL,SDT,SDADT,BSDN))
- IF 'BSDN
- QUIT
- Begin DoDot:4
- +43 SET SDCT=SDCT+1
- IF SDCT#1000=0
- DO STOP
- IF SDOUT
- QUIT
- +44 SET SDWAIT=$SELECT(SDADT<SDT:0,1:$$FMDIFF^XLFDT(SDADT,SDT,1))
- +45 ;
- +46 ;IHS/ANMC/LJF 10/5/2000
- SET SDFLAG=0
- +47 ;
- +48 ;IHS/ANMC/LJF 6/15/2001
- +49 IF '$DATA(^TMP("SDXNAVA",$JOB,SDCL))
- SET ^TMP("SDXNAVA",$JOB,SDCL)=""
- +50 IF '$DATA(^TMP("SDXNAVA",$JOB,SDCL,(SDT\1)))
- SET ^TMP("SDXNAVA",$JOB,SDCL,(SDT\1))=""
- +51 ;IHS/ANMC/LJF 6/15/2001 end of mods
- +52 ;
- +53 SET $PIECE(^TMP("SDXNAVA",$JOB,SDCL),U,((SDFLAG*2)+1))=$PIECE($GET(^TMP("SDXNAVA",$JOB,SDCL)),U,((SDFLAG*2)+1))+1
- +54 SET $PIECE(^TMP("SDXNAVA",$JOB,SDCL),U,((SDFLAG*2)+2))=$PIECE(^TMP("SDXNAVA",$JOB,SDCL),U,((SDFLAG*2)+2))+SDWAIT
- +55 IF SDEX=1!(SDFMT'="D")
- QUIT
- +56 ;
- +57 ;IHS/ANMC/LJF 10/5/2000
- +58 ;S $P(^TMP("SDXNAVA",$J,SDCL,SDT),U,((SDFLAG*2)+1))=$P($G(^TMP("SDXNAVA",$J,SDCL,SDT)),U,((SDFLAG*2)+1))+1
- +59 ;S $P(^TMP("SDXNAVA",$J,SDCL,SDT),U,((SDFLAG*2)+2))=$P(^TMP("SDXNAVA",$J,SDCL,SDT),U,((SDFLAG*2)+2))+SDWAIT
- +60 SET $PIECE(^TMP("SDXNAVA",$JOB,SDCL,(SDT\1)),U,((SDFLAG*2)+1))=$PIECE($GET(^TMP("SDXNAVA",$JOB,SDCL,(SDT\1))),U,((SDFLAG*2)+1))+1
- +61 SET $PIECE(^TMP("SDXNAVA",$JOB,SDCL,(SDT\1)),U,((SDFLAG*2)+2))=$PIECE(^TMP("SDXNAVA",$JOB,SDCL,(SDT\1)),U,((SDFLAG*2)+2))+SDWAIT
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +62 ;IHS/ANMC/LJF 10/5/2000 end of mods
- +63 ;IHS/ANMC/LJF 3/13/2002 end of mods
- +64 ;
- +65 ;
- +66 IF SDOUT
- QUIT
- SET SDCL=0
- +67 FOR
- SET SDCL=$ORDER(^TMP("SDXNAVA",$JOB,SDCL))
- IF 'SDCL
- QUIT
- Begin DoDot:1
- +68 SET SC0=$GET(^SC(SDCL,0))
- IF '$LENGTH(SC0)
- QUIT
- IF '$$CPAIR^BSDCCR1(SC0,.SDCP)
- QUIT
- +69 SET SDIV=$$DIV^BSDCCR1(SC0)
- IF '$LENGTH(SDIV)
- QUIT
- +70 IF '$DATA(^TMP("SD",$JOB,SDIV,SDCP,SDCL))
- QUIT
- +71 IF '$DATA(^TMP("SDNAVA",$JOB,SDIV,SDCP))
- SET ^TMP("SDNAVA",$JOB,SDIV,SDCP)=""
- +72 IF SDMD
- IF '$DATA(^TMP("SDNAVA",$JOB,0,SDCP))
- SET ^TMP("SDNAVA",$JOB,0,SDCP)=""
- +73 SET SDX=^TMP("SDXNAVA",$JOB,SDCL)
- SET ^TMP("SDNAVA",$JOB,SDIV,SDCP,SDCL)=$$AVE(SDX)
- +74 IF SDMD
- SET ^TMP("SDNAVA",$JOB,0,SDCP,SDCL)=$$AVE(SDX)
- +75 ;
- +76 ;IHS/ANMC/LJF 6/15/2001 add line for Cache
- +77 IF SDMD
- IF '$DATA(^TMP("SDNAVA",$JOB,0))
- SET ^TMP("SDNAVA",$JOB,0)=""
- +78 IF '$DATA(^TMP("SDNAVA",$JOB,SDIV))
- SET ^TMP("SDNAVA",$JOB,SDIV)=""
- +79 IF SDMD
- IF '$DATA(^TMP("SDNAVA",$JOB,0,SDCP))
- SET ^TMP("SDNAVA",$JOB,0,SDCP)=""
- +80 IF '$DATA(^TMP("SDNAVA",$JOB,SDIV,SDCP))
- SET ^TMP("SDNAVA",$JOB,SDIV,SDCP)=""
- +81 ;IHS/ANMC/LJF end of new code
- +82 ;
- +83 FOR SDI=1:1:8
- SET $PIECE(^TMP("SDNAVA",$JOB,SDIV),U,SDI)=$PIECE($GET(^TMP("SDNAVA",$JOB,SDIV)),U,SDI)+$PIECE(SDX,U,SDI)
- +84 IF SDMD
- FOR SDI=1:1:8
- SET $PIECE(^TMP("SDNAVA",$JOB,0),U,SDI)=$PIECE($GET(^TMP("SDNAVA",$JOB,0)),U,SDI)+$PIECE(SDX,U,SDI)
- +85 FOR SDI=1:1:8
- SET $PIECE(^TMP("SDNAVA",$JOB,SDIV,SDCP),U,SDI)=$PIECE(^TMP("SDNAVA",$JOB,SDIV,SDCP),U,SDI)+$PIECE(SDX,U,SDI)
- +86 IF SDMD
- FOR SDI=1:1:8
- SET $PIECE(^TMP("SDNAVA",$JOB,0,SDCP),U,SDI)=$PIECE(^TMP("SDNAVA",$JOB,0,SDCP),U,SDI)+$PIECE(SDX,U,SDI)
- +87 SET SDT=0
- FOR
- SET SDT=$ORDER(^TMP("SDXNAVA",$JOB,SDCL,SDT))
- IF SDOUT!'SDT
- QUIT
- Begin DoDot:2
- +88 SET SDX=^TMP("SDXNAVA",$JOB,SDCL,SDT)
- SET ^TMP("SDNAVA",$JOB,SDIV,SDCP,SDCL,SDT)=$$AVE(SDX)
- +89 QUIT
- End DoDot:2
- +90 QUIT
- End DoDot:1
- +91 SET SDIV=""
- FOR
- SET SDIV=$ORDER(^TMP("SDNAVA",$JOB,SDIV))
- IF '$LENGTH(SDIV)
- QUIT
- Begin DoDot:1
- +92 SET SDCP=0
- FOR
- SET SDCP=$ORDER(^TMP("SDNAVA",$JOB,SDIV,SDCP))
- IF 'SDCP
- QUIT
- Begin DoDot:2
- +93 SET SDX=^TMP("SDNAVA",$JOB,SDIV,SDCP)
- SET ^TMP("SDNAVA",$JOB,SDIV,SDCP)=$$AVE(SDX)
- +94 QUIT
- End DoDot:2
- +95 QUIT
- End DoDot:1
- +96 SET SDIV=""
- FOR
- SET SDIV=$ORDER(^TMP("SDNAVA",$JOB,SDIV))
- IF SDIV=""
- QUIT
- Begin DoDot:1
- +97 SET SDX=^TMP("SDNAVA",$JOB,SDIV)
- SET ^TMP("SDNAVA",$JOB,SDIV)=$$AVE(SDX)
- +98 QUIT
- End DoDot:1
- +99 KILL ^TMP("SDXNAVA",$JOB)
- +100 QUIT
- +101 ;
- AVE(SDX) ;Calculate averages
- +1 ;Input: SDX=string of appointment totals and total waiting time
- +2 ;Output: string of appointment totals and average waiting time
- +3 NEW SDI,SDY
- +4 FOR SDI=2,4,6,8
- Begin DoDot:1
- +5 SET SDY=+$PIECE(SDX,U,(SDI-1))
- SET $PIECE(SDX,U,(SDI-1))=SDY
- +6 SET $PIECE(SDX,U,SDI)=$FNUMBER($SELECT(SDY=0:0,1:$PIECE(SDX,U,SDI)/SDY),"",1)
- +7 QUIT
- End DoDot:1
- +8 QUIT SDX
- +9 ;
- STOP ;Check for stop task request
- +1 IF $DATA(ZTQUEUED)
- SET (SDOUT,ZTSTOP)=$SELECT($$S^%ZTLOAD:1,1:0)
- QUIT
- +2 ;
- +1 ;Input: SDTX=array to return text
- +2 ;IHS/ANMC/LJF 10/6/2000
- DO FOOT^BSDCCRL(.SDTX)
- QUIT
- +3 SET SDTX(1)=SDLINE
- +4 SET SDTX(2)="NOTE: TYPE '0' activity represents appointments scheduled during the report time frame that were not indicated by the user or by"
- +5 SET SDTX(3)="calculation to be ""next available"" appointments. TYPE '1' activity represents appointments defined by the user as being ""next"
- +6 SET SDTX(4)="available"" appointments. TYPE '2' activity represents appointments calculated to be ""next available"" appointments. TYPE '3'"
- +7 SET SDTX(5)="activity represents appointments indicated both by the user and by calculation to be ""next available"" appointments. WAIT TIME is"
- +8 SET SDTX(6)="the average number of days from the date an appointment was scheduled to the date it is to be performed."
- +9 SET SDTX(7)=SDLINE
- +10 QUIT
