©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
TIUFLF5 ; SLC/MAM - Library; File 8925.1 Related: STATSCRN(),STATLIST(FILEDA,PFILEDA,NEWSTAT,STATMSG,STATLIST), ANCSTAT(FILEDA), POSSSTAT(TYPE), STATOK(TYPE,NEWSTAT), SELSTAT(FILEDA,PFILEDA,DEFLT),STATWORD(PIECE7) ;4/17/97 23:35
Source file <TIUFLF5.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 4 | SETUP^TIUFL CHECK^TIUFLF3 ANCESTOR^TIUFLF4 $$UPPER^TIULS |
| VA Fileman | 1 | ^DIR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ANCSX | ||
| SELSTAT(FILEDA,PFILEDA,DEFLT) | ; Function Prompts for Status, Returns Selected Status: ActiveIFN^ACTIVE, InactiveIFN^INACTIVE, TestIFN^TEST, "" if nothing selected or @ entered.
; Optional FILEDA: not received for Edit Status. ; Optional PFILEDA ; Optional DEFLT = 'INACTIVE', etc. ; FILEDA, PFILEDA,DEFLT are needed when editing Status under Edit Basics |
|
| STATSCRN() | ; Function returns DD Status Screen for Status Field .07:
|
|
| STOKX | ||
| AGAIN | ||
| STATOK(TYPE,NEWSTAT) | ; Function returns 1/0 if NEWSTAT is/isn't permissible for TYPE.
; Requires internal Type e.g. CL; Requires NEWSTAT= I, T, or A. |
|
| STATWORD(PIECE7) | ; Function returns Status as a word: ACTIVE, TEST, INACTIVE or NO/BAD
; NO/BAD if no status or status is missing from 8925.6 status file, or status is not entry active, test or inactive in 8925.6. ; Requires PIECE7= fld .07 of 8925.1 entry, could be null |
|
| SELSX | ||
| STATX | ||
| POSSSTAT(TYPE) | ; Function returns permissible Statuses for Type
; Permissible Statuses is string subset of ITA: (Inactive, Test, Active) ; Requires internal Type e.g. CL |
|
| ANCSTAT(FILEDA,PFILEDA) | ; Function returns 1 if any Ancestor is Inactive [or has no status];
|
|
| STATLIST(FILEDA,PFILEDA,NEWSTAT,STATMSG,STATLIST) | ; Module sets List of possible Statuses, sets msg explaining any limitations on Status
; Requires FILEDA of 8925.1 entry whose Status is being edited, as set in ASKSTAT^TIUFLF6. ; Requires PFILEDA if FILEDA has an actual or prospective parent |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TIU(8925.1 - [#8925.1] | STATLIST+9, ANCSTAT+3, ANCSTAT+7 |
| ^TMP("TIUF" | STATOK+5, STATLIST+19, STATLIST+29, STATX+5, ANCSTAT+4, ANCSTAT+8, AGAIN+4, AGAIN+5, AGAIN+6, STATWORD+4 , STATWORD+5 |
| Name | Line Occurrences |
|---|---|
| $$ANCSTAT | STATLIST+25 |
| $$POSSSTAT | STATOK+3, STATLIST+9 |
| AGAIN | AGAIN+2, AGAIN+8 |
| ANCSX | ANCSTAT+4 |
| SELSX | SELSTAT+15, AGAIN |
| STATLIST | SELSTAT+15 |
| STATX | STATLIST+10, STATLIST+12, STATLIST+24, STATLIST+26 |
| STOKX | STATOK+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANCSTAT | STATLIST+7~, STATLIST+25*, STATLIST+26 |
| ANS | STATOK+2~, STATOK+4*, STATOK+7*, STOKX |
| ANSTAT | ANCSTAT+1~, ANCSTAT+3*, ANCSTAT+4*, ANCSTAT+6, ANCSTAT+8*, ANCSX |
| AOK | SELSTAT+9~, SELSTAT+16*, SELSTAT+17*, SELSTAT+19 |
| CHOICE | SELSTAT+9~, SELSTAT+18*, SELSTAT+19*, SELSTAT+20*, SELSTAT+21*, SELSTAT+22*, SELSTAT+25*, SELSTAT+26*, SELSTAT+27 |
| DA | SELSTAT+9~ |
| DEFLT | SELSTAT~, SELSTAT+13 |
| DIR | SELSTAT+9~ |
| DIR("?" | SELSTAT+12* |
| DIR("??" | SELSTAT+12* |
| DIR("A" | SELSTAT+27* |
| DIR("B" | SELSTAT+13* |
| DIR(0 | SELSTAT+12* |
| >> DTOUT | STATLIST+10, SELSTAT+15, AGAIN, SELSX |
| >> DUOUT | AGAIN |
| FILEDA | STATLIST~, STATLIST+9, STATLIST+10, STATLIST+25, ANCSTAT~, SELSTAT~, SELSTAT+11*, SELSTAT+15, SELSTAT+23, SELSTAT+27 , AGAIN+8 |
| INACTOK | SELSTAT+9~, SELSTAT+16*, SELSTAT+17*, SELSTAT+20 |
| MSG | STATOK+2~, STATOK+5*, STATOK+6 |
| NEWSTAT | STATOK~, STATOK+4, STATLIST~, STATLIST+17, STATLIST+22, STATLIST+29, STATX+1, STATX+2, STATX+3 |
| NODE0 | STATLIST+7~, STATLIST+9* |
| PANCEST | ANCSTAT+1~, ANCSTAT+5 |
| PANCEST( | ANCSTAT+6, ANCSTAT+7 |
| PANCSTAT | ANCSTAT+1~, ANCSTAT+3*, ANCSTAT+4, ANCSTAT+7*, ANCSTAT+8 |
| PFILEDA | STATLIST~, STATLIST+8*, STATLIST+10, STATLIST+24, STATLIST+25, ANCSTAT~, ANCSTAT+3, ANCSTAT+5, SELSTAT~, SELSTAT+15 |
| PIECE7 | STATWORD~, STATWORD+5 |
| PNODE0 | ANCSTAT+1~, ANCSTAT+3*, ANCSTAT+5 |
| POSSSTAT | STATLIST+7~, STATLIST+9*, STATLIST+15, STATLIST+17, STATX+1, STATX+2, STATX+3, POSSSTAT+3~, POSSSTAT+4*, POSSSTAT+5 |
| STAT | STATOK+2~, STATOK+3*, STATOK+4, STATOK+5 |
| STATANS | STATWORD+3~, STATWORD+5*, STATWORD+6*, STATWORD+7 |
| STATLIST | STATLIST~, STATLIST+15*, STATLIST+22*, STATLIST+26*, STATX, STATX+1*, STATX+2*, STATX+3*, STATX+4* |
| STATMSG | STATLIST~, STATLIST+8*, STATLIST+12, STATLIST+19*, STATLIST+22*, STATLIST+30*, STATX+5* |
| STATOK | SELSTAT+10~, AGAIN+2, AGAIN+3*, AGAIN+7* |
| STATSCRN | SELSTAT+9~ |
| STATUS | STATLIST+7~, STATLIST+29*, STATLIST+30, SELSTAT+9~, AGAIN*, AGAIN+1*, AGAIN+4*, AGAIN+5*, AGAIN+6*, AGAIN+7 , AGAIN+8*, SELSX*, SELSX+1 |
| >> TIUFATTR | SELSTAT+25 |
| >> TIUFAVAL | SELSTAT+25 |
| TIUFCK | STATLIST+10~, STATLIST+12, STATLIST+17, STATLIST+20, STATLIST+22 |
| TIUFCK("S" | STATLIST+14, STATLIST+17!, STATLIST+20! |
| TIUFSLST | SELSTAT+10~, SELSTAT+15, SELSTAT+17, SELSTAT+25*, SELSTAT+26*, AGAIN+8 |
| TIUFSMSG | SELSTAT+9~, SELSTAT+15, SELSTAT+25* |
| >> TIUFXNOD | SELSTAT+12, SELSTAT+24 |
| TIUI | ANCSTAT+1~, ANCSTAT+6*, ANCSTAT+7 |
| TOK | SELSTAT+9~, SELSTAT+16*, SELSTAT+17*, SELSTAT+21 |
| TYPE | STATOK~, STATOK+3, STATOK+5, STATLIST+7~, STATLIST+9*, STATLIST+19, STATX+5, POSSSTAT~, POSSSTAT+4 |
| U | STATLIST+9, STATLIST+22, ANCSTAT+3, ANCSTAT+7, SELSTAT+25, AGAIN+8 |
| X | SELSTAT+9~ |
| Y | STATLIST+29, SELSTAT+9~, AGAIN+1 |