GMTSP65.m

GMTSP65 ; SLC OIFO/GS - Post Install GMTS*2.7*65    ; 04/09/2004

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

 Q

POST ; Post-Install

 D HOME^%ZIS N ENV S ENV=$$ENV Q:'ENV  D REM,CI,RDV

 Q

CI ; Component Install

 N GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD

 N GMTSCPS,GMTSCP,GMTSCI

 S GMTSCPS="RXNV"

 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*65"

 . D SEND^GMTSXPS1

 Q

REM ; Remove Component

 N DA,DIK,GMTST,GMTSC,GMTSD

 S (GMTST,GMTSD)=0

 ;   From Health Summary Type File 142

 F  S GMTST=$O(^GMT(142,"AE",243,GMTST)) Q:+GMTST=0  D

 . S GMTSC=0 F  S GMTSC=$O(^GMT(142,"AE",243,GMTST,GMTSC)) Q:+GMTSC=0  D

 . . Q:$P($G(^GMT(142,GMTST,1,GMTSC,0)),"^",2)'=243  S GMTSD=GMTSD+1

 . . K ^GMT(142,GMTST,1,GMTSC),^GMT(142,GMTST,1,"B",GMTSC),^GMT(142,GMTST,1,"C",243)

 I GMTSD>1 K ^GMT(142,"AE",243)

 ;   From Health Summary Component File 142.1

 S DA=243,DIK="^GMT(142.1," D ^DIK

 ;   From PDX Segment File 394.1

 ;      Previous RXNV Component

 S DA=+($O(^VAT(394.71,"C","RXNV",0))) I +DA>0 S DIK="^VAT(394.71," D ^DIK

 ;      Previous NVM Component

 S DA=+($O(^VAT(394.71,"C","NVM",0))) I +DA>0 S DIK="^VAT(394.71," D ^DIK

 ;      Previous HOTC Component

 S DA=+($O(^VAT(394.71,"C","HOTC",0))) I +DA>0 S DIK="^VAT(394.71," D ^DIK

 ;      Previous "Non-va Medications" Component

 S DA=+($O(^VAT(394.71,"B","Non-va Medications",0))) I +DA>0 S DIK="^VAT(394.71," D ^DIK

 Q

RDV ; Remote Data View - Outpatient Meds

 N COM,TYP,HDR,TTL,TIM,DA,DIK,DIE,DIC,DA

 S COM=$O(^GMT(142.1,"C","RXNV",0)) Q:+COM'>0

 S TYP=$O(^GMT(142,"B","REMOTE OUTPATIENT MEDS (6M)",0)) Q:+TYP=0

 S HDR=$P($G(^GMT(142.1,+COM,0)),"^",9) Q:'$L(HDR)

 S TTL=$P($G(^GMT(142.1,+COM,0)),"^",1) Q:'$L(TTL)  S TIM="6M"

 S DA(1)=+TYP,(DIE,DIK,DIC)="^GMT(142,"_DA(1)_",1,",DA=15 D ^DIK

 D BMES^XPDUTL(" Adding the '"_TTL_"' Health Summary Component")

 D MES^XPDUTL(" to the 'REMOTE OUTPATIENT MEDS (6M)' Remote Data View Health")

 D MES^XPDUTL(" Summary Type"),MES^XPDUTL("")

 K ^GMT(142,"AE",243,5000014,15),^GMT(142,5000014,1,"B",15,15),^GMT(142,5000014,1,"C",243,15)

 S ^GMT(142,DA(1),1,DA,0)="15^"_COM_"^^"_TIM_"^"_HDR

 S ^GMT(142,DA(1),1,"B",DA,DA)="",^GMT(142,DA(1),1,"C",COM,DA)=""

 K DA S DA=+TYP,DIK="^GMT(142," D IX1^DIK

 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

ENV(X) ; Environment check

 D HOME^%ZIS S U="^"

 I $$GET1^DIQ(200,+($G(DUZ)),.01)="" W !!,"    User (DUZ) not defined",! Q 0

 Q 1

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

 ;                

