©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
TIUFLA1 ; SLC/MAM - Library; Template A,J (DDEFs by Attribute), (Objects) Related: AUPDATE(NODE0,FILEDA,CNTCHNG,NLINENO), SETENTYA(NODE0,FILEDA,FDALNO), IPOINT(NODE0), NOINUSE ;4/6/95 11:02
Source file <TIUFLA1.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 5 | ($$MATCH,$$STRMATCH)^TIUFLA NODE0ARR^TIUFLF (NINFO,PARSE)^TIUFLLM UPDATE^TIUFLLM1 BUFENTRY^TIUFLLM2 |
| Registration | 1 | CHGCAP^VALM |
| Package | Total | Caller Graph |
|---|---|---|
| Text Integration Utility | 7 | TIUFA1 TIUFD2 TIUFD3 TIUFHA4 TIUFHA5 TIUFT TIUFX |
| IHS Mods To Text Integration Utilities | 1 | BTIUFD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AUPDATE(NODE0,FILEDA,CNTCHNG,FDALNO) | ; Updates LM Template A,J (DDEFs by Attribute), (Objects)
|
|
| LINENO(NAME,FILEDA) | ; Function returns Lineno of last entry with name NAME in LM Array TIUF1 whose IFN is less than FILEDA. If no such entry (EITHER no TIUFI entries with Name OR none with IFN<FILEDA), returns 0.
|
|
| LINEX | ||
| AUPDX | ||
| SETENTYA(NODE0,FILEDA,NLINENO) | ; Set LM Template A,J entry w data NODE0, IFN FILEDA at NLINENO.
; Requires NODE0,FILEDA ; Returns NLINENO |
|
| NOMATCH | ; If no match, FILEDA has no entry, then Quit. If no match, FILEDA
|
|
| IPOINT(NODE0,FILEDA) | ; Function returns Template A,J insertion point for
|
|
| NOINUSE | ; If Type is Object for Template A,J blanks out In Use Caption. Called by protocols TIUFA ACTION MENU.
|
|
| IPOIX | ||
| HASNO | ; If match, FILEDA has no LM entry, set LM entry. (Happens if setting
|
|
| HAS | ; I match, FILEDA has LM entry, reset entry.
|
|
| MATCH | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925.1 - [#8925.1] | IPOINT+12, IPOINT+14, LINENO+3 |
| ^TMP("TIUF1IDX" | AUPDATE+13, IPOINT+15, LINENO+4 |
| Name | Line Occurrences |
|---|---|
| $$IPOINT | SETENTYA+4 |
| $$LINENO | IPOINT+8 |
| AUPDX | NOMATCH+6, HASNO+4, HAS+1 |
| HAS | MATCH+1 |
| IPOIX | IPOINT+9 |
| MATCH | AUPDATE+16 |
| SETENTYA | HASNO+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNTCHNG | AUPDATE~, NOMATCH+3*, NOMATCH+4*, HASNO+4*, HAS+4* |
| >> DTOUT | HAS+1, SETENTYA+6 |
| FDA | IPOINT+6~, IPOINT+13*, IPOINT+14*, IPOINT+15, LINENO+1~, LINENO+2*, LINENO+3*, LINENO+4 |
| FDALNO | AUPDATE~, AUPDATE+13*, NOMATCH+3, NOMATCH+4, MATCH+1, HASNO+4, HAS+3 |
| FILEDA | AUPDATE~, AUPDATE+12, AUPDATE+13, NOMATCH+5, HASNO+4, HAS+1, SETENTYA~, SETENTYA+4, SETENTYA+5, SETENTYA+6 , SETENTYA+9, IPOINT~, IPOINT+8, LINENO~, LINENO+3 |
| INARRAY | IPOINT+6~, IPOINT+13*, IPOINT+15*, IPOINT+16, LINENO+1~, LINENO+4*, LINENO+5 |
| INFO | AUPDATE+10~, AUPDATE+13*, AUPDATE+14*, HAS+1, HAS+2, SETENTYA+3~, SETENTYA+5, SETENTYA+7 |
| LINENO | IPOINT+6~, IPOINT+7*, IPOINT+8*, IPOINT+9, IPOINT+12, IPOINT+16*, IPOINT+17, LINENO+1~, LINENO+2*, LINENO+5* , LINEX |
| MATCH | AUPDATE+10~, AUPDATE+12*, AUPDATE+16 |
| NAME | LINENO~, LINENO+3 |
| NLINENO | SETENTYA~, SETENTYA+4*, SETENTYA+5, SETENTYA+8, SETENTYA+9, IPOINT+6~, IPOINT+9*, IPOINT+17*, IPOIX |
| NODE0 | AUPDATE~, AUPDATE+12, HASNO+4, HAS+1, HAS+2, SETENTYA~, SETENTYA+4, SETENTYA+6, SETENTYA+7, IPOINT~ , IPOINT+7 |
| PREVFDA | AUPDATE+10~ |
| PREVNAME | AUPDATE+10~, IPOINT+6~, IPOINT+7*, IPOINT+8, IPOINT+12*, IPOINT+14 |
| SCRNL | AUPDATE+10~ |
| >> TIUFAVAL | NOINUSE+1, NOINUSE+2 |
| >> TIUFINFO | NOMATCH+5*, SETENTYA+9* |
| >> TIUFINFO("FILEDA" | NOMATCH+5, SETENTYA+9 |
| >> TIUFINFO("LINENO" | NOMATCH+5*, SETENTYA+9* |
| >> TIUFSTRT | IPOINT+12 |
| >> TIUFTMPL | NOMATCH+4, HAS+2, HAS+3, SETENTYA+7, SETENTYA+8 |
| U | NOMATCH+5, SETENTYA+9, IPOINT+7, IPOINT+12 |