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

PXRMP11I.m

Go to the documentation of this file. 
  1. PXRMP11I ; SLC/PKR - Inits for PXRM*2.0*11 ;09/15/2008
  1.  ;;2.0;CLINICAL REMINDERS;**11**;Feb 04, 2005;Build 39
  1.  Q
  1.  ;====================================================
  1. CFINC(Y) ;List of computed findings to include in the build.
  1.  N CFLIST,CFNAME
  1.  S CFLIST("VA-AGENT ORANGE EXPOSURE")=""
  1.  S CFLIST("VA-COMBAT SERVICE")=""
  1.  S CFLIST("VA-COMBAT VET ELIGIBILITY")=""
  1.  S CFLIST("VA-OEF SERVICE")=""
  1.  S CFLIST("VA-OIF SERVICE")=""
  1.  S CFLIST("VA-LAST SERVICE SEPARATION DATE")=""
  1.  S CFLIST("VA-POW")=""
  1.  S CFLIST("VA-PURPLE HEART")=""
  1.  S CFLIST("VA-SERVICE BRANCH")=""
  1.  S CFLIST("VA-UNKNOWN OEF/OIF SERVICE")=""
  1.  S CFLIST("VA-VETERAN")=""
  1.  S CFNAME=$P(^PXRMD(811.4,Y,0),U,1)
  1.  Q $S($D(CFLIST(CFNAME)):1,1:0)
  1.  ;
  1.  ;====================================================
  1. DELDD ;Delete the old data dictionaries.
  1.  N DIU,TEXT
  1.  D EN^DDIOL("Removing old data dictionaries.")
  1.  S DIU(0)=""
  1.  F DIU=810.9 D
  1.  . S TEXT=" Deleting data dictionary for file # "_DIU
  1.  . D EN^DDIOL(TEXT)
  1.  . D EN^DIU2
  1.  Q
  1.  ;
  1.  ;====================================================
  1. DRADCF ;Delete the radiation exposure computed finding entry from
  1.  ;test sites.
  1.  N DA,DIK
  1.  S DA=+$O(PXD(811.4,"B","VA-RADIATION EXPOSURE",""))
  1.  I DA=0 Q
  1.  S DIK="^PXD(811.4,"
  1.  D ^DIK
  1.  Q
  1.  ;
  1.  ;====================================================
  1. DTOITEMS ;Delete the transport only items.
  1.  N IEN,TEXT
  1.  S IEN=+$O(^PXD(811.9,"B","PATCH 11 ITEMS",""))
  1.  I IEN>0 D
  1.  . S TEXT="Removing PATCH 11 ITEMS transport reminder."
  1.  . D MES^XPDUTL(.TEXT)
  1.  . D DELETE^PXRMEXFI(811.9,IEN)
  1.  S IEN=+$O(^PXRMD(801.41,"B","PATCH 11 DIALOG",""))
  1.  I IEN>0 D
  1.  . S TEXT="Removing PATCH 11 DIALOG transport dialog."
  1.  . D MES^XPDUTL(.TEXT)
  1.  . D DELETE^PXRMEXFI(801.41,IEN)
  1.  Q
  1.  ;
  1.  ;====================================================
  1. FFFIX ;Rebuild all function finding internal data structures to correct
  1.  ;possible pointer errors.
  1.  N DA,IEN,X
  1.  D BMES^XPDUTL("Rebuilding Function Finding internal data structures.")
  1.  S IEN=0
  1.  F  S IEN=+$O(^PXD(811.9,IEN)) Q:IEN=0  D
  1.  . I '$D(^PXD(811.9,IEN,25)) Q
  1.  . S DA(1)=IEN,DA=0
  1.  . F  S DA=+$O(^PXD(811.9,IEN,25,DA)) Q:DA=0  D
  1.  .. S X=$G(^PXD(811.9,IEN,25,DA,3))
  1.  .. D FFKILL^PXRMFFDB(X,.DA)
  1.  .. D FFBUILD^PXRMFFDB(X,.DA)
  1.  Q
  1.  ;
  1.  ;====================================================
  1. INILOCS ;Initialize the new field EXCL LOCS WITH NO CREDIT STOP.
  1.  N IND,JND
  1.  S IND=0
  1.  F  S IND=+$O(^PXRMD(810.9,IND)) Q:IND=0  D
  1.  . S JND=0
  1.  . F  S JND=+$O(^PXRMD(810.9,IND,40.7,JND)) Q:JND=0  S ^PXRMD(810.9,IND,40.7,JND,3)=""
  1.  Q
  1.  ;
  1.  ;====================================================
  1. PRE ;These are the pre-installation actions
  1.  ;Disable options and protocols
  1.  D OPTION^PXRMUTIL("DISABLE")
  1.  D PROTOCOL^PXRMUTIL("DISABLE")
  1.  ;Delete existing exchange file entries.
  1.  D DELEXI^PXRMP11E
  1.  ;Delete the old DDs.
  1.  D DELDD
  1.  Q
  1.  ;
  1.  ;====================================================
  1. POST ;These are the post-installation actions
  1.  D FFFIX^PXRMP11I
  1.  ;Enable options and protocols
  1.  D OPTION^PXRMUTIL("ENABLE")
  1.  D PROTOCOL^PXRMUTIL("ENABLE")
  1.  ;D SMEXINS^PXRMP11E
  1.  D DTOITEMS
  1.  D DRADCF
  1.  D INILOCS
  1.  ;D UPDDIAL
  1.  Q
  1.  ;
  1.  ;====================================================
  1. UPDDIAL ;Update Element VA-MH PCLM with the correct dialog text
  1.  N DIEN
  1.  S DIEN=$O(^PXRMD(801.41,"B","VA-MH PCLM","")) Q:DIEN'>0
  1.  S ^PXRMD(801.41,DIEN,25,1,0)="PCL-M"
  1.  Q
  1.  ;