source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGUTL1.m@ 810

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

initial load of FOIAVistA 6/30/08 version

File size: 1.9 KB
Line 
1DGUTL1 ;ALB/MJK - Re-Compile Templates/x-refs ; 8/8/90;
2 ;;5.3;Registration;;Aug 13, 1993
3 ;
4 ; ******* DO NOT MAP THIS ROUTINE *******
5 Q
6 ;
7EN ; Entry point to re-compile templates
8 ; input: DGKIND = OUTPUT or INPUT
9 ;
10 K DGLINE S U="^",$P(DGLINE,"=",81)="",DGMAX=^DD("ROU")
11 G ENQ:'$D(DGKIND),ENQ:"^OUTPUT^INPUT^"'[(U_DGKIND_U)
12 I DGKIND="OUTPUT" S DGFILE="^DIPT",DGROU="EN^DIPZ"
13 I DGKIND="INPUT" S DGFILE="^DIE",DGROU="EN^DIEZ"
14 W !,DGLINE,!?20,"Recompilation of '",DGKIND,"' Templates",!,DGLINE
15 ;
16 F DGX="DFzzzz","SCzzzz" F DGI=1:1 S DGX=$O(@DGFILE@("B",DGX)) Q:DGX=""!("^DG^SD^"'[(U_$E(DGX,1,2)_U)) S Y=+$O(^(DGX,0)) I $D(@DGFILE@(Y,"ROUOLD")),^("ROUOLD")]"",$D(^(0)) S (DGEMP,Y)=Y,X=$P(^("ROUOLD"),"^"),DG0=^(0) D COMP
17 ;
18ENQ K DGROU,DG0,DGX,DGI,DGMAX,DGEMP,DGFILE,DGI,DGLINE Q
19 ;
20COMP ; re-compile
21 I DGKIND="INPUT",$P(DG0,U)="DG TEN" G COMPQ
22 I $P(DG0,U)?1"DGHI".E G COMPQ ; excludes HINQ templates
23 S DMAX=DGMAX D @DGROU W !!,DGLINE
24COMPQ Q
25 ;
26ALL ; compile templates and x-refs
27 S:'$D(DTIME) DTIME=300 S U="^"
28 S DIR(0)="Y",DIR("A")="Re-compile all 'DG' and 'SD' templates and cross references"
29 S DIR("?",1)="Yes to re-compile",DIR("?",2)="No to stop recompilation process",DIR("?")=" "
30 D ^DIR K DIR G ALLQ:'Y
31 D DIEZ W !!
32 D DIPZ W !!
33 D DIKZ
34 W !!,"...Done.",!!,"NOTE: Recompilation should be performed on ALL systems."
35ALLQ K A,C,L,O,X1,DQ,DIE,DMAX,DIEZ,DIEZDUP,DK,DR Q
36 ;
37DIEZ ; -- re-compile all DG and SD 'edit' templates
38 S DGKIND="INPUT" D EN K DGKIND Q
39 ;
40DIPZ ; -- re-compile all DG and SD 'print' templates
41 S DGKIND="OUTPUT" D EN K DGKIND Q
42 ;
43DIKZ ; -- compile x-refs
44 W !!,">>> Compiling cross references for PTF, PATIENT MOVEMENT,",!,"INDIVIDUAL ANNUAL INCOME, INCOME RELATION",!,"and ANNUAL MEANS TEST files:"
45 F DGN=45,405,408.21,408.22,408.31 S N=DGN W ! I ^DD("VERSION")>17.5,$D(^DD(+N,0,"DIK"))#2 S X=^("DIK"),Y=+N,DMAX=^DD("ROU") D EN^DIKZ
46 K DGN,N,DMAX
47 Q
Note: See TracBrowser for help on using the repository browser.