GMRVP59.m

GMRVP59 ;BAY/KAM-Patch GMRV*5*9 Install Utility Routine ; 8/5/05 7:14am

 ;;5.0;GEN. MED. REC. - VITALS;**9**;Apr 15, 2003

 ;

ENV ;Main Entry point for Environment Check

 S XPDABORT=""

 D PROGCHK(.XPDABORT) ;checks programmer variables

 I XPDABORT="" K XPDABORT

 Q

PROGCHK(XPDABORT) ; checks for necessary programmer variables

 ;

 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^")  D

 . D BMES^XPDUTL("****")

 . D MES^XPDUTL("Your programming variables are not set up properly.")

 . D MES^XPDUTL("Installation aborted.")

 . D MES^XPDUTL("*****")

 . S XPDABORT=2

 Q

PRE ;Add 1 second to all entries in File 120.5 that do not contain a time

 ;entry in piece one

 N GMRIEN,DATETIME,X1,X2

 K ^XTMP("GMRVP59",$J)

 I '$G(DT) S DT=$$DT^XLFDT

 I '$D(^XTMP("GMRVP59")) S X1=DT,X2=+90 D C^%DTC S ^XTMP("GMRVP59",0)=$G(X)_"^"_DT

 S GMRIEN=""

 F  S GMRIEN=$O(^GMR(120.5,GMRIEN)) Q:GMRIEN=""!(GMRIEN'?1.N)  D

 . S DATETIME=$P($G(^GMR(120.5,GMRIEN,0)),"^")

 . I +$P(DATETIME,".",2)'>0 D

 .. S $P(^XTMP("GMRVP59",$J,120.5,GMRIEN),"^")=$G(DATETIME) ; Before

 .. N GMRFDA

 .. S DATETIME=$$FMADD^XLFDT(DATETIME,"","","",1)

 .. S $P(^XTMP("GMRVP59",$J,120.5,GMRIEN),"^",2)=$G(DATETIME) ; After

 .. S GMRFDA(120.5,GMRIEN_",",.01)=DATETIME

 .. D UPDATE^DIE("","GMRFDA")

 Q

GMRVP59   ;BAY/KAM-Patch GMRV*5*9 Install Utility Routine ; 8/5/05 7:14am

 +1       ;;5.0;GEN. MED. REC. - VITALS;**9**;Apr 15, 2003

 +2       ;

ENV       ;Main Entry point for Environment Check

 +1        SET XPDABORT=""

 +2       ;checks programmer variables

           DO PROGCHK(.XPDABORT)

 +3        IF XPDABORT=""

               KILL XPDABORT

 +4        QUIT 

PROGCHK(XPDABORT) ; checks for necessary programmer variables

 +1       ;

 +2        IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")

               Begin DoDot:1

 +3                DO BMES^XPDUTL("****")

 +4                DO MES^XPDUTL("Your programming variables are not set up properly.")

 +5                DO MES^XPDUTL("Installation aborted.")

 +6                DO MES^XPDUTL("*****")

 +7                SET XPDABORT=2

               End DoDot:1

 +8        QUIT 

PRE       ;Add 1 second to all entries in File 120.5 that do not contain a time

 +1       ;entry in piece one

 +2        NEW GMRIEN,DATETIME,X1,X2

 +3        KILL ^XTMP("GMRVP59",$JOB)

 +4        IF '$GET(DT)

               SET DT=$$DT^XLFDT

 +5        IF '$DATA(^XTMP("GMRVP59"))

               SET X1=DT

               SET X2=+90

               DO C^%DTC

               SET ^XTMP("GMRVP59",0)=$GET(X)_"^"_DT

 +6        SET GMRIEN=""

 +7        FOR 

               SET GMRIEN=$ORDER(^GMR(120.5,GMRIEN))

               IF GMRIEN=""!(GMRIEN'?1.N)

                   QUIT 

               Begin DoDot:1

 +8                SET DATETIME=$PIECE($GET(^GMR(120.5,GMRIEN,0)),"^")

 +9                IF +$PIECE(DATETIME,".",2)'>0

                       Begin DoDot:2

 +10      ; Before

                           SET $PIECE(^XTMP("GMRVP59",$JOB,120.5,GMRIEN),"^")=$GET(DATETIME)

 +11                       NEW GMRFDA

 +12                       SET DATETIME=$$FMADD^XLFDT(DATETIME,"","","",1)

 +13      ; After

                           SET $PIECE(^XTMP("GMRVP59",$JOB,120.5,GMRIEN),"^",2)=$GET(DATETIME)

 +14                       SET GMRFDA(120.5,GMRIEN_",",.01)=DATETIME

 +15                       DO UPDATE^DIE("","GMRFDA")

                       End DoDot:2

               End DoDot:1

 +16       QUIT