SCMCTPUR.m

SCMCTPUR ;BP/DMR - PCMM GUI OEF/OIF SCREEN; 2/24/09

 ;;5.3;Scheduling;**504**;AUG 13, 1993;Build 21

 ;

 ;

START(Y) ;

 S STOP=1,XX=0

 I Y="" Q STOP

 I $$GET1^DIQ(403.47,Y_",",.01)'="OIF OEF" Q STOP

 ;

 F  S XX=$O(^SCTM(404.51,XX)) Q:'XX  D

 .S PUR="" S PUR=$P($G(^SCTM(404.51,XX,0)),"^",3)

 .I PUR'="" D

 ..I $P($G(^SD(403.47,PUR,0)),"^",1)="OIF OEF" S STOP=0

 Q STOP

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCMCTPUR   381     printed  Apr 09, 2024@21:59:24                                                                                                                                                                                                     Page 2

SCMCTPUR  ;BP/DMR - PCMM GUI OEF/OIF SCREEN; 2/24/09

 +1       ;;5.3;Scheduling;**504**;AUG 13, 1993;Build 21

 +2       ;

 +3       ;

START(Y)  ;

 +1        SET STOP=1

           SET XX=0

 +2        IF Y=""

               QUIT STOP

 +3        IF $$GET1^DIQ(403.47,Y_",",.01)'="OIF OEF"

               QUIT STOP

 +4       ;

 +5        FOR 

               SET XX=$ORDER(^SCTM(404.51,XX))

               if 'XX

                   QUIT 

               Begin DoDot:1

 +6                SET PUR=""

                   SET PUR=$PIECE($GET(^SCTM(404.51,XX,0)),"^",3)

 +7                IF PUR'=""

                       Begin DoDot:2

 +8                        IF $PIECE($GET(^SD(403.47,PUR,0)),"^",1)="OIF OEF"

                               SET STOP=0

                       End DoDot:2

               End DoDot:1

 +9        QUIT STOP