| 1 | ONCOSCT3 ;WASH ISC/SRR,MLH-ASCII OUTPUT ;8/21/93 11:17
|
---|
| 2 | ;;2.11;ONCOLOGY;**1**;Mar 07, 1995
|
---|
| 3 | ;
|
---|
| 4 | OUTPUT ;IN ^TMP($J,"CLAB",'Column Alpha Order')=COLUMN LABEL
|
---|
| 5 | ; ^TMP($J,"RLAB", Row Number)= ROW LABEL
|
---|
| 6 | ; ,"COL", Column number) = Column Alpha
|
---|
| 7 | ; "CSUM", 'Column Alpha') = column sum
|
---|
| 8 | ; "RSUM:, 'Row Number) = Row sum
|
---|
| 9 | ;^TMP($J,"CELL",Row Number,Column Alpha code)= Total for cell ^(x,y)
|
---|
| 10 | ;
|
---|
| 11 | AS K X S J=2,Q="""",C=",",B=Q_Q,X(1)=B,X(2)=Q_$P(ROWDD,U)_Q
|
---|
| 12 | S X=-1 F S X=$O(^TMP($J,"CLAB",X)) Q:X="" S VA=^(X) D DATA
|
---|
| 13 | S R=0 F S R=$O(^TMP($J,"RLAB",R)) Q:R="" S J=J+1,X(J)=Q_^(R)_Q D
|
---|
| 14 | .S TC=0,CO=0 F S CO=$O(^TMP($J,"COL",CO)) Q:CO="" S V=^(CO),TC=TC+1,T=$G(^TMP($J,"CELL",R,V)),T=$S(T="":0,1:T),X(J)=X(J)_C_T
|
---|
| 15 | Q:J=2 S J=J+1,X(J)=B F K=1:1:TC S X(J)=X(J)_C_B
|
---|
| 16 | B S XMSUB=$P(COLDD,U,1)_" VS "_$P(ROWDD,U,1) ;B
|
---|
| 17 | M S XMDUZ=DUZ D XMZ^XMA2
|
---|
| 18 | S L=0
|
---|
| 19 | A S L=L+1 I $D(X(L)) S X=X(L) I $L(X),$L(X)'>255 S ^XMB(3.9,XMZ,2,L,0)=X G A
|
---|
| 20 | ;String length too long
|
---|
| 21 | ;
|
---|
| 22 | ;NO DATA RETURNED SET ZERO NODE
|
---|
| 23 | S DA=XMZ,DIE=3.9,DR="1.7///P;1.95///Y" D ^DIE
|
---|
| 24 | S ^XMB(3.9,XMZ,2,0)="^3.92A^"_L_"^"_L_"^"_DT
|
---|
| 25 | ;S XMDUN="SENDER"
|
---|
| 26 | S XMY(DUZ)="",XMY($P(^VA(200,DUZ,0),U))=""
|
---|
| 27 | D ENT1^XMD ; CALL for delivery
|
---|
| 28 | ;D ^XMD ; formerly NNEW^XMA
|
---|
| 29 | Q
|
---|
| 30 | ;
|
---|
| 31 | DATA ;CREATE STRING
|
---|
| 32 | D ;CHECK LENGTH
|
---|
| 33 | Q:X(1)["END" S NVA=C_Q_VA_Q,SL=$L(NVA)+$L(X(1)) I SL>245 S X(1)=X(1)_C_Q_"END" Q
|
---|
| 34 | S X(1)=X(1)_NVA,X(2)=X(2)_C_B
|
---|
| 35 | Q
|
---|
| 36 | EX ;Exit and kill
|
---|
| 37 | K XMX,XMSUB,XMY,L,XMZ,V,CO,TC,T,VA,B,Q,J,X
|
---|