GMTSRS3 ; SLC/KER - Health Summary Resequence - Misc ; 02/11/2003
;;2.7;Health Summary;**62**;Oct 20, 1995
;
Q
SI ; Structure for Items
W !!," Example Health Summary Type with Components containing Selection"
W !," Items which may be resequenced",!
W !," Health Summary Type Rehab Summary"
W !," Health Summary Component Brief Demographics"
W !," Health Summary Component Lab Cum Selected"
W !," 1 Selection Item Glucose"
W !," 2 Selection Item B 12"
W !," 3 Selection Item Liver Function"
W !," Health Summary Component Health Factor Select"
W !," 1 Selection Item Alcohol Screen"
W !," 2 Selection Item Depression Screening"
W !," Health Summary Component Progress Notes"
Q
SC ; Structure for Components
I '$D(GMTST) D Q
. W !,?3,"Example of a Health Summary Type with multiple components which ",!,?3,"may be resequenced.",!
. W !,?5,"Health Summary Type",?32,"REHAB SUMMARY"
. W !,?7,"Component #1",?34,"BRIEF DEMOGRAPHICS"
. W !,?7,"Component #2",?34,"LAB CUM SELECTED"
. W !,?7,"Component #3",?34,"HEALTH FACTOR SELECT"
. W !,?7,"Component #4",?34,"PROGRESS NOTES"
N GMTSI,GMTSC,GMTSN
W !,?3,"This Health Summary Type has multiple Components which may be resequenced.",!
W !,?5,"Health Summary Type",?32,$$UP^XLFSTR($P($G(^GMT(142,+GMTST,0)),"^",1))
S (GMTSC,GMTSI)=0 F S GMTSI=$O(^GMT(142,+($G(GMTST)),1,GMTSI)) Q:+GMTSI=0 D
. S GMTSN=$P($G(^GMT(142,+($G(GMTST)),1,+GMTSI,0)),"^",2)
. S GMTSN=$P($G(^GMT(142.1,+GMTSN,0)),"^",1) Q:'$L(GMTSN)
. S GMTSC=GMTSC+1
. W !,?7,"Component #",GMTSC,?34,$$UP^XLFSTR(GMTSN)
Q
YN ; Yes/No
W !,?3,"Enter either 'Y' or 'N'."
Q
TRIM(X) ; Remove Spaces
S X=$G(X) F Q:$E(X,1)'=" " S X=$E(X,2,$L(X))
F Q:$E(X,$L(X))'=" " S X=$E(X,1,($L(X)-1))
Q X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSRS3 2053 printed Dec 13, 2024@02:00:22 Page 2
GMTSRS3 ; SLC/KER - Health Summary Resequence - Misc ; 02/11/2003
+1 ;;2.7;Health Summary;**62**;Oct 20, 1995
+2 ;
+3 QUIT
SI ; Structure for Items
+1 WRITE !!," Example Health Summary Type with Components containing Selection"
+2 WRITE !," Items which may be resequenced",!
+3 WRITE !," Health Summary Type Rehab Summary"
+4 WRITE !," Health Summary Component Brief Demographics"
+5 WRITE !," Health Summary Component Lab Cum Selected"
+6 WRITE !," 1 Selection Item Glucose"
+7 WRITE !," 2 Selection Item B 12"
+8 WRITE !," 3 Selection Item Liver Function"
+9 WRITE !," Health Summary Component Health Factor Select"
+10 WRITE !," 1 Selection Item Alcohol Screen"
+11 WRITE !," 2 Selection Item Depression Screening"
+12 WRITE !," Health Summary Component Progress Notes"
+13 QUIT
SC ; Structure for Components
+1 IF '$DATA(GMTST)
Begin DoDot:1
+2 WRITE !,?3,"Example of a Health Summary Type with multiple components which ",!,?3,"may be resequenced.",!
+3 WRITE !,?5,"Health Summary Type",?32,"REHAB SUMMARY"
+4 WRITE !,?7,"Component #1",?34,"BRIEF DEMOGRAPHICS"
+5 WRITE !,?7,"Component #2",?34,"LAB CUM SELECTED"
+6 WRITE !,?7,"Component #3",?34,"HEALTH FACTOR SELECT"
+7 WRITE !,?7,"Component #4",?34,"PROGRESS NOTES"
End DoDot:1
QUIT
+8 NEW GMTSI,GMTSC,GMTSN
+9 WRITE !,?3,"This Health Summary Type has multiple Components which may be resequenced.",!
+10 WRITE !,?5,"Health Summary Type",?32,$$UP^XLFSTR($PIECE($GET(^GMT(142,+GMTST,0)),"^",1))
+11 SET (GMTSC,GMTSI)=0
FOR
SET GMTSI=$ORDER(^GMT(142,+($GET(GMTST)),1,GMTSI))
if +GMTSI=0
QUIT
Begin DoDot:1
+12 SET GMTSN=$PIECE($GET(^GMT(142,+($GET(GMTST)),1,+GMTSI,0)),"^",2)
+13 SET GMTSN=$PIECE($GET(^GMT(142.1,+GMTSN,0)),"^",1)
if '$LENGTH(GMTSN)
QUIT
+14 SET GMTSC=GMTSC+1
+15 WRITE !,?7,"Component #",GMTSC,?34,$$UP^XLFSTR(GMTSN)
End DoDot:1
+16 QUIT
YN ; Yes/No
+1 WRITE !,?3,"Enter either 'Y' or 'N'."
+2 QUIT
TRIM(X) ; Remove Spaces
+1 SET X=$GET(X)
FOR
if $EXTRACT(X,1)'=" "
QUIT
SET X=$EXTRACT(X,2,$LENGTH(X))
+2 FOR
if $EXTRACT(X,$LENGTH(X))'=" "
QUIT
SET X=$EXTRACT(X,1,($LENGTH(X)-1))
+3 QUIT X
