source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBEFUTL1.m@ 1000

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1IBEFUTL1 ;ALB/MJK/AAS - Re-Compile Templates/x-refs ; 1/31/92
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; ******* DO NOT MAP THIS ROUTINE *******
6 Q
7 ;
8EN ; Entry point to re-compile templates
9 ; input: IBKIND = OUTPUT or INPUT
10 ;
11 K IBLINE S U="^",$P(IBLINE,"=",81)="",IBMAX=^DD("ROU")
12 G ENQ:'$D(IBKIND),ENQ:"^OUTPUT^INPUT^"'[(U_IBKIND_U)
13 I IBKIND="OUTPUT" S IBFILE="^DIPT",IBROU="EN^DIPZ"
14 I IBKIND="INPUT" S IBFILE="^DIE",IBROU="EN^DIEZ"
15 W !,IBLINE,!?20,"Recompilation of '",IBKIND,"' Templates",!,IBLINE
16 ;
17 S IBX="IAzzz" F IBI=1:1 S IBX=$O(@IBFILE@("B",IBX)) Q:IBX=""!($E(IBX,1,2)'="IB") S Y=+$O(^(IBX,0)) I $D(@IBFILE@(Y,"ROUOLD")),^("ROUOLD")]"",$D(^(0)) S (IBEMP,Y)=Y,X=$P(^("ROUOLD"),"^"),IB0=^(0) D COMP
18 ;
19ENQ K IBROU,IB0,IBX,IBI,IBMAX,IBEMP,IBFILE,IBI,IBLINE Q
20 ;
21COMP ; re-compile
22 ;
23 ;
24 S DMAX=IBMAX D @IBROU W !!,IBLINE
25COMPQ Q
26 ;
27ALL ; compile templates and x-refs
28 S:'$D(DTIME) DTIME=300 S U="^"
29 S DIR(0)="Y",DIR("A")="Re-compile all 'IB' 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 IB '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=399,350,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.