source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOSCT3.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1ONCOSCT3 ;WASH ISC/SRR,MLH-ASCII OUTPUT ;8/21/93 11:17
2 ;;2.11;ONCOLOGY;**1**;Mar 07, 1995
3 ;
4OUTPUT ;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 ;
11AS 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
16B S XMSUB=$P(COLDD,U,1)_" VS "_$P(ROWDD,U,1) ;B
17M S XMDUZ=DUZ D XMZ^XMA2
18 S L=0
19A 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 ;
31DATA ;CREATE STRING
32D ;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
36EX ;Exit and kill
37 K XMX,XMSUB,XMY,L,XMZ,V,CO,TC,T,VA,B,Q,J,X
Note: See TracBrowser for help on using the repository browser.