| [613] | 1 | GMTSP13 ; SLC/SBW - HS Component Installation Routine ;12/31/96
|
|---|
| 2 | ;;2.7;Health Summary;**13**;Oct 20, 1995
|
|---|
| 3 | HSCOMP ; Install Health Summary component
|
|---|
| 4 | Q:+$$VERSION^XPDUTL("GMTS")<2.7 ;Quit if HS 2.7 not installed
|
|---|
| 5 | N DIC,DLAYGO,DINUM,X,Y
|
|---|
| 6 | S (DIC,DLAYGO)=142.1,DIC(0)="NXL",X="SPINAL CORD DYSFUNCTION",DINUM=74
|
|---|
| 7 | S AD=$O(^GMT(142.1,"B",X,0)) I AD=74 W !,X," already exists in Health Summary Component (142.1) File!" Q
|
|---|
| 8 | D ^DIC
|
|---|
| 9 | FILE I +Y'>0 W !!,"Could not install ",X," component",! Q
|
|---|
| 10 | W !,"Adding component to HEALTH SUMMARY COMPONENT (142.1) file."
|
|---|
| 11 | S DIE=DIC,DA=+Y,DR="1///^S X=""MAIN""_$C(59)_""GMTSSCD"";3///SCD"
|
|---|
| 12 | S DR=DR_";2///Y;4///Y;9///Spinal Cord Dysfunct"
|
|---|
| 13 | D ^DIE
|
|---|
| 14 | S ^GMT(142.1,+DA,3.5,0)="^^7^7^"_DT_"^"
|
|---|
| 15 | S ^GMT(142.1,+DA,3.5,1,0)="This component provides patient data from the Spinal Cord Dysfuction"
|
|---|
| 16 | S ^GMT(142.1,+DA,3.5,2,0)="package. A patient's registration status, highest level of injury,"
|
|---|
| 17 | S ^GMT(142.1,+DA,3.5,3,0)="information source for SCD, completeness of injury and extent of paralysis"
|
|---|
| 18 | S ^GMT(142.1,+DA,3.5,4,0)="will be displayed. The following data will be displayed with time and maximum"
|
|---|
| 19 | S ^GMT(142.1,+DA,3.5,5,0)="occurrence limits applied: date of onset, etiology, onset of SCD caused"
|
|---|
| 20 | S ^GMT(142.1,+DA,3.5,6,0)="by trauma, date recorded, motor score, cognitive score, total score and"
|
|---|
| 21 | S ^GMT(142.1,+DA,3.5,7,0)="record type."
|
|---|
| 22 | W !,"Component Installed.",!
|
|---|
| 23 | W !,"Installing new component in AD HOC Health Summary."
|
|---|
| 24 | S INCLUDE=0 D ENPOST^GMTSLOAD
|
|---|
| 25 | K AD,DA,DIE,DR,INCLUDE
|
|---|
| 26 | D PDXINST
|
|---|
| 27 | Q
|
|---|
| 28 | PDXINST ;Set PDX up to use new HS components
|
|---|
| 29 | N ERR,POINT,COMP,DASHES,DOTS,PDXCOMP
|
|---|
| 30 | S COMP="SPINAL CORD DYSFUNCTION"
|
|---|
| 31 | W !,"Adding ",COMP," into PDX Data Segments.",!
|
|---|
| 32 | S X="VAQUTL50" X ^%ZOSF("TEST") I '$T D Q
|
|---|
| 33 | . W !!,"Adding this segment requires patch VAQ*1.5*11 (CREATE"
|
|---|
| 34 | . W !,"SEGMENT USING HLTH SUMM COMP) to be installed."
|
|---|
| 35 | . W !,"Install VAQ*1.5*11 and then DO PDXINST^GMTSP13"
|
|---|
| 36 | . W !,"to add the segment to the VAQ - Data Segment file."
|
|---|
| 37 | . Q
|
|---|
| 38 | D INSTALL
|
|---|
| 39 | Q
|
|---|
| 40 | INSTALL ;Install SCD component in Data Segment (#394.71) file
|
|---|
| 41 | ;CONVERT TO PDX SEGMENT NAME
|
|---|
| 42 | S PDXCOMP=$$FIRSTUP^VAQUTL50(COMP)
|
|---|
| 43 | ;GET POINTER TO COMPONENT
|
|---|
| 44 | S POINT=+$O(^GMT(142.1,"B",COMP,0))
|
|---|
| 45 | I ('POINT) D Q
|
|---|
| 46 | .W !!,$C(7),COMP," not found in HEALTH SUMMARY COMPONENT file."
|
|---|
| 47 | .W !,PDXCOMP," not added to VAQ - DATA SEGMENT file.",$C(7)
|
|---|
| 48 | ;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS
|
|---|
| 49 | S ERR=$$ADDSEG^VAQUTL50(POINT)
|
|---|
| 50 | I (ERR<0) W !,?5,$P(ERR,"^",2),$C(7) Q
|
|---|
| 51 | W !?3,PDXCOMP," added to VAQ - DATA SEGMENT file (#394.71)."
|
|---|
| 52 | W !
|
|---|
| 53 | Q
|
|---|
