SDNOS1A.m

SDNOS1A ;ALB/LDB - NO SHOW REPORT CONT. ; 15 OCT 87@13:00

 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

DIV I $D(^DG(40.8,SDDIV,0)) S SDDIV2=$P(^(0),U,1)

 I $D(^DG(43,1,"GL")),$P(^("GL"),U,2),$D(^DG(40.8,SDDIV,0)) W !,?9,"FOR DIVISION: ",?30,SDDIV2

 I '$D(^UTILITY($J,"DGTC",SDC))&('SDTOT)&('SDTOT1) S ^UTILITY($J,"DGTC",SDC,P1)=""

 I '$D(^UTILITY($J,"DGTC",SDC_" TOTALS"))&(SDTOT) S ^UTILITY($J,"DGTC",SDC_" TOTALS",P1)=""

 I '$D(^UTILITY($J,"DGTC",SDDIV2))&('SDV1) S ^UTILITY($J,"DGTC",SDDIV2,P1)=""

 I '$D(^UTILITY($J,"DGTC",SDDIV2_" TOTALS"))&(SDTOT1) S ^UTILITY($J,"DGTC",SDDIV2_" TOTALS",P1)=""

 W:'SDTOT1!(SDTOT1&(SDC>0)) !,?11,"FOR CLINIC:",?30,SDC D LINE W ! Q

INAC I '$D(^SC(SDCL,"I")) S SDIN=0 Q

 I $P(^("I"),U),$P(^("I"),U)<SDBD,'$P(^("I"),U,2) S SDIN=1 Q  ;NAKED REFERENCE - ^SC(IFN,"I")

 I $P(^("I"),U)<SDBD,$D(SDED),$P(^("I"),U,2),$P(^("I"),U,2)>SDED S SDIN=1 Q  ;NAKED REFERENCE - ^SC(IFN,"I")

 Q

LINE S X="",$P(X,"=",IOM)="" W !,X Q

SDNOS1A   ;ALB/LDB - NO SHOW REPORT CONT. ; 15 OCT 87@13:00

 +1       ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21

DIV        IF $DATA(^DG(40.8,SDDIV,0))

               SET SDDIV2=$PIECE(^(0),U,1)

 +1        IF $DATA(^DG(43,1,"GL"))

               IF $PIECE(^("GL"),U,2)

                   IF $DATA(^DG(40.8,SDDIV,0))

                       WRITE !,?9,"FOR DIVISION: ",?30,SDDIV2

 +2        IF '$DATA(^UTILITY($JOB,"DGTC",SDC))&('SDTOT)&('SDTOT1)

               SET ^UTILITY($JOB,"DGTC",SDC,P1)=""

 +3        IF '$DATA(^UTILITY($JOB,"DGTC",SDC_" TOTALS"))&(SDTOT)

               SET ^UTILITY($JOB,"DGTC",SDC_" TOTALS",P1)=""

 +4        IF '$DATA(^UTILITY($JOB,"DGTC",SDDIV2))&('SDV1)

               SET ^UTILITY($JOB,"DGTC",SDDIV2,P1)=""

 +5        IF '$DATA(^UTILITY($JOB,"DGTC",SDDIV2_" TOTALS"))&(SDTOT1)

               SET ^UTILITY($JOB,"DGTC",SDDIV2_" TOTALS",P1)=""

 +6        IF 'SDTOT1!(SDTOT1&(SDC>0))

               WRITE !,?11,"FOR CLINIC:",?30,SDC

           DO LINE

           WRITE !

           QUIT 

INAC       IF '$DATA(^SC(SDCL,"I"))

               SET SDIN=0

               QUIT 

 +1       ;NAKED REFERENCE - ^SC(IFN,"I")

           IF $PIECE(^("I"),U)

               IF $PIECE(^("I"),U)<SDBD

                   IF '$PIECE(^("I"),U,2)

                       SET SDIN=1

                       QUIT 

 +2       ;NAKED REFERENCE - ^SC(IFN,"I")

           IF $PIECE(^("I"),U)<SDBD

               IF $DATA(SDED)

                   IF $PIECE(^("I"),U,2)

                       IF $PIECE(^("I"),U,2)>SDED

                           SET SDIN=1

                           QUIT 

 +3        QUIT 

LINE       SET X=""

           SET $PIECE(X,"=",IOM)=""

           WRITE !,X

           QUIT