| [613] | 1 | TIU212B ; BAYPINES/ELR - UTILITY ROUTINE PATCH TIU*1.0*212 ;3/22/2006
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**212**;Jun 20, 1997
|
|---|
| 3 | Q
|
|---|
| 4 | EN NEW TIUDA,TIUS0,TIUNM,TIUCNT,TIUJ,TIUDEV
|
|---|
| 5 | S (TIUDA,TIUCNT)=0
|
|---|
| 6 | S TIUJ=$J
|
|---|
| 7 | K ^TMP("TIU212B",TIUJ)
|
|---|
| 8 | F S TIUDA=$O(^TIU(8925.95,TIUDA)) Q:+TIUDA'>0 D
|
|---|
| 9 | . S TIUS0=$P($G(^TIU(8925.95,TIUDA,0)),U)
|
|---|
| 10 | . S TIUNM=$P($G(^TIU(8925.1,TIUS0,0)),U)
|
|---|
| 11 | . I TIUNM?.E1N.E S TIUCNT=TIUCNT+1,^TMP("TIU212B",TIUJ,TIUCNT)=TIUNM
|
|---|
| 12 | I $G(XPDNM)["TIU*1.0*212" D PRINTA G PRINTX
|
|---|
| 13 | S TIUDEV=$$DEVICE^TIUDEV(.IO) ; Get Device/allow queueing
|
|---|
| 14 | I IO']"" G PRINTX
|
|---|
| 15 | I $G(ION)="" G PRINTX
|
|---|
| 16 | I $D(IO("Q")) D QUE^TIUDEV("PRINT^TIU212B",TIUDEV) G PRINTX
|
|---|
| 17 | D PRINT
|
|---|
| 18 | PRINTX D ^%ZISC
|
|---|
| 19 | Q
|
|---|
| 20 | PRINT ;
|
|---|
| 21 | S TIUDA=0
|
|---|
| 22 | U IO
|
|---|
| 23 | W !,"Patch TIU*1.0*212 analysis of Document Parameter File (8925.95) entries that"
|
|---|
| 24 | W !,"point to titles that contain numbers."
|
|---|
| 25 | W !,"Verify that these definitions go with the document.",!!
|
|---|
| 26 | W !,"SUSPECT 8925.95 DOCUMENT TITLES"
|
|---|
| 27 | W !,"-------------------------------",!
|
|---|
| 28 | F S TIUDA=$O(^TMP("TIU212B",TIUJ,TIUDA)) Q:+TIUDA'>0 D
|
|---|
| 29 | . W !,$G(^TMP("TIU212B",TIUJ,TIUDA))
|
|---|
| 30 | I $G(TIUCNT)'>0 W !,"NO OCCURANCES FOUND"
|
|---|
| 31 | K ^TMP("TIU212B",TIUJ)
|
|---|
| 32 | Q
|
|---|
| 33 | PRINTA ;
|
|---|
| 34 | K ^TMP(TIUJ,"TIU212B")
|
|---|
| 35 | NEW TIUHD,TIUCNT1
|
|---|
| 36 | S (TIUDA,TIUCNT1)=0
|
|---|
| 37 | S TIUHD="Patch TIU*1.0*212 analysis of Document Parameter File (8925.95) entries that"
|
|---|
| 38 | D MAIL(TIUHD),BMES^XPDUTL(TIUHD)
|
|---|
| 39 | S TIUHD="point to titles that contain numbers."
|
|---|
| 40 | D MAIL(TIUHD),MES^XPDUTL(TIUHD)
|
|---|
| 41 | S TIUHD="Verify that these definitions go with the document."
|
|---|
| 42 | D MAIL(TIUHD),MES^XPDUTL(TIUHD)
|
|---|
| 43 | D MAIL(" "),MES^XPDUTL(" ")
|
|---|
| 44 | S TIUHD="SUSPECT 8925.95 DOCUMENT TITLES"
|
|---|
| 45 | D MAIL(TIUHD),MES^XPDUTL(TIUHD)
|
|---|
| 46 | S TIUHD="-------------------------------"
|
|---|
| 47 | D MAIL(TIUHD),MES^XPDUTL(TIUHD)
|
|---|
| 48 | D MAIL(" "),MES^XPDUTL(" ")
|
|---|
| 49 | F S TIUDA=$O(^TMP("TIU212B",TIUJ,TIUDA)) Q:+TIUDA'>0 D
|
|---|
| 50 | . S TIUHD=$G(^TMP("TIU212B",TIUJ,TIUDA))
|
|---|
| 51 | . D MAIL(TIUHD),MES^XPDUTL(TIUHD)
|
|---|
| 52 | I $G(TIUCNT1)'>0 S TIUHD="NO OCCURANCES FOUND" D MAIL(TIUHD),BMES^XPDUTL(TIUHD)
|
|---|
| 53 | K ^TMP("TIU212B",TIUJ)
|
|---|
| 54 | S XMSUB="TEXT INTEGRATION UTILITY",XMTEXT="^TMP("_TIUJ_","_"""TIU212B"""_",",XMDUZ="PATCH TIU*1.0*212",XMY(DUZ)=""
|
|---|
| 55 | NEW DIFROM D ^XMD K XMDUZ,XMSUB,XMY(DUZ),XMTEXT
|
|---|
| 56 | K ^TMP(TIUJ,"TIU212B")
|
|---|
| 57 | Q
|
|---|
| 58 | MAIL(X) ;
|
|---|
| 59 | S TIUCNT1=TIUCNT1+1,^TMP(TIUJ,"TIU212B",TIUCNT1)=X
|
|---|
| 60 | Q
|
|---|
