SDOPC4.m

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 ---SDOPC4   611     printed  Apr 09, 2024@21:45:10                                                                                                                                                                                                       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       ;