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

source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SDOPC4.m@ 1111

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

initial load of WorldVistAEHR

File size: 598 bytes
RevLine 
1SDOPC4 ;ALB/BOK - OPC GENERATION CONT., MT CALCULATIONS ;3/27/92 12:33
2 ;;5.3;Scheduling;**5,22,26,132**;Aug 13, 1993
3 ;
4DOM(DFN,DT,SDMT,SDEP,SDINP) ;Function
5 ;INPUT: DFN = Internal Entry Number of Patient file
6 ; DT = Date of visit
7 ; SDINP = Inpatint flag, 0=no (Optional) (**Reference**)
8 ; SDMT = Means Test Indicator (**Reference**)
9 ; SDMTD = Means Test Dependants (**Reference**)
10 N DG1,DGT
11 S DGT=DT D ^DGINPW I DG1 S:$D(SDINP) SDINP=1 I $P(^DG(43,1,0),U,21),$D(^DIC(42,+DG1,0)),$P(^(0),U,3)="D" S:$D(SDINP) SDINP=0 S SDMT="X0",SDEP="XX"
12 K DG1 Q
13 ;
Note: See TracBrowser for help on using the repository browser.