source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFUTI.m@ 996

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1IBDFUTI ;ALB/AAS - Installation utilitie Re-Compile Templates/x-refs ; 1/31/92
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4 ; ******* DO NOT MAP THIS ROUTINE *******
5 Q
6 ;
7EN ; Entry point to re-compile templates
8 ; input: IBKIND = OUTPUT or INPUT
9 ;
10 K IBLINE S U="^",$P(IBLINE,"=",81)="",IBMAX=^DD("ROU")
11 G ENQ:'$D(IBKIND),ENQ:"^OUTPUT^INPUT^"'[(U_IBKIND_U)
12 I IBKIND="OUTPUT" S IBFILE="^DIPT",IBROU="EN^DIPZ"
13 I IBKIND="INPUT" S IBFILE="^DIE",IBROU="EN^DIEZ"
14 W !,IBLINE,!?20,"Recompilation of '",IBKIND,"' Templates",!,IBLINE
15 ;
16 S IBDX="IBCzzz"
17 F IBI=1:1 S IBDX=$O(@IBFILE@("B",IBDX)) Q:IBDX=""!($E(IBDX,1,3)'="IBD") S Y=+$O(^(IBDX,0)) D
18 .I $D(@IBFILE@(Y,"ROUOLD")),^("ROUOLD")]"",$D(^(0)) S (IBEMP,Y)=Y,X=$P(^("ROUOLD"),"^"),IB0=^(0) D COMP
19 ;
20ENQ K IBROU,IB0,IBDX,IBI,IBMAX,IBEMP,IBFILE,IBI,IBLINE Q
21 ;
22COMP ; re-compile
23 ;
24 ;
25 S DMAX=IBMAX D @IBROU W !!,IBLINE
26COMPQ Q
27 ;
28ALL ; compile templates and x-refs
29 S DIR(0)="Y",DIR("A")="Re-compile all AICS 'IBD' templates and cross references"
30 S DIR("?",1)="Yes to re-compile",DIR("?",2)="No to stop recompilation process",DIR("?")=" "
31 D ^DIR K DIR G ALLQ:'Y
32 D DIEZ W !!
33 D DIPZ W !!
34 D DIKZ
35 W !!,"...Done.",!!,"NOTE: Recompilation should be performed on ALL systems."
36ALLQ K A,C,L,O,X1,DQ,DIE,DMAX,DIEZ,DIEZDUP,DK,DR Q
37 ;
38DIEZ ; -- re-compile all IBD 'edit' templates
39 S IBKIND="INPUT" D EN K IBKIND Q
40 ;
41DIPZ ; -- re-compile all IB 'print' templates
42 S IBKIND="OUTPUT" D EN K IBKIND Q
43 ;
44DIKZ ; -- compile x-refs
45 W !!,">>> Compiling cross references for BILL/CLAIMS, INTEGRATED BILLING, and ENCOUNTER FORM files:"
46 F IBN=357,357.1,357.2,357.3,357.4,357.5 S N=IBN W ! I $D(^DD(+N,0,"DIK"))#2 S X=^("DIK"),Y=+N,DMAX=^DD("ROU") W !,"** File "_IBN_" **",! D EN^DIKZ
47 K IBN,N,DMAX
48 Q
Note: See TracBrowser for help on using the repository browser.