- SDRRCRRP ;10n20/MAH;Print Clinic Recall List Routine ;Nov 16, 2006
- ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20
- ;
- PRT U IO S (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- D HDR
- F S DIV=$O(^TMP($J,"ONDIV",DIV)) Q:DIV="" D
- .F S CLINIC=$O(^TMP($J,"ONDIV",DIV,CLINIC)) Q:CLINIC="" W !,?1,"Clinic: "_CLINIC D
- ..F S PROV=$O(^TMP($J,"ONDIV",DIV,CLINIC,PROV)) Q:PROV="" W !,?1,"Provider: "_PROV D
- ...F S MONTH=$O(^TMP($J,"ONDIV",DIV,CLINIC,PROV,MONTH)) Q:MONTH="" D
- ....F S RDT=$O(^TMP($J,"ONDIV",DIV,CLINIC,PROV,MONTH,RDT)) Q:RDT="" D
- .....S CNT=0 F S PAT=$O(^TMP($J,"ONDIV",DIV,CLINIC,PROV,MONTH,RDT,PAT)) Q:PAT="" S CNT=CNT+1 D
- ......S DTA=$G(^TMP($J,"ONDIV",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- ......S DATE=$P($G(DTA),"^",3),CDT=$P($G(DTA),"^",4),PAT=$P($G(DTA),"^",5),PHONE=$P($G(DTA),"^",6)
- ......S USER1=$P($G(DTA),"^",8),COMMENT=$P($G(DTA),"^",7),LN=$P($G(DTA),"^",9)
- ......I ($Y+3)>IOSL D HDR
- ......W !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- .....W !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- K ^TMP($J,"ONDIV"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- Q
- PRT1 U IO S (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- D HDR
- F S DIV=$O(^TMP($J,"ENDIV",DIV)) Q:DIV="" D
- .I $Y>(IOSL-6) D HDR
- .F S CLINIC=$O(^TMP($J,"ENDIV",DIV,CLINIC)) Q:CLINIC="" W !,?1,"Clinic: "_CLINIC D
- ..F S PROV=$O(^TMP($J,"ENDIV",DIV,CLINIC,PROV)) Q:PROV="" W !,?1,"Provider: "_PROV D
- ...F S MONTH=$O(^TMP($J,"ENDIV",DIV,CLINIC,PROV,MONTH)) Q:MONTH="" D
- ....F S RDT=$O(^TMP($J,"ENDIV",DIV,CLINIC,PROV,MONTH,RDT)) Q:RDT="" D
- .....S CNT=0 F S PAT=$O(^TMP($J,"ENDIV",DIV,CLINIC,PROV,MONTH,RDT,PAT)) Q:PAT="" S CNT=CNT+1 D
- ......S DTA=$G(^TMP($J,"ENDIV",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- ......S DATE=$P($G(DTA),"^",3),CDT=$P($G(DTA),"^",4),PAT=$P($G(DTA),"^",5),PHONE=$P($G(DTA),"^",6)
- ......S USER1=$P($G(DTA),"^",8),COMMENT=$P($G(DTA),"^",7),LN=$P($G(DTA),"^",9)
- ......I ($Y+3)>IOSL D HDR
- ......W !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- .....W !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- K ^TMP($J,"ENDIV"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- Q
- PRT2 U IO S (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- D HDR
- F S DIV=$O(^TMP($J,"ONCLIN",DIV)) Q:DIV="" D
- .F S CLINIC=$O(^TMP($J,"ONCLIN",DIV,CLINIC)) Q:CLINIC="" W !,?1,"Clinic: "_CLINIC D
- ..F S PROV=$O(^TMP($J,"ONCLIN",DIV,CLINIC,PROV)) Q:PROV="" W !,?1,"Provider: "_PROV D
- ...F S MONTH=$O(^TMP($J,"ONCLIN",DIV,CLINIC,PROV,MONTH)) Q:MONTH="" D
- ....F S RDT=$O(^TMP($J,"ONCLIN",DIV,CLINIC,PROV,MONTH,RDT)) Q:RDT="" D
- .....S CNT=0 F S PAT=$O(^TMP($J,"ONCLIN",DIV,CLINIC,PROV,MONTH,RDT,PAT)) Q:PAT="" S CNT=CNT+1 D
- ......S DTA=$G(^TMP($J,"ONCLIN",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- ......S DATE=$P($G(DTA),"^",3),CDT=$P($G(DTA),"^",4),PAT=$P($G(DTA),"^",5),PHONE=$P($G(DTA),"^",6)
- ......S USER1=$P($G(DTA),"^",8),COMMENT=$P($G(DTA),"^",7),LN=$P($G(DTA),"^",9)
- ......I ($Y+3)>IOSL D HDR
- ......W !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- .....W !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- K ^TMP($J,"ONCLIN"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- Q
- PRT3 U IO S (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- D HDR
- F S DIV=$O(^TMP($J,"ENCLIN",DIV)) Q:DIV="" D
- .F S CLINIC=$O(^TMP($J,"ENCLIN",DIV,CLINIC)) Q:CLINIC="" W !,?1,"Clinic: "_CLINIC D
- ..F S PROV=$O(^TMP($J,"ENCLIN",DIV,CLINIC,PROV)) Q:PROV="" W !,?1,"Provider: "_PROV D
- ...F S MONTH=$O(^TMP($J,"ENCLIN",DIV,CLINIC,PROV,MONTH)) Q:MONTH="" D
- ....F S RDT=$O(^TMP($J,"ENCLIN",DIV,CLINIC,PROV,MONTH,RDT)) Q:RDT="" D
- .....S CNT=0 F S PAT=$O(^TMP($J,"ENCLIN",DIV,CLINIC,PROV,MONTH,RDT,PAT)) Q:PAT="" S CNT=CNT+1 D
- ......S DTA=$G(^TMP($J,"ENCLIN",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- ......S DATE=$P($G(DTA),"^",3),CDT=$P($G(DTA),"^",4),PAT=$P($G(DTA),"^",5),PHONE=$P($G(DTA),"^",6)
- ......S USER1=$P($G(DTA),"^",8),COMMENT=$P($G(DTA),"^",7),LN=$P($G(DTA),"^",9)
- ......I ($Y+3)>IOSL D HDR
- ......W !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- .....W !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- K ^TMP($J,"ENCLIN"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- Q
- PRT4 U IO S (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- D HDR
- F S DIV=$O(^TMP($J,"ENTEAM",DIV)) Q:DIV="" W !,?1,"Team: "_DIV D
- .F S CLINIC=$O(^TMP($J,"ENTEAM",DIV,CLINIC)) Q:CLINIC="" W !,?1,"Clinic: "_CLINIC D
- ..F S PROV=$O(^TMP($J,"ENTEAM",DIV,CLINIC,PROV)) Q:PROV="" W !,?1,"Provider: "_PROV D
- ...F S MONTH=$O(^TMP($J,"ENTEAM",DIV,CLINIC,PROV,MONTH)) Q:MONTH="" D
- ....F S RDT=$O(^TMP($J,"ENTEAM",DIV,CLINIC,PROV,MONTH,RDT)) Q:RDT="" D
- .....S CNT=0 F S PAT=$O(^TMP($J,"ENTEAM",DIV,CLINIC,PROV,MONTH,RDT,PAT)) Q:PAT="" S CNT=CNT+1 D
- ......S DTA=$G(^TMP($J,"ENTEAM",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- ......S DATE=$P($G(DTA),"^",3),CDT=$P($G(DTA),"^",4),PAT=$P($G(DTA),"^",5),PHONE=$P($G(DTA),"^",6)
- ......S USER1=$P($G(DTA),"^",8),COMMENT=$P($G(DTA),"^",7),LN=$P($G(DTA),"^",9)
- ......I ($Y+3)>IOSL D HDR
- ......W !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- .....W !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- K ^TMP($J,"ENTEAM"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- Q
- PRT5 U IO S (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- D HDR
- F S DIV=$O(^TMP($J,"ONTEAM",DIV)) Q:DIV="" W !,?1,"Team: "_DIV D
- .F S CLINIC=$O(^TMP($J,"ONTEAM",DIV,CLINIC)) Q:CLINIC="" W !,?1,"Clinic: "_CLINIC D
- ..F S PROV=$O(^TMP($J,"ONTEAM",DIV,CLINIC,PROV)) Q:PROV="" W !,?1,"Provider: "_PROV D
- ...F S MONTH=$O(^TMP($J,"ONTEAM",DIV,CLINIC,PROV,MONTH)) Q:MONTH="" D
- ....F S RDT=$O(^TMP($J,"ONTEAM",DIV,CLINIC,PROV,MONTH,RDT)) Q:RDT="" D
- .....S CNT=0 F S PAT=$O(^TMP($J,"ONTEAM",DIV,CLINIC,PROV,MONTH,RDT,PAT)) Q:PAT="" S CNT=CNT+1 D
- ......S DTA=$G(^TMP($J,"ONTEAM",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- ......S DATE=$P($G(DTA),"^",3),CDT=$P($G(DTA),"^",4),PAT=$P($G(DTA),"^",5),PHONE=$P($G(DTA),"^",6)
- ......S USER1=$P($G(DTA),"^",8),COMMENT=$P($G(DTA),"^",7),LN=$P($G(DTA),"^",9)
- ......I ($Y+3)>IOSL D HDR
- ......W !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- .....W !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- K ^TMP($J,"ONTEAM"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- Q
- ;
- HDR ;
- S PAGE=PAGE+1
- S Y=DT D DD^%DT S DT1=Y K Y
- S Y=SDT D DD^%DT S SDT1=Y K Y
- S Y=EDT D DD^%DT S EDT1=Y K Y
- W @IOF
- W ?30,"OUTPATIENT CLINIC RECALL LIST"
- W !,?25,"For date range: "_SDT1_" to "_EDT1
- W !,?30,"Date printed: "_DT1_" Page: ",$J(PAGE,3),!
- W !,"Provider",?5,"Recall Date",?18,"Date CS",?34,"Patient",?65,"1U4N",?71,"Phone",?88,"Entered by"
- W !,?5,"Comments",!
- S $P(LINE,"-",IOM)="-"
- W LINE,! K LINE
- Q
- SDRRCRRP ;10n20/MAH;Print Clinic Recall List Routine ;Nov 16, 2006
- +1 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20
- +2 ;
- PRT USE IO
- SET (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- +1 DO HDR
- +2 FOR
- SET DIV=$ORDER(^TMP($JOB,"ONDIV",DIV))
- IF DIV=""
- QUIT
- Begin DoDot:1
- +3 FOR
- SET CLINIC=$ORDER(^TMP($JOB,"ONDIV",DIV,CLINIC))
- IF CLINIC=""
- QUIT
- WRITE !,?1,"Clinic: "_CLINIC
- Begin DoDot:2
- +4 FOR
- SET PROV=$ORDER(^TMP($JOB,"ONDIV",DIV,CLINIC,PROV))
- IF PROV=""
- QUIT
- WRITE !,?1,"Provider: "_PROV
- Begin DoDot:3
- +5 FOR
- SET MONTH=$ORDER(^TMP($JOB,"ONDIV",DIV,CLINIC,PROV,MONTH))
- IF MONTH=""
- QUIT
- Begin DoDot:4
- +6 FOR
- SET RDT=$ORDER(^TMP($JOB,"ONDIV",DIV,CLINIC,PROV,MONTH,RDT))
- IF RDT=""
- QUIT
- Begin DoDot:5
- +7 SET CNT=0
- FOR
- SET PAT=$ORDER(^TMP($JOB,"ONDIV",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- IF PAT=""
- QUIT
- SET CNT=CNT+1
- Begin DoDot:6
- +8 SET DTA=$GET(^TMP($JOB,"ONDIV",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- +9 SET DATE=$PIECE($GET(DTA),"^",3)
- SET CDT=$PIECE($GET(DTA),"^",4)
- SET PAT=$PIECE($GET(DTA),"^",5)
- SET PHONE=$PIECE($GET(DTA),"^",6)
- +10 SET USER1=$PIECE($GET(DTA),"^",8)
- SET COMMENT=$PIECE($GET(DTA),"^",7)
- SET LN=$PIECE($GET(DTA),"^",9)
- +11 IF ($Y+3)>IOSL
- DO HDR
- +12 WRITE !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- End DoDot:6
- +13 WRITE !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +14 KILL ^TMP($JOB,"ONDIV"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- +15 QUIT
- PRT1 USE IO
- SET (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- +1 DO HDR
- +2 FOR
- SET DIV=$ORDER(^TMP($JOB,"ENDIV",DIV))
- IF DIV=""
- QUIT
- Begin DoDot:1
- +3 IF $Y>(IOSL-6)
- DO HDR
- +4 FOR
- SET CLINIC=$ORDER(^TMP($JOB,"ENDIV",DIV,CLINIC))
- IF CLINIC=""
- QUIT
- WRITE !,?1,"Clinic: "_CLINIC
- Begin DoDot:2
- +5 FOR
- SET PROV=$ORDER(^TMP($JOB,"ENDIV",DIV,CLINIC,PROV))
- IF PROV=""
- QUIT
- WRITE !,?1,"Provider: "_PROV
- Begin DoDot:3
- +6 FOR
- SET MONTH=$ORDER(^TMP($JOB,"ENDIV",DIV,CLINIC,PROV,MONTH))
- IF MONTH=""
- QUIT
- Begin DoDot:4
- +7 FOR
- SET RDT=$ORDER(^TMP($JOB,"ENDIV",DIV,CLINIC,PROV,MONTH,RDT))
- IF RDT=""
- QUIT
- Begin DoDot:5
- +8 SET CNT=0
- FOR
- SET PAT=$ORDER(^TMP($JOB,"ENDIV",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- IF PAT=""
- QUIT
- SET CNT=CNT+1
- Begin DoDot:6
- +9 SET DTA=$GET(^TMP($JOB,"ENDIV",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- +10 SET DATE=$PIECE($GET(DTA),"^",3)
- SET CDT=$PIECE($GET(DTA),"^",4)
- SET PAT=$PIECE($GET(DTA),"^",5)
- SET PHONE=$PIECE($GET(DTA),"^",6)
- +11 SET USER1=$PIECE($GET(DTA),"^",8)
- SET COMMENT=$PIECE($GET(DTA),"^",7)
- SET LN=$PIECE($GET(DTA),"^",9)
- +12 IF ($Y+3)>IOSL
- DO HDR
- +13 WRITE !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- End DoDot:6
- +14 WRITE !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +15 KILL ^TMP($JOB,"ENDIV"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- +16 QUIT
- PRT2 USE IO
- SET (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- +1 DO HDR
- +2 FOR
- SET DIV=$ORDER(^TMP($JOB,"ONCLIN",DIV))
- IF DIV=""
- QUIT
- Begin DoDot:1
- +3 FOR
- SET CLINIC=$ORDER(^TMP($JOB,"ONCLIN",DIV,CLINIC))
- IF CLINIC=""
- QUIT
- WRITE !,?1,"Clinic: "_CLINIC
- Begin DoDot:2
- +4 FOR
- SET PROV=$ORDER(^TMP($JOB,"ONCLIN",DIV,CLINIC,PROV))
- IF PROV=""
- QUIT
- WRITE !,?1,"Provider: "_PROV
- Begin DoDot:3
- +5 FOR
- SET MONTH=$ORDER(^TMP($JOB,"ONCLIN",DIV,CLINIC,PROV,MONTH))
- IF MONTH=""
- QUIT
- Begin DoDot:4
- +6 FOR
- SET RDT=$ORDER(^TMP($JOB,"ONCLIN",DIV,CLINIC,PROV,MONTH,RDT))
- IF RDT=""
- QUIT
- Begin DoDot:5
- +7 SET CNT=0
- FOR
- SET PAT=$ORDER(^TMP($JOB,"ONCLIN",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- IF PAT=""
- QUIT
- SET CNT=CNT+1
- Begin DoDot:6
- +8 SET DTA=$GET(^TMP($JOB,"ONCLIN",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- +9 SET DATE=$PIECE($GET(DTA),"^",3)
- SET CDT=$PIECE($GET(DTA),"^",4)
- SET PAT=$PIECE($GET(DTA),"^",5)
- SET PHONE=$PIECE($GET(DTA),"^",6)
- +10 SET USER1=$PIECE($GET(DTA),"^",8)
- SET COMMENT=$PIECE($GET(DTA),"^",7)
- SET LN=$PIECE($GET(DTA),"^",9)
- +11 IF ($Y+3)>IOSL
- DO HDR
- +12 WRITE !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- End DoDot:6
- +13 WRITE !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +14 KILL ^TMP($JOB,"ONCLIN"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- +15 QUIT
- PRT3 USE IO
- SET (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- +1 DO HDR
- +2 FOR
- SET DIV=$ORDER(^TMP($JOB,"ENCLIN",DIV))
- IF DIV=""
- QUIT
- Begin DoDot:1
- +3 FOR
- SET CLINIC=$ORDER(^TMP($JOB,"ENCLIN",DIV,CLINIC))
- IF CLINIC=""
- QUIT
- WRITE !,?1,"Clinic: "_CLINIC
- Begin DoDot:2
- +4 FOR
- SET PROV=$ORDER(^TMP($JOB,"ENCLIN",DIV,CLINIC,PROV))
- IF PROV=""
- QUIT
- WRITE !,?1,"Provider: "_PROV
- Begin DoDot:3
- +5 FOR
- SET MONTH=$ORDER(^TMP($JOB,"ENCLIN",DIV,CLINIC,PROV,MONTH))
- IF MONTH=""
- QUIT
- Begin DoDot:4
- +6 FOR
- SET RDT=$ORDER(^TMP($JOB,"ENCLIN",DIV,CLINIC,PROV,MONTH,RDT))
- IF RDT=""
- QUIT
- Begin DoDot:5
- +7 SET CNT=0
- FOR
- SET PAT=$ORDER(^TMP($JOB,"ENCLIN",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- IF PAT=""
- QUIT
- SET CNT=CNT+1
- Begin DoDot:6
- +8 SET DTA=$GET(^TMP($JOB,"ENCLIN",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- +9 SET DATE=$PIECE($GET(DTA),"^",3)
- SET CDT=$PIECE($GET(DTA),"^",4)
- SET PAT=$PIECE($GET(DTA),"^",5)
- SET PHONE=$PIECE($GET(DTA),"^",6)
- +10 SET USER1=$PIECE($GET(DTA),"^",8)
- SET COMMENT=$PIECE($GET(DTA),"^",7)
- SET LN=$PIECE($GET(DTA),"^",9)
- +11 IF ($Y+3)>IOSL
- DO HDR
- +12 WRITE !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- End DoDot:6
- +13 WRITE !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +14 KILL ^TMP($JOB,"ENCLIN"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- +15 QUIT
- PRT4 USE IO
- SET (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- +1 DO HDR
- +2 FOR
- SET DIV=$ORDER(^TMP($JOB,"ENTEAM",DIV))
- IF DIV=""
- QUIT
- WRITE !,?1,"Team: "_DIV
- Begin DoDot:1
- +3 FOR
- SET CLINIC=$ORDER(^TMP($JOB,"ENTEAM",DIV,CLINIC))
- IF CLINIC=""
- QUIT
- WRITE !,?1,"Clinic: "_CLINIC
- Begin DoDot:2
- +4 FOR
- SET PROV=$ORDER(^TMP($JOB,"ENTEAM",DIV,CLINIC,PROV))
- IF PROV=""
- QUIT
- WRITE !,?1,"Provider: "_PROV
- Begin DoDot:3
- +5 FOR
- SET MONTH=$ORDER(^TMP($JOB,"ENTEAM",DIV,CLINIC,PROV,MONTH))
- IF MONTH=""
- QUIT
- Begin DoDot:4
- +6 FOR
- SET RDT=$ORDER(^TMP($JOB,"ENTEAM",DIV,CLINIC,PROV,MONTH,RDT))
- IF RDT=""
- QUIT
- Begin DoDot:5
- +7 SET CNT=0
- FOR
- SET PAT=$ORDER(^TMP($JOB,"ENTEAM",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- IF PAT=""
- QUIT
- SET CNT=CNT+1
- Begin DoDot:6
- +8 SET DTA=$GET(^TMP($JOB,"ENTEAM",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- +9 SET DATE=$PIECE($GET(DTA),"^",3)
- SET CDT=$PIECE($GET(DTA),"^",4)
- SET PAT=$PIECE($GET(DTA),"^",5)
- SET PHONE=$PIECE($GET(DTA),"^",6)
- +10 SET USER1=$PIECE($GET(DTA),"^",8)
- SET COMMENT=$PIECE($GET(DTA),"^",7)
- SET LN=$PIECE($GET(DTA),"^",9)
- +11 IF ($Y+3)>IOSL
- DO HDR
- +12 WRITE !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- End DoDot:6
- +13 WRITE !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +14 KILL ^TMP($JOB,"ENTEAM"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- +15 QUIT
- PRT5 USE IO
- SET (PAGE,DIV,CLINIC,PROV,MONTH,RDT,PAT)=0
- +1 DO HDR
- +2 FOR
- SET DIV=$ORDER(^TMP($JOB,"ONTEAM",DIV))
- IF DIV=""
- QUIT
- WRITE !,?1,"Team: "_DIV
- Begin DoDot:1
- +3 FOR
- SET CLINIC=$ORDER(^TMP($JOB,"ONTEAM",DIV,CLINIC))
- IF CLINIC=""
- QUIT
- WRITE !,?1,"Clinic: "_CLINIC
- Begin DoDot:2
- +4 FOR
- SET PROV=$ORDER(^TMP($JOB,"ONTEAM",DIV,CLINIC,PROV))
- IF PROV=""
- QUIT
- WRITE !,?1,"Provider: "_PROV
- Begin DoDot:3
- +5 FOR
- SET MONTH=$ORDER(^TMP($JOB,"ONTEAM",DIV,CLINIC,PROV,MONTH))
- IF MONTH=""
- QUIT
- Begin DoDot:4
- +6 FOR
- SET RDT=$ORDER(^TMP($JOB,"ONTEAM",DIV,CLINIC,PROV,MONTH,RDT))
- IF RDT=""
- QUIT
- Begin DoDot:5
- +7 SET CNT=0
- FOR
- SET PAT=$ORDER(^TMP($JOB,"ONTEAM",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- IF PAT=""
- QUIT
- SET CNT=CNT+1
- Begin DoDot:6
- +8 SET DTA=$GET(^TMP($JOB,"ONTEAM",DIV,CLINIC,PROV,MONTH,RDT,PAT))
- +9 SET DATE=$PIECE($GET(DTA),"^",3)
- SET CDT=$PIECE($GET(DTA),"^",4)
- SET PAT=$PIECE($GET(DTA),"^",5)
- SET PHONE=$PIECE($GET(DTA),"^",6)
- +10 SET USER1=$PIECE($GET(DTA),"^",8)
- SET COMMENT=$PIECE($GET(DTA),"^",7)
- SET LN=$PIECE($GET(DTA),"^",9)
- +11 IF ($Y+3)>IOSL
- DO HDR
- +12 WRITE !,?5,DATE,?18,CDT,?34,PAT,?65,LN,?71,PHONE,?88,USER1,!,?5,COMMENT
- End DoDot:6
- +13 WRITE !!,"Daily Sub-Total for "_CLINIC_" - ("_CNT_")",!!
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +14 KILL ^TMP($JOB,"ONTEAM"),DIV,CLINIC,PROV,MONTH,RDT,PAT,CNT,CDT,COMMENT,DATE,DT1,DTA,EDT,EDT1,LN,PAGE,SDT,SDT1,PHONE,USER1
- +15 QUIT
- +16 ;
- HDR ;
- +1 SET PAGE=PAGE+1
- +2 SET Y=DT
- DO DD^%DT
- SET DT1=Y
- KILL Y
- +3 SET Y=SDT
- DO DD^%DT
- SET SDT1=Y
- KILL Y
- +4 SET Y=EDT
- DO DD^%DT
- SET EDT1=Y
- KILL Y
- +5 WRITE @IOF
- +6 WRITE ?30,"OUTPATIENT CLINIC RECALL LIST"
- +7 WRITE !,?25,"For date range: "_SDT1_" to "_EDT1
- +8 WRITE !,?30,"Date printed: "_DT1_" Page: ",$JUSTIFY(PAGE,3),!
- +9 WRITE !,"Provider",?5,"Recall Date",?18,"Date CS",?34,"Patient",?65,"1U4N",?71,"Phone",?88,"Entered by"
- +10 WRITE !,?5,"Comments",!
- +11 SET $PIECE(LINE,"-",IOM)="-"
- +12 WRITE LINE,!
- KILL LINE
- +13 QUIT
