SDOPC4 ;ALB/BOK - OPC GENERATION CONT., MT CALCULATIONS ;3/27/92 12:33
;;5.3;Scheduling;**5,22,26,132**;Aug 13, 1993
;
DOM(DFN,DT,SDMT,SDEP,SDINP) ;Function
;INPUT: DFN = Internal Entry Number of Patient file
; DT = Date of visit
; SDINP = Inpatint flag, 0=no (Optional) (**Reference**)
; SDMT = Means Test Indicator (**Reference**)
; SDMTD = Means Test Dependants (**Reference**)
N DG1,DGT
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"
K DG1 Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDOPC4 611 printed Dec 13, 2024@02:59:12 Page 2
SDOPC4 ;ALB/BOK - OPC GENERATION CONT., MT CALCULATIONS ;3/27/92 12:33
+1 ;;5.3;Scheduling;**5,22,26,132**;Aug 13, 1993
+2 ;
DOM(DFN,DT,SDMT,SDEP,SDINP) ;Function
+1 ;INPUT: DFN = Internal Entry Number of Patient file
+2 ; DT = Date of visit
+3 ; SDINP = Inpatint flag, 0=no (Optional) (**Reference**)
+4 ; SDMT = Means Test Indicator (**Reference**)
+5 ; SDMTD = Means Test Dependants (**Reference**)
+6 NEW DG1,DGT
+7 SET DGT=DT
DO ^DGINPW
IF DG1
if $DATA(SDINP)
SET SDINP=1
IF $PIECE(^DG(43,1,0),U,21)
IF $DATA(^DIC(42,+DG1,0))
IF $PIECE(^(0),U,3)="D"
if $DATA(SDINP)
SET SDINP=0
SET SDMT="X0"
SET SDEP="XX"
+8 KILL DG1
QUIT
+9 ;
