DIQQ1 ;SFISC/TKW-NONDESTRUCTIVE ONLINE HELP FOR FIELDS ;4/4/95 09:16
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
EN(DP,D,X) ; DP=file no.,D=field no.,X="?" or "??"
Q:'$G(DP) Q:'$G(D) Q:$G(X)'?1"?"."?"
N %,%DT,A1,A2,DA,DC,DDH,DG,DIC,DIG,DIRUT,DISORT,DTOUT,DUOUT,DO,DQ,DST,DU,DV,DZ,Y
S DISORT=1
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)=""
I DV S DP=+DV,D=.01 G 1
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=""
D EN1^DIEQ Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIQQ1 865 printed Oct 16, 2024@18:54:16 Page 2
DIQQ1 ;SFISC/TKW-NONDESTRUCTIVE ONLINE HELP FOR FIELDS ;4/4/95 09:16
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
EN(DP,D,X) ; DP=file no.,D=field no.,X="?" or "??"
+1 if '$GET(DP)
QUIT
if '$GET(D)
QUIT
if $GET(X)'?1"?"."?"
QUIT
+2 NEW %,%DT,A1,A2,DA,DC,DDH,DG,DIC,DIG,DIRUT,DISORT,DTOUT,DUOUT,DO,DQ,DST,DU,DV,DZ,Y
+3 SET DISORT=1
1 SET DQ="^DD("_DP_","_D_",0)"
SET DQ(1)=$GET(@(DQ))
SET DQ=1
SET DV=$TRANSLATE($PIECE(DQ(DQ),U,2),"V","F")
SET DU=$PIECE(DQ(DQ),U,3)
SET DZ=X
if DQ(1)=""
QUIT
+1 IF DV
SET DP=+DV
SET D=.01
GOTO 1
+2 IF DV["P"
NEW %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
SET DIE=""
+3 DO EN1^DIEQ
QUIT
