Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCMCTPUR

SCMCTPUR.m

Go to the documentation of this file.
  1. SCMCTPUR ;BP/DMR - PCMM GUI OEF/OIF SCREEN; 2/24/09
  1. ;;5.3;Scheduling;**504**;AUG 13, 1993;Build 21
  1. ;
  1. ;
  1. START(Y) ;
  1. S STOP=1,XX=0
  1. I Y="" Q STOP
  1. I $$GET1^DIQ(403.47,Y_",",.01)'="OIF OEF" Q STOP
  1. ;
  1. F S XX=$O(^SCTM(404.51,XX)) Q:'XX D
  1. .S PUR="" S PUR=$P($G(^SCTM(404.51,XX,0)),"^",3)
  1. .I PUR'="" D
  1. ..I $P($G(^SD(403.47,PUR,0)),"^",1)="OIF OEF" S STOP=0
  1. Q STOP