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

GMV22PST.m

Go to the documentation of this file. 
  1. GMV22PST ;HOIFO/FT-POST INSTALLATION FOR GMRV*5*22 ; 10/4/07 7:54am
  1.  ;;5.0;GEN. MED. REC. - VITALS;**22**;Oct 31, 2002;Build 22
  1.  ;
  1.  ; This routine uses the following IAs:
  1.  ; #2263  - XPAR calls                  (supported)
  1.  ; #10141 - XPDUTL calls                (supported)
  1.  ;
  1. EN ; Main entry point
  1.  D XPAR,DLL,STANDING,TEMPLATE,WEBLINK
  1.  Q
  1. XPAR ; Setup preliminary parameters. This subroutine is called during the
  1.  ; KIDS installation process.
  1.  ;
  1.  ; Variables:
  1.  ;  GMV:    [Private] Scratch
  1.  ;  GMVGUI: [Private] Current version of GUI being installed
  1.  ;  GMVLST: [Private] Scratch List
  1.  ;
  1.  ; NEW private variables
  1.  N GMV,GMVGUI,GMVLST
  1.  ; Announce my intentions
  1.  D BMES^XPDUTL("Updating system parameters.")
  1.  ; Set current client version
  1.  S GMVGUI="5.0.22.7"
  1.  ; Deactivate all previous versions from XPAR
  1.  D GETLST^XPAR(.GMVLST,"SYS","GMV GUI VERSION")
  1.  F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV  D
  1.  .D EN^XPAR("SYS","GMV GUI VERSION",$P(GMVLST(GMV),"^",1),0)
  1.  .Q
  1.  ; Add and/or activate current client versions
  1.  D EN^XPAR("SYS","GMV GUI VERSION","VITALS.EXE:"_GMVGUI,1)
  1.  D EN^XPAR("SYS","GMV GUI VERSION","VITALSMANAGER.EXE:"_GMVGUI,1)
  1.  Q
  1. STANDING ; Disassociate STANDING qualifier from WEIGHT vital type
  1.  N GMVCAT,GMVDA,GMVERR,GMVFDA,GMVIENS,GMVQUAL,GMVT
  1.  D BMES^XPDUTL("Checking STANDING qualifier...")
  1.  S GMVT=$O(^GMRD(120.51,"B","WEIGHT",0))
  1.  Q:'GMVT
  1.  S GMVQUAL=$O(^GMRD(120.52,"B","STANDING",0))
  1.  Q:'GMVQUAL
  1.  S GMVCAT=$O(^GMRD(120.53,"B","METHOD",0))
  1.  Q:'GMVCAT
  1.  I $D(^GMRD(120.52,GMVQUAL,1,"B",GMVT)) D
  1.  .S GMVDA=$O(^GMRD(120.52,GMVQUAL,1,"B",GMVT,0))
  1.  .Q:'GMVDA
  1.  .N DA,DIK
  1.  .S DA(1)=GMVQUAL,DA=GMVDA
  1.  .S DIK="^GMRD(120.52,DA(1),1,"
  1.  .D ^DIK
  1.  .Q
  1.  I $D(^GMRD(120.53,GMVCAT,1,"B",GMVT)) D
  1.  .S GMVDA=$O(^GMRD(120.53,GMVCAT,1,"B",GMVT,0))
  1.  .Q:'GMVDA
  1.  .S GMVIENS=GMVDA_","_GMVCAT_","
  1.  .S GMVFDA(120.531,GMVIENS,.07)="@"
  1.  .D FILE^DIE("","GMVFDA","GMVERR")
  1.  .;I
  1.  .Q
  1.  Q
  1. TEMPLATE ; remove STANDING from template if used with WEIGHT and METHOD
  1.  N GMV,GMV1,GMV2,GMVCQ,GMVDESC,GMVI,GMVJ,GMVLIST,GMVMETHD,GMVNEW,GMVNODE,GMVOLD,GMVORIG,GMVSTAND,GMVWT,GMVX,GMVY
  1.  D BMES^XPDUTL("Checking input template definitions...")
  1.  S GMVWT=$O(^GMRD(120.51,"C","WT",0))
  1.  Q:'GMVWT
  1.  S GMVMETHD=$O(^GMRD(120.53,"B","METHOD",0))
  1.  Q:'GMVMETHD
  1.  S GMVSTAND=$O(^GMRD(120.52,"B","STANDING",0))
  1.  Q:'GMVSTAND
  1.  K ^TMP($J)
  1.  S GMVLIST=$NA(^TMP($J))
  1.  D ENVAL^XPAR(.GMVLIST,"GMV TEMPLATE","","",1)
  1.  Q:'$D(^TMP($J))
  1.  S GMVCQ=GMVMETHD_","_GMVSTAND
  1.  S GMV1="" ; ien;file
  1.  F  S GMV1=$O(^TMP($J,GMV1)) Q:GMV1=""  D
  1.  .S GMV2="" ;template name
  1.  .F  S GMV2=$O(^TMP($J,GMV1,GMV2)) Q:GMV2=""  D
  1.  ..S (GMVNODE,GMVORIG)=$G(^TMP($J,GMV1,GMV2))
  1.  ..Q:GMVNODE=""
  1.  ..Q:GMVNODE'[GMVCQ  ;ignore templates that don't matter
  1.  ..S GMVDESC=$P(GMVNODE,"|",1) ;template description
  1.  ..S GMVNODE=$P(GMVNODE,"|",2)
  1.  ..K GMV ;array of vital types
  1.  ..F GMVI=1:1 Q:$P(GMVNODE,";",GMVI)=""  S GMV(GMVI)=$P(GMVNODE,";",GMVI)
  1.  ..S GMVI=0
  1.  ..F  S GMVI=$O(GMV(GMVI)) Q:'GMVI  D
  1.  ...S GMVX=GMV(GMVI)
  1.  ...Q:GMVX=""
  1.  ...S GMVY=$P(GMVX,":",1,2) ;vital ien:metric indicator
  1.  ...S GMVX=$P(GMVX,":",3) ;~categories,qualifiers~
  1.  ...Q:GMVX=""
  1.  ...S GMVNEW=""
  1.  ...F GMVJ=1:1 Q:$P(GMVX,"~",GMVJ)=""  D
  1.  ....S GMVOLD=$P(GMVX,"~",GMVJ) ;each category & qualifier combo
  1.  ....I $P(GMVY,":",1)=GMVWT,GMVOLD=GMVCQ Q 
  1.  ....S GMVNEW=GMVNEW_GMVOLD_"~"
  1.  ...I $E(GMVNEW,$L(GMVNEW))="~" S GMVNEW=$E(GMVNEW,1,($L(GMVNEW)-1))
  1.  ...S:GMVNEW]"" GMVNEW=GMVY_":"_GMVNEW
  1.  ...S:GMVNEW="" GMVNEW=GMVY
  1.  ...S GMV(GMVI)=GMVNEW
  1.  ..S GMVI=0,GMVNODE=GMVDESC_"|"
  1.  ..F  S GMVI=$O(GMV(GMVI)) Q:'GMVI  D
  1.  ...S GMVNODE=GMVNODE_GMV(GMVI)_";"
  1.  ...Q
  1.  ..I $E(GMVNODE,$L(GMVNODE))=";" S GMVNODE=$E(GMVNODE,1,($L(GMVNODE)-1))
  1.  ..I $E(GMVNODE,$L(GMVNODE))="|" S GMVNODE=$E(GMVNODE,1,($L(GMVNODE)-1))
  1.  ..I GMVNODE=GMVORIG Q  ;no change in template
  1.  ..W !,GMVNODE
  1.  ..W !,GMVORIG,!
  1.  ..D EN^XPAR(GMV1,"GMV TEMPLATE",GMV2,GMVNODE,.GMVERR)
  1.  ..Q
  1.  .Q
  1.  K ^TMP($J)
  1.  Q
  1.  ; Don't change weblink if site has replaced our weblink with something
  1.  ; else (i.e., their own)
  1.  N GMVNEW,GMVOLD
  1.  S GMVOLD="http://vista.domain.ext/ClinicalSpecialties/vitals/"
  1.  S GMVNEW="http://vista.domain.ext/ClinicalSpecialties/vitals/index.asp"
  1.  D RPC^GMVPAR(.GMVX,"GETPAR","SYS","GMV WEBLINK") ;get current link
  1.  I $G(^TMP($J,0))=GMVOLD D
  1.  .D EN^XPAR("SYS","GMV WEBLINK",1,GMVNEW)
  1.  .Q
  1.  Q
  1. DLL ;
  1.  ; Variables:
  1.  ;  GMV:    [Private] Scratch
  1.  ;  GMVDLL: [Private] Current version of DLL being installed
  1.  ;  GMVLST: [Private] Scratch List
  1.  ;
  1.  ; New private variables
  1.  N GMV,GMVDLL,GMVLST
  1.  ; Announce my intentions
  1.  D BMES^XPDUTL("Updating DLL parameter.")
  1.  ; Deactivate all previous versions from XPAR
  1.  D GETLST^XPAR(.GMVLST,"SYS","GMV DLL VERSION")
  1.  F GMV=0:0 S GMV=$O(GMVLST(GMV)) Q:'GMV  D
  1.  .D EN^XPAR("SYS","GMV DLL VERSION",$P(GMVLST(GMV),"^",1),0)
  1.  ; Add and/or activate current client versions
  1.  S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 03/14/06 16:35" ;patch 3
  1.  D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
  1.  S GMVDLL="GMV_VITALSVIEWENTER.DLL:v. 05/12/08 08:44" ;patch 22
  1.  D EN^XPAR("SYS","GMV DLL VERSION",GMVDLL,1)
  1.  Q