SCMCRPT ;BP/DMR - PCMM Intitution file check
;;5.3;Scheduling;**286**;AUG 13,1993
;
S (INST,IEN,TEAM,TEST)=""
F S TEAM=$O(^SCTM(404.51,"B",TEAM)) Q:TEAM="" D
.S IEN="" F S IEN=$O(^SCTM(404.51,"B",TEAM,IEN)) Q:IEN="" D
..S INST="" S INST=$P($G(^SCTM(404.51,IEN,0)),"^",7)
..S TEST="" S TEST=$$GET1^DIQ(4,INST_",",11)
..IF TEST'["N" W !!,"Team "_TEAM_" points to an INSTITUTION that is not NATIONAL."
..Q
K INST,IEN,TEAM,TEST
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMCRPT 449 printed Oct 16, 2024@18:41:54 Page 2
SCMCRPT ;BP/DMR - PCMM Intitution file check
+1 ;;5.3;Scheduling;**286**;AUG 13,1993
+2 ;
+3 SET (INST,IEN,TEAM,TEST)=""
+4 FOR
SET TEAM=$ORDER(^SCTM(404.51,"B",TEAM))
if TEAM=""
QUIT
Begin DoDot:1
+5 SET IEN=""
FOR
SET IEN=$ORDER(^SCTM(404.51,"B",TEAM,IEN))
if IEN=""
QUIT
Begin DoDot:2
+6 SET INST=""
SET INST=$PIECE($GET(^SCTM(404.51,IEN,0)),"^",7)
+7 SET TEST=""
SET TEST=$$GET1^DIQ(4,INST_",",11)
+8 IF TEST'["N"
WRITE !!,"Team "_TEAM_" points to an INSTITUTION that is not NATIONAL."
+9 QUIT
End DoDot:2
End DoDot:1
+10 KILL INST,IEN,TEAM,TEST
