TIUFXHL1 ;SLC/MAM - ?? XQORM Help, ? COPY Help ;;7-6-95 9:00pm
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
;
W !," Enter 'S' to change the entry you want to Start the list with"
I $P(TIUFTMPA,U)'="A" W !," Enter 'V' to change the Value of the ",$P(TIUFTMPA,U,2) ;Exclude All
W !," Enter 'A' to change the sort Attribute to something other than ",$P(TIUFTMPA,U,2),!
Q
ATTRIB ; Help for protocols TIUF SORT, TIUF CHANGE SORT ATTRIBUTE
I $G(TIUFXNOD)["Sort" W !
W !,"T Type S Status P Parentage"
W !,"O Owner U In Use A All Docmt Defs"
I $G(TIUFXNOD)["Sort" W !
W !," Enter the Attribute you want to sort by, or enter 'A' to get All Document",!,"Definitions",!
I $G(TIUFXNOD)["Sort" W !
Q
;
OWNER ; Help for protocol TIUF SORT BY OWNER
I $G(TIUFXNOD)["Sort" W !
W !,"Choose from:"
W !,"P Personal C Class I Individual N None",!
I $G(TIUFXNOD)'["Sort" D PAUSE^TIUFXHLX G:$D(DIRUT) OWNEX
W !," Enter 'P' to get entries personally owned by a particular Person"
W !," Enter 'C' to get entries owned by a particular User Class"
I $G(TIUFXNOD)'["Sort" W ! D PAUSE^TIUFXHLX G:$D(DIRUT) OWNEX
W !," Enter 'I' to get entries owned by a particular Individual, either personally OR",!,"because the Individual belongs to an Owning User Class"
W !," Enter 'N' to get entries with NO Owner.",!
I $G(TIUFXNOD)'["Sort" D PAUSE^TIUFXHLX
OWNEX W !
Q
;
PARENT ; Help for protocol TIUF SORT BY PARENTAGE
I $G(TIUFXNOD)["Sort" W !
W !,"Choose from: O Orphan N NonOrphan"
I $G(TIUFXNOD)["Sort" W !
W !," Enter 'O' for Orphans, entries which don't belong to the Clinical",!,"Documents Hierarchy."
W !," Enter 'N' for NonOrphans, entries which DO belong to the Hierarchy.",!
I $G(TIUFXNOD)["Sort" W !
Q
;
USED ; Help for protocol TIUF SORT BY USED BY DOCMTS
I $G(TIUFXNOD)["Sort" W !
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.",!!
Q
;
NOP ; Help for protocol TIUFHA ACTION EDIT NAME/OWNER/PNAME
W !,"Choose from: N Name O Owner P Print Name",!
Q
;
COPY ; Help for action Copy (Activate prompt)
W !,"To determine whether the behavior has changed, compare inherited values on the"
W !,"Detailed Display for the Copy with those on the Detailed Display for the old"
W !,"Title. Compare Upload information on the Detailed Displays for the new and old"
W !,"DOCUMENT CLASSES. Next, compare Business Rules for the new and old DOCUMENT"
W !,"CLASSES. This takes care of inheritance. Then, since the copy action does NOT"
W !,"copy Business Rules, check to see what Business Rules exist for the entry the"
W !,"copy was copied FROM, and create the same rules for the COPY."
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUFXHL1 3013 printed Nov 22, 2024@17:51:26 Page 2
TIUFXHL1 ;SLC/MAM - ?? XQORM Help, ? COPY Help ;;7-6-95 9:00pm
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
+2 ;
+1 WRITE !," Enter 'S' to change the entry you want to Start the list with"
+2 ;Exclude All
IF $PIECE(TIUFTMPA,U)'="A"
WRITE !," Enter 'V' to change the Value of the ",$PIECE(TIUFTMPA,U,2)
+3 WRITE !," Enter 'A' to change the sort Attribute to something other than ",$PIECE(TIUFTMPA,U,2),!
+4 QUIT
ATTRIB ; Help for protocols TIUF SORT, TIUF CHANGE SORT ATTRIBUTE
+1 IF $GET(TIUFXNOD)["Sort"
WRITE !
+2 WRITE !,"T Type S Status P Parentage"
+3 WRITE !,"O Owner U In Use A All Docmt Defs"
+4 IF $GET(TIUFXNOD)["Sort"
WRITE !
+5 WRITE !," Enter the Attribute you want to sort by, or enter 'A' to get All Document",!,"Definitions",!
+6 IF $GET(TIUFXNOD)["Sort"
WRITE !
+7 QUIT
+8 ;
OWNER ; Help for protocol TIUF SORT BY OWNER
+1 IF $GET(TIUFXNOD)["Sort"
WRITE !
+2 WRITE !,"Choose from:"
+3 WRITE !,"P Personal C Class I Individual N None",!
+4 IF $GET(TIUFXNOD)'["Sort"
DO PAUSE^TIUFXHLX
if $DATA(DIRUT)
GOTO OWNEX
+5 WRITE !," Enter 'P' to get entries personally owned by a particular Person"
+6 WRITE !," Enter 'C' to get entries owned by a particular User Class"
+7 IF $GET(TIUFXNOD)'["Sort"
WRITE !
DO PAUSE^TIUFXHLX
if $DATA(DIRUT)
GOTO OWNEX
+8 WRITE !," Enter 'I' to get entries owned by a particular Individual, either personally OR",!,"because the Individual belongs to an Owning User Class"
+9 WRITE !," Enter 'N' to get entries with NO Owner.",!
+10 IF $GET(TIUFXNOD)'["Sort"
DO PAUSE^TIUFXHLX
OWNEX WRITE !
+1 QUIT
+2 ;
PARENT ; Help for protocol TIUF SORT BY PARENTAGE
+1 IF $GET(TIUFXNOD)["Sort"
WRITE !
+2 WRITE !,"Choose from: O Orphan N NonOrphan"
+3 IF $GET(TIUFXNOD)["Sort"
WRITE !
+4 WRITE !," Enter 'O' for Orphans, entries which don't belong to the Clinical",!,"Documents Hierarchy."
+5 WRITE !," Enter 'N' for NonOrphans, entries which DO belong to the Hierarchy.",!
+6 IF $GET(TIUFXNOD)["Sort"
WRITE !
+7 QUIT
+8 ;
USED ; Help for protocol TIUF SORT BY USED BY DOCMTS
+1 IF $GET(TIUFXNOD)["Sort"
WRITE !
+2 WRITE !," 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.",!!
+3 QUIT
+4 ;
NOP ; Help for protocol TIUFHA ACTION EDIT NAME/OWNER/PNAME
+1 WRITE !,"Choose from: N Name O Owner P Print Name",!
+2 QUIT
+3 ;
COPY ; Help for action Copy (Activate prompt)
+1 WRITE !,"To determine whether the behavior has changed, compare inherited values on the"
+2 WRITE !,"Detailed Display for the Copy with those on the Detailed Display for the old"
+3 WRITE !,"Title. Compare Upload information on the Detailed Displays for the new and old"
+4 WRITE !,"DOCUMENT CLASSES. Next, compare Business Rules for the new and old DOCUMENT"
+5 WRITE !,"CLASSES. This takes care of inheritance. Then, since the copy action does NOT"
+6 WRITE !,"copy Business Rules, check to see what Business Rules exist for the entry the"
+7 WRITE !,"copy was copied FROM, and create the same rules for the COPY."
+8 QUIT
+9 ;
