source: FOIAVistA/trunk/r/RECORD_TRACKING-RT/RTUTL5.m@ 1193

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

initial load of FOIAVistA 6/30/08 version

File size: 3.1 KB
Line 
1RTUTL5 ;TROY ISC/MJK-Re-Compile Templates DONT MAP; ; 4/13/87 3:22 PM ;
2 ;;v 2.0;Record Tracking;;10/22/91
3 ; ******* DO NOT MAP THIS ROUTINE *******
4RECOMP ;Entry point to re-compile templates; RTFILE optionally defined
5 S U="^" S:'$D(RTFILE) RTFILE="^DIE(" D EQUALS^RTUTL3 W !?20,"Recompilation of '"_$S(RTFILE["DIPT":"OUTPUT",RTFILE["DIE":"INPUT",1:"CROSS-REFERENCES")_$S(RTFILE["DD(":"",1:"' Templates") D EQUALS^RTUTL3
6 I RTFILE'["DD(" S RTX="RT " F RTI=1:1 S RTX=$O(@(RTFILE_"""B"",RTX)")) Q:RTX=""!($E(RTX,1,3)'="RT ") S Y=+$O(^(RTX,0)) I Y>0,$D(@(RTFILE_"+Y,""ROUOLD"")")),^("ROUOLD")]"",$D(^(0)) S (RTEMP,Y)=+Y,X=$P(^("ROUOLD"),"^"),RT0=^(0) D COMP
7XX I RTFILE["DD(",$D(@RTFILE) S (RT0,X)=^("DIK"),Y=+$P(RTFILE,"DD(",2) D COMP
8 Q
9 K RT0,RTX,RTI,RTEMP,RTFILE,RTI Q
10 Q ;
11COMP W !,"---- RE-COMPILING THE '",$P(RT0,"^"),"' "_$S(RTFILE["DIPT":"OUTPUT",RTFILE["DIE":"INPUT",1:"CROSS-REFERENCE")_" TEMPLATES"
12 S DMAX=4000 D @($S(RTFILE["DIPT":"EN^DIPZ",RTFILE["DIE":"EN^DIEZ",1:"EN^DIKZ")) I RTFILE'["DD(",$D(@(RTFILE_RTEMP_",""ROU"")")) W !!?3,"...'",$P(RT0,"^"),"' has been re-compiled in the ",^("ROU"),"* routines." D EQUALS^RTUTL3
13XZ I RTFILE["DD(",$D(@(RTFILE)) W !!?3,"...'",$P(RT0,"^"),"' has been re-compiled in the ",^("DIK"),"* routines." D EQUALS^RTUTL3
14 Q
15 ;
16BOTH S U="^",RTRD(1)="Yes^re-compile templates",RTRD(2)="No^not re-compile templates",RTRD("B")=2,RTRD(0)="S",RTRD("A")="Are you sure you want to re-compile the record tracking templates? " D SET^RTRD K RTRD Q:$E(X)'="Y"
17 S RTFILE="^DIE(" D RECOMP W !!
18 S RTFILE="^DIPT(" D RECOMP W !!
19XR S RTK="0,"_"""DIK"""_")"
20 S RTFILE="^DD(190,"_RTK D RECOMP W !!
21 S RTFILE="^DD(190.1,"_RTK D XX W !!
22 S RTFILE="^DD(190.3,"_RTK D XX W !!
23 S RTFILE="^DD(194.2,"_RTK D XX W !!
24 S RTFILE="^DD(195.9,"_RTK D XX W !!
25SDB ;
26 W !!,"Recompiling the Clinic Setup Template, don't worry"
27 S Y=$O(^DIE("B","SDB",0)) Q:'Y I $D(^DIE(Y,"ROUOLD")) S X=^("ROUOLD") I X="SDBT" S DMAX=4000 D EN^DIEZ
28 W "...Done.",!!,"NOTE: Recompilation should be performed on ALL systems."
29 K A,C,L,O,X1,DQ,DIE,DMAX,DIEZ,DIEZDUP,DK,DR
30 K X,RTX,RTK,RTI,RTFILE,RTEMP,RT0,J
31 Q
32 ;
33FRCHK I '$D(^%ZIS(1,"B",X)) K X Q
34 ;naked ref to %ZIS(1,"B",,n) and %ZIS(1,n,"SUBTYPE")
35 I '$D(^%ZIS(1,+$O(^(X,0)),0))!('$D(^("SUBTYPE"))) K X Q
36 ;naked ref to the %ZIS(1,n,"SUBTYPE")
37 I '$D(^%ZIS(2,+^("SUBTYPE"),0)) K X Q
38 ;naked ref to %ZIS(2,n,0)
39 I $E(^(0))'="C" K X Q
40 Q:'$D(^RTV(195.9,"ADEV",X)) S X1=+$O(^(X,0)) Q:D0=X1
41 I $D(^RTV(195.9,X1,0)) S X1=^(0) W !?5,*7,"...device is already assigned to ",$S($D(^SC(+X1,0)):$P(^(0),"^"),1:"UNKNOWN"),!?10," of the ",$S($D(^DIC(195.1,+$P(X1,"^",3),0)):$P(^(0),"^"),1:"UNKNOWN")," application." K X,X1
42 Q
43 ;
44HELP ;Executeable Help for INPUT DEVICES multiple in file 195.9
45 W !!?3,"Device Name",?45,"Location",!?3,"-----------",?45,"--------"
46 S RTC=0,RTI="" F RTI1=0:0 S RTI=$O(^%ZIS(1,"B",RTI)) Q:RTI="" S RTX=+$O(^(RTI,0)) I $D(^%ZIS(1,RTX,0)),$D(^("SUBTYPE")),$D(^%ZIS(2,+^("SUBTYPE"),0)),$E(^(0))="C" D HELP1 Q:$D(RTESC)
47 K RTX,RTI,RTI1,RTC,RTESC Q
48HELP1 S RTC=RTC+1 D ESC^RTRD:'(RTC#20) Q:$D(RTESC)
49 S RTX=^%ZIS(1,RTX,0) W !?3,$P(RTX,"^"),$S($P(RTX,"^",9)]"":" ["_$P(RTX,"^",9)_"]",1:"") W:$D(^(1)) ?45,$P(^(1),"^") Q
Note: See TracBrowser for help on using the repository browser.