source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCLN1.m@ 1147

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

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1SCMCLN1 ;swo/iofobp cleanup utilities ;2.12.2007
2 ;;5.3;Scheduling;**498**;8.13.1993;Build 23
3 Q
4INST ;check each teams institution and make sure it contains at least the
5 ;stations base numeric identifier
6 N SCMCSTA,SCMCL1,SCMCZN,SCMCV1,SCMCNT
7 S SCMCSTA=$$NS^XUAF4(DUZ(2))
8 I $G(DUZ(2))="" W !,"Institution is undefined...exiting",!! Q
9 W !,"Your Station Name: "_$P(SCMCSTA,U)
10 W !," Number: "_$P(SCMCSTA,U,2)
11 W !,"This option will output a list of TEAMS whose Station Number association"
12 W !,"does not match the number listed above.",!!
13 S (SCMCL1,SCMCNT)=0
14 F S SCMCL1=$O(^SCTM(404.51,SCMCL1)) Q:'SCMCL1 D
15 . S SCMCZN=$G(^SCTM(404.51,SCMCL1,0)) Q:SCMCZN=""
16 . S SCMCV1=$E($P($G(^DIC(4,+$P(SCMCZN,U,7),99)),U),1,3) Q:SCMCV1=""
17 . I $P(SCMCSTA,U,2)'=SCMCV1 D LOG
18 . Q
19 D SHOW,CLEAN
20 Q
21SHOW ;see what we got
22 S DIOEND="D FOOT^SCMCLN1"
23 S DIC="^SCTM(404.51,",L=0,BY="@.01",(FR,TO)="",FLDS=".01,.07,.07:99;""STATION #"""
24 S BY(0)="^TMP(""SCMCLN1"",$J,"
25 S L(0)=1 D EN1^DIP
26 Q
27LOG ;collect the entries with possible incorrect institution
28 S ^TMP("SCMCLN1",$J,SCMCL1)=""
29 S SCMCNT=SCMCNT+1
30 Q
31CLEAN ;clean up
32 K ^TMP("SCMCLN1",$J)
33 Q
34FOOT ;summary footer
35 I SCMCNT<1 W !!,"No problems found.",!! Q
36 W !!,"The listed entries from the TEAM file need to be reviewed for Institution."
37 W !,"PCMM GUI clients prior to SD*5.3*297 allowed Team association to any entry"
38 W !,"in the Institution File."
39 Q
Note: See TracBrowser for help on using the repository browser.