source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNETOBJ.m@ 1261

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

initial load of WorldVistAEHR

File size: 834 bytes
Line 
1SPNETOBJ ;SD/CM- ETIOLOGY OBJECT; 2-14-2003
2 ;;2.0;Spinal Cord Dysfunction;**20,23**;01/02/97
3EN(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
Note: See TracBrowser for help on using the repository browser.