- LEX2I06P ;IHS/OIT/FCJ - LEXICON UTILITY PATCH 1006
- ;;2.0;LEXICON UTILITY;**1006**;Sep 23, 1996;Build 2
- ;=================================================================
- ;Original routine from LEX2I02P
- ;VA patch numbers are not being updated in package file because the is a data only patch.
- ;
- POST ;EP FROM KERNAL
- ;
- D MAIL
- D HIST
- Q
- MAIL ;
- D BMES^XPDUTL("BEGIN Delivering MailMan message to select users.")
- NEW DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
- KILL ^TMP("LEX1006",$J)
- D RSLT(" --- LEX v 2.0 Patch 1006, has 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(""LEX1006"",$J,",XMY(1)="",XMY(DUZ)=""
- F %="LEXZMENU","XUMGR","XUPROG","XUPROGMODE" D SINGLE(%)
- D ^XMD
- KILL ^TMP("LEX1006",$J)
- D MES^XPDUTL("END Delivering MailMan message to select users.")
- Q
- ;
- RSLT(%) S ^(0)=$G(^TMP("LEX1006",$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 Support@ihs.gov,
- ;;refer to patch "LEX*2.1*1006".
- ;;
- ;;###;NOTE: This line end of text.
- ;
- HIST ;PATCH HISTORY UPDATE
- D MES^XPDUTL("Begin adding patches to package file.")
- S DDLM=";;",DLM="|",TAG="LEX"
- S PKGNM="LEXICON UTILITY"
- I '$D(^DIC(9.4,"B",PKGNM)) D MES^XPDUTL("Problem with package name.") Q
- S PKGIEN=$O(^DIC(9.4,"B",PKGNM,0))
- 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
- .K FDA
- .; 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
- LEX ;
- ;;LEXICON UTILITY|2.0|1004
- ;;LEXICON UTILITY|2.0|1005
- ;END
- LEX2I06P ;IHS/OIT/FCJ - LEXICON UTILITY PATCH 1006
- +1 ;;2.0;LEXICON UTILITY;**1006**;Sep 23, 1996;Build 2
- +2 ;=================================================================
- +3 ;Original routine from LEX2I02P
- +4 ;VA patch numbers are not being updated in package file because the is a data only patch.
- +5 ;
- POST ;EP FROM KERNAL
- +1 ;
- +2 DO MAIL
- +3 DO HIST
- +4 QUIT
- MAIL ;
- +1 DO BMES^XPDUTL("BEGIN Delivering MailMan message to select users.")
- +2 NEW DIFROM,XMSUB,XMDUZ,XMTEXT,XMY
- +3 KILL ^TMP("LEX1006",$JOB)
- +4 DO RSLT(" --- LEX v 2.0 Patch 1006, has 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(""LEX1006"",$J,"
- SET XMY(1)=""
- SET XMY(DUZ)=""
- +9 FOR %="LEXZMENU","XUMGR","XUPROG","XUPROGMODE"
- DO SINGLE(%)
- +10 DO ^XMD
- +11 KILL ^TMP("LEX1006",$JOB)
- +12 DO MES^XPDUTL("END Delivering MailMan message to select users.")
- +13 QUIT
- +14 ;
- RSLT(%) SET ^(0)=$GET(^TMP("LEX1006",$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 Support@ihs.gov,
- +10 ;;refer to patch "LEX*2.1*1006".
- +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="LEX"
- +3 SET PKGNM="LEXICON UTILITY"
- +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 FOR I=1:1
- Begin DoDot:1
- +7 SET TEXT=$TEXT(@TAG+I)
- IF TEXT["END"
- QUIT
- +8 SET DATA=$PIECE(TEXT,DDLM,2)
- +9 SET VERSION=$PIECE(DATA,DLM,2)
- SET PATCH=$PIECE(DATA,DLM,3)
- +10 SET VSB=$ORDER(^DIC(9.4,PKGIEN,22,"B",VERSION,0))
- +11 IF 'VSB
- QUIT
- +12 KILL FDA
- +13 ; Do not update if the patch is already in the patch history
- +14 IF $DATA(^DIC(9.4,PKGIEN,22,VSB,"PAH","B",PATCH))
- QUIT
- +15 SET FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.01)=$GET(PATCH)
- +16 SET FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.02)=DT
- +17 SET FDA(9.4901,"+1,"_VSB_","_PKGIEN_",",.03)=DUZ
- +18 DO UPDATE^DIE(,"FDA")
- +19 IF $GET(DIERR)'=""
- DO MES^XPDUTL("Error adding patch "_PATCH_" to package file.")
- End DoDot:1
- IF TEXT["END"
- QUIT
- +20 DO MES^XPDUTL("Completed adding patches to package file.")
- +21 QUIT
- +22 ;;;;FORMAT - Package name|Version|Patch|Sequence
- LEX ;
- +1 ;;LEXICON UTILITY|2.0|1004
- +2 ;;LEXICON UTILITY|2.0|1005
- +3 ;END
