Return to DICLIB.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    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'