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

ICD002P.m

Go to the documentation of this file. 
  1. ICD002P ;IHS/OIT/FCJ - ICD UPDATES PATCH 1002 ; 14 Mar 2012  12:32 PM
  1.  ;;18.0;DRG Grouper;**1002**;Oct 20, 2000;Build 7
  1.  ;
  1.  ;
  1.  ;
  1. POST ;EP FROM KERNAL
  1.  S %="HIST^ICD002P"
  1.  I $$NEWCP^XPDUTL("POS4-"_%,%)
  1.  S %="MAIL^ICD002P"
  1.  I $$NEWCP^XPDUTL("POS5-"_%,%)
  1.  ;
  1.  Q
  1. MAIL ;
  1.  D BMES^XPDUTL("BEGIN Delivering MailMan message to select users.")
  1.  NEW DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
  1.  KILL ^TMP("ICD002",$J)
  1.  D RSLT(" --- ICD v 18.0 Patch 1002, have been installed into this namespace ---")
  1.  F %=1:1 D RSLT($P($T(GREET+%),";",3)) Q:$P($T(GREET+%+1),";",3)="###"
  1.  S %=0
  1.  F  S %=$O(^XTMP("XPDI",XPDA,"BLD",XPDBLD,1,%)) Q:'%   D RSLT(^(%,0))
  1.  S XMSUB=$P($P($T(+1),";",2)," ",3,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""ICD002"",$J,",XMY(1)="",XMY(DUZ)=""
  1.  F %="XUMGR","XUPROG","XUPROGMODE" D SINGLE(%)
  1.  D ^XMD
  1.  KILL ^TMP("ICD002",$J)
  1.  D MES^XPDUTL("END Delivering MailMan message to select users.")
  1.  Q
  1.  ;
  1. RSLT(%) S ^(0)=$G(^TMP("ICD002",$J,0))+1,^(^(0))=%
  1.  Q
  1.  ;
  1. SINGLE(K) ; Get holders of a key
  1.  NEW Y
  1.  S Y=0
  1.  Q:'$D(^XUSEC(K))
  1.  F  S Y=$O(^XUSEC(K,Y)) Q:'Y  S XMY(Y)=""
  1.  Q
  1.  ;
  1. GREET ;;To add to mail message.
  1.  ;;  
  1.  ;;Routines and/or data dictionaries on your RPMS system have been updated.
  1.  ;;  
  1.  ;;You are receiving this message because of the RPMS
  1.  ;;security keys that you hold.  This is for your information.
  1.  ;;Do not respond to this message.
  1.  ;;  
  1.  ;;Questions about this patch may be directed to
  1.  ;;the ITSC Support Center, at 505-248-4371,
  1.  ;;refer to patch "ICD*18.0*1002".
  1.  ;;  
  1.  ;;###;NOTE: This line end of text.
  1.  ;
  1. HIST ;PATCH HISTORY UPDATE
  1.  D MES^XPDUTL("Begin adding patches to package file.")
  1.  S DDLM=";;",DLM="|",TAG="ICD"
  1.  S PKGNM="DRG GROUPER"
  1.  I '$D(^DIC(9.4,"B",PKGNM)) D MES^XPDUTL("Problem with package name.") Q
  1.  S PKGIEN=$O(^DIC(9.4,"B",PKGNM,0))
  1.  S:$$GET1^DIQ(9.4,PKGIEN,13)'="18.0" FDA(9.4,PKGIEN_",",13)="18.0" D FILE^DIE(,"FDA")
  1.  K FDA
  1.  F I=1:1 D  Q:TEXT["END"
  1.  .S TEXT=$T(@TAG+I) Q:TEXT["END"
  1.  .S DATA=$P(TEXT,DDLM,2)
  1.  .S VERSION=$P(DATA,DLM,2),PATCH=$P(DATA,DLM,3)
  1.  .S VSB=$O(^DIC(9.4,PKGIEN,22,"B",VERSION,0))
  1.  .Q:'VSB
  1.  .; Do not update if the patch is already in the patch history
  1.  .Q:$D(^DIC(9.4,PKGIEN,22,VSB,"PAH","B",PATCH))
  1.  .S FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.01)=$G(PATCH)
  1.  .S FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.02)=DT
  1.  .S FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.03)=DUZ
  1.  .D UPDATE^DIE(,"FDA")
  1.  .D:$G(DIERR)'="" MES^XPDUTL("Error adding patch "_PATCH_" to package file.")
  1.  D MES^XPDUTL("Completed adding patches to package file.")
  1.  Q
  1.  ;;;;FORMAT - Package name|Version|Patch|Sequence
  1. ICD ;
  1.  ;;DRG GROUPER|18.0|33 SEQ #32
  1.  ;;DRG GROUPER|18.0|35 SEQ #33
  1.  ;;DRG GROUPER|18.0|36 SEQ #34
  1.  ;;DRG GROUPER|18.0|38 SEQ #35
  1.  ;;DRG GROUPER|18.0|37 SEQ #36
  1.  ;;DRG GROUPER|18.0|34 SEQ #37
  1.  ;;DRG GROUPER|18.0|41 SEQ #38
  1.  ;;DRG GROUPER|18.0|39 SEQ #39
  1.  ;;DRG GROUPER|18.0|42 SEQ #40
  1.  ;;DRG GROUPER|18.0|43 SEQ #41
  1.  ;;DRG GROUPER|18.0|44 SEQ #42
  1.  ;;DRG GROUPER|18.0|45 SEQ #43
  1.  ;;DRG GROUPER|18.0|47 SEQ #44
  1.  ;;DRG GROUPER|18.0|49 SEQ #50
  1.  ;;DRG GROUPER|18.0|53 SEQ #51
  1.  ;;DRG GROUPER|18.0|54 SEQ #52
  1.  ;;DRG GROUPER|18.0|59 SEQ #53
  1.  ;END