Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDOPC4

SDOPC4.m

Go to the documentation of this file.
  1. SDOPC4 ;ALB/BOK - OPC GENERATION CONT., MT CALCULATIONS ;3/27/92 12:33
  1. ;;5.3;Scheduling;**5,22,26,132**;Aug 13, 1993
  1. ;
  1. DOM(DFN,DT,SDMT,SDEP,SDINP) ;Function
  1. ;INPUT: DFN = Internal Entry Number of Patient file
  1. ; DT = Date of visit
  1. ; SDINP = Inpatint flag, 0=no (Optional) (**Reference**)
  1. ; SDMT = Means Test Indicator (**Reference**)
  1. ; SDMTD = Means Test Dependants (**Reference**)
  1. N DG1,DGT
  1. 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"
  1. K DG1 Q
  1. ;