| [613] | 1 | DIPZ0 ;SFISC/TKW-COMPILE PRINT TEMPLATES ;10/21/97 11:55
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | SIZ(DITYP) ;PROMPT FOR SIZE OF COMPILED ROUTINE
|
|---|
| 6 | ;PARAMETER DITYP CONTAINS A NUMBER IN DIALOG FILE POINTING TO EITHER
|
|---|
| 7 | ;TEXT FOR A TEMPLATE TYPE, OR TO THE TEXT 'CROSS-REFERENCES'.
|
|---|
| 8 | N %,DIR
|
|---|
| 9 | S %=$P($G(^DD("OS",DISYS,0)),U,4) S:'% %=$G(^DD("ROU")) S:'% %=5000
|
|---|
| 10 | S DIR(0)="N^2400:"_%_":0",DIR("B")=%,DIR("A")=$$EZBLD^DIALOG(8027)
|
|---|
| 11 | K % S %(1)=$$EZBLD^DIALOG(DITYP) D BLD^DIALOG(9002,.%,"","DIR(""?"")")
|
|---|
| 12 | D ^DIR Q
|
|---|
| 13 | ;
|
|---|
| 14 | RNM(DITYP) ;PROMPT FOR COMPILED ROUTINE NAME
|
|---|
| 15 | ;PARAMETER SAME AS FOR SIZ.
|
|---|
| 16 | N %,DIR,DIRNM
|
|---|
| 17 | S DIRNM="" D
|
|---|
| 18 | .I DITYP<8036 S DIRNM=$G(@(DIC_DIPZ_",""ROUOLD"")")),DIRNM(1)=$G(@(DIC_DIPZ_",""ROU"")"))
|
|---|
| 19 | .E S DIRNM=$G(@("^DD("_DIPZ_",0,""DIKOLD"")")),DIRNM(1)=$G(@("^DD("_DIPZ_",0,""DIK"")")) S:DIRNM="" DIRNM=DIRNM(1)
|
|---|
| 20 | .Q
|
|---|
| 21 | I DIRNM(1)]"" S DIR(0)="Y",DIR("B")="NO" D D ^DIR K DIR Q:$D(DIRUT) I Y D UNC Q
|
|---|
| 22 | .K % S %(1)=$$EZBLD^DIALOG(DITYP),%(2)=DIRNM(1)
|
|---|
| 23 | .D BLD^DIALOG(8028,.%,"","DIR(""A"")")
|
|---|
| 24 | .K %(2) D BLD^DIALOG(9004,.%,"","DIR(""?"")")
|
|---|
| 25 | .Q
|
|---|
| 26 | S %=7 ;S:DITYP=8036 %=6
|
|---|
| 27 | S DIR(0)="F^3:"_%_"^K:X'?1U.NU&(X'?1""%""1U.NU)!(X?1""DI"".E) X" S:DIRNM]"" DIR("B")=DIRNM
|
|---|
| 28 | D BLD^DIALOG(8001,"","","DIR(""A"")"),BLD^DIALOG(9006,%,"","DIR(""?"")")
|
|---|
| 29 | D ^DIR K DIR Q:$D(DIRUT)!(X="")
|
|---|
| 30 | I $L(X)>6 D
|
|---|
| 31 | .N A,% D BLD^DIALOG(8031,"","","A") W $C(7),! F %=0:0 S %=$O(A(%)) Q:'% W A(%),!
|
|---|
| 32 | .W ! Q
|
|---|
| 33 | I $$ROUEXIST^DILIBF(X) K % S %(1)=U_X D BLD^DIALOG(8016,.%,"","DIR") W $C(7),!?5,DIR K DIR
|
|---|
| 34 | Q
|
|---|
| 35 | UNC ;UNCOMPILE TEMPLATES/CROSS-REFS
|
|---|
| 36 | N %,DIR I DITYP<8036 K @(DIC_DIPZ_",""ROU"")") D
|
|---|
| 37 | . I DITYP=8033 D UNCAF^DIEZ(DIPZ)
|
|---|
| 38 | E S X=DIPZ D A^DIU21
|
|---|
| 39 | S %(1)=$$EZBLD^DIALOG(DITYP) D BLD^DIALOG(8026,.%,"","DIR(""A"")")
|
|---|
| 40 | W $C(7),!!,DIR("A")
|
|---|
| 41 | S X="" Q
|
|---|
| 42 | ;
|
|---|
| 43 | ;DIALOG #8001 'Routine Name'
|
|---|
| 44 | ; #8016 'Note that...is already in the routine directory'
|
|---|
| 45 | ; #8027 'Maximum routine size on this computer...'
|
|---|
| 46 | ; #8028 '...currently compiled under namespace...UNCOMPILE...'
|
|---|
| 47 | ; #8031 'WARNING!! Since the namespace...routine...so long...'
|
|---|
| 48 | ; #8033 'Input template'
|
|---|
| 49 | ; #8034 'Print Template'
|
|---|
| 50 | ; #8036 'Cross-Reference(s)'
|
|---|
| 51 | ; #9002 'This number will be used to determine how large...'
|
|---|
| 52 | ; #9004 'Answer YES to UNCOMPILE the ...'
|
|---|
| 53 | ; #9006 'Enter a valid MUMPS routine name...'
|
|---|
