SDNOS1A ;ALB/LDB - NO SHOW REPORT CONT. ; 15 OCT 87@13:00
;;5.3;Scheduling;;Aug 13, 1993
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDNOS1A 950 printed Nov 22, 2024@18:08:50 Page 2
SDNOS1A ;ALB/LDB - NO SHOW REPORT CONT. ; 15 OCT 87@13:00
+1 ;;5.3;Scheduling;;Aug 13, 1993
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
