BEHOLPCI.m

BEHOLPCI ;MSC/IND/PLS - Lab POC Component KIDS Support ;23-Mar-2009 22:44;DKM

 ;;1.1;BEH COMPONENTS;**048001**;June 18, 2008

 ;=========================================================

 ;EP - Environment Check

ENV ;

 Q

 I '$$PATCH^XPDUTL("LR*5.2*1025") D

 .W !!,"The supporting Lab v5.2 patch 1025 has not been installed."

 .W !,"The component will be disabled! Use vcManager to enable.",!

 .N DIR S DIR(0)="E",DIR("A")="Press Return to continue" D ^DIR

 Q

PREINIT ;EP - Preinitialization

 Q

POSTINIT ;EP - Postinitialization

 N IEN

 D REGNMSP^CIAURPC("BLRPOC","CIAV VUECENTRIC")

 S IEN=$$FIND1^DIC(19930.2,,,"INDIANHEALTHSERVICE.BEH.POCLAB.BEHLABPOC")

 I IEN,$$PATCH^XPDUTL("LR*5.2*1025") D

 .S FDA(19930.2,IEN_",",13)="@"

 .D FILE^DIE("K","FDA")

 Q

BEHOLPCI  ;MSC/IND/PLS - Lab POC Component KIDS Support ;23-Mar-2009 22:44;DKM

 +1       ;;1.1;BEH COMPONENTS;**048001**;June 18, 2008

 +2       ;=========================================================

 +3       ;EP - Environment Check

ENV       ;

 +1        QUIT 

 +2        IF '$$PATCH^XPDUTL("LR*5.2*1025")

               Begin DoDot:1

 +3                WRITE !!,"The supporting Lab v5.2 patch 1025 has not been installed."

 +4                WRITE !,"The component will be disabled! Use vcManager to enable.",!

 +5                NEW DIR

                   SET DIR(0)="E"

                   SET DIR("A")="Press Return to continue"

                   DO ^DIR

               End DoDot:1

 +6        QUIT 

PREINIT   ;EP - Preinitialization

 +1        QUIT 

POSTINIT  ;EP - Postinitialization

 +1        NEW IEN

 +2        DO REGNMSP^CIAURPC("BLRPOC","CIAV VUECENTRIC")

 +3        SET IEN=$$FIND1^DIC(19930.2,,,"INDIANHEALTHSERVICE.BEH.POCLAB.BEHLABPOC")

 +4        IF IEN

               IF $$PATCH^XPDUTL("LR*5.2*1025")

                   Begin DoDot:1

 +5                    SET FDA(19930.2,IEN_",",13)="@"

 +6                    DO FILE^DIE("K","FDA")

                   End DoDot:1

 +7        QUIT