Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRVP59

GMRVP59.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. ENV ;Main Entry point for Environment Check
  1. S XPDABORT=""
  1. D PROGCHK(.XPDABORT) ;checks programmer variables
  1. I XPDABORT="" K XPDABORT
  1. Q
  1. PROGCHK(XPDABORT) ; checks for necessary programmer variables
  1. ;
  1. I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
  1. . D BMES^XPDUTL("****")
  1. . D MES^XPDUTL("Your programming variables are not set up properly.")
  1. . D MES^XPDUTL("Installation aborted.")
  1. . D MES^XPDUTL("*****")
  1. . S XPDABORT=2
  1. Q
  1. PRE ;Add 1 second to all entries in File 120.5 that do not contain a time
  1. ;entry in piece one
  1. N GMRIEN,DATETIME,X1,X2
  1. K ^XTMP("GMRVP59",$J)
  1. I '$G(DT) S DT=$$DT^XLFDT
  1. I '$D(^XTMP("GMRVP59")) S X1=DT,X2=+90 D C^%DTC S ^XTMP("GMRVP59",0)=$G(X)_"^"_DT
  1. S GMRIEN=""
  1. F S GMRIEN=$O(^GMR(120.5,GMRIEN)) Q:GMRIEN=""!(GMRIEN'?1.N) D
  1. . S DATETIME=$P($G(^GMR(120.5,GMRIEN,0)),"^")
  1. . I +$P(DATETIME,".",2)'>0 D
  1. .. S $P(^XTMP("GMRVP59",$J,120.5,GMRIEN),"^")=$G(DATETIME) ; Before
  1. .. N GMRFDA
  1. .. S DATETIME=$$FMADD^XLFDT(DATETIME,"","","",1)
  1. .. S $P(^XTMP("GMRVP59",$J,120.5,GMRIEN),"^",2)=$G(DATETIME) ; After
  1. .. S GMRFDA(120.5,GMRIEN_",",.01)=DATETIME
  1. .. D UPDATE^DIE("","GMRFDA")
  1. Q