source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNHS0.m@ 1766

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1SPNHS0 ;HIRMFO/JCC-HEALTH SUMMARY: SCD EXTRACT ;10/23/01 10:33
2 ;;2.0;Spinal Cord Dysfunction;**10,16**;01/02/1997
3EN(SPNDFN,SPNBEG,SPNEND,SPNMAX) ;
4 ;
5 ;Required:
6 ; SPNDFN = PATIENT file (#2) pointer
7 ; SPNBEG = Beginning date
8 ; SPNEND = Ending date
9 ;Optional:
10 ; SPNMAX = Maximum number of occurrences
11 ;Returns:
12 ; ^TMP("SPN",$J,0)=DATA FROM 154
13 ; ^TMP("SPN",$J,154,INVERSE_DATE_ONSET) =
14 ; ^TMP("SPN",$J,154.1,INVERSE_DATE_RECORDED,SPNIEN)=
15 ;
16 I +SPNMAX'>0 S SPNMAX=999
17 K ^TMP("SPN",$J)
18 I $O(^SPNL(154,"B",SPNDFN,0))'>0 G EXIT
19 S SPNIEN=$O(^SPNL(154.1,"B",SPNDFN,0))
20 S SPNCNT=0,SPNDATE=SPNEND+.0000001
21 F S SPNDATE=$O(^SPNL(154.1,"AB",SPNDFN,SPNDATE),-1) Q:SPNDATE'>0!(SPNCNT=SPNMAX) D
22 .I SPNDATE<SPNBEG Q
23 .S SPNIEN=0 F S SPNIEN=$O(^SPNL(154.1,"AB",SPNDFN,SPNDATE,SPNIEN)) Q:SPNIEN'>0 Q:SPNCNT=SPNMAX D ;
24 ..I $$GET1^DIQ(154.1,SPNIEN,.02,"I")>2 Q ; Must be a 4 or 7 level FIM
25 ..S SPNDMS=$$GET1^DIQ(154.1,SPNIEN,999.03)
26 ..S SPNDTY=$E($$GET1^DIQ(154.1,SPNIEN,.02),1,10)
27 ..S SPNDCS=$$GET1^DIQ(154.1,SPNIEN,999.04)
28 ..S SPNDTS=$$GET1^DIQ(154.1,SPNIEN,999.05)
29 ..S ^TMP("SPN",$J,154.1,9999999-SPNDATE,SPNIEN)=SPNDATE_"^"_SPNDMS_"^"_SPNDCS_"^"_SPNDTS_"^"_SPNDTY
30 ..S SPNCNT=SPNCNT+1
31 S SPNIEN=SPNDFN
32 S SPNRS=$$GET1^DIQ(154,SPNIEN,.03)
33 S SPNHI=$$GET1^DIQ(154,SPNIEN,2.1)
34 S SPNIS=$$GET1^DIQ(154,SPNIEN,2.3)
35 S SPNPC=$$GET1^DIQ(154,SPNIEN,8.1)
36 S SPNCOR=$$GET1^DIQ(154,SPNIEN,8.2)
37 S SPNCI=$$GET1^DIQ(154,SPNIEN,999.03)
38 S SPNEP=$$GET1^DIQ(154,SPNIEN,999.04)
39 S SPNMSST=$$GET1^DIQ(154,SPNIEN,2.2)
40 S ^TMP("SPN",$J,0)=SPNRS_"^"_SPNHI_"^"_SPNIS_"^"_SPNCI_"^"_SPNEP_"^"_SPNPC_"^"_SPNCOR_"^"_SPNMSST
41 S SPND1=0 F S SPND1=$O(^SPNL(154,SPNIEN,"E",SPND1)) Q:SPND1'>0 D ;
42 .S SPNONI=$$GET1^DIQ(154.004,SPND1_","_SPNDFN_",",.02,"I") ;DATE OF ONSET
43 .S SPNON=$$GET1^DIQ(154.004,SPND1_","_SPNDFN_",",.02,"I") ;DATE OF ONSET
44 .S SPNET=$$GET1^DIQ(154.004,SPND1_","_SPNDFN_",",.01) ;ETIOLOGY
45 .S SPNCB=$$GET1^DIQ(154.004,SPND1_","_SPNDFN_",",999.01) ;ONSET OF SCD CAUSED BY TRAUMA
46 .S ^TMP("SPN",$J,154,(9999999-SPNONI)_"^"_SPND1)=SPNON_"^"_SPNET_"^"_SPNCB
47 .Q
48EXIT ;
49 K SPNRS,SPNHI,SPNIS,SPNCI,SPNEP,SPNON,SPNET,SPNCB,SPNDATE,SPNDMS,SPNDCS,SPNDTS,SPNCNT,SPNMAX,SPND1,SPNONI,SPNIEN,SPNDTY,SPNPC,SPNCOR,SPNMSST
50 Q
Note: See TracBrowser for help on using the repository browser.