©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XBLFAM ;IHS/SET/GTH - LISTS FILE ATTRIBUTES FOR MODELING ; [ 04/18/2003 9:05 AM ]
Source file <XBLFAM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HP(N,F) | ;;3;'HELP'-PROMPT
|
|
| DFLE(N,F) | ;;50;DATE FIELD LAST EDITED
|
|
| DESC(N,F) | ;;21;DESCRIPTION (word-processing)
; Field DESCRIPTION and Help-Prompt. N=File, F=Field |
|
| IT(N,F) | ;;.5;INPUT TRANSFORM
|
|
| AUDIT(N,F) | ;;1.1;AUDIT
|
|
| TITLE(N,F) | ;;.1;TITLE
|
|
| FIELDS(F) | ; Process fields in File F.
; Field #, File #, File Name, Field Label, Field type, Desc/Help. |
|
| TYPE(P) | ;PEP;.25;TYPE
; Return TYPE of field. Input is the 2nd piece of the 0th node. |
|
| GSL(N,F) | ;;.4;GLOBAL SUBSCRIPT LOCATION
|
|
| MAXL(N,F) | ; Return maximum length
|
|
| MINL(N,F) | ; Return minimum length
|
|
| OT(N,F) | ;;2;OUTPUT TRANSFORM
|
|
| XH(N,F) | ;;4;XECUTABLE 'HELP'
|
|
| DA(N,F) | ;;8.5;DELETE ACCESS (OPTIONAL)
|
|
| EN | ;EP - From TaskMan.
|
|
| START | ;
; --- Display routine description. |
|
| TDESC(N,F) | ;;23;TECHNICAL DESCRIPTION (word-processing)
|
|
| SRC(N,F) | ;;10;SOURCE
|
|
| LABEL(N,F) | ;;.01;LABEL
|
|
| WA(N,F) | ;;9;WRITE ACCESS (OPTIONAL)
|
|
| RA(N,F) | ;;8;READ ACCESS (OPTIONAL)
|
|
| OUTLINE() | ;
; File #, File Name, Field #, Field Label, Field type, Desc/Help., ; Min Length, Max Length |
|
| NUMBER(F) | ;;.001;NUMBER
|
|
| PAGE | ; PAGE BREAK
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD( | FIELDS+4, FIELDS+5, FIELDS+6, OUTLINE+3, MINL+2, MINL+5, MAXL+2, MAXL+5, LABEL+1, TITLE+1 , TYPE+5, IT+1, AUDIT+1, OT+1, HP+2, HP+4, XH+1, RA+1, DA+1, WA+1 , SRC+1, DESC+4, TDESC+3, DFLE+1 |
| ^UTILITY("XBDSET" | START+14, EN+8 |
| ^UTILITY($J | START+3!, START+4*, START+6! |
| Name | Line Occurrences |
|---|---|
| $$DESC | OUTLINE+3 |
| $$HP | OUTLINE+3 |
| $$MAXL | OUTLINE+3 |
| $$MINL | OUTLINE+3 |
| $$OUTLINE | FIELDS+6, FIELDS+7 |
| $$TDESC | OUTLINE+3 |
| $$TYPE | OUTLINE+3 |
| FIELDS | EN+8, FIELDS+6 |
| PAGE | EN+8, FIELDS+4 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DESC+4, TDESC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | START+18*, START+19 |
| F | EN+3~, EN+7*, EN+8*, FIELDS~, FIELDS+4, FIELDS+5, FIELDS+6, OUTLINE+3, PAGE+1~, MINL~ , MINL+2, MINL+5, MAXL~, MAXL+2, MAXL+5, NUMBER~, NUMBER+1, LABEL~, LABEL+1, TITLE~ , TITLE+1, TYPE+5, GSL~, IT~, IT+1, AUDIT~, AUDIT+1, OT~, OT+1, HP~ , HP+2, HP+4, XH~, XH+1, RA~, RA+1, DA~, DA+1, WA~, WA+1 , SRC~, SRC+1, DESC~, DESC+4, TDESC~, TDESC+3, DFLE~, DFLE+1 |
| G | PAGE+1~ |
| IO | PAGE+2 |
| IO(0 | PAGE+2 |
| IOF | PAGE+2 |
| IOSL | FIELDS+4 |
| IOST | PAGE+2 |
| N | PAGE+1~, MINL~, MINL+2, MINL+5, MAXL~, MAXL+2, MAXL+5, LABEL~, LABEL+1, TITLE~ , TITLE+1, GSL~, IT~, IT+1, AUDIT~, AUDIT+1, OT~, OT+1, HP~, HP+2 , HP+4, XH~, XH+1, RA~, RA+1, DA~, DA+1, WA~, WA+1, SRC~ , SRC+1, DESC~, DESC+4, TDESC~, TDESC+3, DFLE~, DFLE+1 |
| P | TYPE~, TYPE+2, TYPE+4, TYPE+6 |
| QFLG | START+9~, START+10*, EN+8, FIELDS+4, PAGE+2* |
| W | TYPE+3~, TYPE+4*, TYPE+5*, TYPE+6*, TYPE+7 |
| X | EN+3~, FIELDS+2~, FIELDS+3*, PAGE+1~, MINL+1~, MINL+2*, MINL+3, MINL+4, MINL+5*, MINL+6 , MAXL+1~, MAXL+2*, MAXL+3, MAXL+4, MAXL+5*, MAXL+6, HP+1~, HP+2*, HP+3, DESC+2~ , DESC+3*, DESC+4*, DESC+5, DESC+6, TDESC+1~, TDESC+2*, TDESC+3*, TDESC+4, TDESC+5 |
| XB | FIELDS+2~, FIELDS+4*, FIELDS+5, FIELDS+6, OUTLINE+3, TYPE+5, DESC+2~, DESC+4*, TDESC+1~, TDESC+3* |
| >> ZTSAVE | START+19 |
| >> ZTSAVE("^UTILITY(""XBDSET"",$J," | START+18* |