- GMTSSCD ; HIN/JCC,SLC/SBW,KER - Spinal Cord Dysfunction ; 01/31/2002
- ;;2.7;Health Summary;**13,28,50**;Oct 20, 1995
- ;
- ; External References
- ; DBIA 1517 EN^SPNHS0
- ;
- MAIN ; Control branching
- N GMCB,GMCI,GMCOR,GMD0,GMD1,GMDATA,GMDATE,GMDCS,GMDMS,GMDTS,GMDTY
- N GMEP,GMET,GMHI,GMIS,GMON,GMPC,GMRS,GMMSST,GMWRT,X
- K ^TMP("SPN",$J)
- D EN^SPNHS0(DFN,GMTSBEG,GMTSEND,$G(GMTSNDM))
- Q:'$D(^TMP("SPN",$J))
- D WRT
- K ^TMP("SPN",$J)
- Q
- WRT ; Print data
- S GMDATA=^TMP("SPN",$J,0),GMRS=$P(GMDATA,U,1),GMHI=$P(GMDATA,U,2)
- S GMIS=$P(GMDATA,U,3),GMCI=$P(GMDATA,U,4),GMEP=$P(GMDATA,U,5)
- S GMPC=$P(GMDATA,U,6),GMCOR=$P(GMDATA,U,7),GMMSST=$P(GMDATA,U,8)
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W "Registration Status:",?29,GMRS,!
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W "SCI Level:",?29,GMHI,!
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W "Primary Care Provider:",?29,GMPC,!
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W "SCI/SCD Coordinator:",?29,GMCOR,!
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W "Sensory/Motor Loss:",?29,GMCI,!
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W "Classification of Paralysis:",?29,GMEP,!
- D CKP^GMTSUP Q:$D(GMTSQIT)
- W:GMMSST'="" "MS Subtype:",?29,GMMSST,!
- S GMD0="",GMWRT=1
- F S GMD0=$O(^TMP("SPN",$J,154,GMD0)) Q:GMD0=""!$D(GMTSQIT) D
- . S GMDATA=^TMP("SPN",$J,154,GMD0)
- . S X=$P(GMDATA,U) D REGDTM4^GMTSU S GMON=X
- . S GMET=$P(GMDATA,U,2)
- . S GMCB=$P(GMDATA,U,3)
- . D:GMWRT HDR1
- . D CKP^GMTSUP Q:$D(GMTSQIT) D:GMTSNPG HDR1
- . W GMON,?18,GMET,?50,$E(GMCB,1,29),!
- . S GMWRT=0
- S GMD0=0,GMWRT=1
- F S GMD0=$O(^TMP("SPN",$J,154.1,GMD0)) Q:GMD0'>0!$D(GMTSQIT) D
- . S GMD1=0
- . F S GMD1=$O(^TMP("SPN",$J,154.1,GMD0,GMD1)) Q:GMD1'>0!$D(GMTSQIT) D
- . . S GMDATA=^TMP("SPN",$J,154.1,GMD0,GMD1)
- . . S X=$P(GMDATA,U) D REGDTM4^GMTSU S GMDATE=X
- . . S GMDMS=$P(GMDATA,U,2),GMDCS=$P(GMDATA,U,3),GMDTS=$P(GMDATA,U,4),GMDTY=$P(GMDATA,U,5)
- . . D:+GMWRT HDR2
- . . D CKP^GMTSUP Q:$D(GMTSQIT) D:GMTSNPG HDR2
- . . W GMDATE,?18,GMDMS,?32,GMDCS,?50,GMDTS,?64,$E(GMDTY,1,15),!
- . . S GMWRT=0
- Q
- HDR1 ; 1st header
- D CKP^GMTSUP Q:$D(GMTSQIT) W:+GMTSNPG'>0 !
- D CKP^GMTSUP Q:$D(GMTSQIT) W "Date of Onset ",?16,"Etiology ",?48,"Onset of SCD Caused by Trauma",!
- Q
- HDR2 ; 2nd header
- D CKP^GMTSUP Q:$D(GMTSQIT) W:+GMTSNPG'>0 !
- D CKP^GMTSUP Q:$D(GMTSQIT) W "Date Recorded",?16,"Motor Score",?30,"Cognitive Score",?48,"Total Score",?62,"Record Type",!
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSSCD 2401 printed Mar 13, 2025@21:05:11 Page 2
- GMTSSCD ; HIN/JCC,SLC/SBW,KER - Spinal Cord Dysfunction ; 01/31/2002
- +1 ;;2.7;Health Summary;**13,28,50**;Oct 20, 1995
- +2 ;
- +3 ; External References
- +4 ; DBIA 1517 EN^SPNHS0
- +5 ;
- MAIN ; Control branching
- +1 NEW GMCB,GMCI,GMCOR,GMD0,GMD1,GMDATA,GMDATE,GMDCS,GMDMS,GMDTS,GMDTY
- +2 NEW GMEP,GMET,GMHI,GMIS,GMON,GMPC,GMRS,GMMSST,GMWRT,X
- +3 KILL ^TMP("SPN",$JOB)
- +4 DO EN^SPNHS0(DFN,GMTSBEG,GMTSEND,$GET(GMTSNDM))
- +5 if '$DATA(^TMP("SPN",$JOB))
- QUIT
- +6 DO WRT
- +7 KILL ^TMP("SPN",$JOB)
- +8 QUIT
- WRT ; Print data
- +1 SET GMDATA=^TMP("SPN",$JOB,0)
- SET GMRS=$PIECE(GMDATA,U,1)
- SET GMHI=$PIECE(GMDATA,U,2)
- +2 SET GMIS=$PIECE(GMDATA,U,3)
- SET GMCI=$PIECE(GMDATA,U,4)
- SET GMEP=$PIECE(GMDATA,U,5)
- +3 SET GMPC=$PIECE(GMDATA,U,6)
- SET GMCOR=$PIECE(GMDATA,U,7)
- SET GMMSST=$PIECE(GMDATA,U,8)
- +4 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +5 WRITE "Registration Status:",?29,GMRS,!
- +6 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +7 WRITE "SCI Level:",?29,GMHI,!
- +8 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +9 WRITE "Primary Care Provider:",?29,GMPC,!
- +10 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +11 WRITE "SCI/SCD Coordinator:",?29,GMCOR,!
- +12 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +13 WRITE "Sensory/Motor Loss:",?29,GMCI,!
- +14 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +15 WRITE "Classification of Paralysis:",?29,GMEP,!
- +16 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- +17 if GMMSST'=""
- WRITE "MS Subtype:",?29,GMMSST,!
- +18 SET GMD0=""
- SET GMWRT=1
- +19 FOR
- SET GMD0=$ORDER(^TMP("SPN",$JOB,154,GMD0))
- if GMD0=""!$DATA(GMTSQIT)
- QUIT
- Begin DoDot:1
- +20 SET GMDATA=^TMP("SPN",$JOB,154,GMD0)
- +21 SET X=$PIECE(GMDATA,U)
- DO REGDTM4^GMTSU
- SET GMON=X
- +22 SET GMET=$PIECE(GMDATA,U,2)
- +23 SET GMCB=$PIECE(GMDATA,U,3)
- +24 if GMWRT
- DO HDR1
- +25 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- if GMTSNPG
- DO HDR1
- +26 WRITE GMON,?18,GMET,?50,$EXTRACT(GMCB,1,29),!
- +27 SET GMWRT=0
- End DoDot:1
- +28 SET GMD0=0
- SET GMWRT=1
- +29 FOR
- SET GMD0=$ORDER(^TMP("SPN",$JOB,154.1,GMD0))
- if GMD0'>0!$DATA(GMTSQIT)
- QUIT
- Begin DoDot:1
- +30 SET GMD1=0
- +31 FOR
- SET GMD1=$ORDER(^TMP("SPN",$JOB,154.1,GMD0,GMD1))
- if GMD1'>0!$DATA(GMTSQIT)
- QUIT
- Begin DoDot:2
- +32 SET GMDATA=^TMP("SPN",$JOB,154.1,GMD0,GMD1)
- +33 SET X=$PIECE(GMDATA,U)
- DO REGDTM4^GMTSU
- SET GMDATE=X
- +34 SET GMDMS=$PIECE(GMDATA,U,2)
- SET GMDCS=$PIECE(GMDATA,U,3)
- SET GMDTS=$PIECE(GMDATA,U,4)
- SET GMDTY=$PIECE(GMDATA,U,5)
- +35 if +GMWRT
- DO HDR2
- +36 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- if GMTSNPG
- DO HDR2
- +37 WRITE GMDATE,?18,GMDMS,?32,GMDCS,?50,GMDTS,?64,$EXTRACT(GMDTY,1,15),!
- +38 SET GMWRT=0
- End DoDot:2
- End DoDot:1
- +39 QUIT
- HDR1 ; 1st header
- +1 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- if +GMTSNPG'>0
- WRITE !
- +2 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE "Date of Onset ",?16,"Etiology ",?48,"Onset of SCD Caused by Trauma",!
- +3 QUIT
- HDR2 ; 2nd header
- +1 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- if +GMTSNPG'>0
- WRITE !
- +2 DO CKP^GMTSUP
- if $DATA(GMTSQIT)
- QUIT
- WRITE "Date Recorded",?16,"Motor Score",?30,"Cognitive Score",?48,"Total Score",?62,"Record Type",!
- +3 QUIT
