source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIU212B.m@ 1801

Last change on this file since 1801 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1TIU212B ; BAYPINES/ELR - UTILITY ROUTINE PATCH TIU*1.0*212 ;3/22/2006
2 ;;1.0;TEXT INTEGRATION UTILITIES;**212**;Jun 20, 1997
3 Q
4EN 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
18PRINTX D ^%ZISC
19 Q
20PRINT ;
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
33PRINTA ;
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
58MAIL(X) ;
59 S TIUCNT1=TIUCNT1+1,^TMP(TIUJ,"TIU212B",TIUCNT1)=X
60 Q
Note: See TracBrowser for help on using the repository browser.