GMTSP13 ; SLC/SBW - HS Component Installation Routine ;12/31/96
;;2.7;Health Summary;**13**;Oct 20, 1995
HSCOMP ; Install Health Summary component
Q:+$$VERSION^XPDUTL("GMTS")<2.7 ;Quit if HS 2.7 not installed
N DIC,DLAYGO,DINUM,X,Y
S (DIC,DLAYGO)=142.1,DIC(0)="NXL",X="SPINAL CORD DYSFUNCTION",DINUM=74
S AD=$O(^GMT(142.1,"B",X,0)) I AD=74 W !,X," already exists in Health Summary Component (142.1) File!" Q
D ^DIC
FILE I +Y'>0 W !!,"Could not install ",X," component",! Q
W !,"Adding component to HEALTH SUMMARY COMPONENT (142.1) file."
S DIE=DIC,DA=+Y,DR="1///^S X=""MAIN""_$C(59)_""GMTSSCD"";3///SCD"
S DR=DR_";2///Y;4///Y;9///Spinal Cord Dysfunct"
D ^DIE
S ^GMT(142.1,+DA,3.5,0)="^^7^7^"_DT_"^"
S ^GMT(142.1,+DA,3.5,1,0)="This component provides patient data from the Spinal Cord Dysfuction"
S ^GMT(142.1,+DA,3.5,2,0)="package. A patient's registration status, highest level of injury,"
S ^GMT(142.1,+DA,3.5,3,0)="information source for SCD, completeness of injury and extent of paralysis"
S ^GMT(142.1,+DA,3.5,4,0)="will be displayed. The following data will be displayed with time and maximum"
S ^GMT(142.1,+DA,3.5,5,0)="occurrence limits applied: date of onset, etiology, onset of SCD caused"
S ^GMT(142.1,+DA,3.5,6,0)="by trauma, date recorded, motor score, cognitive score, total score and"
S ^GMT(142.1,+DA,3.5,7,0)="record type."
W !,"Component Installed.",!
W !,"Installing new component in AD HOC Health Summary."
S INCLUDE=0 D ENPOST^GMTSLOAD
K AD,DA,DIE,DR,INCLUDE
D PDXINST
Q
PDXINST ;Set PDX up to use new HS components
N ERR,POINT,COMP,DASHES,DOTS,PDXCOMP
S COMP="SPINAL CORD DYSFUNCTION"
W !,"Adding ",COMP," into PDX Data Segments.",!
S X="VAQUTL50" X ^%ZOSF("TEST") I '$T D Q
. W !!,"Adding this segment requires patch VAQ*1.5*11 (CREATE"
. W !,"SEGMENT USING HLTH SUMM COMP) to be installed."
. W !,"Install VAQ*1.5*11 and then DO PDXINST^GMTSP13"
. W !,"to add the segment to the VAQ - Data Segment file."
. Q
D INSTALL
Q
INSTALL ;Install SCD component in Data Segment (#394.71) file
;CONVERT TO PDX SEGMENT NAME
S PDXCOMP=$$FIRSTUP^VAQUTL50(COMP)
;GET POINTER TO COMPONENT
S POINT=+$O(^GMT(142.1,"B",COMP,0))
I ('POINT) D Q
.W !!,$C(7),COMP," not found in HEALTH SUMMARY COMPONENT file."
.W !,PDXCOMP," not added to VAQ - DATA SEGMENT file.",$C(7)
;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS
S ERR=$$ADDSEG^VAQUTL50(POINT)
I (ERR<0) W !,?5,$P(ERR,"^",2),$C(7) Q
W !?3,PDXCOMP," added to VAQ - DATA SEGMENT file (#394.71)."
W !
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP13 2574 printed Dec 13, 2024@01:58:45 Page 2
GMTSP13 ; SLC/SBW - HS Component Installation Routine ;12/31/96
+1 ;;2.7;Health Summary;**13**;Oct 20, 1995
HSCOMP ; Install Health Summary component
+1 ;Quit if HS 2.7 not installed
if +$$VERSION^XPDUTL("GMTS")<2.7
QUIT
+2 NEW DIC,DLAYGO,DINUM,X,Y
+3 SET (DIC,DLAYGO)=142.1
SET DIC(0)="NXL"
SET X="SPINAL CORD DYSFUNCTION"
SET DINUM=74
+4 SET AD=$ORDER(^GMT(142.1,"B",X,0))
IF AD=74
WRITE !,X," already exists in Health Summary Component (142.1) File!"
QUIT
+5 DO ^DIC
FILE IF +Y'>0
WRITE !!,"Could not install ",X," component",!
QUIT
+1 WRITE !,"Adding component to HEALTH SUMMARY COMPONENT (142.1) file."
+2 SET DIE=DIC
SET DA=+Y
SET DR="1///^S X=""MAIN""_$C(59)_""GMTSSCD"";3///SCD"
+3 SET DR=DR_";2///Y;4///Y;9///Spinal Cord Dysfunct"
+4 DO ^DIE
+5 SET ^GMT(142.1,+DA,3.5,0)="^^7^7^"_DT_"^"
+6 SET ^GMT(142.1,+DA,3.5,1,0)="This component provides patient data from the Spinal Cord Dysfuction"
+7 SET ^GMT(142.1,+DA,3.5,2,0)="package. A patient's registration status, highest level of injury,"
+8 SET ^GMT(142.1,+DA,3.5,3,0)="information source for SCD, completeness of injury and extent of paralysis"
+9 SET ^GMT(142.1,+DA,3.5,4,0)="will be displayed. The following data will be displayed with time and maximum"
+10 SET ^GMT(142.1,+DA,3.5,5,0)="occurrence limits applied: date of onset, etiology, onset of SCD caused"
+11 SET ^GMT(142.1,+DA,3.5,6,0)="by trauma, date recorded, motor score, cognitive score, total score and"
+12 SET ^GMT(142.1,+DA,3.5,7,0)="record type."
+13 WRITE !,"Component Installed.",!
+14 WRITE !,"Installing new component in AD HOC Health Summary."
+15 SET INCLUDE=0
DO ENPOST^GMTSLOAD
+16 KILL AD,DA,DIE,DR,INCLUDE
+17 DO PDXINST
+18 QUIT
PDXINST ;Set PDX up to use new HS components
+1 NEW ERR,POINT,COMP,DASHES,DOTS,PDXCOMP
+2 SET COMP="SPINAL CORD DYSFUNCTION"
+3 WRITE !,"Adding ",COMP," into PDX Data Segments.",!
+4 SET X="VAQUTL50"
XECUTE ^%ZOSF("TEST")
IF '$TEST
Begin DoDot:1
+5 WRITE !!,"Adding this segment requires patch VAQ*1.5*11 (CREATE"
+6 WRITE !,"SEGMENT USING HLTH SUMM COMP) to be installed."
+7 WRITE !,"Install VAQ*1.5*11 and then DO PDXINST^GMTSP13"
+8 WRITE !,"to add the segment to the VAQ - Data Segment file."
+9 QUIT
End DoDot:1
QUIT
+10 DO INSTALL
+11 QUIT
INSTALL ;Install SCD component in Data Segment (#394.71) file
+1 ;CONVERT TO PDX SEGMENT NAME
+2 SET PDXCOMP=$$FIRSTUP^VAQUTL50(COMP)
+3 ;GET POINTER TO COMPONENT
+4 SET POINT=+$ORDER(^GMT(142.1,"B",COMP,0))
+5 IF ('POINT)
Begin DoDot:1
+6 WRITE !!,$CHAR(7),COMP," not found in HEALTH SUMMARY COMPONENT file."
+7 WRITE !,PDXCOMP," not added to VAQ - DATA SEGMENT file.",$CHAR(7)
End DoDot:1
QUIT
+8 ;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS
+9 SET ERR=$$ADDSEG^VAQUTL50(POINT)
+10 IF (ERR<0)
WRITE !,?5,$PIECE(ERR,"^",2),$CHAR(7)
QUIT
+11 WRITE !?3,PDXCOMP," added to VAQ - DATA SEGMENT file (#394.71)."
+12 WRITE !
+13 QUIT
