| [613] | 1 | GMTSPOS2 ;SLC/SBW - Set PDX up to use new HS components ;11/May/95
|
|---|
| 2 | ;;2.7;Health Summary;;Oct 20, 1995
|
|---|
| 3 | EN ;ENTRY POINT
|
|---|
| 4 | N DIE,DIF,NSPACE,PDXVER,X,XCN,XCNP
|
|---|
| 5 | I +$$VERSION^XPDUTL("VAQ")<1.5 Q
|
|---|
| 6 | W !!,"** Installing PDX Data Segments for Health Summary Components **"
|
|---|
| 7 | S X="VAQUTL50" X ^%ZOSF("TEST") I $T G DOIT
|
|---|
| 8 | W !!,"** VAQUTL50 routine not installed, will do so for you."
|
|---|
| 9 | S X="GMTSPDXZ",XCNP=0,DIF="^UTILITY(""GMTSPDXZ""," X ^%ZOSF("LOAD") W !," Renaming GMTSPDXZ as VAQUTL50."
|
|---|
| 10 | S X="VAQUTL50",XCN=2,DIE="^UTILITY(""GMTSPDXZ""," X ^%ZOSF("SAVE") K ^UTILITY("GMTSPDXA")
|
|---|
| 11 | ;
|
|---|
| 12 | ;DECLARE VARIABLES
|
|---|
| 13 | DOIT N ERR,POINT,COMP,DASHES,DOTS,PDXCOMP
|
|---|
| 14 | F COMP="PCE HEALTH FACTORS ALL","PCE OUTPATIENT ENCOUNTERS","PCE MEASUREMENTS NON-TABULAR","PCE IMMUNIZATIONS","PCE SKIN TESTS" D INSTALL
|
|---|
| 15 | F COMP="PCE EDUCATION","PCE EDUCATION LATEST","PCE OUTPATIENT DIAGNOSIS","PCE EXAMS LATEST","PCE TREATMENTS PROVIDED" D INSTALL
|
|---|
| 16 | F COMP="COMPENSATION AND PENSION EXAMS","DISCHARGE SUMMARY","DISCHARGE SUMMARY BRIEF","MAS ADT HISTORY EXPANDED","MEDICINE ABNORMAL BRIEF","MEDICINE BRIEF REPORT","MEDICINE FULL CAPTIONED","MEDICINE FULL REPORT" D INSTALL
|
|---|
| 17 | F COMP="PROBLEM LIST ALL","PROBLEM LIST ACTIVE","PROBLEM LIST INACTIVE","MENTAL HEALTH PHYSICAL EXAM","SOCIAL WORK","LAB ELECTRON MICROSCOPY","ADVERSE REACTIONS/ALLERG BRIEF" D INSTALL
|
|---|
| 18 | W !,"Done installing PDX Data Segments....",!
|
|---|
| 19 | Q
|
|---|
| 20 | INSTALL ;Install components
|
|---|
| 21 | ;CONVERT TO PDX SEGMENT NAME
|
|---|
| 22 | S PDXCOMP=$$FIRSTUP^VAQUTL50(COMP)
|
|---|
| 23 | ;GET POINTER TO COMPONENT
|
|---|
| 24 | S POINT=+$O(^GMT(142.1,"B",COMP,0))
|
|---|
| 25 | I ('POINT) D Q
|
|---|
| 26 | .W !!,$C(7),COMP," not found in HEALTH SUMMARY COMPONENT file."
|
|---|
| 27 | .W !,PDXCOMP," not added to VAQ - DATA SEGMENT file.",$C(7)
|
|---|
| 28 | ;CREATE DATA SEGMENT USING DEFAULT TIME & OCCURRENCE LIMITS
|
|---|
| 29 | S ERR=$$ADDSEG^VAQUTL50(POINT)
|
|---|
| 30 | I (ERR<0) W !,?5,$P(ERR,"^",2),$C(7) Q
|
|---|
| 31 | W !?3,PDXCOMP," added to VAQ - DATA SEGMENT file (#394.71)."
|
|---|
| 32 | W !
|
|---|
| 33 | Q
|
|---|
