| [613] | 1 | IBEFUTL1 ;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 | ;
|
|---|
| 8 | EN ; 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 | ;
|
|---|
| 19 | ENQ K IBROU,IB0,IBX,IBI,IBMAX,IBEMP,IBFILE,IBI,IBLINE Q
|
|---|
| 20 | ;
|
|---|
| 21 | COMP ; re-compile
|
|---|
| 22 | ;
|
|---|
| 23 | ;
|
|---|
| 24 | S DMAX=IBMAX D @IBROU W !!,IBLINE
|
|---|
| 25 | COMPQ Q
|
|---|
| 26 | ;
|
|---|
| 27 | ALL ; 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."
|
|---|
| 36 | ALLQ K A,C,L,O,X1,DQ,DIE,DMAX,DIEZ,DIEZDUP,DK,DR Q
|
|---|
| 37 | ;
|
|---|
| 38 | DIEZ ; -- re-compile all IB 'edit' templates
|
|---|
| 39 | S IBKIND="INPUT" D EN K IBKIND Q
|
|---|
| 40 | ;
|
|---|
| 41 | DIPZ ; -- re-compile all IB 'print' templates
|
|---|
| 42 | S IBKIND="OUTPUT" D EN K IBKIND Q
|
|---|
| 43 | ;
|
|---|
| 44 | DIKZ ; -- 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
|
|---|
