Routine: GMTSP35

GMTSP35 ; CIO/SLC - Post Install GMTS*2.7*35    ; 04/11/2000

 ;;2.7;Health Summary;**35**;Oct 20, 1995

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

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

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

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  Feb 18, 2025@23:25:14                                                                                                                                                                                                     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      ;

GMTSP35.m