- 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 Jan 18, 2025@04:00:22 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 ;