Return to DILF.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DILF.m, revision 1.1.1.1

1.1       snw         1: DILF   ;SFISC/STAFF-LIBRARY OF FUNCTIONS ;6/7/94  10:47
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        Q
                      5: CREF(X)        G ENCREF^DIQGU
                      6:        ;
                      7: OREF(X)        G ENOREF^DIQGU
                      8:        ;
                      9: FDA(DIEFF,DIEFDAS,DIEFFLD,DIEFFLG,DIEFVAL,DIEFAR,DIEFOUT)      ;
                     10:        G LOADX^DIEF1
                     11:        ;
                     12: CLEAN  ;
                     13:        G CLEAN^DIEFU
                     14:        ;
                     15: IENS(DIEFDA)   ;
                     16:        G IENX^DIEFU
                     17:        ;
                     18: DA(DAIEN,DATARG)       ;
                     19:        G DAX^DIEFU
                     20:        ;
                     21: DT(DIEFDT,DIEFX,DIEFY,DIEFDT0,DIOUTAR) ;
                     22:        G DTX^DIEFU
                     23:        ;
                     24: VALUES(DILFILE,DILFLD,DILFDA,DILOUT)   ;
                     25:        I $G(DILFILE)=""!($G(DILFLD)="")!($G(DILFDA)="") S DILOUT=0 Q
                     26:        K DILOUT
                     27:        N DILCNT,DILIEN
                     28:        S DILIEN=""
                     29:        D VALLOOP
                     30:        S DILOUT=DILCNT
                     31:        Q
                     32:        ;
                     33: VALLOOP        ;
                     34:        S DILCNT=0
                     35:        F  S DILIEN=$O(@DILFDA@(DILFILE,DILIEN)) Q:DILIEN=""  D
                     36:        . I $D(@DILFDA@(DILFILE,DILIEN,DILFLD)) D
                     37:        . . S DILCNT=DILCNT+1
                     38:        . . S DILOUT(DILCNT)=@DILFDA@(DILFILE,DILIEN,DILFLD)
                     39:        . . S DILOUT(DILCNT,"IENS")=DILIEN
                     40:        Q
                     41:        ;
                     42: VALUE1(DILFILE,DILFLD,DILFDA)  ;
                     43:        I $G(DILFILE)=""!($G(DILFLD)="")!($G(DILFDA)="") Q "^"
                     44:        N DILIEN
                     45:        S DILIEN=$O(@DILFDA@(DILFILE,""))
                     46:        I DILIEN="" Q "^"
                     47:        I $D(@DILFDA@(DILFILE,DILIEN,DILFLD)) Q @DILFDA@(DILFILE,DILIEN,DILFLD)
                     48:        N DILCNT,DILOUT
                     49:        D VALLOOP
                     50:        I DILCNT Q DILOUT(1)
                     51:        Q "^"
                     52:        ;
                     53: ROUSIZE()      ;
                     54:        Q $G(^DD("ROU"))
                     55:        ;