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

PXRMP65I.m

Go to the documentation of this file.
  1. PXRMP65I ;ISP/AGP - PATCH 65 INSTALLATION ;Jul 12, 2022@14:37:25
  1. ;;2.0;CLINICAL REMINDERS;**65**;Feb 04, 2005;Build 438
  1. Q
  1. ;
  1. ;===============
  1. ;I '$$PATCH^XPDUTL("PXRM*2.0*65") D
  1. N ENTRY,ENTRIES
  1. S ENTRIES("UPDATE_2_0_14 VA-HPV IMMUNIZATION")="12/20/2016@11:11:30"
  1. S ENTRIES("UPDATE_2_0_47 VA-HEPATITIS B IMMUNIZATIONS")="08/15/2018@13:48:11"
  1. S ENTRIES("UPDATE_2_0_28 VA-MENINGOCOCCAL IMMUNIZATIONS")="06/26/2017@05:56:48"
  1. S ENTRY="" F S ENTRY=$O(ENTRIES(ENTRY)) Q:ENTRY="" I +$$EXCHINCK^PXRMEXU5(ENTRY,ENTRIES(ENTRY))<1 D
  1. .W !,ENTRY,!,"is not installed.",!
  1. .S XPDABORT=2
  1. Q
  1. ;
  1. ;===============
  1. CFINC(IEN) ;List of REMINDER COMPUTED FINDING entries to include in the build.
  1. ;These are the IENs in CPRS32 where the build is made.
  1. ;VA-REMINDER DEFINITION (IEN=35)
  1. ;VA-IMMUNIZATION AND LOCATION LOT INFO" (IEN=77)
  1. N RESULT
  1. S RESULT=0
  1. I IEN=35!(IEN=77) D
  1. .S RESULT=1
  1. .D RMEHIST^PXRMUTIL(811.4,IEN)
  1. Q RESULT
  1. ;
  1. ;===============
  1. CFEDITHISTORY ;Establish the edit history of the computed findings
  1. ;installed by this build.
  1. N CFLIST,CFNAME,FDA,IEN,IENSS,MSG
  1. S CFLIST("VA-IMMUNIZATION AND LOCATION LOT INFO")=""
  1. S CFLIST("VA-REMINDER DEFINITION")=""
  1. S CFNAME=""
  1. F S CFNAME=$O(CFLIST(CFNAME)) Q:CFNAME="" D
  1. . I CFNAME="VA-IMMUNIZATION AND LOCATION LOT INFO" S TEXT(1)="Added by PXRM*2.0*65 installation"
  1. . I CFNAME="VA-REMINDER DEFINITION" S TEXT(1)="Updated by PXRM*2.0*65 installation"
  1. . S IEN=$O(^PXRMD(811.4,"B",CFNAME,""))
  1. . I IEN="" Q
  1. . S IENSS="+1,"_IEN_","
  1. . S FDA(811.42,IENSS,.01)=$$NOW^XLFDT
  1. . S FDA(811.42,IENSS,1)=DUZ
  1. . S FDA(811.42,IENSS,2)="TEXT"
  1. . D UPDATE^DIE("","FDA","","MSG")
  1. . I $D(MSG) D
  1. .. D BMES^XPDUTL("CFEDITHISTORY UPDATE^DIE FAILED FOR "_CFNAME)
  1. .. D AWRITE^PXRMUTIL("MSG")
  1. Q
  1. ;
  1. ;===============
  1. INCGUI(NAME) ;Include REMINDER GUI PROCESS (801.42) file entry?
  1. I NAME="PDMP" Q 1
  1. Q 0
  1. ;
  1. ;===============
  1. PRE ;Pre-init
  1. ;Disable options and protocols
  1. ;D SMEXINS^PXRMEXSI("EXARRAY","PXRMP65E")
  1. D OPTIONS^PXRMUTIL("DISABLE","Install of PXRM*2.0*65")
  1. D PROTCOLS^PXRMUTIL("DISABLE","Install of PXRM*2.0*65")
  1. D RMOLDDDS
  1. D DELEXE^PXRMEXSI("EXARRAY","PXRMP65E")
  1. Q
  1. ;
  1. ;===============
  1. POST ;Post-init
  1. ;Install Exchange File entries.
  1. ;D SMEXINS^PXRMEXSI("EXARRAY","PXRMP45E")
  1. ;Delete temporary REMINDER DIALOG file entry
  1. ;Enable options and protocols
  1. D DIALCONV^PXRMP65D
  1. ;W $G(IOCUON)
  1. ;do not automatically install reminder exchange packed.
  1. D SMEXINS^PXRMEXSI("EXARRAY","PXRMP65E")
  1. D CFEDITHISTORY^PXRMP65I
  1. D OPTIONS^PXRMUTIL("ENABLE","Install of PXRM*2.0*65")
  1. D PROTCOLS^PXRMUTIL("ENABLE","Install of PXRM*2.0*65")
  1. D SETPVER^PXRMUTIL("2.0P65")
  1. Q
  1. ;===============
  1. RMOLDDDS ;Remove old data dictionaries.
  1. N DIU,TEXT
  1. D BMES^XPDUTL("Removing old data dictionaries.")
  1. S DIU(0)=""
  1. F DIU=801.41,811.2,811.9 D
  1. . S TEXT=" Deleting data dictionary for file # "_DIU
  1. . D MES^XPDUTL(TEXT)
  1. . D EN^DIU2
  1. Q
  1. ;
  1. ;===============
  1. TAXPNAME ;Generate taxononmy Print Names from the .01.
  1. N CHAR,CF,CP,FDA,IEN,IENS,NAME,MSG,PNAME,REPA
  1. D TAXREPA(.REPA)
  1. D BMES^XPDUTL("Generating Print Names for taxonomies")
  1. S NAME=""
  1. F S NAME=$O(^PXD(811.2,"B",NAME)) Q:NAME="" D
  1. . S IEN=$O(^PXD(811.2,"B",NAME,""))
  1. . S PNAME=$P(^PXD(811.2,IEN,0),U,3)
  1. . I PNAME'="" Q
  1. . D BMES^XPDUTL("Working on taxonomy "_NAME)
  1. . S PNAME=$$REPLACE^XLFSTR(NAME,.REPA)
  1. . S PNAME=$$TITLE^XLFSTR(PNAME)
  1. . S PNAME=$$REPLACE^XLFSTR(PNAME,.REPA)
  1. .;Make sure characters following those below are uppercase.
  1. . F CHAR="-","/","\" D
  1. .. S CP=0
  1. .. F S CP=$F(PNAME,CHAR,CP) Q:CP=0 D
  1. ... S CF=$E(PNAME,CP)
  1. ... S $E(PNAME,CP)=$$UP^XLFSTR(CF)
  1. . D MES^XPDUTL("Print Name: "_PNAME)
  1. . K FDA,MSG
  1. . S IENS=IEN_","
  1. . S FDA(811.2,IENS,1.2)=PNAME
  1. . D FILE^DIE("ET","FDA","MSG")
  1. Q
  1. ;
  1. ;===============
  1. TAXREPA(REPA) ;Establish the replacements for taxonomy Print Names.
  1. S REPA("A1c")="A1C"
  1. S REPA("Aaa")="AAA"
  1. S REPA("Abd")="ABD"
  1. S REPA("ACL")="ABD"
  1. S REPA("Afi")="AFI"
  1. S REPA("And")="and"
  1. S REPA("Asvd")="ASVD"
  1. S REPA("bmi")="BMI"
  1. S REPA("Bmi")="BMI"
  1. S REPA(" Ca ")=" CA"
  1. S REPA("Ccht")="CCHT"
  1. S REPA("Chf")="CHF"
  1. S REPA("Copd")="COPD"
  1. S REPA("copd")="COPD"
  1. S REPA("Cpt")="CPT"
  1. S REPA("Dg")="DG"
  1. S REPA("Dgpt")="DGPT"
  1. S REPA("Dx")="DX"
  1. S REPA("Dz")="DZ"
  1. S REPA("Ecoe")="ECOE"
  1. S REPA("Fobt")="FOBT"
  1. S REPA(" Gi ")=" GI "
  1. S REPA("Gp")="GP"
  1. S REPA("Grp")="GRP"
  1. S REPA("H1n1")="H1N1"
  1. S REPA("Hcv")="HCV"
  1. S REPA("Hedis")="HEDIS"
  1. S REPA("Hep ")="HEP "
  1. S REPA("hep")="HEP"
  1. S REPA("Hf")="HF"
  1. S REPA("Hgba1c")="HGBA1C"
  1. S REPA("Hib")="HIB"
  1. S REPA("Hiv")="HIV"
  1. S REPA("Hpv")="HPV"
  1. S REPA("Ht")="HT"
  1. S REPA("Icd")="ICD"
  1. S REPA("Icd0")="ICD0"
  1. S REPA("Icd9")="ICD9"
  1. S REPA("Icd10")="ICD10"
  1. S REPA("Icd-10")="ICD-10"
  1. S REPA("icd10")="ICD10"
  1. S REPA("Ihd")="IHD"
  1. S REPA("Im ")="IM "
  1. S REPA("Iud")="IUD"
  1. S REPA("Ldl")="LDL"
  1. S REPA("Mri")="MRI"
  1. S REPA("Mmr")="MMR"
  1. S REPA("Mhv")="MHV"
  1. S REPA("Nqf")="NQF"
  1. S REPA("Pcv13")="PCV13"
  1. S REPA("Pov")="POV"
  1. S REPA(" Pl")=" PL"
  1. S REPA("Ppd")="PPD"
  1. S REPA("Ppsv23")="PPSV23"
  1. S REPA("Psa")="PSA"
  1. S REPA("Ptf")="PTF"
  1. S REPA("Ptsd")="PTSD"
  1. S REPA("(Rd)")="(RD)"
  1. S REPA("Snomed")="SNOMED"
  1. S REPA("Snomed Ct")="SNOMED CT"
  1. S REPA("Tb")="TB"
  1. S REPA("Td")="TD"
  1. S REPA("Tdap")="TDAP"
  1. S REPA("Tt")="TT"
  1. S REPA("Tx")="TX"
  1. S REPA("Wh")="WH"
  1. S REPA("VA-")=""
  1. S REPA("Vimm-")="VIMM-"
  1. S REPA("Vcpt")="VCPT"
  1. S REPA("Vpov")="VPOV"
  1. S REPA("ZZ")=""
  1. Q
  1. ;