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