- GMTSPI94 ;CIO/SLC - Post Install GMTS*2.7*94 ;May 15, 2018@07:50
- ;;2.7;Health Summary;**94**;Oct 20, 1995;Build 41
- Q
- CI ; Component Install
- N GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSCI
- S GMTSCPS="MRT1;MRT4;MRT5;MRR1"
- 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*94" 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
- ;
- MRT1 ; Med Reconciliation Component Data
- ;0;;258
- ;.01;;Med. Reconciliation (Tool #1)
- ;1;;TOOL1;GMTSPST1
- ;1.1;;0
- ;2;;
- ;3;;MRT1
- ;3.5;;5
- ;3.5;1;This component generates a list of the patient's complete medication
- ;3.5;2;profile, including Outpatient Rx's, Inpatient Medication Orders, Clinic
- ;3.5;3;Orders, Non-VA Medications, and Remote Active Medications. It is sorted
- ;3.5;4;alphabetically by drug name, creating groups of outpatient/inpatient
- ;3.5;5;orders for the same item in order to facilitate medication reconciliation.
- ;4;;
- ;5;;
- ;6;;
- ;7;;0
- ;8;;
- ;9;;Med Reconciliation
- ;10;;
- ;11;;
- ;12;;
- ;13;;
- ;14;;
- ;PDX;;1
- ;
- Q
- ;
- MRT4 ; Remote Active Meds (Tool #4) Component Data
- ;0;;261
- ;.01;;Remote Active Meds (Tool #4)
- ;1;;ENHS;GMTSPST4
- ;1.1;;0
- ;2;;
- ;3;;MRT4
- ;3.5;;2
- ;3.5;1;This component will display the details of a patient's remote active
- ;3.5;2;outpatient medications using data from the Health Data Repository.
- ;4;;
- ;5;;
- ;6;;
- ;7;;0
- ;8;;
- ;9;;
- ;10;;
- ;11;;
- ;12;;
- ;13;;
- ;14;;
- ;PDX;;1
- ;
- Q
- ;
- MRT5 ; Allergies/ADRs Component Data
- ;0;;262
- ;.01;;Allergies/ADRs (Tool #5)
- ;1;;ENHS;GMTSPST5
- ;1.1;;0
- ;2;;
- ;3;;MRT5
- ;3.5;;4
- ;3.5;1;This component displays local facility and remote facility allergy and
- ;3.5;2;adverse data information using the Remote Data Interoperability features
- ;3.5;3;of the Health Data Repository. Data from the local facility is merged
- ;3.5;4;into a single table with remote facility allergy/adverse reaction data.
- ;4;;
- ;5;;
- ;6;;
- ;7;;0
- ;8;;
- ;9;;Allergies/ADRs
- ;10;;
- ;11;;
- ;12;;
- ;13;;
- ;14;;
- ;PDX;;1
- ;
- Q
- ;
- MRR1 ; Med Reconciliation Component Data
- ;0;;267
- ;.01;;Med Recon NoGlossary (Tool #1)
- ;1;;TOOL1;GMTSPSTN
- ;1.1;;0
- ;2;;
- ;3;;MRR1
- ;3.5;;5
- ;3.5;1;This component generates a list of the patient's complete medication
- ;3.5;2;profile, including Outpatient Rx's, Inpatient Medication Orders, Clinic
- ;3.5;3;Orders, Non-VA Medications, and Remote Active Medications. It is sorted
- ;3.5;4;alphabetically by drug name, creating groups of outpatient/inpatient
- ;3.5;5;orders for the same item in order to facilitate medication reconciliation.
- ;4;;
- ;5;;
- ;6;;
- ;7;;0
- ;8;;
- ;9;;Med Reconciliation
- ;10;;
- ;11;;
- ;12;;
- ;13;;
- ;14;;
- ;PDX;;1
- ;
- Q
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMTSPI94 4446 printed Feb 18, 2025@23:25:35 Page 2
- GMTSPI94 ;CIO/SLC - Post Install GMTS*2.7*94 ;May 15, 2018@07:50
- +1 ;;2.7;Health Summary;**94**;Oct 20, 1995;Build 41
- +2 QUIT
- CI ; Component Install
- +1 NEW GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSCI
- +2 SET GMTSCPS="MRT1;MRT4;MRT5;MRR1"
- +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*94"
- 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 ;
- MRT1 ; Med Reconciliation Component Data
- +1 ;0;;258
- +2 ;.01;;Med. Reconciliation (Tool #1)
- +3 ;1;;TOOL1;GMTSPST1
- +4 ;1.1;;0
- +5 ;2;;
- +6 ;3;;MRT1
- +7 ;3.5;;5
- +8 ;3.5;1;This component generates a list of the patient's complete medication
- +9 ;3.5;2;profile, including Outpatient Rx's, Inpatient Medication Orders, Clinic
- +10 ;3.5;3;Orders, Non-VA Medications, and Remote Active Medications. It is sorted
- +11 ;3.5;4;alphabetically by drug name, creating groups of outpatient/inpatient
- +12 ;3.5;5;orders for the same item in order to facilitate medication reconciliation.
- +13 ;4;;
- +14 ;5;;
- +15 ;6;;
- +16 ;7;;0
- +17 ;8;;
- +18 ;9;;Med Reconciliation
- +19 ;10;;
- +20 ;11;;
- +21 ;12;;
- +22 ;13;;
- +23 ;14;;
- +24 ;PDX;;1
- +25 ;
- +26 QUIT
- +27 ;
- MRT4 ; Remote Active Meds (Tool #4) Component Data
- +1 ;0;;261
- +2 ;.01;;Remote Active Meds (Tool #4)
- +3 ;1;;ENHS;GMTSPST4
- +4 ;1.1;;0
- +5 ;2;;
- +6 ;3;;MRT4
- +7 ;3.5;;2
- +8 ;3.5;1;This component will display the details of a patient's remote active
- +9 ;3.5;2;outpatient medications using data from the Health Data Repository.
- +10 ;4;;
- +11 ;5;;
- +12 ;6;;
- +13 ;7;;0
- +14 ;8;;
- +15 ;9;;
- +16 ;10;;
- +17 ;11;;
- +18 ;12;;
- +19 ;13;;
- +20 ;14;;
- +21 ;PDX;;1
- +22 ;
- +23 QUIT
- +24 ;
- MRT5 ; Allergies/ADRs Component Data
- +1 ;0;;262
- +2 ;.01;;Allergies/ADRs (Tool #5)
- +3 ;1;;ENHS;GMTSPST5
- +4 ;1.1;;0
- +5 ;2;;
- +6 ;3;;MRT5
- +7 ;3.5;;4
- +8 ;3.5;1;This component displays local facility and remote facility allergy and
- +9 ;3.5;2;adverse data information using the Remote Data Interoperability features
- +10 ;3.5;3;of the Health Data Repository. Data from the local facility is merged
- +11 ;3.5;4;into a single table with remote facility allergy/adverse reaction data.
- +12 ;4;;
- +13 ;5;;
- +14 ;6;;
- +15 ;7;;0
- +16 ;8;;
- +17 ;9;;Allergies/ADRs
- +18 ;10;;
- +19 ;11;;
- +20 ;12;;
- +21 ;13;;
- +22 ;14;;
- +23 ;PDX;;1
- +24 ;
- +25 QUIT
- +26 ;
- MRR1 ; Med Reconciliation Component Data
- +1 ;0;;267
- +2 ;.01;;Med Recon NoGlossary (Tool #1)
- +3 ;1;;TOOL1;GMTSPSTN
- +4 ;1.1;;0
- +5 ;2;;
- +6 ;3;;MRR1
- +7 ;3.5;;5
- +8 ;3.5;1;This component generates a list of the patient's complete medication
- +9 ;3.5;2;profile, including Outpatient Rx's, Inpatient Medication Orders, Clinic
- +10 ;3.5;3;Orders, Non-VA Medications, and Remote Active Medications. It is sorted
- +11 ;3.5;4;alphabetically by drug name, creating groups of outpatient/inpatient
- +12 ;3.5;5;orders for the same item in order to facilitate medication reconciliation.
- +13 ;4;;
- +14 ;5;;
- +15 ;6;;
- +16 ;7;;0
- +17 ;8;;
- +18 ;9;;Med Reconciliation
- +19 ;10;;
- +20 ;11;;
- +21 ;12;;
- +22 ;13;;
- +23 ;14;;
- +24 ;PDX;;1
- +25 ;
- +26 QUIT
- +27 ;