source: FOIAVistA/trunk/r/HEALTH_SUMMARY-GMTS/GMTSP13.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.5 KB
Line 
1GMTSP13 ; SLC/SBW - HS Component Installation Routine ;12/31/96
2 ;;2.7;Health Summary;**13**;Oct 20, 1995
3HSCOMP ; 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
9FILE 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
28PDXINST ;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
40INSTALL ;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
Note: See TracBrowser for help on using the repository browser.