source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCRPT.m@ 1389

Last change on this file since 1389 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 438 bytes
Line 
1SCMCRPT ;BP/DMR - PCMM Intitution file check
2 ;;5.3;Scheduling;**286**;AUG 13,1993
3 ;
4 S (INST,IEN,TEAM,TEST)=""
5 F S TEAM=$O(^SCTM(404.51,"B",TEAM)) Q:TEAM="" D
6 .S IEN="" F S IEN=$O(^SCTM(404.51,"B",TEAM,IEN)) Q:IEN="" D
7 ..S INST="" S INST=$P($G(^SCTM(404.51,IEN,0)),"^",7)
8 ..S TEST="" S TEST=$$GET1^DIQ(4,INST_",",11)
9 ..IF TEST'["N" W !!,"Team "_TEAM_" points to an INSTITUTION that is not NATIONAL."
10 ..Q
11 K INST,IEN,TEAM,TEST
Note: See TracBrowser for help on using the repository browser.