source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSRS3.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1GMTSRS3 ; SLC/KER - Health Summary Resequence - Misc ; 02/11/2003
2 ;;2.7;Health Summary;**62**;Oct 20, 1995
3 ;
4 Q
5SI ; 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
19SC ; 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
36YN ; Yes/No
37 W !,?3,"Enter either 'Y' or 'N'."
38 Q
39TRIM(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
Note: See TracBrowser for help on using the repository browser.