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

GMTSP65.m

Go to the documentation of this file.
  1. GMTSP65 ; SLC OIFO/GS - Post Install GMTS*2.7*65 ; 04/09/2004
  1. ;;2.7;Health Summary;**65**;Oct 20, 1995
  1. Q
  1. POST ; Post-Install
  1. D HOME^%ZIS N ENV S ENV=$$ENV Q:'ENV D REM,CI,RDV
  1. Q
  1. CI ; Component Install
  1. N GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD
  1. N GMTSCPS,GMTSCP,GMTSCI
  1. S GMTSCPS="RXNV"
  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
  1. . S GMTSHORT=1,GMTSINST="",GMTSBLD="GMTS*2.7*65"
  1. . D SEND^GMTSXPS1
  1. Q
  1. REM ; Remove Component
  1. N DA,DIK,GMTST,GMTSC,GMTSD
  1. S (GMTST,GMTSD)=0
  1. ; From Health Summary Type File 142
  1. F S GMTST=$O(^GMT(142,"AE",243,GMTST)) Q:+GMTST=0 D
  1. . S GMTSC=0 F S GMTSC=$O(^GMT(142,"AE",243,GMTST,GMTSC)) Q:+GMTSC=0 D
  1. . . Q:$P($G(^GMT(142,GMTST,1,GMTSC,0)),"^",2)'=243 S GMTSD=GMTSD+1
  1. . . K ^GMT(142,GMTST,1,GMTSC),^GMT(142,GMTST,1,"B",GMTSC),^GMT(142,GMTST,1,"C",243)
  1. I GMTSD>1 K ^GMT(142,"AE",243)
  1. ; From Health Summary Component File 142.1
  1. S DA=243,DIK="^GMT(142.1," D ^DIK
  1. ; From PDX Segment File 394.1
  1. ; Previous RXNV Component
  1. S DA=+($O(^VAT(394.71,"C","RXNV",0))) I +DA>0 S DIK="^VAT(394.71," D ^DIK
  1. ; Previous NVM Component
  1. S DA=+($O(^VAT(394.71,"C","NVM",0))) I +DA>0 S DIK="^VAT(394.71," D ^DIK
  1. ; Previous HOTC Component
  1. S DA=+($O(^VAT(394.71,"C","HOTC",0))) I +DA>0 S DIK="^VAT(394.71," D ^DIK
  1. ; Previous "Non-va Medications" Component
  1. S DA=+($O(^VAT(394.71,"B","Non-va Medications",0))) I +DA>0 S DIK="^VAT(394.71," D ^DIK
  1. Q
  1. RDV ; Remote Data View - Outpatient Meds
  1. N COM,TYP,HDR,TTL,TIM,DA,DIK,DIE,DIC,DA
  1. S COM=$O(^GMT(142.1,"C","RXNV",0)) Q:+COM'>0
  1. S TYP=$O(^GMT(142,"B","REMOTE OUTPATIENT MEDS (6M)",0)) Q:+TYP=0
  1. S HDR=$P($G(^GMT(142.1,+COM,0)),"^",9) Q:'$L(HDR)
  1. S TTL=$P($G(^GMT(142.1,+COM,0)),"^",1) Q:'$L(TTL) S TIM="6M"
  1. S DA(1)=+TYP,(DIE,DIK,DIC)="^GMT(142,"_DA(1)_",1,",DA=15 D ^DIK
  1. D BMES^XPDUTL(" Adding the '"_TTL_"' Health Summary Component")
  1. D MES^XPDUTL(" to the 'REMOTE OUTPATIENT MEDS (6M)' Remote Data View Health")
  1. D MES^XPDUTL(" Summary Type"),MES^XPDUTL("")
  1. K ^GMT(142,"AE",243,5000014,15),^GMT(142,5000014,1,"B",15,15),^GMT(142,5000014,1,"C",243,15)
  1. S ^GMT(142,DA(1),1,DA,0)="15^"_COM_"^^"_TIM_"^"_HDR
  1. S ^GMT(142,DA(1),1,"B",DA,DA)="",^GMT(142,DA(1),1,"C",COM,DA)=""
  1. K DA S DA=+TYP,DIK="^GMT(142," D IX1^DIK
  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. ENV(X) ; Environment check
  1. D HOME^%ZIS S U="^"
  1. I $$GET1^DIQ(200,+($G(DUZ)),.01)="" W !!," User (DUZ) not defined",! Q 0
  1. Q 1
  1. ROK(X) ; Routine OK
  1. S X=$G(X) Q:'$L(X) 0
  1. N GMTSEX,GMTSTXT S GMTSEX="S GMTSTXT=$T(+1^"_X_")" X GMTSEX
  1. Q:'$L(GMTSTXT) 0
  1. Q 1
  1. ;
  1. RXNV ; Non VA Meds Component Data
  1. ;0;;243
  1. ;.01;;NON VA MEDICATIONS
  1. ;1;;MAIN;GMTSPSHO
  1. ;1.1;;1
  1. ;1.1;1;PSOHCSUM
  1. ;2;;Y
  1. ;3;;RXNV
  1. ;3.5;;2
  1. ;3.5;1;This component displays the non-VA medications taken or
  1. ;3.5;2;reported as used by a patient.
  1. ;4;;Y
  1. ;5;;
  1. ;6;;
  1. ;7;;0
  1. ;8;;
  1. ;9;;Non VA Meds
  1. ;10;;
  1. ;11;;
  1. ;12;;
  1. ;13;;PS
  1. ;14;;
  1. ;PDX;;1
  1. ;TIM;;1Y
  1. ;OCC;;10
  1. ;
  1. Q
  1. ;