RXNV ; Non VA Meds Component Data

 ;0;;243

 ;.01;;NON VA MEDICATIONS

 ;1;;MAIN;GMTSPSHO

 ;1.1;;1

 ;1.1;1;PSOHCSUM

 ;2;;Y

 ;3;;RXNV

 ;3.5;;2

 ;3.5;1;This component displays the non-VA medications taken or

 ;3.5;2;reported as used by a patient.

 ;4;;Y

 ;5;;

 ;6;;

 ;7;;0

 ;8;;

 ;9;;Non VA Meds

 ;10;;

 ;11;;

 ;12;;

 ;13;;PS

 ;14;;

 ;PDX;;1

 ;TIM;;1Y

 ;OCC;;10

 ;

 Q

 ;

GMTSP65   ; SLC OIFO/GS - Post Install GMTS*2.7*65    ; 04/09/2004

 +1       ;;2.7;Health Summary;**65**;Oct 20, 1995

 +2        QUIT 

POST      ; Post-Install

 +1        DO HOME^%ZIS

           NEW ENV

           SET ENV=$$ENV

           IF 'ENV

               QUIT 

           DO REM

           DO CI

           DO RDV

 +2        QUIT 

CI        ; Component Install

 +1        NEW GMTSIN,GMTSLIM,GMTSINST,GMTSTL,GMTSINST,GMTSTOT,GMTSBLD

 +2        NEW GMTSCPS,GMTSCP,GMTSCI

 +3        SET GMTSCPS="RXNV"

 +4        FOR GMTSCI=1:1

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

                   QUIT 

               Begin DoDot:1

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

                   KILL GMTSIN

 +6                DO ARRAY

                   IF '$DATA(GMTSIN)

                       QUIT 

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

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

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

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

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

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

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

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

               End DoDot:1

 +10      ; Rebuild Ad Hoc Health Summary Type

 +11       IF +($GET(GMTSTOT))>0

               DO BUILD^GMTSXPD3

 +12       DO LIM

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

               Begin DoDot:1

 +14               NEW GMTSHORT

 +15               SET GMTSHORT=1

                   SET GMTSINST=""

                   SET GMTSBLD="GMTS*2.7*65"

 +16               DO SEND^GMTSXPS1

               End DoDot:1

 +17       QUIT 

REM       ; Remove Component

 +1        NEW DA,DIK,GMTST,GMTSC,GMTSD

 +2        SET (GMTST,GMTSD)=0

 +3       ;   From Health Summary Type File 142

 +4        FOR 

               SET GMTST=$ORDER(^GMT(142,"AE",243,GMTST))

               IF +GMTST=0

                   QUIT 

               Begin DoDot:1

 +5                SET GMTSC=0

                   FOR 

                       SET GMTSC=$ORDER(^GMT(142,"AE",243,GMTST,GMTSC))

                       IF +GMTSC=0

                           QUIT 

                       Begin DoDot:2

 +6                        IF $PIECE($GET(^GMT(142,GMTST,1,GMTSC,0)),"^",2)'=243

                               QUIT 

                           SET GMTSD=GMTSD+1

 +7                        KILL ^GMT(142,GMTST,1,GMTSC),^GMT(142,GMTST,1,"B",GMTSC),^GMT(142,GMTST,1,"C",243)

                       End DoDot:2

               End DoDot:1

 +8        IF GMTSD>1

               KILL ^GMT(142,"AE",243)

 +9       ;   From Health Summary Component File 142.1

 +10       SET DA=243

           SET DIK="^GMT(142.1,"

           DO ^DIK

 +11      ;   From PDX Segment File 394.1

 +12      ;      Previous RXNV Component

 +13       SET DA=+($ORDER(^VAT(394.71,"C","RXNV",0)))

           IF +DA>0

               SET DIK="^VAT(394.71,"

               DO ^DIK

 +14      ;      Previous NVM Component

 +15       SET DA=+($ORDER(^VAT(394.71,"C","NVM",0)))

           IF +DA>0

               SET DIK="^VAT(394.71,"

               DO ^DIK

 +16      ;      Previous HOTC Component

 +17       SET DA=+($ORDER(^VAT(394.71,"C","HOTC",0)))

           IF +DA>0

               SET DIK="^VAT(394.71,"

               DO ^DIK

 +18      ;      Previous "Non-va Medications" Component

 +19       SET DA=+($ORDER(^VAT(394.71,"B","Non-va Medications",0)))

           IF +DA>0

               SET DIK="^VAT(394.71,"

               DO ^DIK

 +20       QUIT 

