| 1 | XPDTP ;SFISC/RSD - Transport using a Packman Message ;09/23/96 13:54
|
|---|
| 2 | ;;8.0;KERNEL;**21,40,44**;Jul 05, 1995
|
|---|
| 3 | N DIFROM,DIR,DIRUT,DWPK,DWLW,DIC,I,J,XCN,XCNP,XMDISPI,XMDUN,XMDUZ,XMKEY,XMSCR,XMSUB,XMY,XMZ,X,Y,%
|
|---|
| 4 | S DIFROM=1,DIR(0)="F^3:65",DIR("A")="Subject",DIR("?")="Enter the subject for this Packman Message"
|
|---|
| 5 | D ^DIR Q:$D(DIRUT)
|
|---|
| 6 | S XMSUB=Y,XMDUZ=+DUZ
|
|---|
| 7 | K ^TMP("XMP",$J)
|
|---|
| 8 | W !,"Please enter description of Packman Message",!
|
|---|
| 9 | S DWPK=1,DWLW=75,DIC="^TMP(""XMP"",$J," D EN^DIWE
|
|---|
| 10 | D KIDS^XMP
|
|---|
| 11 | S XCNP=XCNP+1,^XMB(3.9,XMZ,2,XCNP,0)="$KID "_XPDNM,XCNP=XCNP+1
|
|---|
| 12 | ;for multiple packages, this would be a for loop
|
|---|
| 13 | D GS K:'$G(^XTMP("XPDT",XPDA)) ^(XPDA)
|
|---|
| 14 | S $P(^XMB(3.9,XMZ,2,0),U,3,4)=XCNP_U_XCNP
|
|---|
| 15 | ;secure message & then send
|
|---|
| 16 | D ^XMASEC Q:$D(DTOUT)!$D(DUOUT) D EN3^XMD
|
|---|
| 17 | K ^TMP("XMP",$J)
|
|---|
| 18 | Q
|
|---|
| 19 | GS N GR,GCK,GL
|
|---|
| 20 | S GCK="^XTMP(""XPDT"","_XPDA,GR=GCK_")",GCK=GCK_",",GL=$L(GCK)
|
|---|
| 21 | ;INSTALL NAME line will mark the begining of global for all lines until
|
|---|
| 22 | ;the next INSTALL NAME
|
|---|
| 23 | S ^XMB(3.9,XMZ,2,XCNP,0)="**INSTALL NAME**",XCNP=XCNP+1,^XMB(3.9,XMZ,2,XCNP,0)=XPDNM,XCNP=XCNP+1
|
|---|
| 24 | F S GR=$Q(@GR) Q:GR=""!($E(GR,1,GL)'=GCK) S ^XMB(3.9,XMZ,2,XCNP,0)=$P(GR,GCK,2),XCNP=XCNP+1,^XMB(3.9,XMZ,2,XCNP,0)=@GR,XCNP=XCNP+1
|
|---|
| 25 | S ^XMB(3.9,XMZ,2,XCNP,0)="$END KID "_XPDNM
|
|---|
| 26 | Q
|
|---|
