©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
TIUFLF2 ; SLC/MAM - Library; File 8925.1 Related: PERSOWNS(FILEDA,PERSON), SELNAME(DEFLT), NAMSCRN(PFILEDA) ;4/23/97 18:20
Source file <TIUFLF2.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 2 | $$POSSTYPE^TIUFLF7 $$UPPER^TIULS |
| Authorization Subscription | 1 | $$ISA^USRLM |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PERSX | ||
| SELNX | ||
| PERSOWNS(FILEDA,PERSON) | ; Function determines if PERSON owns 8925.1
|
|
| SELNAME(DEFLT) | ; Function Prompts for Name, Returns Name or "" if nothing selected or @ entered.
; Optional DEFLT = present Name if editing name |
|
| NAMSX | ||
| NAMSCRN(PFILEDA) | ; Function returns DIC("S") for File 8925.1 Lookups when
|
|
| NATLOK(NODE0,PFILEDA) | ; Function returns 1/0 if item OK/not OK to add as far
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925.1 - [#8925.1] | PERSOWNS+10, PERSOWNS+11, PERSOWNS+12, PERSOWNS+16, NAMSCRN+40, NATLOK+4 |
| Name | Line Occurrences |
|---|---|
| NAMSX | NAMSCRN+32, NAMSCRN+33 |
| PERSX | PERSOWNS+10, PERSOWNS+12, PERSOWNS+16 |
| SELNX | SELNAME+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | PERSOWNS+9~, PERSOWNS+10*, PERSOWNS+13*, PERSOWNS+14*, PERSOWNS+16*, PERSOWNS+17*, PERSX |
| CL | NAMSCRN+20~, NAMSCRN+26*, NAMSCRN+28 |
| CLASS | PERSOWNS+9~, PERSOWNS+11*, PERSOWNS+12, PERSOWNS+13, PERSOWNS+16 |
| CO | NAMSCRN+20~, NAMSCRN+26*, NAMSCRN+31 |
| DA | SELNAME+2~ |
| DC | NAMSCRN+20~, NAMSCRN+26*, NAMSCRN+29 |
| DEFLT | SELNAME~, SELNAME+5 |
| DIR | SELNAME+2~ |
| DIR("?" | SELNAME+3* |
| DIR("??" | SELNAME+3* |
| DIR("A" | SELNAME+6* |
| DIR("B" | SELNAME+5* |
| DIR(0 | SELNAME+3*, SELNAME+4* |
| DOC | NAMSCRN+20~, NAMSCRN+26*, NAMSCRN+30 |
| >> DTOUT | SELNAME+7, NAMSCRN+32, NAMSX |
| >> DUOUT | SELNAME+7 |
| FILEDA | PERSOWNS~, PERSOWNS+10, PERSOWNS+11, PERSOWNS+12, PERSOWNS+16 |
| GOODTYPE | NAMSCRN+20~, NAMSCRN+34*, NAMSCRN+35*, NAMSCRN+36*, NAMSCRN+37*, NAMSCRN+38*, NAMSCRN+41 |
| HASPRNT | NAMSCRN+19~, NAMSCRN+24*, NAMSCRN+41 |
| NAME | SELNAME+2~, SELNAME+7*, SELNAME+8*, SELNX |
| NATL | NATLOK+3~, NATLOK+4*, NATLOK+5, NATLOK+6 |
| NATLANS | NATLOK+3~, NATLOK+4*, NATLOK+5*, NATLOK+6*, NATLOK+7 |
| NATLOK | NAMSCRN+21~ |
| NODE0 | NATLOK~, NATLOK+4 |
| NUL | NAMSCRN+20~, NAMSCRN+26*, NAMSCRN+27 |
| PERSON | PERSOWNS~, PERSOWNS+10, PERSOWNS+13 |
| PFILEDA | NAMSCRN~, NAMSCRN+23, NAMSCRN+32, NAMSCRN+40, NAMSCRN+41, NATLOK~, NATLOK+4 |
| PNATL | NAMSCRN+21~, NATLOK+3~, NATLOK+4*, NATLOK+5, NATLOK+6 |
| PNODE0 | NAMSCRN+21~, NATLOK+3~, NATLOK+4* |
| POSSTYPE | NAMSCRN+20~, NAMSCRN+32*, NAMSCRN+33, NAMSCRN+35, NAMSCRN+36, NAMSCRN+37, NAMSCRN+38 |
| PSHARED | NAMSCRN+21~, NAMSCRN+40*, NAMSCRN+41 |
| PTYPE | NAMSCRN+19~, NATLOK+3~, NATLOK+4*, NATLOK+5, NATLOK+6 |
| RTTYPE | NAMSCRN+20~ |
| SCRN | NAMSCRN+19~, NAMSCRN+22*, NAMSCRN+41*, NAMSX*, NAMSX+1 |
| SELFITEM | NAMSCRN+20~, NAMSCRN+23*, NAMSCRN+41 |
| SHARED | NAMSCRN+20~, NAMSCRN+40*, NAMSCRN+41, NATLOK+3~, NATLOK+4*, NATLOK+6 |
| >> TIUFSTMP | PERSOWNS+16 |
| >> TIUFTMPL | SELNAME+6 |
| >> TIUFWHO | NATLOK+5 |
| >> TIUFXNOD | PERSOWNS+16, SELNAME+4, SELNAME+6 |
| TYPEIS | NAMSCRN+19~, NAMSCRN+25*, NAMSCRN+27, NAMSCRN+28, NAMSCRN+29, NAMSCRN+30, NAMSCRN+31 |
| TYPEISCL | NAMSCRN+19~, NAMSCRN+28*, NAMSCRN+35 |
| TYPEISCO | NAMSCRN+19~, NAMSCRN+31*, NAMSCRN+38 |
| TYPEISDC | NAMSCRN+19~, NAMSCRN+29*, NAMSCRN+36 |
| TYPISDOC | NAMSCRN+19~, NAMSCRN+30*, NAMSCRN+37 |
| TYPISNUL | NAMSCRN+19~, NAMSCRN+27* |
| U | PERSOWNS+11, PERSOWNS+16, SELNAME+4, NAMSCRN+40, NATLOK+4 |
| USROWNS | NAMSCRN+20~, NAMSCRN+39*, NAMSCRN+41 |
| X | SELNAME+2~ |
| Y | SELNAME+2~, SELNAME+8 |