©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
TIUFLF8 ; SLC/MAM - Library; File 8925.1 Related: SELTYPE(FILEDA,DEFLT), EDOWN(DA,XFLG) ;7/1/97 20:39
Source file <TIUFLF8.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 2 | PAUSE^TIUFXHLX $$UPPER^TIULS |
| VA Fileman | 2 | ^DIE ^DIR |
| Registration | 1 | FULL^VALM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GET(DA,NODE0,POWNER,COWNER) | ; Get Owner data
|
|
| OWNPERS(FILEDA,NODE0,POWNER,COWNER) | ; Edit Personal Owner
|
|
| OWNCLAS(FILEDA,NODE0,POWNER,COWNER) | ; Edit Owner Class
|
|
| SELTX | ||
| EDOWX | ||
| EDOWN(DA,XFLG) | ; User edit Owner.
; Returns XFLG=1 if user ^exited, else as received. |
|
| SELTYPE(FILEDA,DEFLT) | ; Function Prompts for Type, Returns Selected Type: CL, DC, TL, CO, O, [N for NONE], "" if nothing selected or @ entered.
; Optional FILEDA: if not received, include 'NONE' as selectable Type. ; Optional DEFLT = 'CLASS', 'TITLE' etc. ; FILEDA, DEFLT are needed when editing Type; NOT needed when selecting Type for SORT. Assume for SORT if FILEDA is not received. ; If used for editing Type, requires TIUFTLST as set in TYPELIST |
|
| OWNCHEC(DA) | ; Check for no owners, both owners, stuff personal owner if problem
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925.1 - [#8925.1] | GET+1 |
| ^TMP("TIUF" | OWNCLAS+2 |
| Name | Line Occurrences |
|---|---|
| EDOWX | EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8 |
| GET | EDOWN+3, OWNCHEC+2, OWNCLAS+7, OWNPERS+5 |
| OWNCHEC | EDOWX+1 |
| OWNCLAS | EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8 |
| OWNPERS | EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8 |
| SELTX | SELTYPE+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | OWNCLAS+1~, OWNCLAS+5*, OWNPERS+1~, OWNPERS+3* |
| CHOICE | SELTYPE+5~, SELTYPE+10*, SELTYPE+12*, SELTYPE+13*, SELTYPE+14*, SELTYPE+15 |
| COWNER | EDOWN+2~, EDOWN+3, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, OWNCHEC+1~, OWNCHEC+2, OWNCHEC+3, OWNCHEC+4 , GET~, GET+1*, OWNCLAS~, OWNCLAS+2, OWNCLAS+7, OWNPERS~, OWNPERS+5 |
| DA | EDOWN~, EDOWN+3, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, EDOWX+1, OWNCHEC~, OWNCHEC+2, GET~ , GET+1, OWNCLAS+1~, OWNCLAS+3*, OWNPERS+2* |
| DEFLT | SELTYPE~, SELTYPE+9 |
| DIE | EDOWN+2~, EDOWN+4*, OWNCHEC+1~, OWNCHEC+2*, OWNCLAS+1~, OWNCLAS+4*, OWNPERS+1~, OWNPERS+2* |
| DIR | SELTYPE+5~, OWNCLAS+1~, OWNPERS+1~ |
| DIR("?" | SELTYPE+8* |
| DIR("??" | SELTYPE+8* |
| DIR("A" | SELTYPE+15* |
| DIR("B" | SELTYPE+9*, OWNCLAS+2* |
| DIR(0 | SELTYPE+8*, OWNCLAS+4*, OWNPERS+2* |
| DIROUT | SELTYPE+6! |
| DIRUT | SELTYPE+6! |
| DR | EDOWN+2~, OWNCHEC+1~, OWNCHEC+3*, OWNCHEC+4*, OWNCLAS+1~, OWNCLAS+6*, OWNPERS+1~, OWNPERS+4* |
| >> DTOUT | SELTYPE+16, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, EDOWX, OWNCHEC+3, OWNCHEC+4, OWNCLAS+4, OWNPERS+2 |
| DUOUT | SELTYPE+6!, SELTYPE+16, EDOWN+4!, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, EDOWX, OWNCLAS+4, OWNPERS+2 |
| FILEDA | SELTYPE~, SELTYPE+7*, SELTYPE+11, SELTYPE+13, SELTYPE+15, SELTYPE+27, SELTYPE+29, OWNCLAS~, OWNCLAS+3, OWNCLAS+7 , OWNPERS~, OWNPERS+2, OWNPERS+5 |
| NODE0 | EDOWN+2~, EDOWN+3, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, OWNCHEC+1~, OWNCHEC+2, GET~, GET+1* , OWNCLAS~, OWNCLAS+7, OWNPERS~, OWNPERS+5 |
| POWNER | EDOWN+2~, EDOWN+3, EDOWN+5, EDOWN+6, EDOWN+7, EDOWN+8, OWNCHEC+1~, OWNCHEC+2, OWNCHEC+3, OWNCHEC+4 , GET~, GET+1*, OWNCLAS~, OWNCLAS+7, OWNPERS~, OWNPERS+5 |
| >> TIUFFULL | EDOWN+4* |
| >> TIUFTLST | SELTYPE+12, SELTYPE+31 |
| >> TIUFXNOD | SELTYPE+8 |
| TMP | SELTYPE+5~, SELTYPE+30*, SELTYPE+31 |
| TYPE | SELTYPE+5~, SELTYPE+11*, SELTYPE+12*, SELTYPE+16*, SELTYPE+17*, SELTYPE+19*, SELTYPE+20, SELTYPE+21*, SELTYPE+22, SELTYPE+23* , SELTYPE+24*, SELTYPE+25, SELTYPE+26*, SELTYPE+27*, SELTYPE+28*, SELTYPE+30, SELTYPE+31*, SELTX |
| U | SELTYPE+12, SELTYPE+31, GET+1 |
| X | SELTYPE+5~, EDOWN+2~, OWNCHEC+1~, OWNCLAS+1~, OWNCLAS+5, OWNPERS+1~, OWNPERS+3 |
| XFLG | EDOWN~, EDOWX* |
| Y | SELTYPE+5~, SELTYPE+17, EDOWN+2~, OWNCHEC+1~, OWNCLAS+1~, OWNCLAS+5*, OWNPERS+1~, OWNPERS+3* |