| [613] | 1 | GMTSRS3 ; SLC/KER - Health Summary Resequence - Misc ; 02/11/2003
|
|---|
| 2 | ;;2.7;Health Summary;**62**;Oct 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | SI ; Structure for Items
|
|---|
| 6 | W !!," Example Health Summary Type with Components containing Selection"
|
|---|
| 7 | W !," Items which may be resequenced",!
|
|---|
| 8 | W !," Health Summary Type Rehab Summary"
|
|---|
| 9 | W !," Health Summary Component Brief Demographics"
|
|---|
| 10 | W !," Health Summary Component Lab Cum Selected"
|
|---|
| 11 | W !," 1 Selection Item Glucose"
|
|---|
| 12 | W !," 2 Selection Item B 12"
|
|---|
| 13 | W !," 3 Selection Item Liver Function"
|
|---|
| 14 | W !," Health Summary Component Health Factor Select"
|
|---|
| 15 | W !," 1 Selection Item Alcohol Screen"
|
|---|
| 16 | W !," 2 Selection Item Depression Screening"
|
|---|
| 17 | W !," Health Summary Component Progress Notes"
|
|---|
| 18 | Q
|
|---|
| 19 | SC ; Structure for Components
|
|---|
| 20 | I '$D(GMTST) D Q
|
|---|
| 21 | . W !,?3,"Example of a Health Summary Type with multiple components which ",!,?3,"may be resequenced.",!
|
|---|
| 22 | . W !,?5,"Health Summary Type",?32,"REHAB SUMMARY"
|
|---|
| 23 | . W !,?7,"Component #1",?34,"BRIEF DEMOGRAPHICS"
|
|---|
| 24 | . W !,?7,"Component #2",?34,"LAB CUM SELECTED"
|
|---|
| 25 | . W !,?7,"Component #3",?34,"HEALTH FACTOR SELECT"
|
|---|
| 26 | . W !,?7,"Component #4",?34,"PROGRESS NOTES"
|
|---|
| 27 | N GMTSI,GMTSC,GMTSN
|
|---|
| 28 | W !,?3,"This Health Summary Type has multiple Components which may be resequenced.",!
|
|---|
| 29 | W !,?5,"Health Summary Type",?32,$$UP^XLFSTR($P($G(^GMT(142,+GMTST,0)),"^",1))
|
|---|
| 30 | S (GMTSC,GMTSI)=0 F S GMTSI=$O(^GMT(142,+($G(GMTST)),1,GMTSI)) Q:+GMTSI=0 D
|
|---|
| 31 | . S GMTSN=$P($G(^GMT(142,+($G(GMTST)),1,+GMTSI,0)),"^",2)
|
|---|
| 32 | . S GMTSN=$P($G(^GMT(142.1,+GMTSN,0)),"^",1) Q:'$L(GMTSN)
|
|---|
| 33 | . S GMTSC=GMTSC+1
|
|---|
| 34 | . W !,?7,"Component #",GMTSC,?34,$$UP^XLFSTR(GMTSN)
|
|---|
| 35 | Q
|
|---|
| 36 | YN ; Yes/No
|
|---|
| 37 | W !,?3,"Enter either 'Y' or 'N'."
|
|---|
| 38 | Q
|
|---|
| 39 | TRIM(X) ; Remove Spaces
|
|---|
| 40 | S X=$G(X) F Q:$E(X,1)'=" " S X=$E(X,2,$L(X))
|
|---|
| 41 | F Q:$E(X,$L(X))'=" " S X=$E(X,1,($L(X)-1))
|
|---|
| 42 | Q X
|
|---|
