- 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 Feb 19, 2025@00:07:57 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