TIUFHLP1 ; SLC/MAM - On-line help library: EDITVW, FIELD ;4/5/05
;;1.0;TEXT INTEGRATION UTILITIES;**14,184**;Jun 20, 1997
;
EDITVW ; Write Field Description for Fields Shown in Edit View Templates D
N TIUI,FLDNM,FLDNO,MSG,FILEDA,TYPE,PFILEDA
S FILEDA=TIUFINFO("FILEDA"),TYPE=$P(TIUFNOD0,U,4)
S PFILEDA=+$O(^TIU(8925.1,"AD",FILEDA,0))
; NOTE ON DISPLAY OF HERITABLE FIELDS: text in desc of protocol TIUFD ACTION MENU MGR:
I "MN"[TIUFWHO,TYPE'="O" D ITEM^TIUFHLP(^TMP("TIUF",$J,"INHERIT"))
BASICS W !!,$$CENTER^TIUFL("Help on Basics",80),! K DIROUT
F FLDNO=.01,.02,.03,.04,.1,0,.13,.07,.05,.06,.11,.08,.15,3.02,3.03 K DIRUT D Q:$D(DIRUT)
. I FLDNO=0!(FLDNO=3.03),"NM"'[TIUFWHO Q
. I FLDNO=.11,TIUFTMPL'="A"!(TYPE="O") Q ;orphan
. I FLDNO=3.02,"N"'[TIUFWHO Q ;OK to Distribute
. I TYPE="O",(FLDNO=.1)!(FLDNO=.08)!(FLDNO=.15)!(FLDNO=.12)!(FLDNO=3.03) Q
. D FIELD(8925.1,FLDNO)
Q:$D(DTOUT)!$D(DIROUT)
I TYPE="O" G BOILTX
ITEMS W !!,$$CENTER^TIUFL("Help on Items",80),!
F FLDNO=10 K DIRUT D FIELD(8925.1,FLDNO) Q:$D(DIRUT)
F FLDNO=2,3,4 K DIRUT D FIELD(8925.14,FLDNO) Q:$D(DIRUT)
Q:$D(DTOUT)!$D(DIROUT)
BOILTX W !!,$$CENTER^TIUFL("Help on Boilerplate Text",80),!
D FIELD(8925.1,3)
Q:$D(DTOUT)!$D(DIROUT) Q:$G(TIUFSTMP)="X"
I TYPE="CO" G UPLOAD
TECH N PNODE61,PCUSTOM
I "MN"'[TIUFWHO Q
W !!,$$CENTER^TIUFL("Help on Technical Fields",80),!
I TYPE'="O" F FLDNO=4.1,4.2,4.3,4.4,4.45,4.6,4.7,4.9,5,6,6.14,6.1,6.12,6.13,7,8 K DIRUT D FIELD(8925.1,FLDNO) Q:$D(DIRUT)
I TYPE="O" D FIELD(8925.1,9)
Q:$D(DTOUT)!$D(DIROUT)
I TYPE="O"!(TYPE="CO") G EDVWX
UPLOAD W !!,$$CENTER^TIUFL("Help on Upload",80),!
F FLDNO=1.01,1.02,1.03,4,4.5,4.8 K DIRUT D FIELD(8925.1,FLDNO) Q:$D(DIRUT)
Q:$D(DTOUT)!$D(DIROUT)
W !!,$$CENTER^TIUFL("Help on Upload Record Header",80),!
W !,"NOTE: The following fields are for Captioned Headers. (Fields for Delimited",!,"Headers are similar.)",!
F FLDNO=.01:.01:.04,1,.05:.01:.07 K DIRUT D FIELD(8925.12,FLDNO) Q:$D(DIRUT)
EDVWX D CLEAN^DILF
Q
;
FIELD(FILENO,FLDNO) ; Writes (sub)field description for Display Template D
N FLDNM,TIUI,MSG,HERE
S FLDNM=$S(FILENO=8925.1:^TMP("TIUF",$J,FLDNO,"LABEL"),FILENO=8925.14:$S(FLDNO=2:"Mnemonic",FLDNO=3:"Sequence",1:"Menu Text"),FILENO=8925.11:^TMP("TIUF",$J,1,FLDNO,"LABEL"),1:"")
I FLDNM="" S FLDNM=^TMP("TIUF",$J,2,FLDNO,"LABEL")
K DIRUT W:$$CONTINUE^TIUFHLP !?1,$G(IOINHI),$P(FLDNM,U),$G(IOINORM),! Q:$D(DIRUT)
I FLDNO=0 W " The Internal File Number is the number of the entry in the TIU Document",! W:$$CONTINUE^TIUFHLP " Definition File. IFN is included in the display to help programmers with",! W:$$CONTINUE^TIUFHLP " debugging.",! Q
D HELP^DIE(FILENO,"",FLDNO,"D")
S HERE=1 I $G(TIUFTMPL)="J",(FLDNO=.04)!(FLDNO=.07) S HERE=0
F TIUI=1:1:$G(DIHELP) S MSG=^TMP("DIHELP",$J,TIUI) K DIRUT 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^TIUFHLP ?3,MSG,!
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUFHLP1 3048 printed Nov 22, 2024@17:50:51 Page 2
TIUFHLP1 ; SLC/MAM - On-line help library: EDITVW, FIELD ;4/5/05
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**14,184**;Jun 20, 1997
+2 ;
EDITVW ; Write Field Description for Fields Shown in Edit View Templates D
+1 NEW TIUI,FLDNM,FLDNO,MSG,FILEDA,TYPE,PFILEDA
+2 SET FILEDA=TIUFINFO("FILEDA")
SET TYPE=$PIECE(TIUFNOD0,U,4)
+3 SET PFILEDA=+$ORDER(^TIU(8925.1,"AD",FILEDA,0))
+4 ; NOTE ON DISPLAY OF HERITABLE FIELDS: text in desc of protocol TIUFD ACTION MENU MGR:
+5 IF "MN"[TIUFWHO
IF TYPE'="O"
DO ITEM^TIUFHLP(^TMP("TIUF",$JOB,"INHERIT"))
BASICS WRITE !!,$$CENTER^TIUFL("Help on Basics",80),!
KILL DIROUT
+1 FOR FLDNO=.01,.02,.03,.04,.1,0,.13,.07,.05,.06,.11,.08,.15,3.02,3.03
KILL DIRUT
Begin DoDot:1
+2 IF FLDNO=0!(FLDNO=3.03)
IF "NM"'[TIUFWHO
QUIT
+3 ;orphan
IF FLDNO=.11
IF TIUFTMPL'="A"!(TYPE="O")
QUIT
+4 ;OK to Distribute
IF FLDNO=3.02
IF "N"'[TIUFWHO
QUIT
+5 IF TYPE="O"
IF (FLDNO=.1)!(FLDNO=.08)!(FLDNO=.15)!(FLDNO=.12)!(FLDNO=3.03)
QUIT
+6 DO FIELD(8925.1,FLDNO)
End DoDot:1
if $DATA(DIRUT)
QUIT
+7 if $DATA(DTOUT)!$DATA(DIROUT)
QUIT
+8 IF TYPE="O"
GOTO BOILTX
ITEMS WRITE !!,$$CENTER^TIUFL("Help on Items",80),!
+1 FOR FLDNO=10
KILL DIRUT
DO FIELD(8925.1,FLDNO)
if $DATA(DIRUT)
QUIT
+2 FOR FLDNO=2,3,4
KILL DIRUT
DO FIELD(8925.14,FLDNO)
if $DATA(DIRUT)
QUIT
+3 if $DATA(DTOUT)!$DATA(DIROUT)
QUIT
BOILTX WRITE !!,$$CENTER^TIUFL("Help on Boilerplate Text",80),!
+1 DO FIELD(8925.1,3)
+2 if $DATA(DTOUT)!$DATA(DIROUT)
QUIT
if $GET(TIUFSTMP)="X"
QUIT
+3 IF TYPE="CO"
GOTO UPLOAD
TECH NEW PNODE61,PCUSTOM
+1 IF "MN"'[TIUFWHO
QUIT
+2 WRITE !!,$$CENTER^TIUFL("Help on Technical Fields",80),!
+3 IF TYPE'="O"
FOR FLDNO=4.1,4.2,4.3,4.4,4.45,4.6,4.7,4.9,5,6,6.14,6.1,6.12,6.13,7,8
KILL DIRUT
DO FIELD(8925.1,FLDNO)
if $DATA(DIRUT)
QUIT
+4 IF TYPE="O"
DO FIELD(8925.1,9)
+5 if $DATA(DTOUT)!$DATA(DIROUT)
QUIT
+6 IF TYPE="O"!(TYPE="CO")
GOTO EDVWX
UPLOAD WRITE !!,$$CENTER^TIUFL("Help on Upload",80),!
+1 FOR FLDNO=1.01,1.02,1.03,4,4.5,4.8
KILL DIRUT
DO FIELD(8925.1,FLDNO)
if $DATA(DIRUT)
QUIT
+2 if $DATA(DTOUT)!$DATA(DIROUT)
QUIT
+3 WRITE !!,$$CENTER^TIUFL("Help on Upload Record Header",80),!
+4 WRITE !,"NOTE: The following fields are for Captioned Headers. (Fields for Delimited",!,"Headers are similar.)",!
+5 FOR FLDNO=.01:.01:.04,1,.05:.01:.07
KILL DIRUT
DO FIELD(8925.12,FLDNO)
if $DATA(DIRUT)
QUIT
EDVWX DO CLEAN^DILF
+1 QUIT
+2 ;
FIELD(FILENO,FLDNO) ; Writes (sub)field description for Display Template D
+1 NEW FLDNM,TIUI,MSG,HERE
+2 SET FLDNM=$SELECT(FILENO=8925.1:^TMP("TIUF",$JOB,FLDNO,"LABEL"),FILENO=8925.14:$SELECT(FLDNO=2:"Mnemonic",FLDNO=3:"Sequence",1:"Menu Text"),FILENO=8925.11:^TMP("TIUF",$JOB,1,FLDNO,"LABEL"),1:"")
+3 IF FLDNM=""
SET FLDNM=^TMP("TIUF",$JOB,2,FLDNO,"LABEL")
+4 KILL DIRUT
if $$CONTINUE^TIUFHLP
WRITE !?1,$GET(IOINHI),$PIECE(FLDNM,U),$GET(IOINORM),!
if $DATA(DIRUT)
QUIT
+5 IF FLDNO=0
WRITE " The Internal File Number is the number of the entry in the TIU Document",!
if $$CONTINUE^TIUFHLP
WRITE " Definition File. IFN is included in the display to help programmers with",!
if $$CONTINUE^TIUFHLP
WRITE " debugging.",!
QUIT
+6 DO HELP^DIE(FILENO,"",FLDNO,"D")
+7 SET HERE=1
IF $GET(TIUFTMPL)="J"
IF (FLDNO=.04)!(FLDNO=.07)
SET HERE=0
+8 FOR TIUI=1:1:$GET(DIHELP)
SET MSG=^TMP("DIHELP",$JOB,TIUI)
KILL DIRUT
Begin DoDot:1
+9 IF FLDNO=.04
IF $GET(TIUFTMPL)="J"
IF MSG["O OBJECT"
SET HERE=1
+10 IF FLDNO=.07
IF $GET(TIUFTMPL)="J"
IF MSG["OBJECT STATUS"
IF MSG'["OBJECT STATUS,"
SET HERE=1
+11 if HERE&$$CONTINUE^TIUFHLP
WRITE ?3,MSG,!
End DoDot:1
if $DATA(DIRUT)
QUIT
+12 QUIT
+13 ;
