source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSSCD.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.3 KB
Line 
1GMTSSCD ; HIN/JCC,SLC/SBW,KER - Spinal Cord Dysfunction ; 01/31/2002
2 ;;2.7;Health Summary;**13,28,50**;Oct 20, 1995
3 ;
4 ; External References
5 ; DBIA 1517 EN^SPNHS0
6 ;
7MAIN ; Control branching
8 N GMCB,GMCI,GMCOR,GMD0,GMD1,GMDATA,GMDATE,GMDCS,GMDMS,GMDTS,GMDTY
9 N GMEP,GMET,GMHI,GMIS,GMON,GMPC,GMRS,GMMSST,GMWRT,X
10 K ^TMP("SPN",$J)
11 D EN^SPNHS0(DFN,GMTSBEG,GMTSEND,$G(GMTSNDM))
12 Q:'$D(^TMP("SPN",$J))
13 D WRT
14 K ^TMP("SPN",$J)
15 Q
16WRT ; Print data
17 S GMDATA=^TMP("SPN",$J,0),GMRS=$P(GMDATA,U,1),GMHI=$P(GMDATA,U,2)
18 S GMIS=$P(GMDATA,U,3),GMCI=$P(GMDATA,U,4),GMEP=$P(GMDATA,U,5)
19 S GMPC=$P(GMDATA,U,6),GMCOR=$P(GMDATA,U,7),GMMSST=$P(GMDATA,U,8)
20 D CKP^GMTSUP Q:$D(GMTSQIT)
21 W "Registration Status:",?29,GMRS,!
22 D CKP^GMTSUP Q:$D(GMTSQIT)
23 W "SCI Level:",?29,GMHI,!
24 D CKP^GMTSUP Q:$D(GMTSQIT)
25 W "Primary Care Provider:",?29,GMPC,!
26 D CKP^GMTSUP Q:$D(GMTSQIT)
27 W "SCI/SCD Coordinator:",?29,GMCOR,!
28 D CKP^GMTSUP Q:$D(GMTSQIT)
29 W "Sensory/Motor Loss:",?29,GMCI,!
30 D CKP^GMTSUP Q:$D(GMTSQIT)
31 W "Classification of Paralysis:",?29,GMEP,!
32 D CKP^GMTSUP Q:$D(GMTSQIT)
33 W:GMMSST'="" "MS Subtype:",?29,GMMSST,!
34 S GMD0="",GMWRT=1
35 F S GMD0=$O(^TMP("SPN",$J,154,GMD0)) Q:GMD0=""!$D(GMTSQIT) D
36 . S GMDATA=^TMP("SPN",$J,154,GMD0)
37 . S X=$P(GMDATA,U) D REGDTM4^GMTSU S GMON=X
38 . S GMET=$P(GMDATA,U,2)
39 . S GMCB=$P(GMDATA,U,3)
40 . D:GMWRT HDR1
41 . D CKP^GMTSUP Q:$D(GMTSQIT) D:GMTSNPG HDR1
42 . W GMON,?18,GMET,?50,$E(GMCB,1,29),!
43 . S GMWRT=0
44 S GMD0=0,GMWRT=1
45 F S GMD0=$O(^TMP("SPN",$J,154.1,GMD0)) Q:GMD0'>0!$D(GMTSQIT) D
46 . S GMD1=0
47 . F S GMD1=$O(^TMP("SPN",$J,154.1,GMD0,GMD1)) Q:GMD1'>0!$D(GMTSQIT) D
48 . . S GMDATA=^TMP("SPN",$J,154.1,GMD0,GMD1)
49 . . S X=$P(GMDATA,U) D REGDTM4^GMTSU S GMDATE=X
50 . . S GMDMS=$P(GMDATA,U,2),GMDCS=$P(GMDATA,U,3),GMDTS=$P(GMDATA,U,4),GMDTY=$P(GMDATA,U,5)
51 . . D:+GMWRT HDR2
52 . . D CKP^GMTSUP Q:$D(GMTSQIT) D:GMTSNPG HDR2
53 . . W GMDATE,?18,GMDMS,?32,GMDCS,?50,GMDTS,?64,$E(GMDTY,1,15),!
54 . . S GMWRT=0
55 Q
56HDR1 ; 1st header
57 D CKP^GMTSUP Q:$D(GMTSQIT) W:+GMTSNPG'>0 !
58 D CKP^GMTSUP Q:$D(GMTSQIT) W "Date of Onset ",?16,"Etiology ",?48,"Onset of SCD Caused by Trauma",!
59 Q
60HDR2 ; 2nd header
61 D CKP^GMTSUP Q:$D(GMTSQIT) W:+GMTSNPG'>0 !
62 D CKP^GMTSUP Q:$D(GMTSQIT) W "Date Recorded",?16,"Motor Score",?30,"Cognitive Score",?48,"Total Score",?62,"Record Type",!
63 Q
Note: See TracBrowser for help on using the repository browser.