| [613] | 1 | SDNOS1A ;ALB/LDB - NO SHOW REPORT CONT. ; 15 OCT 87@13:00
|
|---|
| 2 | ;;5.3;Scheduling;;Aug 13, 1993
|
|---|
| 3 | DIV I $D(^DG(40.8,SDDIV,0)) S SDDIV2=$P(^(0),U,1)
|
|---|
| 4 | I $D(^DG(43,1,"GL")),$P(^("GL"),U,2),$D(^DG(40.8,SDDIV,0)) W !,?9,"FOR DIVISION: ",?30,SDDIV2
|
|---|
| 5 | I '$D(^UTILITY($J,"DGTC",SDC))&('SDTOT)&('SDTOT1) S ^UTILITY($J,"DGTC",SDC,P1)=""
|
|---|
| 6 | I '$D(^UTILITY($J,"DGTC",SDC_" TOTALS"))&(SDTOT) S ^UTILITY($J,"DGTC",SDC_" TOTALS",P1)=""
|
|---|
| 7 | I '$D(^UTILITY($J,"DGTC",SDDIV2))&('SDV1) S ^UTILITY($J,"DGTC",SDDIV2,P1)=""
|
|---|
| 8 | I '$D(^UTILITY($J,"DGTC",SDDIV2_" TOTALS"))&(SDTOT1) S ^UTILITY($J,"DGTC",SDDIV2_" TOTALS",P1)=""
|
|---|
| 9 | W:'SDTOT1!(SDTOT1&(SDC>0)) !,?11,"FOR CLINIC:",?30,SDC D LINE W ! Q
|
|---|
| 10 | INAC I '$D(^SC(SDCL,"I")) S SDIN=0 Q
|
|---|
| 11 | I $P(^("I"),U),$P(^("I"),U)<SDBD,'$P(^("I"),U,2) S SDIN=1 Q ;NAKED REFERENCE - ^SC(IFN,"I")
|
|---|
| 12 | 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")
|
|---|
| 13 | Q
|
|---|
| 14 | LINE S X="",$P(X,"=",IOM)="" W !,X Q
|
|---|
