Changeset 636 for FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 10 edited
- 1 copied
-
. (copied) (copied from FOIAVistA/trunk/r )
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICATT2.m (modified) (2 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICOMP0.m (modified) (4 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICOMP1.m (modified) (2 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICOMPZ.m (modified) (3 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DID1.m (modified) (2 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIL11.m (modified) (2 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F0.m (modified) (2 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F5.m (modified) (4 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIWP.m (modified) (2 diffs)
-
VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIWW.m (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICATT2.m
r628 r636 1 DICATT2 ;SFISC/GFT,XAK-DEFINING MULTIPLES ; 9APR20072 ;;22.0;VA FileMan;**89 ,152**;Mar 30, 1999;Build 103 ;Per VHA Directive 2004-038, this routine should not be modified.1 DICATT2 ;SFISC/GFT,XAK-DEFINING MULTIPLES ;02:13 PM 24 Dec 2001 2 ;;22.0;VA FileMan;**89**;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 S T=$E(Z) G CHECK^DICATT:$D(DTOUT) 5 F P="I","O","L" ,"x"S:$P(O,U,2)[P Z=$P(Z,U)_P_U_$P(Z,U,2)5 F P="I","O","L" S:$P(O,U,2)[P Z=$P(Z,U)_P_U_$P(Z,U,2) 6 6 1 K DS S:$P(Z,U)'["K" V=W[";0" 7 7 S P=0,N=DICL,DQ=4,DP=6,DQI=" S:$D(X) DINUM=+X",DREF=$F(O,DQI)-1=$L(O),DE(7,0)="NO",DG(7)="N" … … 21 21 ; 22 22 W S %=Z["L"+1 W !,"SHALL THIS TEXT NORMALLY APPEAR IN WORD-WRAP MODE" D YN^DICN 23 G CHECK^DICATT:%<0 I % S Z=$P($ TR(Z,"L"),U)_$E("L",%=2)_U G WINDOW24 W ! ,"ANSWER 'YES' IF THE INTERNALLY-STORED '"_F_"' TEXT"23 G CHECK^DICATT:%<0 I % S Z=$P($P(Z,"L")_$P(Z,"L",2),U)_$E("L",%=2)_U G G 24 W !?3,"ANSWER 'YES' IF THE INTERNALLY-STORED '"_F_"' TEXT" 25 25 W !?5,"SHOULD NORMALLY BE PRINTED OUT IN FULL LINES, BREAKING AT WORD BOUNDARIES." 26 26 W !?2,"ANSWER 'NO' IF THE INTERNAL TEXT SHOULD NORMALLY BE PRINTED OUT" 27 27 W !?5,"LINE-FOR-LINE AS IT STANDS.",! G W 28 ;29 ;30 WINDOW S %=2-(Z["x"!'O) W !,"SHALL ""|"" CHARACTERS IN THIS TEXT BE TREATED LIKE ANY OTHER CHARACTERS" D YN^DICN31 G CHECK^DICATT:%<0 I % S Z=$P($TR(Z,"x"),U)_$E("x",%=1)_U G G32 W !,"ANSWER 'YES' IF THE INTERNALLY-STORED '"_F_"' TEXT MAY HAVE ""|"" CHARACTERS"33 W !?3,"IN IT (SUCH AS HL7 MESSAGES) THAT NEED TO DISPLAY EXACTLY AS THEY ARE STORED."34 W !,"ANSWER 'NO' IF THE INTERNAL TEXT SHOULD NORMALLY BE PRINTED OUT WITH ANYTHING"35 W !?3,"THAT IS DELIMITED BY ""|"" CHARACTERS INTERPRETED AS VARIABLE TEXT.",! G WINDOW36 ;37 ;38 28 ; 39 29 X ; -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICOMP0.m
r628 r636 1 DICOMP0 ;SFISC/GFT-EVALUATE COMPUTED FLD EXPR ; 5NOV20072 ;;22.0;VA FileMan;**6,76,114,144 ,152**;;Build 101 DICOMP0 ;SFISC/GFT-EVALUATE COMPUTED FLD EXPR ;2DEC2006 2 ;;22.0;VA FileMan;**6,76,114,144**;;Build 5 3 3 ;Per VHA Directive 2004-038, this routine should not be modified. 4 4 N DICOMPI … … 6 6 LIT I X?1"""".E1"""" S Y=0,%=$E(X,2,$L(X)-1) K:%[""" X "!(%[""" D @") Y S X=""""_$$CONVQQ^DILIBF(%)_"""" Q 7 7 L S T=DLV,DICN=X 8 TRY G M:'$D(J(T))!'$D(I(T)),M:+J(T)'=J(T),M:$ G(^DD(J(T),.01,0))="",UP:$P(^(0),U,2)["W"S DIC="^DD("_J(T)_",",DG=$O(^DD(J(T),0,"NM",0))_" "8 TRY G M:'$D(J(T))!'$D(I(T)),M:+J(T)'=J(T),M:$D(^DD(J(T)))<9 S DIC="^DD("_J(T)_",",DG=$O(^DD(J(T),0,"NM",0))_" " 9 9 S DIC("S")=$S(W="["!($E(I,M,M+1)="'[")!$D(DICMX):"I ",1:"S %=$P(^(0),U,2) I '%,%'[""m"",")_"$$SCREEN^DICOMP0" 10 10 D DICS^DICOMPY:DUZ(0)'="@" … … 13 13 N I $P(X,DG)="",X=DICN S X=$P(X,DG,2,9) G R 14 14 NUMBER I X="NUMBER" S Y=.001,Y(0)=0 G D 15 UPS T=T-1,X=DICN G M:T<0,TRY:$D(J(T)) F T=T-99:1 G TRY:'$D(J(T+1))15 S T=T-1,X=DICN G M:T<0,TRY:$D(J(T)) F T=T-99:1 G TRY:'$D(J(T+1)) 16 16 ; 17 17 A F D=M:1:$L(I)+1 Q:$F(X,$E(I,1,D))-1-D S W=$E(I,D+1) … … 31 31 S ; 32 32 S %=DLV0,DG=W=":"&'$D(DPS(DPS,"$S")) 33 OUT I D["O"&(D'["P"!'DG)!(D["V"&'$D(DPS(DPS,"FILE"))) D Q 34 .S X="$$EXTERNAL^DIDU("_T_","_DICN_","""","_X_")",DICO("DIERR")=1 33 I D["O"&(D'["P"!'DG)!(D["V"&'$D(DPS(DPS,"FILE"))) D DIMP^DICOMPZ("N C S Y="_X_",C="""_D_""" D:$D(^DD("_T_","_DICN_",0)) Y^DIQ") S X=X_" S X=Y" Q 35 34 SET I D["S" S DG(%)=DG(%)+1,DG(%,DG(%))="$C(59)_$P($G(^DD("_T_","_DICN_",0)),U,3)",X="$P($P("_DQI_DG(%)_"),$C(59)_"_X_"_"":"",2),$C(59))" 36 35 Q:D'["P" S %Y=U_$P(Y(0),U,3),DICN=+$P(@(%Y_"0)"),U,2) -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICOMP1.m
r628 r636 1 DICOMP1 ;SFISC/GFT-EVALUATE COMPUTED FLD EXPR ;1 9JUNE20072 ;;22.0;VA FileMan;**6,44,76 ,152**;Mar 30, 1999;Build 103 ;Per VHA Directive 2004-038, this routine should not be modified.1 DICOMP1 ;SFISC/GFT-EVALUATE COMPUTED FLD EXPR ;12:45 PM 9 Sep 2002 2 ;;22.0;VA FileMan;**6,44,76**;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 F Q:'$D(DPS(DPS,"ST")) D DPS^DICOMPW S K=K+1,K(K)=X 5 5 G 0:DPS … … 40 40 S DICOMP="",DLV=DICO(1) 41 41 Q I DICOMP'["S" S K=DICO(1) F S K=$O(I(K)) Q:K="" K I(K),J(K) 42 I $ D(X) S:$D(DICO("DIERR")) X="N DIERR "_X I $G(DICOMPQI) S X="N Y "_X42 I $G(DICOMPQI),$D(X) S X="N Y "_X 43 43 Y K Y I $D(DICO("RCR")) S Y=DICO("RCR") 44 44 E S Y=DLV_$E("W",$D(DPS("W")))_$S($G(DBOOL)=1:"B",$D(DATE)>9:"D",1:"")_$E("X",$D(DIM))_$E("L",$D(DICO(2))) -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DICOMPZ.m
r628 r636 1 DICOMPZ ;SFISC/GFT-EVALUATE COMPUTED FLD EXPR ; 9APR20072 ;;22.0;VA FileMan;**6,76,114 ,152**;Mar 30, 1999;Build 103 ;Per VHA Directive 2004-038, this routine should not be modified.1 DICOMPZ ;SFISC/GFT-EVALUATE COMPUTED FLD EXPR ;05:07 PM 16 Jan 2003 2 ;;22.0;VA FileMan;**6,76,114**;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 ; 5 5 PRIOR ;from DICOMP -- PRIOR.. Functions get archived values … … 41 41 S DICOMPXE="D,0))#2 "_DICOMPXE_" "_DICMX_" Q:'$D(D) S D=D"_Y 42 42 S DICOR=$$REF(T)_","_D_",",D="F D=0:0 S (D,D"_Y_")=$O("_DICOR 43 I W=")",$D(DPS(DPS,"INTERNAL")) S D="S D=$G(DIWF) N DIWF S DIWF=D_""XL"" "_D ;**DI*22*15244 43 S %=+$P(DICOT,U,2) 45 44 I $P($G(^DD(%,.01,0)),U,2)["W"!'$D(^DD(%,0,"IX","B",%,.01)) … … 55 54 ; 56 55 CONTAINS N DICON 57 S DICON=W="'",%=$E(I,M+DICON) I %="" !(W=")")S Y=0 Q56 S DICON=W="'",%=$E(I,M+DICON) I %="" S Y=0 Q 58 57 I DICOPS[% S DICOPS=% D R($E(I,M+DICON+1,999)) Q:'$D(Y) D Q 59 58 .S DICOXR=$$DGI^DICOMP -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DID1.m
r628 r636 1 DID1 ;SFISC/XAK,JLT-STD DD LIST ; 9APR20072 ;;22.0;VA FileMan;**7,76,105 ,152**;Mar 30, 1999;Build 103 ;Per VHA Directive 2004-038, this routine should not be modified.1 DID1 ;SFISC/XAK,JLT-STD DD LIST ;1:53 PM 6 Mar 2002 2 ;;22.0;VA FileMan;**7,76,105**;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 S DJ(Z)=D0,DDL1=14,DDL2=32 G B 5 5 ; … … 9 9 D HD:$Y+6>IOSL Q:M=U W !!,F(Z),",",DJ(Z) 10 10 W ?(Z+Z+12),$P(N,U,1),?DDL2+4," "_$P(N,U,4) 11 S X=$P(N,U,2) 12 WP I X,$D(^DD(+X,.01,0)) S W=$P(^(0),U,2) I W["W" D 13 .S X="WORD-PROCESSING #"_+X D S X="(NOWRAP)" D:W["L" S X="(IGNORE ""|"")" D:W["X"!(W["x") S X="(UNEDITABLE)" D:W["I" S X="" 14 ..W:$L(X)+$X+5>IOM !?18 W " ",X 11 S X=$P(N,U,2) I X,$D(^DD(+X,.01,0)) S W=$P(^(0),U,2) I W["W" W " WORD-PROCESSING #",+X W:W["L" " (NOWRAP)" S X="" 15 12 F W="BOOLEAN","COMPUTED","FREE TEXT","SET","DATE","NUMBER","POINTER","K","VARIABLE POINTER","p" I X[$E(W) D VP^DIDX:$E(W)="V" S:W="K" W="MUMPS" S:W="p" W="POINTER" W ?40," "_W G ND:M=U 16 13 I +X S W=" Multiple" S W=W_" #"_+X D W G ND:M=U -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIL11.m
r628 r636 1 DIL11 ;SFISC/GFT-TURN PRINT FLDS INTO CODE ; 5APR20072 ;;22.0;VA FileMan; **152**;Mar 30, 1999;Build 103 ;Per VHA Directive 2004-038, this routine should not be modified.1 DIL11 ;SFISC/GFT-TURN PRINT FLDS INTO CODE ;11/20/92 09:28 2 ;;22.0;VA FileMan;;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 DOWN ; 5 I W>0,'$D(^DD(DP,+W,0)) Q ;IN CASE FIELD IS GONE FOR SOME REASON! 6 S DN=-6,DY(DM)=DY,DP(DM)=DP,DI(DM)=DI G F:W'>0 S X=^DD(DP,+W,0),DU=$P($P(X,U,4),";") S:+DU'=DU DU=""""_DU_"""" 7 S W=$P(W,","),DY="D"_(DIL-DIL0+1),DI=DI_","_DU_","_DY,%=":0 Q:$O("_DI_"))'>0 ",DP=+$P(X,U,2),M(DP)=1,D=$P("""""",U,+DU'=DU),D=" S I("_(DIL+1)_")="_D_DU_D_",J("_(DIL+1)_")="_DP,Y=" S "_DY_"=$O(^("_DY_"))" 8 W I $P(^DD(DP,.01,0),U,2)["W" D:$P(^(0),U,2)["x"!($P(^(0),U,2)["X") G P ;**DI*22*152** 9 .S D=D_",D"_(DIL+1)_"=$G(DIWF) N DIWF S DIWF=D"_(DIL+1)_"_""X""" 5 S DN=-6,DY(DM)=DY,DP(DM)=DP,DI(DM)=DI G F:W'>0 S X=^DD(DP,+W,0),DU=$P($P(X,U,4),";",1) S:+DU'=DU DU=""""_DU_"""" 6 S W=$P(W,C,1),DY="D"_(DIL-DIL0+1),DI=DI_C_DU_C_DY,%=":0 Q:$O("_DI_"))'>0 ",DP=+$P(X,U,2),M(DP)=1,D=$P("""""",U,+DU'=DU),D=" S I("_(DIL+1)_")="_D_DU_D_",J("_(DIL+1)_")="_DP,Y=" S "_DY_"=$O(^("_DY_"))" 7 G P:$P(^DD(DP,.01,0),U,2)["W" 10 8 I DHT+1 F X=1:1 G P:X>DPP,DPP:+DPP(X)=DP!$D(DPP(X,DP)) 11 9 DPP S %=%_" X:$D(DSC("_DP_")) DSC("_DP_")",Y=Y_" Q:"_DY_"'>0" I $T,"@"[$P(DPP(X),U,4),$P(DPP(X),U,2)=0 S DPP(X,U)="" G R:$D(DPP(X,"F")) … … 22 20 QT S Y=$F(X,"""",Y) I Y S X=$E(X,1,Y-1)_$E(X,Y-1,999),Y=Y+1 G QT 23 21 S Y=" S I("_DIL_")="""_X_""",J("_DIL_")="_DP 24 S X=" "_$P($P(W,U,4,99),";" )22 S X=" "_$P($P(W,U,4,99),";",1) 25 23 S DY="D"_(DIL-DIL0),DI=DI_DY,DIL=DIL-1 I $P(W,U,3)="" S W=+W,Y=Y_X_" S D0=D(0) I D0>0" G D^DIL 26 S %="I("_(DIL0-100)_",0)=D0" I X'[% S X= ","_%_X24 S %="I("_(DIL0-100)_",0)=D0" I X'[% S X=C_%_X 27 25 I DHT=-1 D DREL^DIPZ1 G END 28 26 F %=900:1 I '$D(^UTILITY($J,99,%)) S ^(%)="I 1 X:$D(DSC("_DP_")) DSC("_DP_") I D T:$X>"_DG_" Q:'DN "_Y,Y=" S (DIXX,DIXX("_(DM+1)_"))="_%_X,W=+W D D^DIL K R(DX) Q -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F0.m
r628 r636 1 DINIT0F0 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ; 4APR20072 ;;22.0;VA FileMan; **152**;Mar 30, 1999;Build 103 ;Per VHA Directive 2004-038, this routine should not be modified.1 DINIT0F0 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;10:49 AM 30 Mar 1999 2 ;;22.0;VA FileMan;;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 D PRE^DINIT29P 5 5 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F1 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y … … 139 139 ;;=.00104^1^1,1^e 140 140 ;;^DIST(.403,.001,40,7,0) 141 ;;=2.5^^4, 2^^^1^8,78141 ;;=2.5^^4,6^^^1^6,75 142 142 ;;^DIST(.403,.001,40,7,1) 143 143 ;;=Page 2.5 -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINIT0F5.m
r628 r636 1 DINIT0F5 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ; 9APR20072 ;;22.0;VA FileMan;**76 ,152**;Mar 30, 1999;Build 103 ;Per VHA Directive 2004-038, this routine should not be modified.1 DINIT0F5 ;SFISC/MKO-DATA FOR FORM AND BLOCK FILES ;05:51 PM 23 Mar 2001 2 ;;22.0;VA FileMan;**76**;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 F I=1:2 S X=$T(ENTRY+I) G:X="" ^DINIT0F6 S Y=$E($T(ENTRY+I+1),5,999),X=$E(X,4,999),@X=Y 5 5 Q … … 144 144 ;;=DICATT5^1 145 145 ;;^DIST(.404,.00105,40,0) 146 ;;=^.4044I^ 2^2146 ;;=^.4044I^1^1 147 147 ;;^DIST(.404,.00105,40,1,0) 148 148 ;;=75^SHALL THIS TEXT NORMALLY APPEAR IN WORD-WRAP MODE^2^^WORD-WRAP 149 149 ;;^DIST(.404,.00105,40,1,2) 150 ;;=2,5 3^3^2,2150 ;;=2,56^3^2,5 151 151 ;;^DIST(.404,.00105,40,1,3) 152 152 ;;=!M … … 154 154 ;;=S Y=$E("YN",DICATT2["L"+1) 155 155 ;;^DIST(.404,.00105,40,1,12) 156 ;;=S DICATTMN="" ,DICATT2N="W"_$TR($G(DICATT2N),"WL")_$E("L",'X)156 ;;=S DICATTMN="" S:'X DICATT2N="WL" I DUZ(0)="@",DICATT4="" S DDSSTACK=4 157 157 ;;^DIST(.404,.00105,40,1,20) 158 158 ;;=Y … … 167 167 ;;^DIST(.404,.00105,40,1,21,4,0) 168 168 ;;=it was entered. 169 ;;^DIST(.404,.00105,40,2,0)170 ;;=76^SHALL "|" CHARACTERS IN THIS TEXT BE TREATED LIKE ANY OTHER CHARACTERS^2^^"|"171 ;;^DIST(.404,.00105,40,2,2)172 ;;=3,74^3^3,2173 ;;^DIST(.404,.00105,40,2,3)174 ;;=!M175 ;;^DIST(.404,.00105,40,2,3.1)176 ;;=S Y=$S(DICATT2["X"!(DICATT2["x")!(DICATT2=""):"Y",1:"N")177 ;;^DIST(.404,.00105,40,2,12)178 ;;=S DICATTMN="",DICATT2N="W"_$TR($G(DICATT2N),"WxX")_$E("x",X>0) I DUZ(0)="@",DICATT4="" S DDSSTACK=4179 ;;^DIST(.404,.00105,40,2,20)180 ;;=Y181 ;;^DIST(.404,.00105,40,2,21,0)182 ;;=^^4^4^2981120183 ;;^DIST(.404,.00105,40,2,21,1,0)184 ;;=Answer 'YES' if the internally-stored text may have "|" characters in it185 ;;^DIST(.404,.00105,40,2,21,2,0)186 ;;=(such as HL7 messages) that need to display exactly as they are stored.187 ;;^DIST(.404,.00105,40,2,21,3,0)188 ;;=Answer 'NO' if the internal text should normally be printed out with189 ;;^DIST(.404,.00105,40,2,21,4,0)190 ;;=anything that is delimited by "|" characters interpreted as variable.191 169 ;;^DIST(.404,.00106,0) 192 170 ;;=DICATT6^1 -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIWP.m
r628 r636 1 DIWP ;SFISC/GFT-ASSEMBLE WP LINE ;10JUN2005 2 ;;22.0;VA FileMan;**46,152**;Mar 30, 1999;Build 10 3 ;Per VHA Directive 2004-038, this routine should not be modified. 4 ;The DIWF variable contains a string of one-letter codes to control W-P output. 5 ;"|" in DIWF means that "|"-windows are not to be evaluated, but are to be printed as 6 ; they stand. 7 ;"X" means eXactly line-for-line, with "||" printed as "||" 8 ;"W" in DIWF means that formatted text will be written out to 9 ; the current device as it is assembled. 10 ;"N" means NOWRAP-- text is assembled line-for-line 11 ;"R" means text will be assembled Right-justified 12 ;"D" means text will be double-spaced 13 ;"L" means internal line numbers appear at the left margin 14 ;"C" followed by a number will cause formatting of text in a column 15 ; width specified by the number. 16 ;"I" followed by a number will cause text to be indented that number 17 ; of columns. 18 ;"?" means that, if user's terminal is available, "|"-windows that cannot 19 ; be evaluated will be asked from the user's terminal. 20 ;"B" followed by number causes new page when output gets within that 21 ; number of lines from the bottom of the page (as defined by IOSL). 22 ; 23 ;DIWTC is a Boolean -- Are we printing out in LINE MODE? 1 DIWP ;SFISC/GFT-ASSEMBLE WP LINE ;12:15 PM 5 Jun 2000 2 ;;22.0;VA FileMan;**46**;Mar 30, 1999 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 24 4 S:'$L(X) X=" " 25 5 S DIWTC=X[($C(124)_"TAB") S:'$D(DN) DN=1 … … 29 9 D NEW:DIWTC 30 10 Z S Z=X?.P!DIWTC I X?1" ".E!Z S DIWTC=1 D NEW:DIWI]"" S DIWTC=Z 31 DIW ;from RCR+5^DIWW 32 I DIWF["X" S DIWTC=1,X=DIWX,DIWX="" D C G D ;**DI*22*152** Leave line unaltered 11 DIW ; 33 12 S X=$P(DIWX,DIW,1) D C:X]"" S X=$P(DIWX,DIW,1),DIWX=$P(DIWX,DIW,2,999) G D:DIWX="" I $D(DIWP),X'?.E1" " D ST 34 13 S X=$P(DIWX,DIW,1) I $P(X,"TAB",1)="" D TAB G N -
FOIAVistA/tag/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIWW.m
r628 r636 1 DIWW ;SFISC/GFT-OUTPUT WP LINE ; 5NOV20072 ;;22.0;VA FileMan;**64,144 ,152**;Mar 30, 1999;Build 101 DIWW ;SFISC/GFT-OUTPUT WP LINE ;02:59 PM 18 Apr 2002 2 ;;22.0;VA FileMan;**64,144**;Mar 30, 1999;Build 5 3 3 ;Per VHA Directive 2004-038, this routine should not be modified. 4 4 F I=0:1 G:$D(DN) QQ:'DN Q:$D(^UTILITY($J,"W"))<9 D T G:$D(DN) QQ:'DN D 0 … … 48 48 ; 49 49 DIQ ; 50 S DIWF=$E("N",C["L")_"W "_$E("|X",C["X"!(C["x")+1),DIWL=2,DIWR=IOM,X=O_": " K ^UTILITY($J,"W")50 S DIWF=$E("N",C["L")_"W|",DIWL=2,DIWR=IOM,X=O_": " K ^UTILITY($J,"W") 51 51 S W=0 F D S W=$O(@(D(DL-1)_"W)")) Q:W'>0!(S=0) S X=^(W,0) 52 52 .D ^DIWP
Note:
See TracChangeset
for help on using the changeset viewer.
