| [613] | 1 | TIUDD61 ; ISL/JER - M-Type X-refs for file 8926.1 ; 03/23/2007
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**225**;Jun 20, 1997;Build 13
|
|---|
| 3 | SET ; Set list of inactivated titles
|
|---|
| 4 | ; if no entries logged, initialize log
|
|---|
| 5 | N SUBS,TTL
|
|---|
| 6 | I '$D(^XTMP("TIUBULL")) D
|
|---|
| 7 | . S ^XTMP("TIUBULL",0)=$$FMADD^XLFDT(DT,1)_U_DT
|
|---|
| 8 | . S ^XTMP("TIUBULL","T0")=$$NOW^XLFDT
|
|---|
| 9 | . S ^XTMP("TIUBULL","ACT",0)=0
|
|---|
| 10 | . S ^XTMP("TIUBULL","INACT",0)=0
|
|---|
| 11 | ; set entry being processed into log
|
|---|
| 12 | S SUBS=$S(+X:"ACT",1:"INACT")
|
|---|
| 13 | S TTL=$P($G(^TIU(8926.1,+DA(1),0)),U)
|
|---|
| 14 | S ^XTMP("TIUBULL",SUBS,0)=^XTMP("TIUBULL",SUBS,0)+1
|
|---|
| 15 | S ^XTMP("TIUBULL",SUBS,TTL)=DA(1)
|
|---|
| 16 | I +$O(^TIU(8925.1,"ALOINC",DA(1),0)) D
|
|---|
| 17 | . N TIUI,TIUJ S (TIUI,TIUJ)=0
|
|---|
| 18 | . F S TIUI=$O(^TIU(8925.1,"ALOINC",DA(1),TIUI)) Q:+TIUI'>0 D
|
|---|
| 19 | . . S TIUJ=TIUJ+1
|
|---|
| 20 | . . S ^XTMP("TIUBULL",SUBS,TTL,"MAP",TIUJ)=TIUI_U_$P($G(^TIU(8925.1,TIUI,0)),U)
|
|---|
| 21 | Q
|
|---|
| 22 | BULL ; Send Bulletin to CACs
|
|---|
| 23 | N TIUSTRT,TIUEND,TIUACNT,TIUICNT,TIUARR,TIUTXT,XMB,XMDUZ,XMTEXT
|
|---|
| 24 | S TIUTXT=$NA(^TMP("TIUBULL",$J))
|
|---|
| 25 | K @TIUTXT
|
|---|
| 26 | S TIUARR=$NA(^XTMP("TIUBULL"))
|
|---|
| 27 | S @TIUARR@("T1")=$$NOW^XLFDT
|
|---|
| 28 | D FORMAT(TIUARR,TIUTXT)
|
|---|
| 29 | S XMB="TIU ENTERPRISE STANDARD TITLES"
|
|---|
| 30 | S XMDUZ="TIU ENTERPRISE STANDARD TITLES DEPLOYMENT"
|
|---|
| 31 | S XMB(1)=$$DATE^TIULS(@TIUARR@("T0"),"MM/DD/YY HR:MIN")
|
|---|
| 32 | S XMB(2)=$$DATE^TIULS(@TIUARR@("T1"),"MM/DD/YY HR:MIN")
|
|---|
| 33 | S XMTEXT="^TMP(""TIUBULL"",$J,"
|
|---|
| 34 | D ^XMB,KILL^XM
|
|---|
| 35 | K @TIUTXT,@TIUARR
|
|---|
| 36 | Q
|
|---|
| 37 | FORMAT(TIUARR,TIUTXT) ; Format the body of the bulletin
|
|---|
| 38 | N LINE,TIUI,TAB,TIUT
|
|---|
| 39 | S TAB=" ",TIUI=0
|
|---|
| 40 | S LINE="=========================================================================="
|
|---|
| 41 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=" "
|
|---|
| 42 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=" TITLES ACTIVATED: "_+$G(@TIUARR@("ACT",0))
|
|---|
| 43 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)="Enterprise Standard Title"
|
|---|
| 44 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=TAB_"Mapped to Local Title(s)"
|
|---|
| 45 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=LINE
|
|---|
| 46 | S TIUT=0
|
|---|
| 47 | F S TIUT=$O(@TIUARR@("ACT",TIUT)) Q:TIUT']"" D
|
|---|
| 48 | . N TIUJ S TIUJ=0
|
|---|
| 49 | . S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=TIUT
|
|---|
| 50 | . F S TIUJ=$O(@TIUARR@("ACT",TIUT,"MAP",TIUJ)) Q:+TIUJ'>0 D
|
|---|
| 51 | . . S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=TAB_$P(@TIUARR@("ACT",TIUT,"MAP",TIUJ),U,2)
|
|---|
| 52 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=" "
|
|---|
| 53 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=" "
|
|---|
| 54 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=" TITLES INACTIVATED: "_+$G(@TIUARR@("INACT",0))
|
|---|
| 55 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)="Enterprise Standard Title"
|
|---|
| 56 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=TAB_"Mapped to Local Title(s)"
|
|---|
| 57 | S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=LINE
|
|---|
| 58 | S TIUT=0
|
|---|
| 59 | F S TIUT=$O(@TIUARR@("INACT",TIUT)) Q:TIUT']"" D
|
|---|
| 60 | . N TIUJ S TIUJ=0
|
|---|
| 61 | . S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=TIUT
|
|---|
| 62 | . F S TIUJ=$O(@TIUARR@("INACT",TIUT,"MAP",TIUJ)) Q:+TIUJ'>0 D
|
|---|
| 63 | . . S TIUI=TIUI+1,@TIUTXT@(TIUI,0)=TAB_$P(@TIUARR@("INACT",TIUT,"MAP",TIUJ),U,2)
|
|---|
| 64 | Q
|
|---|
| 65 | TEST ; Test setting up and sending bulletin w/o having to deploy...
|
|---|
| 66 | N DA,TIUDA,X S DA=1
|
|---|
| 67 | F TIUDA=46,117,66,75,299,250,1520 D
|
|---|
| 68 | . S DA(1)=TIUDA,X=TIUDA#2 D SET
|
|---|
| 69 | D BULL
|
|---|
| 70 | Q
|
|---|
