- 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 Feb 19, 2025@00:07:21 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 ;