RDV       ; Remote Data View - Outpatient Meds

 +1        NEW COM,TYP,HDR,TTL,TIM,DA,DIK,DIE,DIC,DA

 +2        SET COM=$ORDER(^GMT(142.1,"C","RXNV",0))

           IF +COM'>0

               QUIT 

 +3        SET TYP=$ORDER(^GMT(142,"B","REMOTE OUTPATIENT MEDS (6M)",0))

           IF +TYP=0

               QUIT 

 +4        SET HDR=$PIECE($GET(^GMT(142.1,+COM,0)),"^",9)

           IF '$LENGTH(HDR)

               QUIT 

 +5        SET TTL=$PIECE($GET(^GMT(142.1,+COM,0)),"^",1)

           IF '$LENGTH(TTL)

               QUIT 

           SET TIM="6M"

 +6        SET DA(1)=+TYP

           SET (DIE,DIK,DIC)="^GMT(142,"_DA(1)_",1,"

           SET DA=15

           DO ^DIK

 +7        DO BMES^XPDUTL(" Adding the '"_TTL_"' Health Summary Component")

 +8        DO MES^XPDUTL(" to the 'REMOTE OUTPATIENT MEDS (6M)' Remote Data View Health")

 +9        DO MES^XPDUTL(" Summary Type")

           DO MES^XPDUTL("")

 +10       KILL ^GMT(142,"AE",243,5000014,15),^GMT(142,5000014,1,"B",15,15),^GMT(142,5000014,1,"C",243,15)

 +11       SET ^GMT(142,DA(1),1,DA,0)="15^"_COM_"^^"_TIM_"^"_HDR

 +12       SET ^GMT(142,DA(1),1,"B",DA,DA)=""

           SET ^GMT(142,DA(1),1,"C",COM,DA)=""

 +13       KILL DA

           SET DA=+TYP

           SET DIK="^GMT(142,"

           DO IX1^DIK

 +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 

ENV(X)    ; Environment check

 +1        DO HOME^%ZIS

           SET U="^"

 +2        IF $$GET1^DIQ(200,+($GET(DUZ)),.01)=""

               WRITE !!,"    User (DUZ) not defined",!

               QUIT 0

 +3        QUIT 1

ROK(X)    ; Routine OK

 +1        SET X=$GET(X)

           IF '$LENGTH(X)

               QUIT 0

 +2        NEW GMTSEX,GMTSTXT

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

           XECUTE GMTSEX

 +3        IF '$LENGTH(GMTSTXT)

               QUIT 0

 +4        QUIT 1

 +5       ;                

RXNV      ; Non VA Meds Component Data

 +1       ;0;;243

 +2       ;.01;;NON VA MEDICATIONS

 +3       ;1;;MAIN;GMTSPSHO

 +4       ;1.1;;1

 +5       ;1.1;1;PSOHCSUM

 +6       ;2;;Y

 +7       ;3;;RXNV

 +8       ;3.5;;2

 +9       ;3.5;1;This component displays the non-VA medications taken or

 +10      ;3.5;2;reported as used by a patient.

 +11      ;4;;Y

 +12      ;5;;

 +13      ;6;;

 +14      ;7;;0

 +15      ;8;;

 +16      ;9;;Non VA Meds

 +17      ;10;;

 +18      ;11;;

 +19      ;12;;

 +20      ;13;;PS

 +21      ;14;;

 +22      ;PDX;;1

 +23      ;TIM;;1Y

 +24      ;OCC;;10

 +25      ;

 +26       QUIT 

 +27      ;