GMTSP35 ; CIO/SLC - Post Install GMTS*2.7*35 ; 04/11/2000
;;2.7;Health Summary;**35**;Oct 20, 1995
;
Q
POST ; Post Install
N GMTSIN,GMTSINST,GMTSTL,GMTSGAF,GMTSVSD,GMTSINST,GMTSBLD
D CI D TO^GMTSXPD3("GAF","3Y",10),TO^GMTSXPD3("VSD","1Y",3)
I +$$ROK("GMTSXPS1")>0 S GMTSINST="",GMTSBLD="GMTS*2.7*35" D SEND^GMTSXPS1
Q
CI ; Component Install
N GMTSOK,GMTSIN,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSCI
S GMTSCPS="GAF;VSD",GMTSOK=0,GMTSOK=GMTSOK+$$ROK("GMTSXPD1"),GMTSOK=GMTSOK+$$ROK("GMTSXPD3")
I GMTSOK'=2 D Q
. W !!," >> Can not install components GAF, and VSD"
. W !," Could not find install routines GMTSXPD*"
F GMTSCI=1:1 Q:'$L($P(GMTSCPS,";",GMTSCI)) D
. S GMTSCP=$P(GMTSCPS,";",GMTSCI)
. D ARRAY Q:'$D(GMTSIN)
. S GMTSINST=$$ADD^GMTSXPD1(.GMTSIN)
. S GMTSTOT=+($G(GMTSTOT))+GMTSINST
D:+($G(GMTSTOT))>0 BUILD^GMTSXPD3
Q
ROK(X) ; Routine OK
S X=$G(X) Q:'$L(X) 0 Q:$L(X)>8 0 X ^%ZOSF("TEST") Q:$T 1 Q 0
ARRAY ; Build Array
K GMTSIN N GMTSI,GMTSTXT,GMTSEX,GMTSFLD,GMTSV,GMTSPDX,GMTSDD,GMTSFLDS
S GMTSPDX=0,GMTSCP=$G(GMTSCP) Q:'$L(GMTSCP)
S GMTSDD(0)="1;.01^2;1^3;2^4;3^5;4^6;5^7;6^8;8^9;9^10;10^11;11^12;12^13;13^14;14"
S GMTSDD(.1)="1.1",GMTSDD(.1,0)="1;.01",GMTSDD(1)="7",GMTSDD(1,0)="1;.01^2;1",GMTSDD(3.5)="3.5",GMTSDD(3.5,0)="1;.01"
S GMTSFLDS=".01;1;2;3;4;5;6;8;9;10;11;12;13;14^1.1;7;3.5"
N GMTSND,GMTSNS,GMTSNI,GMTSNP,GMTSNV,GMTSV,GMTSTR
F GMTSI=1:1 D Q:'$L(GMTSTXT)
. S GMTSTXT="",GMTSEX="S GMTSTXT=$T("_GMTSCP_"+"_GMTSI_")"
. X GMTSEX S:$L(GMTSTXT,";")'>3 GMTSTXT="" Q:'$L(GMTSTXT)
. S GMTSND=$P(GMTSTXT,";",2),GMTSNS=$P(GMTSTXT,";",3)
. S GMTSNI=$P(GMTSTXT,";",4),GMTSNV=$P(GMTSTXT,";",5,299)
. S:GMTSND="PDX"&(GMTSNV=1) GMTSPDX=1 Q:GMTSND="PDX"
. S:GMTSND="IEN"&(+($G(GMTSNV))>0) GMTSIN(0)=+($G(GMTSNV)) Q:GMTSND="IEN"
. F GMTSNP=1:1:$L(GMTSNV,"^") D
. . S GMTSV=$P(GMTSNV,"^",GMTSNP) Q:'$L(GMTSV)
. . S GMTSTR=$P($G(GMTSDD(GMTSND)),"^",GMTSNP),GMTSFLD=$P(GMTSTR,";",2)
. . S:$L(GMTSNS) GMTSTR=$P($G(GMTSDD(GMTSND,GMTSNS)),"^",GMTSNP),GMTSFLD=$G(GMTSDD(GMTSND))
. . S:GMTSNI'>0 GMTSIN(GMTSFLD)=GMTSV
. . S:GMTSNI>0 GMTSIN(GMTSFLD,GMTSNI)=GMTSV,GMTSIN(GMTSFLD)=+($G(GMTSIN(GMTSFLD)))+1
S:GMTSPDX GMTSIN("PDX")=1 F GMTSI=1:1 Q:'$L($P($P(GMTSFLDS,"^",1),";",GMTSI)) D
. S GMTSFLD=$P($P(GMTSFLDS,"^",1),";",GMTSI) S:$L(GMTSFLD)&('$D(GMTSIN(GMTSFLD))) GMTSIN(GMTSFLD)=""
F GMTSI=1:1 Q:'$L($P($P(GMTSFLDS,"^",2),";",GMTSI)) D
. S GMTSFLD=$P($P(GMTSFLDS,"^",2),";",GMTSI) S:$L(GMTSFLD)&('$D(GMTSIN(GMTSFLD))) GMTSIN(GMTSFLD)=0
Q
;
GAF ; Global Assess Funct
;IEN;;;238
;0;;;GLOBAL ASSESSMENT FUNCTIONING^EN;GMTSGAF^Y^GAF^Y^^^^Global Assess Funct^^^^YS
;.1;0;1;GAFHX;YSGAFAPI
;3.5;0;1;This component displays the GAF score taken from the Global Assessment
;3.5;0;2;Functioning scale to evaluate the psychological,social, and occupational
;3.5;0;3;functioning on a hypothetical continuum of mental health/illness. Also
;3.5;0;4;displayed is the date of the assessment and the name of the health care
;3.5;0;5;professional who provided the assessment.
;PDX;;;1
;
VSD ; Detailed Vitals
;IEN;;;237
;0;;;VITAL SIGNS DETAILED DISPLAY^EN;GMTSVSD^Y^VSD^Y^^^^Detailed Vitals^^^^GMRV
;.1;0;1;EN1;GMRVUT0
;3.5;0;1;This component contains vital measurements extracted from the Vital Signs
;3.5;0;2;module, and differs from other Health Summary Vital Signs displays by
;3.5;0;3;including the Vital Signs Qualifiers (sitting,standing, left arm, etc.)
;3.5;0;4;with the vitals measurement. Time and maximum occurrence limits apply.
;3.5;0;5;Data presented includes measurement date and time, temperature, blood
;3.5;0;6;pressure, pulse, height, weight, respiratory rate,CVP, PO2, circumference
;3.5;0;7;and girth, and pain.
;PDX;;;1
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSP35 3798 printed Dec 13, 2024@01:58:53 Page 2
GMTSP35 ; CIO/SLC - Post Install GMTS*2.7*35 ; 04/11/2000
+1 ;;2.7;Health Summary;**35**;Oct 20, 1995
+2 ;
+3 QUIT
POST ; Post Install
+1 NEW GMTSIN,GMTSINST,GMTSTL,GMTSGAF,GMTSVSD,GMTSINST,GMTSBLD
+2 DO CI
DO TO^GMTSXPD3("GAF","3Y",10)
DO TO^GMTSXPD3("VSD","1Y",3)
+3 IF +$$ROK("GMTSXPS1")>0
SET GMTSINST=""
SET GMTSBLD="GMTS*2.7*35"
DO SEND^GMTSXPS1
+4 QUIT
CI ; Component Install
+1 NEW GMTSOK,GMTSIN,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSCI
+2 SET GMTSCPS="GAF;VSD"
SET GMTSOK=0
SET GMTSOK=GMTSOK+$$ROK("GMTSXPD1")
SET GMTSOK=GMTSOK+$$ROK("GMTSXPD3")
+3 IF GMTSOK'=2
Begin DoDot:1
+4 WRITE !!," >> Can not install components GAF, and VSD"
+5 WRITE !," Could not find install routines GMTSXPD*"
End DoDot:1
QUIT
+6 FOR GMTSCI=1:1
if '$LENGTH($PIECE(GMTSCPS,";",GMTSCI))
QUIT
Begin DoDot:1
+7 SET GMTSCP=$PIECE(GMTSCPS,";",GMTSCI)
+8 DO ARRAY
if '$DATA(GMTSIN)
QUIT
+9 SET GMTSINST=$$ADD^GMTSXPD1(.GMTSIN)
+10 SET GMTSTOT=+($GET(GMTSTOT))+GMTSINST
End DoDot:1
+11 if +($GET(GMTSTOT))>0
DO BUILD^GMTSXPD3
+12 QUIT
ROK(X) ; Routine OK
+1 SET X=$GET(X)
if '$LENGTH(X)
QUIT 0
if $LENGTH(X)>8
QUIT 0
XECUTE ^%ZOSF("TEST")
if $TEST
QUIT 1
QUIT 0
ARRAY ; Build Array
+1 KILL GMTSIN
NEW GMTSI,GMTSTXT,GMTSEX,GMTSFLD,GMTSV,GMTSPDX,GMTSDD,GMTSFLDS
+2 SET GMTSPDX=0
SET GMTSCP=$GET(GMTSCP)
if '$LENGTH(GMTSCP)
QUIT
+3 SET GMTSDD(0)="1;.01^2;1^3;2^4;3^5;4^6;5^7;6^8;8^9;9^10;10^11;11^12;12^13;13^14;14"
+4 SET GMTSDD(.1)="1.1"
SET GMTSDD(.1,0)="1;.01"
SET GMTSDD(1)="7"
SET GMTSDD(1,0)="1;.01^2;1"
SET GMTSDD(3.5)="3.5"
SET GMTSDD(3.5,0)="1;.01"
+5 SET GMTSFLDS=".01;1;2;3;4;5;6;8;9;10;11;12;13;14^1.1;7;3.5"
+6 NEW GMTSND,GMTSNS,GMTSNI,GMTSNP,GMTSNV,GMTSV,GMTSTR
+7 FOR GMTSI=1:1
Begin DoDot:1
+8 SET GMTSTXT=""
SET GMTSEX="S GMTSTXT=$T("_GMTSCP_"+"_GMTSI_")"
+9 XECUTE GMTSEX
if $LENGTH(GMTSTXT,";")'>3
SET GMTSTXT=""
if '$LENGTH(GMTSTXT)
QUIT
+10 SET GMTSND=$PIECE(GMTSTXT,";",2)
SET GMTSNS=$PIECE(GMTSTXT,";",3)
+11 SET GMTSNI=$PIECE(GMTSTXT,";",4)
SET GMTSNV=$PIECE(GMTSTXT,";",5,299)
+12 if GMTSND="PDX"&(GMTSNV=1)
SET GMTSPDX=1
if GMTSND="PDX"
QUIT
+13 if GMTSND="IEN"&(+($GET(GMTSNV))>0)
SET GMTSIN(0)=+($GET(GMTSNV))
if GMTSND="IEN"
QUIT
+14 FOR GMTSNP=1:1:$LENGTH(GMTSNV,"^")
Begin DoDot:2
+15 SET GMTSV=$PIECE(GMTSNV,"^",GMTSNP)
if '$LENGTH(GMTSV)
QUIT
+16 SET GMTSTR=$PIECE($GET(GMTSDD(GMTSND)),"^",GMTSNP)
SET GMTSFLD=$PIECE(GMTSTR,";",2)
+17 if $LENGTH(GMTSNS)
SET GMTSTR=$PIECE($GET(GMTSDD(GMTSND,GMTSNS)),"^",GMTSNP)
SET GMTSFLD=$GET(GMTSDD(GMTSND))
+18 if GMTSNI'>0
SET GMTSIN(GMTSFLD)=GMTSV
+19 if GMTSNI>0
SET GMTSIN(GMTSFLD,GMTSNI)=GMTSV
SET GMTSIN(GMTSFLD)=+($GET(GMTSIN(GMTSFLD)))+1
End DoDot:2
End DoDot:1
if '$LENGTH(GMTSTXT)
QUIT
+20 if GMTSPDX
SET GMTSIN("PDX")=1
FOR GMTSI=1:1
if '$LENGTH($PIECE($PIECE(GMTSFLDS,"^",1),";",GMTSI))
QUIT
Begin DoDot:1
+21 SET GMTSFLD=$PIECE($PIECE(GMTSFLDS,"^",1),";",GMTSI)
if $LENGTH(GMTSFLD)&('$DATA(GMTSIN(GMTSFLD)))
SET GMTSIN(GMTSFLD)=""
End DoDot:1
+22 FOR GMTSI=1:1
if '$LENGTH($PIECE($PIECE(GMTSFLDS,"^",2),";",GMTSI))
QUIT
Begin DoDot:1
+23 SET GMTSFLD=$PIECE($PIECE(GMTSFLDS,"^",2),";",GMTSI)
if $LENGTH(GMTSFLD)&('$DATA(GMTSIN(GMTSFLD)))
SET GMTSIN(GMTSFLD)=0
End DoDot:1
+24 QUIT
+25 ;
GAF ; Global Assess Funct
+1 ;IEN;;;238
+2 ;0;;;GLOBAL ASSESSMENT FUNCTIONING^EN;GMTSGAF^Y^GAF^Y^^^^Global Assess Funct^^^^YS
+3 ;.1;0;1;GAFHX;YSGAFAPI
+4 ;3.5;0;1;This component displays the GAF score taken from the Global Assessment
+5 ;3.5;0;2;Functioning scale to evaluate the psychological,social, and occupational
+6 ;3.5;0;3;functioning on a hypothetical continuum of mental health/illness. Also
+7 ;3.5;0;4;displayed is the date of the assessment and the name of the health care
+8 ;3.5;0;5;professional who provided the assessment.
+9 ;PDX;;;1
+10 ;
VSD ; Detailed Vitals
+1 ;IEN;;;237
+2 ;0;;;VITAL SIGNS DETAILED DISPLAY^EN;GMTSVSD^Y^VSD^Y^^^^Detailed Vitals^^^^GMRV
+3 ;.1;0;1;EN1;GMRVUT0
+4 ;3.5;0;1;This component contains vital measurements extracted from the Vital Signs
+5 ;3.5;0;2;module, and differs from other Health Summary Vital Signs displays by
+6 ;3.5;0;3;including the Vital Signs Qualifiers (sitting,standing, left arm, etc.)
+7 ;3.5;0;4;with the vitals measurement. Time and maximum occurrence limits apply.
+8 ;3.5;0;5;Data presented includes measurement date and time, temperature, blood
+9 ;3.5;0;6;pressure, pulse, height, weight, respiratory rate,CVP, PO2, circumference
+10 ;3.5;0;7;and girth, and pain.
+11 ;PDX;;;1
+12 ;
