| [613] | 1 | GMTSSCD ; 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 | ;
|
|---|
| 7 | MAIN ; 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
|
|---|
| 16 | WRT ; 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
|
|---|
| 56 | HDR1 ; 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
|
|---|
| 60 | HDR2 ; 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
|
|---|
