Return to DICLIB.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DICLIB.m, revision 1.1

1.1     ! snw         1: DICLIB ;SFISC/TKW - LIBRARY OF FUNCTIONS FOR ^DIC ;11/19/93  15:37
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: NXTNO(F,DA,FLAGS)      ;GET NEXT RECORD NUMBER FOR FILE OR SUBFILE F (F CAN CONTAIN A GLOBAL REFERENCE TO IMPROVE EFFICIENCY)
        !             5:        ;DA=DA ARRAY (IF F IS A SUBFILE)
        !             6:        ;FLAGS (OPTIONAL) IF IT CONTAINS "U", WILL UPDATE LAST REC.# ON 0 NODE
        !             7:        N I,X,Y,DIC S X=0,I=1
        !             8:        S:'F DIC=$TR(F,")",",") S:F DIC=$$ROOT^DIQGU(F,.DA)
        !             9:        G:DIC="" QI G:'$D(@(DIC_"0)")) QI
        !            10: INCR   L @("+"_DIC_"0):10") G:'$T QL
        !            11:        I 'X S Y=@(DIC_"0)"),X=$P($P(Y,U,3),".",1)
        !            12:        F I=1:1 S X=X+1 Q:'$D(@(DIC_X_")"))  I I=100 S I=0 Q
        !            13:        I 'I L @("-"_DIC_"0)") G INCR
        !            14:        I $G(FLAGS)["U" S $P(@(DIC_"0)"),U,3,4)=X_U_($P(Y,U,4)+1)
        !            15:        L @("-"_DIC_"0)")
        !            16:        Q X
        !            17: QI     D BLD^DIALOG(200) G Q0
        !            18: QL     D BLD^DIALOG(110,F)
        !            19: Q0     Q 0
        !            20:        ;DIALOG #200  'An input variable or parameter is missing or invalid.'
        !            21:        ;       #110  'The record is currently locked'