source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFXHL1.m@ 724

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

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1TIUFXHL1 ;SLC/MAM - ?? XQORM Help, ? COPY Help ;;7-6-95 9:00pm
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3 ;
4MENU ; Help for protocol TIUF CHANGE SORT MENU
5 W !," Enter 'S' to change the entry you want to Start the list with"
6 I $P(TIUFTMPA,U)'="A" W !," Enter 'V' to change the Value of the ",$P(TIUFTMPA,U,2) ;Exclude All
7 W !," Enter 'A' to change the sort Attribute to something other than ",$P(TIUFTMPA,U,2),!
8 Q
9ATTRIB ; Help for protocols TIUF SORT, TIUF CHANGE SORT ATTRIBUTE
10 I $G(TIUFXNOD)["Sort" W !
11 W !,"T Type S Status P Parentage"
12 W !,"O Owner U In Use A All Docmt Defs"
13 I $G(TIUFXNOD)["Sort" W !
14 W !," Enter the Attribute you want to sort by, or enter 'A' to get All Document",!,"Definitions",!
15 I $G(TIUFXNOD)["Sort" W !
16 Q
17 ;
18OWNER ; Help for protocol TIUF SORT BY OWNER
19 I $G(TIUFXNOD)["Sort" W !
20 W !,"Choose from:"
21 W !,"P Personal C Class I Individual N None",!
22 I $G(TIUFXNOD)'["Sort" D PAUSE^TIUFXHLX G:$D(DIRUT) OWNEX
23 W !," Enter 'P' to get entries personally owned by a particular Person"
24 W !," Enter 'C' to get entries owned by a particular User Class"
25 I $G(TIUFXNOD)'["Sort" W ! D PAUSE^TIUFXHLX G:$D(DIRUT) OWNEX
26 W !," Enter 'I' to get entries owned by a particular Individual, either personally OR",!,"because the Individual belongs to an Owning User Class"
27 W !," Enter 'N' to get entries with NO Owner.",!
28 I $G(TIUFXNOD)'["Sort" D PAUSE^TIUFXHLX
29OWNEX W !
30 Q
31 ;
32PARENT ; Help for protocol TIUF SORT BY PARENTAGE
33 I $G(TIUFXNOD)["Sort" W !
34 W !,"Choose from: O Orphan N NonOrphan"
35 I $G(TIUFXNOD)["Sort" W !
36 W !," Enter 'O' for Orphans, entries which don't belong to the Clinical",!,"Documents Hierarchy."
37 W !," Enter 'N' for NonOrphans, entries which DO belong to the Hierarchy.",!
38 I $G(TIUFXNOD)["Sort" W !
39 Q
40 ;
41USED ; Help for protocol TIUF SORT BY USED BY DOCMTS
42 I $G(TIUFXNOD)["Sort" W !
43 W !," Enter 'YES' if you want entries that are In Use by documents in the TIU",!,"Document file, i.e. that have TIU documents using them as their Document",!,"Definition. Enter 'NO' if you want entries that are NOT In Use.",!!
44 Q
45 ;
46NOP ; Help for protocol TIUFHA ACTION EDIT NAME/OWNER/PNAME
47 W !,"Choose from: N Name O Owner P Print Name",!
48 Q
49 ;
50COPY ; Help for action Copy (Activate prompt)
51 W !,"To determine whether the behavior has changed, compare inherited values on the"
52 W !,"Detailed Display for the Copy with those on the Detailed Display for the old"
53 W !,"Title. Compare Upload information on the Detailed Displays for the new and old"
54 W !,"DOCUMENT CLASSES. Next, compare Business Rules for the new and old DOCUMENT"
55 W !,"CLASSES. This takes care of inheritance. Then, since the copy action does NOT"
56 W !,"copy Business Rules, check to see what Business Rules exist for the entry the"
57 W !,"copy was copied FROM, and create the same rules for the COPY."
58 Q
59 ;
Note: See TracBrowser for help on using the repository browser.