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>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STATSCRN() | ; Function returns DD Status Screen for Status Field .07:
|
|
| 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. |
|
| STOKX | ||
| 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 |
|
| STATX | ||
| ANCSTAT(FILEDA,PFILEDA) | ; Function returns 1 if any Ancestor is Inactive [or has no status];
|
|
| ANCSX | ||
| POSSSTAT(TYPE) | ; Function returns permissible Statuses for Type
; Permissible Statuses is string subset of ITA: (Inactive, Test, Active) ; Requires internal Type e.g. CL |
|
| 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 |
|
| AGAIN | ||
| SELSX | ||
| 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 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
