| [613] | 1 | TIUFHLP1 ; SLC/MAM - On-line help library: EDITVW, FIELD ;4/5/05
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**14,184**;Jun 20, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | EDITVW ; Write Field Description for Fields Shown in Edit View Templates D
|
|---|
| 5 | N TIUI,FLDNM,FLDNO,MSG,FILEDA,TYPE,PFILEDA
|
|---|
| 6 | S FILEDA=TIUFINFO("FILEDA"),TYPE=$P(TIUFNOD0,U,4)
|
|---|
| 7 | S PFILEDA=+$O(^TIU(8925.1,"AD",FILEDA,0))
|
|---|
| 8 | ; NOTE ON DISPLAY OF HERITABLE FIELDS: text in desc of protocol TIUFD ACTION MENU MGR:
|
|---|
| 9 | I "MN"[TIUFWHO,TYPE'="O" D ITEM^TIUFHLP(^TMP("TIUF",$J,"INHERIT"))
|
|---|
| 10 | BASICS W !!,$$CENTER^TIUFL("Help on Basics",80),! K DIROUT
|
|---|
| 11 | 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)
|
|---|
| 12 | . I FLDNO=0!(FLDNO=3.03),"NM"'[TIUFWHO Q
|
|---|
| 13 | . I FLDNO=.11,TIUFTMPL'="A"!(TYPE="O") Q ;orphan
|
|---|
| 14 | . I FLDNO=3.02,"N"'[TIUFWHO Q ;OK to Distribute
|
|---|
| 15 | . I TYPE="O",(FLDNO=.1)!(FLDNO=.08)!(FLDNO=.15)!(FLDNO=.12)!(FLDNO=3.03) Q
|
|---|
| 16 | . D FIELD(8925.1,FLDNO)
|
|---|
| 17 | Q:$D(DTOUT)!$D(DIROUT)
|
|---|
| 18 | I TYPE="O" G BOILTX
|
|---|
| 19 | ITEMS W !!,$$CENTER^TIUFL("Help on Items",80),!
|
|---|
| 20 | F FLDNO=10 K DIRUT D FIELD(8925.1,FLDNO) Q:$D(DIRUT)
|
|---|
| 21 | F FLDNO=2,3,4 K DIRUT D FIELD(8925.14,FLDNO) Q:$D(DIRUT)
|
|---|
| 22 | Q:$D(DTOUT)!$D(DIROUT)
|
|---|
| 23 | BOILTX W !!,$$CENTER^TIUFL("Help on Boilerplate Text",80),!
|
|---|
| 24 | D FIELD(8925.1,3)
|
|---|
| 25 | Q:$D(DTOUT)!$D(DIROUT) Q:$G(TIUFSTMP)="X"
|
|---|
| 26 | I TYPE="CO" G UPLOAD
|
|---|
| 27 | TECH N PNODE61,PCUSTOM
|
|---|
| 28 | I "MN"'[TIUFWHO Q
|
|---|
| 29 | W !!,$$CENTER^TIUFL("Help on Technical Fields",80),!
|
|---|
| 30 | 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)
|
|---|
| 31 | I TYPE="O" D FIELD(8925.1,9)
|
|---|
| 32 | Q:$D(DTOUT)!$D(DIROUT)
|
|---|
| 33 | I TYPE="O"!(TYPE="CO") G EDVWX
|
|---|
| 34 | UPLOAD W !!,$$CENTER^TIUFL("Help on Upload",80),!
|
|---|
| 35 | F FLDNO=1.01,1.02,1.03,4,4.5,4.8 K DIRUT D FIELD(8925.1,FLDNO) Q:$D(DIRUT)
|
|---|
| 36 | Q:$D(DTOUT)!$D(DIROUT)
|
|---|
| 37 | W !!,$$CENTER^TIUFL("Help on Upload Record Header",80),!
|
|---|
| 38 | W !,"NOTE: The following fields are for Captioned Headers. (Fields for Delimited",!,"Headers are similar.)",!
|
|---|
| 39 | F FLDNO=.01:.01:.04,1,.05:.01:.07 K DIRUT D FIELD(8925.12,FLDNO) Q:$D(DIRUT)
|
|---|
| 40 | EDVWX D CLEAN^DILF
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
| 43 | FIELD(FILENO,FLDNO) ; Writes (sub)field description for Display Template D
|
|---|
| 44 | N FLDNM,TIUI,MSG,HERE
|
|---|
| 45 | 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:"")
|
|---|
| 46 | I FLDNM="" S FLDNM=^TMP("TIUF",$J,2,FLDNO,"LABEL")
|
|---|
| 47 | K DIRUT W:$$CONTINUE^TIUFHLP !?1,$G(IOINHI),$P(FLDNM,U),$G(IOINORM),! Q:$D(DIRUT)
|
|---|
| 48 | 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
|
|---|
| 49 | D HELP^DIE(FILENO,"",FLDNO,"D")
|
|---|
| 50 | S HERE=1 I $G(TIUFTMPL)="J",(FLDNO=.04)!(FLDNO=.07) S HERE=0
|
|---|
| 51 | F TIUI=1:1:$G(DIHELP) S MSG=^TMP("DIHELP",$J,TIUI) K DIRUT D Q:$D(DIRUT)
|
|---|
| 52 | . I FLDNO=.04,$G(TIUFTMPL)="J",MSG["O OBJECT" S HERE=1
|
|---|
| 53 | . I FLDNO=.07,$G(TIUFTMPL)="J",MSG["OBJECT STATUS",MSG'["OBJECT STATUS," S HERE=1
|
|---|
| 54 | . W:HERE&$$CONTINUE^TIUFHLP ?3,MSG,!
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
