Routine: GMTSP34

GMTSP34 ; CIO/SLC - Post Install GMTS*2.7*34    ; 05/01/2000

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

POST ; Post Install

 N GMTSIN,GMTSINST,GMTSTL,GMTSGAF,GMTSVSD,GMTSIENS,GMTSINST,GMTSBLD D CI

 I +$$ROK("GMTSXPS1")>0 S GMTSINST="",GMTSBLD="GMTS*2.7*34" D SEND^GMTSXPS1

CI ; Component Install

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

 S GMTSCPS="CMB",GMTSIENS=""

 S GMTSOK=0,GMTSOK=GMTSOK+$$ROK("GMTSXPD1"),GMTSOK=GMTSOK+$$ROK("GMTSXPD3")

 I GMTSOK'=2 W !!," >> Can not install component CMB",!,"    Could not find install routines GMTSXPD*" Q

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

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

 . D ARRAY Q:'$D(GMTSIN)  S GMTSINST=$$ADD^GMTSXPD1(.GMTSIN),GMTSTOT=+($G(GMTSTOT))+GMTSINST

 . S GMTSIENS=GMTSIENS_";"_+($G(GMTSIN(0)))

 F  Q:$E(GMTSIENS,1)'=";"  S GMTSIENS=$E(GMTSIENS,2,$L(GMTSIENS))

 ; Rebuild Ad Hoc Health Summary Type

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

ROK(X) ; Routine OK

 S X=$G(X) Q:'$L(X) 0 Q:$L(X)>8 0 X ^%ZOSF("TEST") Q:$T 1 Q 0

ARRAY ; Build Array

 K GMTSIN N GMTSI,GMTSTXT,GMTSEX,GMTSFLD,GMTSV,GMTSPDX,GMTSDD,GMTSFLDS

 S GMTSPDX=0,GMTSCP=$G(GMTSCP) Q:'$L(GMTSCP)

 S GMTSDD(0)="1;.01^2;1^3;2^4;3^5;4^6;5^7;6^8;8^9;9^10;10^11;11^12;12^13;13"

 S GMTSDD(.1)="1.1",GMTSDD(.1,0)="1;.01",GMTSDD(1)="7",GMTSDD(1,0)="1;.01^2;1",GMTSDD(3.5)="3.5",GMTSDD(3.5,0)="1;.01"

 S GMTSFLDS=".01;1;2;3;4;5;6;8;9;10;11;12;13^1.1;7;3.5"

 N GMTSND,GMTSNS,GMTSNI,GMTSNP,GMTSNV,GMTSV,GMTSTR

 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 GMTSND=$P(GMTSTXT,";",2),GMTSNS=$P(GMTSTXT,";",3)

 . S GMTSNI=$P(GMTSTXT,";",4),GMTSNV=$P(GMTSTXT,";",5,299)

 . S:GMTSND="PDX"&(GMTSNV=1) GMTSPDX=1 Q:GMTSND="PDX"

 . S:GMTSND="IEN"&(+($G(GMTSNV))>0) GMTSIN(0)=+($G(GMTSNV)) Q:GMTSND="IEN"

 . F GMTSNP=1:1:$L(GMTSNV,"^") D

 . . S GMTSV=$P(GMTSNV,"^",GMTSNP) Q:'$L(GMTSV)

 . . S GMTSTR=$P($G(GMTSDD(GMTSND)),"^",GMTSNP),GMTSFLD=$P(GMTSTR,";",2)

 . . S:$L(GMTSNS) GMTSTR=$P($G(GMTSDD(GMTSND,GMTSNS)),"^",GMTSNP),GMTSFLD=$G(GMTSDD(GMTSND))

 . . S:GMTSNI'>0 GMTSIN(GMTSFLD)=GMTSV

 . . S:GMTSNI>0 GMTSIN(GMTSFLD,GMTSNI)=GMTSV,GMTSIN(GMTSFLD)=+($G(GMTSIN(GMTSFLD)))+1

 S:GMTSPDX GMTSIN("PDX")=1 F GMTSI=1:1 Q:'$L($P($P(GMTSFLDS,"^",1),";",GMTSI))  D

 . S GMTSFLD=$P($P(GMTSFLDS,"^",1),";",GMTSI) S:$L(GMTSFLD)&('$D(GMTSIN(GMTSFLD))) GMTSIN(GMTSFLD)=""

 F GMTSI=1:1 Q:'$L($P($P(GMTSFLDS,"^",2),";",GMTSI))  D

 . S GMTSFLD=$P($P(GMTSFLDS,"^",2),";",GMTSI) S:$L(GMTSFLD)&('$D(GMTSIN(GMTSFLD))) GMTSIN(GMTSFLD)=0

CMB ; Reminder Brief

 ;IEN;;;239

 ;0;;;CLINICAL REMINDERS BRIEF^MAIN;GMTSPXHR^^CMB^^^^^Reminder Brief

 ;.1;0;1;MAIN;PXRM(DFN,SEG,FLG)

 ;1;0;1;811.9

 ;3.5;0;1;This is a brief version of the CLINICAL REMINDERS MAINTENANCE component.

GMTSP34.m