source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFHLP1.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1TIUFHLP1 ; SLC/MAM - On-line help library: EDITVW, FIELD ;4/5/05
2 ;;1.0;TEXT INTEGRATION UTILITIES;**14,184**;Jun 20, 1997
3 ;
4EDITVW ; 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"))
10BASICS 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
19ITEMS 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)
23BOILTX 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
27TECH 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
34UPLOAD 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)
40EDVWX D CLEAN^DILF
41 Q
42 ;
43FIELD(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 ;
Note: See TracBrowser for help on using the repository browser.