[613] | 1 | SPNETOBJ ;SD/CM- ETIOLOGY OBJECT; 2-14-2003
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;**20,23**;01/02/97
|
---|
| 3 | EN(DFN) S U="^",SPNET="",X="Etiologies:"
|
---|
| 4 | S CNT=0
|
---|
| 5 | K ^TMP($J,"ETIOL")
|
---|
| 6 | I '$D(^SPNL(154,DFN,0)) S SPNET="No data available" Q "Etiologies: "_SPNET
|
---|
| 7 | I $O(^SPNL(154,DFN,"E",0))<1 S SPNET="No data available" Q "Etiologies: "_SPNET
|
---|
| 8 | N SPNETI,SPNDFLG
|
---|
| 9 | S (SPNETI,SPNDFLG)=0
|
---|
| 10 | F S SPNETI=$O(^SPNL(154,DFN,"E",SPNETI)) Q:SPNETI<1 D
|
---|
| 11 | .N SPNETO
|
---|
| 12 | .S CNT=CNT+1
|
---|
| 13 | .S SPNETO=$P($G(^SPNL(154,DFN,"E",SPNETI,0)),U) Q:SPNETO=""
|
---|
| 14 | .W !
|
---|
| 15 | .;W ?12,$E($$GET^DDSVAL(154.03,SPNETO,.01,"","E"),1,30),?44,$$FMTE^XLFDT($P($G(^SPNL(154,DFN,"E",SPNETI,0)),U,2),"5DZP"),?58,$$GET^DDSVAL(154.03,SPNETO,.02,"","E")
|
---|
| 16 | .S ^TMP($J,"ETIOL",CNT)=CNT_") "_$E($$GET^DDSVAL(154.03,SPNETO,.01,"","E"),1,30)
|
---|
| 17 | .S X=X_" "_^TMP($J,"ETIOL",CNT) I '+CNT S X=X_"No data available"
|
---|
| 18 | .Q
|
---|
| 19 | Q X
|
---|