GMTSP114.m

GMTSP114 ;CIO/SLC - Post Install GMTS*2.7*114 ;08/03/15  14:27

 ;;2.7;Health Summary;**114**;Oct 20, 1995;Build 11

 Q

CI ; Component Install

 N GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSCI

 S GMTSCPS="DIM;SIM;SIMC;SIMR"

 F GMTSCI=1:1 Q:'$L($P(GMTSCPS,";",GMTSCI))  D

 . S GMTSCP=$P(GMTSCPS,";",GMTSCI) K GMTSIN

 . D ARRAY Q:'$D(GMTSIN)

 . I $L($G(GMTSIN("TIM"))),+($G(GMTSIN(0)))>0 S GMTSLIM(+($G(GMTSIN(0))),"TIM")=$G(GMTSIN("TIM"))

 . I $L($G(GMTSIN("OCC"))),+($G(GMTSIN(0)))>0 S GMTSLIM(+($G(GMTSIN(0))),"OCC")=$G(GMTSIN("OCC"))

 . S GMTSINST=$$ADD^GMTSXPD1(.GMTSIN),GMTSTOT=+($G(GMTSTOT))+($G(GMTSINST))

 ; Rebuild Ad Hoc Health Summary Type

 D:+($G(GMTSTOT))>0 BUILD^GMTSXPD3

 D LIM

 I +$$ROK("GMTSXPS1")>0 D

 . N GMTSHORT S GMTSHORT=1,GMTSINST="",GMTSBLD="GMTS*2.7*114" D SEND^GMTSXPS1

 Q

