- ORS100B ;SLC/RAF - Continuation of ORS100A ;10/19/00 13:36
- ;;3.0;ORDER ENTRY/RESULTS REPORTING;**50**;Dec 17, 1997
- ;
- WHO ;loops thru the TMP global for output sort by entering person
- I SORT=5&('$D(LONER)) D
- .I TYPE=1 S HDR="!!?30,""List of RELEASED but UNSIGNED orders by ENTERING PERSON"""
- .I TYPE=2 S HDR="!!?40,""List of UNSIGNED orders by ENTERING PERSON"""
- .I TYPE=3 S HDR="!!?30,""List of UNSIGNED/UNRELEASED orders by ENTERING PERSON"""
- .S HDR1="!!,""ENTERED BY"",?25,""PROVIDER"",?50,""PATIENT"",?75,""SSN"",?81,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- .S PAGE=0 D HDR^ORS100
- .I '$D(^TMP("ORUNS",$J)) W !,"No unsigned orders found" Q
- .S WHO="" F S WHO=$O(^TMP("ORUNS",$J,WHO)) Q:WHO=""!STOP D
- ..S PNM="" F S PNM=$O(^TMP("ORUNS",$J,WHO,PNM)) S CNT=0 Q:PNM=""!STOP D
- ...S IEN=0 F S IEN=$O(^TMP("ORUNS",$J,WHO,PNM,IEN)) S CNT=CNT+1 Q:'IEN!STOP D
- ....I 'SUMONLY W $P(^(IEN),U),?25,$P(^(IEN),U,2),?50,$P(^(IEN),U,3),?75,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?95,$P(^(IEN),U,6),?110,$P(^(IEN),U,7),! D:$Y>(IOSL-4) HDR^ORS100 Q:STOP
- ....S ^TMP("ORSTATS",$J,WHO,PNM)=CNT
- SWHO ;sorts for a single provider/entering person
- I SORT=5&($D(LONER)) S LONER="",PAGE=0 F S LONER=$O(LONER(LONER)) Q:LONER=""!STOP D
- .I TYPE=1 S HDR="!!?30,""List of RELEASED but UNSIGNED orders for "",LONER"
- .I TYPE=2 S HDR="!!?30,""List of UNSIGNED orders for "",LONER"
- .I TYPE=3 S HDR="!!?30,""List of UNSIGNED/UNRELEASED orders for "",LONER"
- .S HDR1="!!,""ENTERED BY"",?25,""PROVIDER"",?50,""PATIENT"",?75,""SSN"",?81,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- .D HDR^ORS100
- .S WHO=LONER I $D(^TMP("ORUNS",$J,WHO)) D
- ..S PNM="" F S PNM=$O(^TMP("ORUNS",$J,WHO,PNM)) S CNT=0 Q:PNM=""!STOP D
- ...S IEN=0 F S IEN=$O(^TMP("ORUNS",$J,WHO,PNM,IEN)) S CNT=CNT+1 Q:'IEN!STOP D
- ....I 'SUMONLY W $P(^(IEN),U),?25,$P(^(IEN),U,2),?50,$P(^(IEN),U,3),?75,$P(^(IEN),U,4),?81,$P(^(IEN),U,5),?95,$P(^(IEN),U,6),?110,$P(^(IEN),U,7),! D:$Y>(IOSL-4) HDR^ORS100 Q:STOP
- ....S ^TMP("ORSTATS",$J,WHO,PNM)=CNT
- .I '$D(^TMP("ORUNS",$J,WHO)) W !!,"No unsigned orders found for "_LONER
- DIV ;loops thru the TMP global for output sort by division
- I SORT=6&('$D(LONER)) D
- .I TYPE=1 S HDR="!!?30,""List of RELEASED but UNSIGNED orders by DIVISION"""
- .I TYPE=2 S HDR="!!?30,""List of UNSIGNED orders by DIVISION"""
- .I TYPE=3 S HDR="!!?30,""List of UNSIGNED/UNRELEASED orders by DIVISION"""
- .S HDR1="!!?15,""ENTERED BY"",?40,""PATIENT"",?65,""SSN"",?71,""STATUS"",?88,""ORDER #"",?100,""ORDER DATE"""
- .S PAGE=0 D HDR^ORS100
- .I '$D(^TMP("ORUNS",$J)) W !,"No unsigned orders found" Q
- .S DIV="" F S DIV=$O(^TMP("ORUNS",$J,DIV)) Q:DIV=""!STOP W:'SUMONLY "Division: ",DIV D
- ..S LOC="" F S LOC=$O(^TMP("ORUNS",$J,DIV,LOC)) Q:LOC=""!STOP W:'SUMONLY !?5,"Location: ",LOC D
- ...S PROV="" F S PROV=$O(^TMP("ORUNS",$J,DIV,LOC,PROV)) Q:PROV=""!STOP W:'SUMONLY !?10,"Provider: ",PROV,! S CNT=0 D
- ....S IEN=0 F S IEN=$O(^TMP("ORUNS",$J,DIV,LOC,PROV,IEN)) S CNT=CNT+1 Q:'IEN!STOP D
- .....W:'SUMONLY ?15,$S(PROV'=$P(^TMP("ORUNS",$J,DIV,LOC,PROV,IEN),U,4):$P(^(IEN),U,4),1:""),?40,$P(^(IEN),U,5),?65,$P(^(IEN),U,6),?71,$P(^(IEN),U,7),?88,$P(^(IEN),U,8),?100,$P(^(IEN),U,9),! D:$Y>(IOSL-4) HDR^ORS100 Q:STOP
- .....S ^TMP("ORSTATS",$J,DIV,LOC,PROV)=CNT
- SDIV ;sorts for a single division
- I SORT=6&($D(LONER)) S LONER="",PAGE=0 F S LONER=$O(LONER(LONER)) Q:LONER=""!STOP D
- .I TYPE=1 S HDR="!!?30,""List of RELEASED but UNSIGNED orders for "",LONER"
- .I TYPE=2 S HDR="!!?30,""List of UNSIGNED orders for "",LONER"
- .I TYPE=3 S HDR="!!?30,""List of UNSIGNED/UNRELEASED orders for "",LONER"
- .S HDR1="!!,""PROVIDER"",?25,""ENTERED BY"",?50,""PATIENT"",?75,""SSN"",?80,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- .D HDR^ORS100
- .S DIV=LONER I $D(^TMP("ORUNS",$J,DIV)) D
- ..S LOC="" F S LOC=$O(^TMP("ORUNS",$J,DIV,LOC)) Q:LOC=""!STOP W:'SUMONLY ?5,"Location: ",LOC,! D W:'SUMONLY !
- ...S PROV="" F S PROV=$O(^TMP("ORUNS",$J,DIV,LOC,PROV)) S CNT=0 Q:PROV=""!STOP D
- ....S IEN="" F S IEN=$O(^TMP("ORUNS",$J,DIV,LOC,PROV,IEN)) S CNT=CNT+1 Q:'IEN!STOP D
- .....W:'SUMONLY $P(^(IEN),U,3),?25,$P(^(IEN),U,4),?50,$P(^(IEN),U,5),?75,$P(^(IEN),U,6),?80,$P(^(IEN),U,7),?95,$P(^(IEN),U,8),?110,$P(^(IEN),U,9),! D:$Y>(IOSL-4) HDR^ORS100 Q:STOP
- .....S ^TMP("ORSTATS",$J,DIV,LOC,PROV)=CNT
- .I '$D(^TMP("ORUNS",$J,DIV)) W !!,"No unsigned orders found for "_LONER
- SERV ;loops thru the TMP global for output sort by service
- I SORT=1&('$D(LONER)) D
- .I TYPE=1 S HDR="!!?30,""List of RELEASED but UNSIGNED orders by SERVICE/SECTION"""
- .I TYPE=2 S HDR="!!?30,""List of UNSIGNED orders by SERVICE/SECTION"""
- .I TYPE=3 S HDR="!!?30,""List of UNSIGNED/UNRELEASED orders by SERVICE/SECTION"""
- .S HDR1="!!,""PROVIDER"",?25,""ENTERED BY"",?50,""PATIENT"",?75,""SSN"",?81,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- .S PAGE=0 D HDR^ORS100
- .I '$D(^TMP("ORUNS",$J)) W !,"No unsigned orders found" Q
- .S SER="" F S SER=$O(^TMP("ORUNS",$J,SER)) Q:SER=""!STOP W:'SUMONLY "Service/Section: ",SER,! D W:'SUMONLY !
- ..S PROV="" F S PROV=$O(^TMP("ORUNS",$J,SER,PROV)) S CNT=0 Q:PROV=""!STOP D
- ...S IEN=0 F S IEN=$O(^TMP("ORUNS",$J,SER,PROV,IEN)) S CNT=CNT+1 Q:'IEN!STOP D
- ....W:'SUMONLY $P(^TMP("ORUNS",$J,SER,PROV,IEN),U,2),?25,$P(^(IEN),U,3),?50,$P(^(IEN),U,4),?75,$P(^(IEN),U,5),?81,$P(^(IEN),U,6),?95,$P(^(IEN),U,7),?110,$P(^(IEN),U,8),! D:$Y>(IOSL-4) HDR^ORS100 Q:STOP
- ....S ^TMP("ORSTATS",$J,SER,PROV)=CNT
- SSERV ;sorts for a single service/section
- I SORT=1&($D(LONER)) S LONER="",PAGE=0 F S LONER=$O(LONER(LONER)) Q:LONER=""!STOP D
- .I TYPE=1 S HDR="!!?30,""List of RELEASED but UNSIGNED orders for "",LONER"
- .I TYPE=2 S HDR="!!?30,""List of UNSIGNED orders for "",LONER"
- .I TYPE=3 S HDR="!!?30,""List of UNSIGNED/UNRELEASED orders for "",LONER"
- .S HDR1="!!,""PROVIDER"",?25,""ENTERED BY"",?50,""PATIENT"",?75,""SSN"",?81,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- .D HDR^ORS100
- .S SER=LONER I $D(^TMP("ORUNS",$J,SER)) D
- ..S PROV="" F S PROV=$O(^TMP("ORUNS",$J,SER,PROV)) S CNT=0 Q:PROV=""!STOP D
- ...S IEN=0 F S IEN=$O(^TMP("ORUNS",$J,SER,PROV,IEN)) S CNT=CNT+1 Q:'IEN!STOP D
- ....W:'SUMONLY $P(^(IEN),U,2),?25,$P(^(IEN),U,3),?50,$P(^(IEN),U,4),?75,$P(^(IEN),U,5),?81,$P(^(IEN),U,6),?95,$P(^(IEN),U,7),?110,$P(^(IEN),U,8),! D:$Y>(IOSL-4) HDR^ORS100 Q:STOP
- ....S ^TMP("ORSTATS",$J,SER,PROV)=CNT
- .I '$D(^TMP("ORUNS",$J,SER)) W !!,"No unsigned orders found for "_LONER
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORS100B 6459 printed Mar 13, 2025@21:39:05 Page 2
- ORS100B ;SLC/RAF - Continuation of ORS100A ;10/19/00 13:36
- +1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**50**;Dec 17, 1997
- +2 ;
- WHO ;loops thru the TMP global for output sort by entering person
- +1 IF SORT=5&('$DATA(LONER))
- Begin DoDot:1
- +2 IF TYPE=1
- SET HDR="!!?30,""List of RELEASED but UNSIGNED orders by ENTERING PERSON"""
- +3 IF TYPE=2
- SET HDR="!!?40,""List of UNSIGNED orders by ENTERING PERSON"""
- +4 IF TYPE=3
- SET HDR="!!?30,""List of UNSIGNED/UNRELEASED orders by ENTERING PERSON"""
- +5 SET HDR1="!!,""ENTERED BY"",?25,""PROVIDER"",?50,""PATIENT"",?75,""SSN"",?81,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- +6 SET PAGE=0
- DO HDR^ORS100
- +7 IF '$DATA(^TMP("ORUNS",$JOB))
- WRITE !,"No unsigned orders found"
- QUIT
- +8 SET WHO=""
- FOR
- SET WHO=$ORDER(^TMP("ORUNS",$JOB,WHO))
- if WHO=""!STOP
- QUIT
- Begin DoDot:2
- +9 SET PNM=""
- FOR
- SET PNM=$ORDER(^TMP("ORUNS",$JOB,WHO,PNM))
- SET CNT=0
- if PNM=""!STOP
- QUIT
- Begin DoDot:3
- +10 SET IEN=0
- FOR
- SET IEN=$ORDER(^TMP("ORUNS",$JOB,WHO,PNM,IEN))
- SET CNT=CNT+1
- if 'IEN!STOP
- QUIT
- Begin DoDot:4
- +11 IF 'SUMONLY
- WRITE $PIECE(^(IEN),U),?25,$PIECE(^(IEN),U,2),?50,$PIECE(^(IEN),U,3),?75,$PIECE(^(IEN),U,4),?81,$PIECE(^(IEN),U,5),?95,$PIECE(^(IEN),U,6),?110,$PIECE(^(IEN),U,7),!
- if $Y>(IOSL-4)
- DO HDR^ORS100
- if STOP
- QUIT
- +12 SET ^TMP("ORSTATS",$JOB,WHO,PNM)=CNT
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- SWHO ;sorts for a single provider/entering person
- +1 IF SORT=5&($DATA(LONER))
- SET LONER=""
- SET PAGE=0
- FOR
- SET LONER=$ORDER(LONER(LONER))
- if LONER=""!STOP
- QUIT
- Begin DoDot:1
- +2 IF TYPE=1
- SET HDR="!!?30,""List of RELEASED but UNSIGNED orders for "",LONER"
- +3 IF TYPE=2
- SET HDR="!!?30,""List of UNSIGNED orders for "",LONER"
- +4 IF TYPE=3
- SET HDR="!!?30,""List of UNSIGNED/UNRELEASED orders for "",LONER"
- +5 SET HDR1="!!,""ENTERED BY"",?25,""PROVIDER"",?50,""PATIENT"",?75,""SSN"",?81,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- +6 DO HDR^ORS100
- +7 SET WHO=LONER
- IF $DATA(^TMP("ORUNS",$JOB,WHO))
- Begin DoDot:2
- +8 SET PNM=""
- FOR
- SET PNM=$ORDER(^TMP("ORUNS",$JOB,WHO,PNM))
- SET CNT=0
- if PNM=""!STOP
- QUIT
- Begin DoDot:3
- +9 SET IEN=0
- FOR
- SET IEN=$ORDER(^TMP("ORUNS",$JOB,WHO,PNM,IEN))
- SET CNT=CNT+1
- if 'IEN!STOP
- QUIT
- Begin DoDot:4
- +10 IF 'SUMONLY
- WRITE $PIECE(^(IEN),U),?25,$PIECE(^(IEN),U,2),?50,$PIECE(^(IEN),U,3),?75,$PIECE(^(IEN),U,4),?81,$PIECE(^(IEN),U,5),?95,$PIECE(^(IEN),U,6),?110,$PIECE(^(IEN),U,7),!
- if $Y>(IOSL-4)
- DO HDR^ORS100
- if STOP
- QUIT
- +11 SET ^TMP("ORSTATS",$JOB,WHO,PNM)=CNT
- End DoDot:4
- End DoDot:3
- End DoDot:2
- +12 IF '$DATA(^TMP("ORUNS",$JOB,WHO))
- WRITE !!,"No unsigned orders found for "_LONER
- End DoDot:1
- DIV ;loops thru the TMP global for output sort by division
- +1 IF SORT=6&('$DATA(LONER))
- Begin DoDot:1
- +2 IF TYPE=1
- SET HDR="!!?30,""List of RELEASED but UNSIGNED orders by DIVISION"""
- +3 IF TYPE=2
- SET HDR="!!?30,""List of UNSIGNED orders by DIVISION"""
- +4 IF TYPE=3
- SET HDR="!!?30,""List of UNSIGNED/UNRELEASED orders by DIVISION"""
- +5 SET HDR1="!!?15,""ENTERED BY"",?40,""PATIENT"",?65,""SSN"",?71,""STATUS"",?88,""ORDER #"",?100,""ORDER DATE"""
- +6 SET PAGE=0
- DO HDR^ORS100
- +7 IF '$DATA(^TMP("ORUNS",$JOB))
- WRITE !,"No unsigned orders found"
- QUIT
- +8 SET DIV=""
- FOR
- SET DIV=$ORDER(^TMP("ORUNS",$JOB,DIV))
- if DIV=""!STOP
- QUIT
- if 'SUMONLY
- WRITE "Division: ",DIV
- Begin DoDot:2
- +9 SET LOC=""
- FOR
- SET LOC=$ORDER(^TMP("ORUNS",$JOB,DIV,LOC))
- if LOC=""!STOP
- QUIT
- if 'SUMONLY
- WRITE !?5,"Location: ",LOC
- Begin DoDot:3
- +10 SET PROV=""
- FOR
- SET PROV=$ORDER(^TMP("ORUNS",$JOB,DIV,LOC,PROV))
- if PROV=""!STOP
- QUIT
- if 'SUMONLY
- WRITE !?10,"Provider: ",PROV,!
- SET CNT=0
- Begin DoDot:4
- +11 SET IEN=0
- FOR
- SET IEN=$ORDER(^TMP("ORUNS",$JOB,DIV,LOC,PROV,IEN))
- SET CNT=CNT+1
- if 'IEN!STOP
- QUIT
- Begin DoDot:5
- +12 if 'SUMONLY
- WRITE ?15,$SELECT(PROV'=$PIECE(^TMP("ORUNS",$JOB,DIV,LOC,PROV,IEN),U,4):$PIECE(^(IEN),U,4),1:""),?40,$PIECE(^(IEN),U,5),?65,$PIECE(^(IEN),U,6),?71,$PIECE(^(IEN),U,7),?88,$PIECE(^(IEN),U,8),?100,$PIECE
- (^(IEN),U,9),!
- if $Y>(IOSL-4)
- DO HDR^ORS100
- if STOP
- QUIT
- +13 SET ^TMP("ORSTATS",$JOB,DIV,LOC,PROV)=CNT
- End DoDot:5
- End DoDot:4
- End DoDot:3
- End DoDot:2
- End DoDot:1
- SDIV ;sorts for a single division
- +1 IF SORT=6&($DATA(LONER))
- SET LONER=""
- SET PAGE=0
- FOR
- SET LONER=$ORDER(LONER(LONER))
- if LONER=""!STOP
- QUIT
- Begin DoDot:1
- +2 IF TYPE=1
- SET HDR="!!?30,""List of RELEASED but UNSIGNED orders for "",LONER"
- +3 IF TYPE=2
- SET HDR="!!?30,""List of UNSIGNED orders for "",LONER"
- +4 IF TYPE=3
- SET HDR="!!?30,""List of UNSIGNED/UNRELEASED orders for "",LONER"
- +5 SET HDR1="!!,""PROVIDER"",?25,""ENTERED BY"",?50,""PATIENT"",?75,""SSN"",?80,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- +6 DO HDR^ORS100
- +7 SET DIV=LONER
- IF $DATA(^TMP("ORUNS",$JOB,DIV))
- Begin DoDot:2
- +8 SET LOC=""
- FOR
- SET LOC=$ORDER(^TMP("ORUNS",$JOB,DIV,LOC))
- if LOC=""!STOP
- QUIT
- if 'SUMONLY
- WRITE ?5,"Location: ",LOC,!
- Begin DoDot:3
- +9 SET PROV=""
- FOR
- SET PROV=$ORDER(^TMP("ORUNS",$JOB,DIV,LOC,PROV))
- SET CNT=0
- if PROV=""!STOP
- QUIT
- Begin DoDot:4
- +10 SET IEN=""
- FOR
- SET IEN=$ORDER(^TMP("ORUNS",$JOB,DIV,LOC,PROV,IEN))
- SET CNT=CNT+1
- if 'IEN!STOP
- QUIT
- Begin DoDot:5
- +11 if 'SUMONLY
- WRITE $PIECE(^(IEN),U,3),?25,$PIECE(^(IEN),U,4),?50,$PIECE(^(IEN),U,5),?75,$PIECE(^(IEN),U,6),?80,$PIECE(^(IEN),U,7),?95,$PIECE(^(IEN),U,8),?110,$PIECE(^(IEN),U,9),!
- if $Y>(IOSL-4)
- DO HDR^ORS100
- if STOP
- QUIT
- +12 SET ^TMP("ORSTATS",$JOB,DIV,LOC,PROV)=CNT
- End DoDot:5
- End DoDot:4
- End DoDot:3
- if 'SUMONLY
- WRITE !
- End DoDot:2
- +13 IF '$DATA(^TMP("ORUNS",$JOB,DIV))
- WRITE !!,"No unsigned orders found for "_LONER
- End DoDot:1
- SERV ;loops thru the TMP global for output sort by service
- +1 IF SORT=1&('$DATA(LONER))
- Begin DoDot:1
- +2 IF TYPE=1
- SET HDR="!!?30,""List of RELEASED but UNSIGNED orders by SERVICE/SECTION"""
- +3 IF TYPE=2
- SET HDR="!!?30,""List of UNSIGNED orders by SERVICE/SECTION"""
- +4 IF TYPE=3
- SET HDR="!!?30,""List of UNSIGNED/UNRELEASED orders by SERVICE/SECTION"""
- +5 SET HDR1="!!,""PROVIDER"",?25,""ENTERED BY"",?50,""PATIENT"",?75,""SSN"",?81,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- +6 SET PAGE=0
- DO HDR^ORS100
- +7 IF '$DATA(^TMP("ORUNS",$JOB))
- WRITE !,"No unsigned orders found"
- QUIT
- +8 SET SER=""
- FOR
- SET SER=$ORDER(^TMP("ORUNS",$JOB,SER))
- if SER=""!STOP
- QUIT
- if 'SUMONLY
- WRITE "Service/Section: ",SER,!
- Begin DoDot:2
- +9 SET PROV=""
- FOR
- SET PROV=$ORDER(^TMP("ORUNS",$JOB,SER,PROV))
- SET CNT=0
- if PROV=""!STOP
- QUIT
- Begin DoDot:3
- +10 SET IEN=0
- FOR
- SET IEN=$ORDER(^TMP("ORUNS",$JOB,SER,PROV,IEN))
- SET CNT=CNT+1
- if 'IEN!STOP
- QUIT
- Begin DoDot:4
- +11 if 'SUMONLY
- WRITE $PIECE(^TMP("ORUNS",$JOB,SER,PROV,IEN),U,2),?25,$PIECE(^(IEN),U,3),?50,$PIECE(^(IEN),U,4),?75,$PIECE(^(IEN),U,5),?81,$PIECE(^(IEN),U,6),?95,$PIECE(^(IEN),U,7),?110,$PIECE(^(IEN),U,8),!
- if $Y>(IOSL-4)
- DO HDR^ORS100
- if STOP
- QUIT
- +12 SET ^TMP("ORSTATS",$JOB,SER,PROV)=CNT
- End DoDot:4
- End DoDot:3
- End DoDot:2
- if 'SUMONLY
- WRITE !
- End DoDot:1
- SSERV ;sorts for a single service/section
- +1 IF SORT=1&($DATA(LONER))
- SET LONER=""
- SET PAGE=0
- FOR
- SET LONER=$ORDER(LONER(LONER))
- if LONER=""!STOP
- QUIT
- Begin DoDot:1
- +2 IF TYPE=1
- SET HDR="!!?30,""List of RELEASED but UNSIGNED orders for "",LONER"
- +3 IF TYPE=2
- SET HDR="!!?30,""List of UNSIGNED orders for "",LONER"
- +4 IF TYPE=3
- SET HDR="!!?30,""List of UNSIGNED/UNRELEASED orders for "",LONER"
- +5 SET HDR1="!!,""PROVIDER"",?25,""ENTERED BY"",?50,""PATIENT"",?75,""SSN"",?81,""STATUS"",?95,""ORDER #"",?110,""ORDER DATE"""
- +6 DO HDR^ORS100
- +7 SET SER=LONER
- IF $DATA(^TMP("ORUNS",$JOB,SER))
- Begin DoDot:2
- +8 SET PROV=""
- FOR
- SET PROV=$ORDER(^TMP("ORUNS",$JOB,SER,PROV))
- SET CNT=0
- if PROV=""!STOP
- QUIT
- Begin DoDot:3
- +9 SET IEN=0
- FOR
- SET IEN=$ORDER(^TMP("ORUNS",$JOB,SER,PROV,IEN))
- SET CNT=CNT+1
- if 'IEN!STOP
- QUIT
- Begin DoDot:4
- +10 if 'SUMONLY
- WRITE $PIECE(^(IEN),U,2),?25,$PIECE(^(IEN),U,3),?50,$PIECE(^(IEN),U,4),?75,$PIECE(^(IEN),U,5),?81,$PIECE(^(IEN),U,6),?95,$PIECE(^(IEN),U,7),?110,$PIECE(^(IEN),U,8),!
- if $Y>(IOSL-4)
- DO HDR^ORS100
- if STOP
- QUIT
- +11 SET ^TMP("ORSTATS",$JOB,SER,PROV)=CNT
- End DoDot:4
- End DoDot:3
- End DoDot:2
- +12 IF '$DATA(^TMP("ORUNS",$JOB,SER))
- WRITE !!,"No unsigned orders found for "_LONER
- End DoDot:1
- +13 QUIT
