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

XMP.m

Go to the documentation of this file.
  1. XMP ;(WASH ISC)/THM/CAP-PackMan ;04/17/2002 11:03
  1. ;;8.0;MailMan;;Jun 28, 2002
  1. NOKL G F:$D(^DOPT("XMP"))
  1. GO K ^DOPT("XMP") S DIK="^DOPT(""XMP"","
  1. S ^DOPT("XMP",0)="PackMan function^1N^"
  1. F I=1:1 S X=$E($T(TABLE+I),4,99) Q:X="" S ^DOPT("XMP",I,0)=X
  1. D IXALL^DIK Q:$D(DIFROM)!'$D(XMZ)
  1. F D NEW ;Q:Y<0
  1. FX S DIC="^DOPT(""XMP"",",DIC(0)="AEQZ" D ^DIC W ! K DIC
  1. S XMR=^XMB(3.9,XMZ,0) G Q:Y<0 S X=$P(Y(0),U,2,99) K DD,DO,Y
  1. I $D(^XMB(3.9,XMZ,2,0)) S XCNP=$P(^(0),U,3)
  1. I $D(XCNP),XCNP>1,X["LOAD"!(X["PACK") S Y=$O(^XMB(3.9,XMZ,1,"C",0)) I $L(Y),$S(Y'=XMDUZ&Y:1,Y'=$P(XMR,U,2):1,$O(^(Y))'="":1,1:0) W !,"This message has already been SENT. You may not CHANGE it.",$C(7) G FX
  1. I X["LOAD"!(X["PACK"),$S('$D(DUZ(0)):1,DUZ(0)="@":0,$D(^XUSEC("XUPROG",DUZ)):0,1:1) W !,"You do not have the privilege to LOAD packages nor routines nor globals.",$C(7) G FX
  1. I X="XI^XMP2",$S('$D(DUZ(0)):1,DUZ(0)="@":0,$D(^XUSEC("XUPROGMODE",DUZ)):0,1:1)
  1. I W !!,$C(7),"You may only check the security of this message.",!,$S($P(^XMB(3.9,XMZ,0),U,10)'="":"You will not be allowed to install it.",1:"This message was not secured -- nothing done"),!!
  1. D @X D ^%ZISC D Q G FX
  1. Q W ! K DIE,DIF,XMSUB,XCNP
  1. Q
  1. TABLE ;;;DESCRIPTION^PROGRAM OR TAG^PROGRAM
  1. ;;ROUTINE LOAD^LOAD^XMPH
  1. ;;GLOBAL LOAD^LOAD^XMPG
  1. ;;PACKAGE LOAD^PACK^XMPH
  1. ;;SUMMARIZE MESSAGE^XS^XMP2
  1. ;;PRINT MESSAGE^XP^XMP2
  1. ;;INSTALL/CHECK MESSAGE^XI^XMP2
  1. ;;INSTALL SELECTED ROUTINE(S)^XR^XMP2
  1. ;;TEXT PRINT/DISPLAY^XT^XMP2
  1. ;;COMPARE MESSAGE^XC^XMP2
  1. ;;
  1. ;;DATA LOAD^LOAD^XMPDAT ***** FILEMANAGER DATA MOVE ***** NOT READY
  1. ;;
  1. ;;
  1. KIDS ;from XPDTP
  1. D XMZ^XMA2 Q:XMZ<1 S $P(^XMB(3.9,XMZ,0),U,7)="K" G DIFROM
  1. NEW I $S($D(DIFROM):1,$D(ZTQUEUED):1,$D(XMDF):1,1:0) G DIFROM
  1. W !,"Please enter description of PACKMAN Message",!,$C(7)
  1. S DWPK=1,DWLW=75,DIC="^TMP(""XMP"",$J,",DIA("P")=3.9
  1. S DIWESUB=$G(XMSUB,XMSUBJ)
  1. D EN^DIWE
  1. DIFROM S %="Created ",(DIF,DIE)="^XMB(3.9,XMZ,2,"
  1. I $D(DUZ),$D(^VA(200,DUZ,0)) S %=%_"by "_$$NAME^XMXUTIL(DUZ)_" "
  1. I $D(^XMB("NETNAME")) S %=%_"at "_$P(^("NETNAME"),U)_" "
  1. I $D(DIFROM) S %=%_" (KIDS) "
  1. S XMA0=%
  1. S XMA=$E($$NOW^XLFDT_"0000",1,12),@(DIF_"0)")="^3.92A^2^2^"_$P(XMA,"."),^(1,0)="$TXT "_XMA0_"on "_$$DOW^XLFDT(XMA)_", "_$$FMTE^XLFDT($P(XMA,".",1),"2Z")_" at "_$E(XMA,9,10)_":"_$E(XMA,11,12)
  1. I '$O(^TMP("XMP",$J,0)) S ^XMB(3.9,XMZ,2,2,0)="$END TXT",XCNP=2 G OLD
  1. S I=2,J=0,^XMB(3.9,XMZ,2,2,0)=" "
  1. F S J=$O(^TMP("XMP",$J,J)) Q:J="" S %=^(J,0) S:$E(%)="$" %=" "_% S I=I+1,^XMB(3.9,XMZ,2,I,0)=%
  1. S ^XMB(3.9,XMZ,2,I+1,0)=" ",^XMB(3.9,XMZ,2,I+2,0)="$END TXT",XCNP=I+2,^XMB(3.9,XMZ,2,0)="^3.92A^"_XCNP_U_XCNP_U_$P(XMA,".") K ^TMP("XMP",$J),XMA0,%
  1. OLD S XCN=0 K ^TMP("XMP",$J),XMA0 I '$D(ZTQUEUED) W !
  1. O1 D NT Q:+XCN'=XCN Q:X'["$TXT" W:'$D(ZTQUEUED) !,$P(X,"TXT",2,999) G O1
  1. NT S XCN=$O(@(DIE_XCN_")")) Q:+XCN'=XCN S X=^(XCN,0) Q
  1. MM S (DIE,DIF)="^XMB(3.9,XMZ,2," G FX