Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMTSPI94

GMTSPI94.m

Go to the documentation of this file.
  1. 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
  1. Q
  1. CI ; Component Install
  1. N GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD,GMTSCPS,GMTSCP,GMTSCI
  1. S GMTSCPS="MRT1;MRT4;MRT5;MRR1"
  1. F GMTSCI=1:1 Q:'$L($P(GMTSCPS,";",GMTSCI)) D
  1. . S GMTSCP=$P(GMTSCPS,";",GMTSCI) K GMTSIN
  1. . D ARRAY Q:'$D(GMTSIN)
  1. . I $L($G(GMTSIN("TIM"))),+($G(GMTSIN(0)))>0 S GMTSLIM(+($G(GMTSIN(0))),"TIM")=$G(GMTSIN("TIM"))
  1. . I $L($G(GMTSIN("OCC"))),+($G(GMTSIN(0)))>0 S GMTSLIM(+($G(GMTSIN(0))),"OCC")=$G(GMTSIN("OCC"))
  1. . S GMTSINST=$$ADD^GMTSXPD1(.GMTSIN),GMTSTOT=+($G(GMTSTOT))+($G(GMTSINST))
  1. ; Rebuild Ad Hoc Health Summary Type
  1. D:+($G(GMTSTOT))>0 BUILD^GMTSXPD3
  1. D LIM
  1. I +$$ROK("GMTSXPS1")>0 D
  1. . N GMTSHORT S GMTSHORT=1,GMTSINST="",GMTSBLD="GMTS*2.7*94" D SEND^GMTSXPS1
  1. Q
  1. ARRAY ; Build Array
  1. K GMTSIN N GMTSI,GMTSTXT,GMTSEX,GMTSFLD,GMTSUB,GMTSVAL,GMTSPDX S GMTSPDX=1,GMTSCP=$G(GMTSCP) Q:'$L(GMTSCP)
  1. F GMTSI=1:1 D Q:'$L(GMTSTXT)
  1. . S GMTSTXT="",GMTSEX="S GMTSTXT=$T("_GMTSCP_"+"_GMTSI_")" X GMTSEX S:$L(GMTSTXT,";")'>3 GMTSTXT="" Q:'$L(GMTSTXT)
  1. . S GMTSFLD=$P(GMTSTXT,";",2),GMTSUB=$P(GMTSTXT,";",3),GMTSVAL=$P(GMTSTXT,";",4)
  1. . S:$E(GMTSFLD,1)=1&(+GMTSFLD<2) GMTSVAL=$P(GMTSTXT,";",4,5)
  1. . S:$E(GMTSFLD,1)=" "!('$L(GMTSFLD)) GMTSTXT="" Q:GMTSTXT=""
  1. . S:$L(GMTSFLD)&('$L(GMTSUB)) GMTSIN(GMTSFLD)=GMTSVAL Q:$L(GMTSFLD)&('$L(GMTSUB)) S:$L(GMTSFLD)&($L(GMTSUB)) GMTSIN(GMTSFLD,GMTSUB)=GMTSVAL
  1. . S:$G(GMTSFLD)=7&(+($G(GMTSUB))>0) GMTSPDX=0
  1. K:+($G(GMTSPDX))=0 GMTSIN("PDX")
  1. Q
  1. LIM ; Limits
  1. N GMTSI,GMTST,GMTSO,GMTSA S GMTSI=0 F S GMTSI=$O(GMTSLIM(GMTSI)) Q:+GMTSI=0 D
  1. . 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:"")
  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:"")
  1. . D TO^GMTSXPD3(GMTSI,GMTST,GMTSO)
  1. Q
  1. ROK(X) ; Routine OK
  1. S X=$G(X) Q:'$L(X) 0 N GMTSEX,GMTSTXT S GMTSEX="S GMTSTXT=$T(+1^"_X_")" X GMTSEX
  1. Q:'$L(GMTSTXT) 0 Q 1
  1. ;
  1. MRT1 ; Med Reconciliation Component Data
  1. ;0;;258
  1. ;.01;;Med. Reconciliation (Tool #1)
  1. ;1;;TOOL1;GMTSPST1
  1. ;1.1;;0
  1. ;2;;
  1. ;3;;MRT1
  1. ;3.5;;5
  1. ;3.5;1;This component generates a list of the patient's complete medication
  1. ;3.5;2;profile, including Outpatient Rx's, Inpatient Medication Orders, Clinic
  1. ;3.5;3;Orders, Non-VA Medications, and Remote Active Medications. It is sorted
  1. ;3.5;4;alphabetically by drug name, creating groups of outpatient/inpatient
  1. ;3.5;5;orders for the same item in order to facilitate medication reconciliation.
  1. ;4;;
  1. ;5;;
  1. ;6;;
  1. ;7;;0
  1. ;8;;
  1. ;9;;Med Reconciliation
  1. ;10;;
  1. ;11;;
  1. ;12;;
  1. ;13;;
  1. ;14;;
  1. ;PDX;;1
  1. ;
  1. Q
  1. ;
  1. MRT4 ; Remote Active Meds (Tool #4) Component Data
  1. ;0;;261
  1. ;.01;;Remote Active Meds (Tool #4)
  1. ;1;;ENHS;GMTSPST4
  1. ;1.1;;0
  1. ;2;;
  1. ;3;;MRT4
  1. ;3.5;;2
  1. ;3.5;1;This component will display the details of a patient's remote active
  1. ;3.5;2;outpatient medications using data from the Health Data Repository.
  1. ;4;;
  1. ;5;;
  1. ;6;;
  1. ;7;;0
  1. ;8;;
  1. ;9;;
  1. ;10;;
  1. ;11;;
  1. ;12;;
  1. ;13;;
  1. ;14;;
  1. ;PDX;;1
  1. ;
  1. Q
  1. ;
  1. MRT5 ; Allergies/ADRs Component Data
  1. ;0;;262
  1. ;.01;;Allergies/ADRs (Tool #5)
  1. ;1;;ENHS;GMTSPST5
  1. ;1.1;;0
  1. ;2;;
  1. ;3;;MRT5
  1. ;3.5;;4
  1. ;3.5;1;This component displays local facility and remote facility allergy and
  1. ;3.5;2;adverse data information using the Remote Data Interoperability features
  1. ;3.5;3;of the Health Data Repository. Data from the local facility is merged
  1. ;3.5;4;into a single table with remote facility allergy/adverse reaction data.
  1. ;4;;
  1. ;5;;
  1. ;6;;
  1. ;7;;0
  1. ;8;;
  1. ;9;;Allergies/ADRs
  1. ;10;;
  1. ;11;;
  1. ;12;;
  1. ;13;;
  1. ;14;;
  1. ;PDX;;1
  1. ;
  1. Q
  1. ;
  1. MRR1 ; Med Reconciliation Component Data
  1. ;0;;267
  1. ;.01;;Med Recon NoGlossary (Tool #1)
  1. ;1;;TOOL1;GMTSPSTN
  1. ;1.1;;0
  1. ;2;;
  1. ;3;;MRR1
  1. ;3.5;;5
  1. ;3.5;1;This component generates a list of the patient's complete medication
  1. ;3.5;2;profile, including Outpatient Rx's, Inpatient Medication Orders, Clinic
  1. ;3.5;3;Orders, Non-VA Medications, and Remote Active Medications. It is sorted
  1. ;3.5;4;alphabetically by drug name, creating groups of outpatient/inpatient
  1. ;3.5;5;orders for the same item in order to facilitate medication reconciliation.
  1. ;4;;
  1. ;5;;
  1. ;6;;
  1. ;7;;0
  1. ;8;;
  1. ;9;;Med Reconciliation
  1. ;10;;
  1. ;11;;
  1. ;12;;
  1. ;13;;
  1. ;14;;
  1. ;PDX;;1
  1. ;
  1. Q
  1. ;