ARRAY ; Build Array

 K GMTSIN N GMTSI,GMTSTXT,GMTSEX,GMTSFLD,GMTSUB,GMTSVAL,GMTSPDX S GMTSPDX=1,GMTSCP=$G(GMTSCP) Q:'$L(GMTSCP)

 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 GMTSFLD=$P(GMTSTXT,";",2),GMTSUB=$P(GMTSTXT,";",3),GMTSVAL=$P(GMTSTXT,";",4)

 . S:$E(GMTSFLD,1)=1&(+GMTSFLD<2) GMTSVAL=$P(GMTSTXT,";",4,5)

 . S:$E(GMTSFLD,1)=" "!('$L(GMTSFLD)) GMTSTXT="" Q:GMTSTXT=""

 . S:$L(GMTSFLD)&('$L(GMTSUB)) GMTSIN(GMTSFLD)=GMTSVAL Q:$L(GMTSFLD)&('$L(GMTSUB))  S:$L(GMTSFLD)&($L(GMTSUB)) GMTSIN(GMTSFLD,GMTSUB)=GMTSVAL

 . S:$G(GMTSFLD)=7&(+($G(GMTSUB))>0) GMTSPDX=0

 K:+($G(GMTSPDX))=0 GMTSIN("PDX")

 Q

LIM ; Limits

 N GMTSI,GMTST,GMTSO,GMTSA S GMTSI=0 F  S GMTSI=$O(GMTSLIM(GMTSI)) Q:+GMTSI=0  D

 . S GMTSA=$P($G(^GMT(142.1,+($G(GMTSI)),0)),"^",3),GMTST=$G(GMTSLIM(+GMTSI,"TIM")) S:'$L(GMTST) GMTST=$S(GMTSA="Y ":"1Y ",1:"")

 . S GMTSA=$P($G(^GMT(142.1,+($G(GMTSI)),0)),"^",5),GMTSO=$G(GMTSLIM(+GMTSI,"OCC")) S:'$L(GMTSO) GMTSO=$S(GMTSA="Y ":"10 ",1:"")

 . D TO^GMTSXPD3(GMTSI,GMTST,GMTSO)

 Q

ROK(X) ; Routine OK

 S X=$G(X) Q:'$L(X) 0 N GMTSEX,GMTSTXT S GMTSEX="S GMTSTXT=$T(+1^"_X_")" X GMTSEX

 Q:'$L(GMTSTXT) 0  Q 1

 ;                

DIM ; Immunizations Detail Component Data

 ;0;;218

 ;.01;;PCE IMMUNIZATIONS DETAILED

 ;1;;IMMUND;GMTSPXIM

 ;1.1;;0

 ;2;;

 ;3;;DIM

 ;3.5;;9

 ;3.5;1;This component lists the immunizations (e.g., Rubella, Smallpox,

 ;3.5;2;etc.) and information about each immunization administered to a

 ;3.5;3;particular patient in detail. Data are sorted in alphabetical order by

 ;3.5;4;immunization name and then by administration date in reverse chronological

 ;3.5;5;order. Data are presented in a Fileman captioned style and include

 ;3.5;6;immunization name, full name, series, administration date, facility,

 ;3.5;7;reaction, contraindications, manufacturer, lot number, expiration date,

 ;3.5;8;dosage, administration route, administration site, vaccine information

 ;3.5;9;statements offered to the patient, administered by and comments.

 ;4;;

 ;5;;

 ;6;;

 ;7;;0

 ;8;;

 ;9;;Immunizations Detail

 ;10;;

 ;11;;

 ;12;;

 ;13;;

 ;14;;

 ;PDX;;1

 ;

 Q

 ;

SIM ; Immunizations Select Component Data

 ;0;;219

 ;.01;;PCE IMMUNIZATIONS SELECTED

 ;1;;IMMUN;GMTSPXIM

 ;1.1;;0

 ;2;;Y

 ;3;;SIM

 ;3.5;;14

 ;3.5;1;This component lists the immunizations (e.g., Rubella, Smallpox,

 ;3.5;2;etc.) and information about each immunization administered to a particular

 ;3.5;3;patient. Time and maximum occurrence limits apply, and the user is allowed

 ;3.5;4;to select any number of the immunizations defined in the Immunization

 ;3.5;5;(#9999999.14) file. The user may select a time limit up to 99 years and

 ;3.5;6;999 maximum occurrences. Data are displayed in alphabetical order by

 ;3.5;7;immunization name and then by administration date in reverse 

 ;3.5;8;chronological order. Data presented include immunization name, series,

 ;3.5;9;administration date and facility. If there is a reaction and/or

 ;3.5;10;contraindication, the record is marked with a '<**>'. The name of the

 ;3.5;11;immunization, date of administration and reaction/contraindications are

 ;3.5;12;displayed at the end of the display. If the record has a comment it is

 ;3.5;13;marked with a '<C>'. Comments can be viewed in the Detailed Immunizations

 ;3.5;14;Health Summary component. 

 ;4;;Y

 ;5;;

 ;6;;

 ;7;;1

 ;7;1;9999999.14

 ;8;;

 ;9;;Immunizations Select

 ;10;;

 ;11;;

 ;12;;

 ;13;;

 ;14;;

 ;TIM;;99Y

 ;OCC;;999

 ;

 Q

 ;

SIMC ; Immun Select Old>New Component Data

 ;0;;221

 ;.01;;PCE IMMUNIZATIONS SELECT CHRON

 ;1;;IMMUNCDT;GMTSPXIM

 ;1.1;;0

 ;2;;Y

 ;3;;SIMC

 ;3.5;;13

 ;3.5;1;This component lists the immunizations (e.g., Rubella, Smallpox, etc.) and

 ;3.5;2;information about each immunization administered to a particular patient.

 ;3.5;3;Time and maximum occurrence limits apply, and the user is allowed to

 ;3.5;4;select any number of the immunizations defined in the Immunization

 ;3.5;5;(#9999999.14) file. The user may select a time limit up to 99 years and

 ;3.5;6;999 maximum occurrences. Data are displayed by administration date in

 ;3.5;7;chronological order and then alphabetically by immunization name. Data

 ;3.5;8;presented include immunization name, series, administration date and

 ;3.5;9;facility. If there is a reaction and/or contraindication, the record is

 ;3.5;10;marked with a '<**>'. The name of the immunization, date of administration

 ;3.5;11;and reaction/contraindications are displayed at the end of the display. If

 ;3.5;12;the record has a comment it is marked with a '<C>'. Comments can be viewed

 ;3.5;13;in the Detailed Immunizations Health Summary component.

 ;4;;Y

 ;5;;

 ;6;;

 ;7;;1

 ;7;1;9999999.14

 ;8;;

 ;9;;Immun Select Old>New

 ;10;;

 ;11;;

 ;12;;

 ;13;;

 ;14;;

 ;TIM;;99Y

 ;OCC;;999

 ;

 Q

 ;

SIMR ; Immun Select New>Old Component Data

 ;0;;222

 ;.01;;PCE IMMUN SELECT REVERSE CHRON

 ;1;;IMMUNRDT;GMTSPXIM

 ;1.1;;0

 ;2;;Y

 ;3;;SIMR

 ;3.5;;13

 ;3.5;1;This component lists the immunizations (e.g., Rubella, Smallpox, etc.) and

 ;3.5;2;information about each immunization administered to a particular patient.

 ;3.5;3;Time and maximum occurrence limits apply, and the user is allowed to

 ;3.5;4;select any of the immunizations defined in the Immunization (#9999999.14)

 ;3.5;5;file. The user may select a time limit up to 99 years and 999 maximum

 ;3.5;6;occurrences. Data are displayed by administration date in reverse

 ;3.5;7;chronological order and then alphabetically by immunization name. Data

 ;3.5;8;presented include immunization name, series, administration date and

 ;3.5;9;facility. If there is a reaction and/or contraindication, the record is

 ;3.5;10;marked with a '<**>'. The name of the immunization, date of administration

 ;3.5;11;and reaction/contraindications are displayed at the end of the display. If

 ;3.5;12;the record has a comment it is marked with a <C>. Comments can be viewed

 ;3.5;13;in the Detailed Immunizations Health Summary component.

 ;4;;Y

 ;5;;

 ;6;;

 ;7;;1

 ;7;1;9999999.14

 ;8;;

 ;9;;Immun Select New>Old

 ;10;;

 ;11;;

 ;12;;

 ;13;;

 ;14;;

 ;TIM;;99Y

 ;OCC;;999

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMTSP114   7166     printed  Apr 23, 2025@18:13:09                                                                                                                                                                                                    Page 2

GMTSP114  ;CIO/SLC - Post Install GMTS*2.7*114 ;08/03/15  14:27

 +1       ;;2.7;Health Summary;**114**;Oct 20, 1995;Build 11

 +2        QUIT 

CI        ; Component Install

 +1        NEW GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSCI

 +2        SET GMTSCPS="DIM;SIM;SIMC;SIMR"

 +3        FOR GMTSCI=1:1

               if '$LENGTH($PIECE(GMTSCPS,";",GMTSCI))

                   QUIT 

               Begin DoDot:1

 +4                SET GMTSCP=$PIECE(GMTSCPS,";",GMTSCI)

                   KILL GMTSIN

 +5                DO ARRAY

                   if '$DATA(GMTSIN)

                       QUIT 

 +6                IF $LENGTH($GET(GMTSIN("TIM")))

                       IF +($GET(GMTSIN(0)))>0

                           SET GMTSLIM(+($GET(GMTSIN(0))),"TIM")=$GET(GMTSIN("TIM"))

 +7                IF $LENGTH($GET(GMTSIN("OCC")))

                       IF +($GET(GMTSIN(0)))>0

                           SET GMTSLIM(+($GET(GMTSIN(0))),"OCC")=$GET(GMTSIN("OCC"))

 +8                SET GMTSINST=$$ADD^GMTSXPD1(.GMTSIN)

                   SET GMTSTOT=+($GET(GMTSTOT))+($GET(GMTSINST))

               End DoDot:1

 +9       ; Rebuild Ad Hoc Health Summary Type

 +10       if +($GET(GMTSTOT))>0

               DO BUILD^GMTSXPD3

 +11       DO LIM

 +12       IF +$$ROK("GMTSXPS1")>0

               Begin DoDot:1

 +13               NEW GMTSHORT

                   SET GMTSHORT=1

                   SET GMTSINST=""

                   SET GMTSBLD="GMTS*2.7*114"

                   DO SEND^GMTSXPS1

               End DoDot:1

 +14       QUIT 

ARRAY     ; Build Array

 +1        KILL GMTSIN

           NEW GMTSI,GMTSTXT,GMTSEX,GMTSFLD,GMTSUB,GMTSVAL,GMTSPDX

           SET GMTSPDX=1

           SET GMTSCP=$GET(GMTSCP)

           if '$LENGTH(GMTSCP)

               QUIT 

 +2        FOR GMTSI=1:1

               Begin DoDot:1

 +3                SET GMTSTXT=""

                   SET GMTSEX="S GMTSTXT=$T("_GMTSCP_"+"_GMTSI_")"

                   XECUTE GMTSEX

                   if $LENGTH(GMTSTXT,";")'>3

                       SET GMTSTXT=""

                   if '$LENGTH(GMTSTXT)

                       QUIT 

 +4                SET GMTSFLD=$PIECE(GMTSTXT,";",2)

                   SET GMTSUB=$PIECE(GMTSTXT,";",3)

                   SET GMTSVAL=$PIECE(GMTSTXT,";",4)

 +5                if $EXTRACT(GMTSFLD,1)=1&(+GMTSFLD<2)

                       SET GMTSVAL=$PIECE(GMTSTXT,";",4,5)

 +6                if $EXTRACT(GMTSFLD,1)=" "!('$LENGTH(GMTSFLD))

                       SET GMTSTXT=""

                   if GMTSTXT=""

                       QUIT 

 +7                if $LENGTH(GMTSFLD)&('$LENGTH(GMTSUB))

                       SET GMTSIN(GMTSFLD)=GMTSVAL

                   if $LENGTH(GMTSFLD)&('$LENGTH(GMTSUB))

                       QUIT 

                   if $LENGTH(GMTSFLD)&($LENGTH(GMTSUB))

                       SET GMTSIN(GMTSFLD,GMTSUB)=GMTSVAL

 +8                if $GET(GMTSFLD)=7&(+($GET(GMTSUB))>0)

                       SET GMTSPDX=0

               End DoDot:1

               if '$LENGTH(GMTSTXT)

                   QUIT 

 +9        if +($GET(GMTSPDX))=0

               KILL GMTSIN("PDX")

 +10       QUIT 

LIM       ; Limits

 +1        NEW GMTSI,GMTST,GMTSO,GMTSA

           SET GMTSI=0

           FOR 

               SET GMTSI=$ORDER(GMTSLIM(GMTSI))

               if +GMTSI=0

                   QUIT 

               Begin DoDot:1

 +2                SET GMTSA=$PIECE($GET(^GMT(142.1,+($GET(GMTSI)),0)),"^",3)

                   SET GMTST=$GET(GMTSLIM(+GMTSI,"TIM"))

                   if '$LENGTH(GMTST)

                       SET GMTST=$SELECT(GMTSA="Y ":"1Y ",1:"")

 +3                SET GMTSA=$PIECE($GET(^GMT(142.1,+($GET(GMTSI)),0)),"^",5)

                   SET GMTSO=$GET(GMTSLIM(+GMTSI,"OCC"))

                   if '$LENGTH(GMTSO)

                       SET GMTSO=$SELECT(GMTSA="Y ":"10 ",1:"")

 +4                DO TO^GMTSXPD3(GMTSI,GMTST,GMTSO)

               End DoDot:1

 +5        QUIT 

ROK(X)    ; Routine OK

 +1        SET X=$GET(X)

           if '$LENGTH(X)

               QUIT 0

           NEW GMTSEX,GMTSTXT

           SET GMTSEX="S GMTSTXT=$T(+1^"_X_")"

           XECUTE GMTSEX

 +2        if '$LENGTH(GMTSTXT)

               QUIT 0

           QUIT 1

 +3       ;                

DIM       ; Immunizations Detail Component Data

 +1       ;0;;218

 +2       ;.01;;PCE IMMUNIZATIONS DETAILED

 +3       ;1;;IMMUND;GMTSPXIM

 +4       ;1.1;;0

 +5       ;2;;

 +6       ;3;;DIM

 +7       ;3.5;;9

 +8       ;3.5;1;This component lists the immunizations (e.g., Rubella, Smallpox,

 +9       ;3.5;2;etc.) and information about each immunization administered to a

 +10      ;3.5;3;particular patient in detail. Data are sorted in alphabetical order by

 +11      ;3.5;4;immunization name and then by administration date in reverse chronological

 +12      ;3.5;5;order. Data are presented in a Fileman captioned style and include

 +13      ;3.5;6;immunization name, full name, series, administration date, facility,

 +14      ;3.5;7;reaction, contraindications, manufacturer, lot number, expiration date,

 +15      ;3.5;8;dosage, administration route, administration site, vaccine information

 +16      ;3.5;9;statements offered to the patient, administered by and comments.

 +17      ;4;;

 +18      ;5;;

 +19      ;6;;

 +20      ;7;;0

 +21      ;8;;

 +22      ;9;;Immunizations Detail

 +23      ;10;;

 +24      ;11;;

 +25      ;12;;

 +26      ;13;;

 +27      ;14;;

 +28      ;PDX;;1

 +29      ;

 +30       QUIT 

 +31      ;

SIM       ; Immunizations Select Component Data

 +1       ;0;;219

 +2       ;.01;;PCE IMMUNIZATIONS SELECTED

 +3       ;1;;IMMUN;GMTSPXIM

 +4       ;1.1;;0

 +5       ;2;;Y

 +6       ;3;;SIM

 +7       ;3.5;;14

 +8       ;3.5;1;This component lists the immunizations (e.g., Rubella, Smallpox,

 +9       ;3.5;2;etc.) and information about each immunization administered to a particular

 +10      ;3.5;3;patient. Time and maximum occurrence limits apply, and the user is allowed

 +11      ;3.5;4;to select any number of the immunizations defined in the Immunization

 +12      ;3.5;5;(#9999999.14) file. The user may select a time limit up to 99 years and

 +13      ;3.5;6;999 maximum occurrences. Data are displayed in alphabetical order by

 +14      ;3.5;7;immunization name and then by administration date in reverse 

 +15      ;3.5;8;chronological order. Data presented include immunization name, series,

 +16      ;3.5;9;administration date and facility. If there is a reaction and/or

 +17      ;3.5;10;contraindication, the record is marked with a '<**>'. The name of the

 +18      ;3.5;11;immunization, date of administration and reaction/contraindications are

 +19      ;3.5;12;displayed at the end of the display. If the record has a comment it is

 +20      ;3.5;13;marked with a '<C>'. Comments can be viewed in the Detailed Immunizations

 +21      ;3.5;14;Health Summary component. 

 +22      ;4;;Y

 +23      ;5;;

 +24      ;6;;

 +25      ;7;;1

 +26      ;7;1;9999999.14

 +27      ;8;;

 +28      ;9;;Immunizations Select

 +29      ;10;;

 +30      ;11;;

 +31      ;12;;

 +32      ;13;;

 +33      ;14;;

 +34      ;TIM;;99Y

 +35      ;OCC;;999

 +36      ;

 +37       QUIT 

 +38      ;

SIMC      ; Immun Select Old>New Component Data

 +1       ;0;;221

 +2       ;.01;;PCE IMMUNIZATIONS SELECT CHRON

 +3       ;1;;IMMUNCDT;GMTSPXIM

 +4       ;1.1;;0

 +5       ;2;;Y

 +6       ;3;;SIMC

 +7       ;3.5;;13

 +8       ;3.5;1;This component lists the immunizations (e.g., Rubella, Smallpox, etc.) and

 +9       ;3.5;2;information about each immunization administered to a particular patient.

 +10      ;3.5;3;Time and maximum occurrence limits apply, and the user is allowed to

 +11      ;3.5;4;select any number of the immunizations defined in the Immunization

 +12      ;3.5;5;(#9999999.14) file. The user may select a time limit up to 99 years and

 +13      ;3.5;6;999 maximum occurrences. Data are displayed by administration date in

 +14      ;3.5;7;chronological order and then alphabetically by immunization name. Data

 +15      ;3.5;8;presented include immunization name, series, administration date and

 +16      ;3.5;9;facility. If there is a reaction and/or contraindication, the record is

 +17      ;3.5;10;marked with a '<**>'. The name of the immunization, date of administration

 +18      ;3.5;11;and reaction/contraindications are displayed at the end of the display. If

 +19      ;3.5;12;the record has a comment it is marked with a '<C>'. Comments can be viewed

 +20      ;3.5;13;in the Detailed Immunizations Health Summary component.

 +21      ;4;;Y

 +22      ;5;;

 +23      ;6;;

 +24      ;7;;1

 +25      ;7;1;9999999.14

 +26      ;8;;

 +27      ;9;;Immun Select Old>New

 +28      ;10;;

 +29      ;11;;

 +30      ;12;;

 +31      ;13;;

 +32      ;14;;

 +33      ;TIM;;99Y

 +34      ;OCC;;999

 +35      ;

 +36       QUIT 

 +37      ;

SIMR      ; Immun Select New>Old Component Data

 +1       ;0;;222

 +2       ;.01;;PCE IMMUN SELECT REVERSE CHRON

 +3       ;1;;IMMUNRDT;GMTSPXIM

 +4       ;1.1;;0

 +5       ;2;;Y

 +6       ;3;;SIMR

 +7       ;3.5;;13

 +8       ;3.5;1;This component lists the immunizations (e.g., Rubella, Smallpox, etc.) and

 +9       ;3.5;2;information about each immunization administered to a particular patient.

 +10      ;3.5;3;Time and maximum occurrence limits apply, and the user is allowed to

 +11      ;3.5;4;select any of the immunizations defined in the Immunization (#9999999.14)

 +12      ;3.5;5;file. The user may select a time limit up to 99 years and 999 maximum

 +13      ;3.5;6;occurrences. Data are displayed by administration date in reverse

 +14      ;3.5;7;chronological order and then alphabetically by immunization name. Data

 +15      ;3.5;8;presented include immunization name, series, administration date and

 +16      ;3.5;9;facility. If there is a reaction and/or contraindication, the record is

 +17      ;3.5;10;marked with a '<**>'. The name of the immunization, date of administration

 +18      ;3.5;11;and reaction/contraindications are displayed at the end of the display. If

 +19      ;3.5;12;the record has a comment it is marked with a <C>. Comments can be viewed

 +20      ;3.5;13;in the Detailed Immunizations Health Summary component.

 +21      ;4;;Y

 +22      ;5;;

 +23      ;6;;

 +24      ;7;;1

 +25      ;7;1;9999999.14

 +26      ;8;;

 +27      ;9;;Immun Select New>Old

 +28      ;10;;

 +29      ;11;;

 +30      ;12;;

 +31      ;13;;

 +32      ;14;;

 +33      ;TIM;;99Y

 +34      ;OCC;;999

 +35      ;

 +36       QUIT 

 +37      ;