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 ---[H[J[2J[HSCMCTPUR 381 printed Dec 13, 2024@02:41:30 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
