Return to DIP23.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIP23.m, revision 1.1

1.1     ! snw         1: DIP23  ;SFISC/XAK-PRINT TEMPLATE ;5/10/90  1:36 PM
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: ED     S DA=+Y,DRK=DK K Y
        !             5:        S DRK=DK,DIE="^DIPT(",DR=".01;3;6" D ^DIE K DR G Q^DIP:$D(Y)
        !             6:        S DC=0,DI=I(0) I $D(DA),'$D(^DIPT(DA,1)) S D9="",DC(0)=DA,DC(1)=-1 D ^DIP22 S DA=DC(0)
        !             7:        I $D(DA),$D(^DIPT(DA,1)) D ^DIFGA G Q^DIP:$D(DTOUT),H^DIP3
        !             8:        S DALL(1)=1 G ^DIP2