close Warning: Can't use blame annotator: 
svn blame failed on WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDNOS1A.m: 'GenericSWIGWrapper' object has no attribute '_wrap'

source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDNOS1A.m@ 1780

Last change on this file since 1780 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 936 bytes
RevLine 
1SDNOS1A ;ALB/LDB - NO SHOW REPORT CONT. ; 15 OCT 87@13:00
2 ;;5.3;Scheduling;;Aug 13, 1993
3DIV 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
10INAC 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
14LINE S X="",$P(X,"=",IOM)="" W !,X Q
Note: See TracBrowser for help on using the repository browser.