| 1 | DIFGA1 ;SFISC/XAK,DCM-FILEGRAM TEMPLATES ;2/27/99 12:35
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999;
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q W:$D(DTOUT) $C(7)
|
|---|
| 5 | K Y,C,L,DM,DQI,DA,DICOMP,DICOMPX,I,J,S,DIL,DK
|
|---|
| 6 | K D,DIFG,DC,DICS,DP,DU,DXS,DL,DJ,DINS,DIFGLINK
|
|---|
| 7 | K DIAXLOC,DIAXMSG,DIAXGL,DIAXF,^UTILITY("DIFG",$J),DJ1,DIAXEF,DIAXDL,DIAXDI,DIAXFILE,DIAXFNO
|
|---|
| 8 | K DIAXDICA,DIAXNP,DIAXZ,DIAXDK,DTOUT,DUOUT,DIRUT
|
|---|
| 9 | D:$D(DIAX) Q1^DIAXMS
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | INIT K ^UTILITY("DIFG",$J)
|
|---|
| 13 | S (L,DL)=1,(I(0),DI)=DIC,(DK,J(0))=+$P(@(DI_"0)"),U,2)
|
|---|
| 14 | S DINS="",(DC,DJ,C,C(0),DIL)=0 Q:'$D(DIAX)
|
|---|
| 15 | ;
|
|---|
| 16 | INET K DIC
|
|---|
| 17 | S DIC=1,DIC(0)="AEQZ",DIC("S")="I Y'<2,+Y'="_DK_" S DIFILE=+Y,DIAC=""RD"" D ^DIAC I %",DIC("A")="DESTINATION FILE: " D ^DIC Q:Y'>0
|
|---|
| 18 | S (DIAXF,DIAXFILE,DIAXFNO,DIAXDL(DL),DIAXDK(DK))=+Y,DIAXGL=$E(^DIC(+Y,0,"GL"),2,99),DIAXEF=Y(0,0),DIAXLOC(DIAXFILE)=""
|
|---|
| 19 | Q
|
|---|
