Return to DIQQ1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIQQ1.m, revision 1.1

1.1     ! snw         1: DIQQ1  ;SFISC/TKW-NONDESTRUCTIVE ONLINE HELP FOR FIELDS ;1/5/94  09:50
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: EN(DP,D,X)     ; DP=file no.,D=field no.,X="?" or "??"
        !             5:        Q:'$G(DP)  Q:'$G(D)  Q:$G(X)'?1"?"."?"
        !             6:        N %,%DT,A1,A2,DA,DC,DDH,DG,DIC,DIG,DIRUT,DTOUT,DUOUT,DO,DQ,DST,DU,DV,DZ,Y
        !             7: 1      S DQ="^DD("_DP_","_D_",0)",DQ(1)=$G(@(DQ)),DQ=1,DV=$TR($P(DQ(DQ),U,2),"V","F"),DU=$P(DQ(DQ),U,3),DZ=X Q:DQ(1)=""
        !             8:        I DV S DP=+DV,D=.01 G 1
        !             9:        I DV["P" N %Y,%W,%W1,%Z,C,DD,DDC,DDD,DF,DIAC,DIE,DICP,DICR,DICS,DICW,DICQ1Q,DIEQ,DIFILE,DILCV,DIPGM,DIW,DIX,DIY,DIZ,DS,IOX,IOY S DIE=""
        !            10:        D EN1^DIEQ Q