source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSPOS2.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.8 KB
RevLine 
[613]1GMTSPOS2 ;SLC/SBW - Set PDX up to use new HS components ;11/May/95
2 ;;2.7;Health Summary;;Oct 20, 1995
3EN ;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
13DOIT 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
20INSTALL ;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
Note: See TracBrowser for help on using the repository browser.