TIUFXHLX ; SLC/MAM - Xecutable Help PAUSE, RESET, FLDDESC(FLDNO) ;10/26/95 15:33
;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
;
PAUSE ; Writes Press Return to Continue or ^ to exit on NEXT line without writing !'s.
N DIR,X,Y
S DIR("?")="Press the RETURN key when you have read the screen and are ready to go on"
S DIR(0)="FAO^1:1",DIR("A")="Press RETURN to continue or '^' or '^^' to exit: " D ^DIR
I X="",'$D(DTOUT) K DIRUT
Q
;
FLDHELP(FLDNO) ; Writes FLDNO Help Prompt
I $G(TIUFXNOD)["Sort" W !
D HELP^DIE(8925.1,"",FLDNO,"H")
D MSG^DIALOG("HW")
Q
;
FLDDESC(FILENO,FLDNO) ; Sets to scroll mode; Writes FLDNO Field Description to Screen
N TIUI,FLDNAME,HERE,MSG
K DIRUT
D HELP^DIE(8925.1,"",FLDNO,"D")
S FLDNAME=$S(FILENO=8925.1:$G(^TMP("TIUF",$J,FLDNO,"LABEL")),FILENO=8925.14:$G(^TMP("TIUF",$J,10,FLDNO)),FILENO=8925.11:$G(^TMP("TIUF",$J,1,FLDNO,"LABEL")),1:"")
I FLDNAME="" S FLDNAME=$G(^TMP("TIUF",$J,2,FLDNO,"LABEL"))
S FLDNAME=$P(FLDNAME,U)
I $D(TIUFTMPL) D FULL^VALM1 S TIUFFULL=1 W !
I $G(TIUFXNOD)["Sort" W !
I FLDNAME'="" W $$CENTER^TIULS("Description of "_FLDNAME),!!
D HELP^DIE(8925.1,"",FLDNO,"D")
S HERE=1 I $G(TIUFTMPL)="J",(FLDNO=.04)!(FLDNO=.07) S HERE=0
F TIUI=1:1:DIHELP S MSG=^TMP("DIHELP",$J,TIUI) D Q:$D(DIRUT)
. I FLDNO=.04,$G(TIUFTMPL)="J",MSG["O OBJECT" S HERE=1
. I FLDNO=.07,$G(TIUFTMPL)="J",MSG["OBJECT STATUS",MSG'["OBJECT STATUS," S HERE=1
. W:HERE&$$CONTINUE MSG,!
F Q:$Y>(IOSL-1) W !
I '$D(DIRUT) D PAUSE
FLDDX D CLEAN^DILF
Q
;
RESET ; -- reset scrolling region to bottom of screen
N DX,DY
W IOELALL
S IOTM=10,IOBM=IOSL W IOSC W @IOSTBM W IORC
S DX=0,DY=(VALM("BM")+1) X IOXY
Q
;
NAME ;XECUTABLE HELP for .01 NAME
N HELPX S HELPX=X
I $G(TIUFSTMP)="T" D Q
. I HELPX="??" D PAUSE
. W !," Name may be a preexisting file entry OR a NEW file entry.",!
. W !," If Name already exists in the file, it must have the appropriate Type for",!
. W "the parent, must be owned by the user, must NOT already be used elsewhere",!
. W "(unless it is a Shared Component), must not have the same Name as any Item under",!
. W "the parent, and must pass Check as OK.",!
. W !," Option Add Items does not accept and does not list other Names as choices.",!
. W !," If file already has an available entry of a given name and you want to enter a",!,"new entry of that name instead, enclose it in quotation marks.",!
. I HELPX'["?" W !," Name is 3-60 characters, not starting with punctuation.",! ; One ?; No to list
. I HELPX="??" D FLDDESC(8925.1,.01)
; Edit Basics, Add Entry, Create Entry, Name (Edit Name from front Template):
I $G(TIUFTMPL)="C",$G(TIUFSTMP)="" W !!,"You are creating a new entry of Type "_$P(TIUFXNOD,U,3)_" to hang ",!,"under "_$G(TIUFCNM)_". 3-60 characters, not starting with punctuation.",!
I HELPX="?" D FLDHELP(.01)
I HELPX="??" D FLDDESC(8925.1,.01)
Q
;
TYPE ; XECUTABLE HELP for .04 TYPE
N HELPX S HELPX=X
; For choosing sort criteria, TIUFXNOD="Sort"
; Otherwise, 3rd Piece of TIUFXNOD = "Change View" "Basics" "Create"
;"Class/DocumentClass" "Title" "Component" "Create Document Definitions"
I HELPX="?" D FLDHELP(.04),TYPELST
I HELPX="??" D FLDDESC(8925.1,.04)
Q
;
TYPELST ; Writes remarks, list of type choices
; Requires TIUFTMSG, TIUFTLST from TIUFLF7 if editing type
N OKTYPES,TAB
I $G(TIUFXNOD)["Basics" W !," Permitted Types are limited by Parent Type."
I $G(TIUFXNOD)["Change View"!($G(TIUFXNOD)["Sort") W !," File may contain (faulty) entries with no Type (NONE)."
I $G(TIUFXNOD)["Sort" W !!," You are limiting the list of entries you will see to those with a",!,"particular Type."
I $G(TIUFXNOD)["Create Doc" W !," Type is limited by the Type of your Current Position (Highlighted)."
I $G(TIUFXNOD)'["Sort" D PAUSE
S OKTYPES=$S($D(TIUFTLST):TIUFTLST,1:"^CL^DC^DOC^CO^O^N^") ;for Sort, Change View
I $D(TIUFTMSG(1)) W !,TIUFTMSG(1) W:$D(TIUFTMSG(2)) !,TIUFTMSG(2),! D PAUSE
I OKTYPES="" W !,"Type problem; See IRM" Q
S TAB=5
I $G(TIUFXNOD)["Sort" W !
W !,"Choose from:"
I OKTYPES["CL" W:TAB=5 ! W ?TAB,"Class" S TAB=$S(TAB=51:5,1:TAB+23)
I OKTYPES["DC" W:TAB=5 ! W ?TAB,"Document Class" S TAB=$S(TAB=51:5,1:TAB+23)
I OKTYPES["DOC" W:TAB=5 ! W ?TAB,"Title" S TAB=$S(TAB=51:5,1:TAB+23)
I OKTYPES["CO" W:TAB=5 ! W ?TAB,"Component" S TAB=$S(TAB=51:5,1:TAB+23)
I OKTYPES["^O^" W:TAB=5 ! W ?TAB,"Object" S TAB=$S(TAB=51:5,1:TAB+23)
I OKTYPES["N" W:TAB=5 ! W ?TAB,"NONE"
I $G(TIUFXNOD)["Sort" W !!
Q
;
STATUS ; XECUTABLE HELP for .07 STATUS
N HELPX S HELPX=X ;DO I NEED DBIA? MAM
I HELPX="?" D
. I $D(TIUFSMSG) W !,TIUFSMSG,! D PAUSE Q:$D(DIRUT)
. I $G(TIUFSMSG)["OBJECT" D OBJMSG,PAUSE W ! D:'$D(DIRUT) SLIST Q
. D FLDHELP(.07),SLIST
I HELPX="??" D FLDDESC(8925.1,.07) W !
Q
;
OBJMSG ; Writes msg about Object Status
W !," Objects may have Status Active or Inactive. Active designates objects as ready"
W !,"for use. It is up to the SITE to embed only Active Objects in Boilerplate Text."
W !,"Objects must be Inactive before they can be edited. Inactive objects in",!,"boilerplate text don't retrieve data. For more, enter ??? and see OBJECT STATUS"
Q
;
SLIST ; Writes remarks, list of Status choices
; If used for edit status rather than select status for sort, requires TIUFSLST as set in SELSTAT^TIUFLF5
I $G(TIUFXNOD)["Basics" W !,"Statuses are limited by Entry Type. Statuses are also limited (to Inactive)",!,"by faults in Entry or by parent with Inactive Status." D PAUSE
I $G(TIUFXNOD)["Create",TIUFTMPL="A" W !,"Status is limited to Inactive until the entry is added to the Hierarchy." D PAUSE
I $G(TIUFXNOD)["Sort"!($G(TIUFXNOD)["Change View") W !," File may contain (faulty) entries with no Status (NONE)."
I $G(TIUFXNOD)["Sort" W !!,"You are limiting the list of entries you will see to those with a",!,"particular Status.",!
W !,"Choose from:"_$S($G(TIUFSLST)["A":" ACTIVE",1:"")_$S($G(TIUFSLST)["I":" INACTIVE",1:"")_$S($G(TIUFSLST)["T":" TEST",1:"")_$S($G(TIUFSLST)["N":" NONE",1:"") W:$G(TIUFXNOD)["Sort" !! W:$G(TIUFXNOD)["Change View" !
I $G(TIUFSLST)="" W !,"Status problem; See IRM"
Q
;
HELP1(FLDNO) ; Xe help for FLDNO's 5, 6, 6.1, 6.12, 6.13, 6.14, 7, 8
N HELPX S HELPX=X
I HELPX="??" D FLDDESC(8925.1,FLDNO)
Q
;
CUSTOM ; Xe help for Allow Custom Form Headers
N HELPX S HELPX=X
I HELPX="?" D PAUSE
I HELPX="??" D FLDDESC(8925.1,6.14)
Q
;
HELP2(FLDNO) ; XECUTABLE HELP for FLDNO's .1 SHARED and .13 Nat'l
N HELPX S HELPX=X
I HELPX="?" D FLDHELP(FLDNO)
I HELPX="??" D FULL^VALM1,FLDDESC(8925.1,FLDNO)
Q
;
CONTINUE() ; Pagination control
N Y
I $Y<(IOSL-2) S Y=1 G CONTX
S Y=$$STOP^TIUU("",1) W:+Y @IOF,!!
CONTX Q Y
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUFXHLX 6776 printed Nov 22, 2024@17:51:27 Page 2
TIUFXHLX ; SLC/MAM - Xecutable Help PAUSE, RESET, FLDDESC(FLDNO) ;10/26/95 15:33
+1 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
+2 ;
PAUSE ; Writes Press Return to Continue or ^ to exit on NEXT line without writing !'s.
+1 NEW DIR,X,Y
+2 SET DIR("?")="Press the RETURN key when you have read the screen and are ready to go on"
+3 SET DIR(0)="FAO^1:1"
SET DIR("A")="Press RETURN to continue or '^' or '^^' to exit: "
DO ^DIR
+4 IF X=""
IF '$DATA(DTOUT)
KILL DIRUT
+5 QUIT
+6 ;
FLDHELP(FLDNO) ; Writes FLDNO Help Prompt
+1 IF $GET(TIUFXNOD)["Sort"
WRITE !
+2 DO HELP^DIE(8925.1,"",FLDNO,"H")
+3 DO MSG^DIALOG("HW")
+4 QUIT
+5 ;
FLDDESC(FILENO,FLDNO) ; Sets to scroll mode; Writes FLDNO Field Description to Screen
+1 NEW TIUI,FLDNAME,HERE,MSG
+2 KILL DIRUT
+3 DO HELP^DIE(8925.1,"",FLDNO,"D")
+4 SET FLDNAME=$SELECT(FILENO=8925.1:$GET(^TMP("TIUF",$JOB,FLDNO,"LABEL")),FILENO=8925.14:$GET(^TMP("TIUF",$JOB,10,FLDNO)),FILENO=8925.11:$GET(^TMP("TIUF",$JOB,1,FLDNO,"LABEL")),1:"")
+5 IF FLDNAME=""
SET FLDNAME=$GET(^TMP("TIUF",$JOB,2,FLDNO,"LABEL"))
+6 SET FLDNAME=$PIECE(FLDNAME,U)
+7 IF $DATA(TIUFTMPL)
DO FULL^VALM1
SET TIUFFULL=1
WRITE !
+8 IF $GET(TIUFXNOD)["Sort"
WRITE !
+9 IF FLDNAME'=""
WRITE $$CENTER^TIULS("Description of "_FLDNAME),!!
+10 DO HELP^DIE(8925.1,"",FLDNO,"D")
+11 SET HERE=1
IF $GET(TIUFTMPL)="J"
IF (FLDNO=.04)!(FLDNO=.07)
SET HERE=0
+12 FOR TIUI=1:1:DIHELP
SET MSG=^TMP("DIHELP",$JOB,TIUI)
Begin DoDot:1
+13 IF FLDNO=.04
IF $GET(TIUFTMPL)="J"
IF MSG["O OBJECT"
SET HERE=1
+14 IF FLDNO=.07
IF $GET(TIUFTMPL)="J"
IF MSG["OBJECT STATUS"
IF MSG'["OBJECT STATUS,"
SET HERE=1
+15 if HERE&$$CONTINUE
WRITE MSG,!
End DoDot:1
if $DATA(DIRUT)
QUIT
+16 FOR
if $Y>(IOSL-1)
QUIT
WRITE !
+17 IF '$DATA(DIRUT)
DO PAUSE
FLDDX DO CLEAN^DILF
+1 QUIT
+2 ;
RESET ; -- reset scrolling region to bottom of screen
+1 NEW DX,DY
+2 WRITE IOELALL
+3 SET IOTM=10
SET IOBM=IOSL
WRITE IOSC
WRITE @IOSTBM
WRITE IORC
+4 SET DX=0
SET DY=(VALM("BM")+1)
XECUTE IOXY
+5 QUIT
+6 ;
NAME ;XECUTABLE HELP for .01 NAME
+1 NEW HELPX
SET HELPX=X
+2 IF $GET(TIUFSTMP)="T"
Begin DoDot:1
+3 IF HELPX="??"
DO PAUSE
+4 WRITE !," Name may be a preexisting file entry OR a NEW file entry.",!
+5 WRITE !," If Name already exists in the file, it must have the appropriate Type for",!
+6 WRITE "the parent, must be owned by the user, must NOT already be used elsewhere",!
+7 WRITE "(unless it is a Shared Component), must not have the same Name as any Item under",!
+8 WRITE "the parent, and must pass Check as OK.",!
+9 WRITE !," Option Add Items does not accept and does not list other Names as choices.",!
+10 WRITE !," If file already has an available entry of a given name and you want to enter a",!,"new entry of that name instead, enclose it in quotation marks.",!
+11 ; One ?; No to list
IF HELPX'["?"
WRITE !," Name is 3-60 characters, not starting with punctuation.",!
+12 IF HELPX="??"
DO FLDDESC(8925.1,.01)
End DoDot:1
QUIT
+13 ; Edit Basics, Add Entry, Create Entry, Name (Edit Name from front Template):
+14 IF $GET(TIUFTMPL)="C"
IF $GET(TIUFSTMP)=""
WRITE !!,"You are creating a new entry of Type "_$PIECE(TIUFXNOD,U,3)_" to hang ",!,"under "_$GET(TIUFCNM)_". 3-60 characters, not starting with punctuation.",!
+15 IF HELPX="?"
DO FLDHELP(.01)
+16 IF HELPX="??"
DO FLDDESC(8925.1,.01)
+17 QUIT
+18 ;
TYPE ; XECUTABLE HELP for .04 TYPE
+1 NEW HELPX
SET HELPX=X
+2 ; For choosing sort criteria, TIUFXNOD="Sort"
+3 ; Otherwise, 3rd Piece of TIUFXNOD = "Change View" "Basics" "Create"
+4 ;"Class/DocumentClass" "Title" "Component" "Create Document Definitions"
+5 IF HELPX="?"
DO FLDHELP(.04)
DO TYPELST
+6 IF HELPX="??"
DO FLDDESC(8925.1,.04)
+7 QUIT
+8 ;
TYPELST ; Writes remarks, list of type choices
+1 ; Requires TIUFTMSG, TIUFTLST from TIUFLF7 if editing type
+2 NEW OKTYPES,TAB
+3 IF $GET(TIUFXNOD)["Basics"
WRITE !," Permitted Types are limited by Parent Type."
+4 IF $GET(TIUFXNOD)["Change View"!($GET(TIUFXNOD)["Sort")
WRITE !," File may contain (faulty) entries with no Type (NONE)."
+5 IF $GET(TIUFXNOD)["Sort"
WRITE !!," You are limiting the list of entries you will see to those with a",!,"particular Type."
+6 IF $GET(TIUFXNOD)["Create Doc"
WRITE !," Type is limited by the Type of your Current Position (Highlighted)."
+7 IF $GET(TIUFXNOD)'["Sort"
DO PAUSE
+8 ;for Sort, Change View
SET OKTYPES=$SELECT($DATA(TIUFTLST):TIUFTLST,1:"^CL^DC^DOC^CO^O^N^")
+9 IF $DATA(TIUFTMSG(1))
WRITE !,TIUFTMSG(1)
if $DATA(TIUFTMSG(2))
WRITE !,TIUFTMSG(2),!
DO PAUSE
+10 IF OKTYPES=""
WRITE !,"Type problem; See IRM"
QUIT
+11 SET TAB=5
+12 IF $GET(TIUFXNOD)["Sort"
WRITE !
+13 WRITE !,"Choose from:"
+14 IF OKTYPES["CL"
if TAB=5
WRITE !
WRITE ?TAB,"Class"
SET TAB=$SELECT(TAB=51:5,1:TAB+23)
+15 IF OKTYPES["DC"
if TAB=5
WRITE !
WRITE ?TAB,"Document Class"
SET TAB=$SELECT(TAB=51:5,1:TAB+23)
+16 IF OKTYPES["DOC"
if TAB=5
WRITE !
WRITE ?TAB,"Title"
SET TAB=$SELECT(TAB=51:5,1:TAB+23)
+17 IF OKTYPES["CO"
if TAB=5
WRITE !
WRITE ?TAB,"Component"
SET TAB=$SELECT(TAB=51:5,1:TAB+23)
+18 IF OKTYPES["^O^"
if TAB=5
WRITE !
WRITE ?TAB,"Object"
SET TAB=$SELECT(TAB=51:5,1:TAB+23)
+19 IF OKTYPES["N"
if TAB=5
WRITE !
WRITE ?TAB,"NONE"
+20 IF $GET(TIUFXNOD)["Sort"
WRITE !!
+21 QUIT
+22 ;
STATUS ; XECUTABLE HELP for .07 STATUS
+1 ;DO I NEED DBIA? MAM
NEW HELPX
SET HELPX=X
+2 IF HELPX="?"
Begin DoDot:1
+3 IF $DATA(TIUFSMSG)
WRITE !,TIUFSMSG,!
DO PAUSE
if $DATA(DIRUT)
QUIT
+4 IF $GET(TIUFSMSG)["OBJECT"
DO OBJMSG
DO PAUSE
WRITE !
if '$DATA(DIRUT)
DO SLIST
QUIT
+5 DO FLDHELP(.07)
DO SLIST
End DoDot:1
+6 IF HELPX="??"
DO FLDDESC(8925.1,.07)
WRITE !
+7 QUIT
+8 ;
OBJMSG ; Writes msg about Object Status
+1 WRITE !," Objects may have Status Active or Inactive. Active designates objects as ready"
+2 WRITE !,"for use. It is up to the SITE to embed only Active Objects in Boilerplate Text."
+3 WRITE !,"Objects must be Inactive before they can be edited. Inactive objects in",!,"boilerplate text don't retrieve data. For more, enter ??? and see OBJECT STATUS"
+4 QUIT
+5 ;
SLIST ; Writes remarks, list of Status choices
+1 ; If used for edit status rather than select status for sort, requires TIUFSLST as set in SELSTAT^TIUFLF5
+2 IF $GET(TIUFXNOD)["Basics"
WRITE !,"Statuses are limited by Entry Type. Statuses are also limited (to Inactive)",!,"by faults in Entry or by parent with Inactive Status."
DO PAUSE
+3 IF $GET(TIUFXNOD)["Create"
IF TIUFTMPL="A"
WRITE !,"Status is limited to Inactive until the entry is added to the Hierarchy."
DO PAUSE
+4 IF $GET(TIUFXNOD)["Sort"!($GET(TIUFXNOD)["Change View")
WRITE !," File may contain (faulty) entries with no Status (NONE)."
+5 IF $GET(TIUFXNOD)["Sort"
WRITE !!,"You are limiting the list of entries you will see to those with a",!,"particular Status.",!
+6 WRITE !,"Choose from:"_$SELECT($GET(TIUFSLST)["A":" ACTIVE",1:"")_$SELECT($GET(TIUFSLST)["I":" INACTIVE",1:"")_$SELECT($GET(TIUFSLST)["T":" TEST",1:"")_$SELECT($GET(TIUFSLST)["N":" NONE",1:"")
if $GET(TIUFXNOD)["Sort"
WRITE !!
if $GET(TIUFXNOD)["Change View"
WRITE !
+7 IF $GET(TIUFSLST)=""
WRITE !,"Status problem; See IRM"
+8 QUIT
+9 ;
HELP1(FLDNO) ; Xe help for FLDNO's 5, 6, 6.1, 6.12, 6.13, 6.14, 7, 8
+1 NEW HELPX
SET HELPX=X
+2 IF HELPX="??"
DO FLDDESC(8925.1,FLDNO)
+3 QUIT
+4 ;
CUSTOM ; Xe help for Allow Custom Form Headers
+1 NEW HELPX
SET HELPX=X
+2 IF HELPX="?"
DO PAUSE
+3 IF HELPX="??"
DO FLDDESC(8925.1,6.14)
+4 QUIT
+5 ;
HELP2(FLDNO) ; XECUTABLE HELP for FLDNO's .1 SHARED and .13 Nat'l
+1 NEW HELPX
SET HELPX=X
+2 IF HELPX="?"
DO FLDHELP(FLDNO)
+3 IF HELPX="??"
DO FULL^VALM1
DO FLDDESC(8925.1,FLDNO)
+4 QUIT
+5 ;
CONTINUE() ; Pagination control
+1 NEW Y
+2 IF $Y<(IOSL-2)
SET Y=1
GOTO CONTX
+3 SET Y=$$STOP^TIUU("",1)
if +Y
WRITE @IOF,!!
CONTX QUIT Y
+1 ;
