Routine: GMTSP89I

GMTSP89I ; CIO/SLC - Post Install GMTS*2.7*89    ; 02/23/2009

 ;;2.7;Health Summary;**89**;Oct 20, 1995;Build 61

POST ;

 D CI

CI ; Component Install

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

 S GMTSCPS="CF;CLD"

 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*89" D SEND^GMTSXPS1

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")

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)

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

CF ; Reminders Findings Component Data

 ;0;;250

 ;.01;;CLINICAL REMINDERS FINDINGS

 ;1;;MAIN;GMTSPXHR

 ;1.1;;1

 ;1.1;1;MAIN;PXRM(DFN,SEG,FLG)

 ;2;;

 ;3;;CF

 ;3.5;;3

 ;3.5;1;This component lists reminders findings for reminders that are due and not

 ;3.5;2;due as does the CRS component.

 ;3.5;3;

 ;4;;

 ;5;;

 ;6;;

 ;7;;1

 ;7;1;811.9

 ;8;;

 ;9;;Reminders Findings

 ;10;;

 ;11;;

 ;12;;

 ;13;;

 ;14;;

CLD ; Reminders Last Done Component Data

 ;0;;251

 ;.01;;CLINICAL REMINDERS LAST DONE

 ;1;;MAIN;GMTSPXHR

 ;1.1;;1

 ;1.1;1;MAIN;PXRM(DFN,SEG,FLG)

 ;2;;

 ;3;;CLD

 ;3.5;;2

 ;3.5;1;This component shows reminders with the Last Done Date if it is defined.

 ;3.5;2;

 ;4;;

 ;5;;

 ;6;;

 ;7;;1

 ;7;1;811.9

 ;8;;

 ;9;;Reminders Last Done

 ;10;;

 ;11;;

 ;12;;

 ;13;;

 ;14;;

GMTSP89I.m