| [613] | 1 | DILL ;SFISC/GFT-TURN PRINT FLDS INTO CODE ;03:56 PM 5 Dec 2001
|
|---|
| 2 | ;;22.0;VA FileMan;**25,76**;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | S DXS=1
|
|---|
| 5 | V ;
|
|---|
| 6 | S V=$P(X,U,2),DRJ=$F(V,"P") I V["O",$D(^(2)) S Y=Y_" "_^(2),DIO=1,D1="",DLN=30,DRJ=0 D SY G J
|
|---|
| 7 | G CLC:V["C",D:'DRJ S V=+$E(V,DRJ,99),D1=$P(X,U,3) I 'V S DRJ=0,@("V=$D(^"_D1_"0))") G D:'V S V=+$P(^(0),U,2)
|
|---|
| 8 | POINTR D Y S Y=Y_" S Y=$S(Y="""":Y,$D(^"_D1_"Y,0))#2:$P(^(0),U),1:Y)" I $D(^DD(V,.01,0)) S X=$P(X,U)_U_$P(^(0),U,2,9) G V
|
|---|
| 9 | D I V["V" D Y S Y=$P(Y," S Y=$S(Y="""":Y,$D(^")_" S C=$P(^DD("_DP_","_+W_",0),U,2) D Y^DIQ:Y S C="","""
|
|---|
| 10 | I V["D" S DLN=$P($P(X,"%DT=""",2),"""",1),DLN=$S(DLN["S":21,DLN["T":18,1:11) D W S D1=" D DT" S:DLN>11&DRJ D1=" W ?("_DLN_"-$S(Y#1:18,1:11)+$X)"_D1 S:W[";W" Y=Y_" X ^DD(""DD"") S:Y[""@"" Y=$P(Y,""@"")_"" ""_$P(Y,""@"",2)" G SY
|
|---|
| 11 | I $P(X,"X>",2) S DLN=$L(+$P(X,"X>",2))+3,DRJ=1 G J
|
|---|
| 12 | S DLN=+$P(X,"$L(X)>",2) I 'DLN S D1=$P($P(X,U,4),";",2) I D1?1"E"1N.N1","1N.N S DLN=$P(D1,",",2)-D1+1
|
|---|
| 13 | I V'["S" S:'DLN DLN=30 G J
|
|---|
| 14 | D W S D1=$P(X,U,3) F V=1:1 Q:'$D(DXS(V))
|
|---|
| 15 | S I D1]"",W[";W"!'$D(DNP) S D2=$P(D1,";",1),D1=$P(D1,";",2,99),D3=$P(D2,":",1),D2=$P(D2,":",2) S:$L(D2)>DLN&'$P(W,";L",2)&'$P(W,";R",2) DLN=$L(D2) S DXS(V,D3)=$E(D2,1,DLN) G S
|
|---|
| 16 | D K S D1="$S($D(DXS("_V_",Y)):DXS("_V_",Y),1:Y)" S:DRJ D1="$J("_D1_","_DLN_")" S:W[";W" Y=Y_" S:Y]"""" Y="_D1 S:W'[";W" D1=" W:Y]"""" "_D1
|
|---|
| 17 | SY D Y S Y=Y_$S($D(DNP):"",1:D1) K D1 Q
|
|---|
| 18 | ;
|
|---|
| 19 | Y I DXS S Y=" S Y="_Y,DXS="Y"
|
|---|
| 20 | Q Q
|
|---|
| 21 | ;
|
|---|
| 22 | W ;
|
|---|
| 23 | F I=";W",";L" I W[I S DRJ=0 S:$P(W,I,2)?1N.E DLN=+$P(W,I,2),I="" G Q
|
|---|
| 24 | I $P(X,U,2)["J" S I=$P($P(X,U,2),"J",2),W=W_";R"_$P(I+1,U,I>0) I $P(X,U,2)'["O",I["," S W=W_";D"_+$P(I,",",2)
|
|---|
| 25 | I W[";R" S DRJ=1 S:$P(W,";R",2) DLN=+$P(W,";R",2)
|
|---|
| 26 | S I=$P($P(W,";D",2),";",1) S:I]"" DRJ=1,I=","_+I Q
|
|---|
| 27 | ;
|
|---|
| 28 | CLC ;
|
|---|
| 29 | S Y=" "_$P(X,U,5,99),DXS="X" I V["D" S Y=Y_" S Y=X" G D
|
|---|
| 30 | I V["p" S V=$P(V,"p",2),D1=$P($G(^DIC(+V,0,"GL")),U,2) I D1]"" S Y=Y_" S Y=X",DXS="Y" G POINTR ;computed pointer
|
|---|
| 31 | I V?.E1"J"1N.E,W'[";X",W'[";R",V'["," S W=W_";L"_+$P(V,"J",2)
|
|---|
| 32 | J D W Q:V["m"!$D(DNP) I '$D(DLN) S Y=Y_" W X" Q
|
|---|
| 33 | I 'DLN S DLN=$S(V["B":1,W[";L0":0,1:8)
|
|---|
| 34 | S D2="" I 'DRJ S V="E(",D3="1,"_DLN
|
|---|
| 35 | E S V="J(",D3=DLN_I I I]"" D Y S D2=":Y]""""" I DXS="X" S D2=":X'?.""*"""
|
|---|
| 36 | S Y=$S(DXS:",$"_V_Y,1:Y_" W"_D2_" $"_V_DXS)_","_D3_")" I $P(X,U,2)["C",$L(Y)<225 S Y=Y_" K Y("_DP_","_+W_")"
|
|---|
| 37 | I $G(DDXP)=4 S Y=$$DJTOPY^DDXP4(Y)
|
|---|
| 38 | K K D2,D3 Q
|
|---|
