INHUTC2 ;bar; 29 May 97 14:50; Interface Criteria Internal Utilities (DD)
Source file <INHUTC2.m>
Package | Total | Call Graph |
---|---|---|
IHS Generic Interface System | 4 | ($$LOCK,$$RUN)^INHUTC $$WORKREC^INHUTC1 $$RELDT^INHUTC2 $$RELDT^INHUTC21 |
Name | Comments | DBIA/ICR reference |
---|---|---|
RDTGET | ; update a WindowMan Screen while editing, PART 1
; assumes being called from WindowMan and those variables are defined ; Called before RDTSET to setup the proper values |
|
TYPE(INTYPE,INSRCH) | ; validate CRITERIA TYPE field
; called from input transform file 4001.1, field .05 ; also used in criteria mgmt functions |
|
TASK | ; this tag is the entry point when called thru taskman
; input: INOPT array as described at the top of INHUTC, required. |
|
RELDT(INSTR,INFMT,INPMT) | ; convert a relative date text string to FM
|
|
SPACEBAR(X) | ; return x for spacebar in lookup
; called from PRELK node for file 4001.1, also used in criteria mgmt ; functions. INOPT array must be defined in env. |
|
AUSER(INDA,INDUZ,INTYPE,INCTRL,INAPP,INFUNC,INDEL) | ; manage AUSER x-ref
|
|
RDTSET | ; update a WindowMan Screen while editing, PART 2
; assumes being called from WindowMan and those variables are defined ; RDTGET must be called first and on a separate line in a POST field |
|
RELDATE(INCRITDA) | ; update relative date for start and end date
|
|
CLRLK(INOPT,INDA) | ; clear all accumulated locks
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIZ(4001.1 - [#4001.1] | AUSER+12, AUSER+14, AUSER+16, AUSER+18, AUSER+20, AUSER+23!, AUSER+28*, RELDATE+5, RELDATE+6*, RELDATE+7* , RELDATE+9*, RELDATE+10* |
Name | Line Occurrences |
---|---|
AUSER | AUSER+27 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | CLRLK+11*, TASK+2* |
>> DIC("S" | SPACEBAR+10* |
>> DIPA("AUENDTR" | RDTSET+7 |
>> DIPA("AUSTDTR" | RDTSET+6 |
>> DIPA("ENDTR" | RDTSET+5 |
>> DIPA("STDTR" | RDTSET+4 |
>> DWDIPA( | RDTGET+5*, RDTGET+7* |
>> DWSFLD( | RDTSET+5*, RDTSET+6*, RDTSET+7* |
>> DWSFLD(1 | RDTSET+4* |
H | CLRLK+6~, CLRLK+8*, CLRLK+9*, CLRLK+11 |
I | CLRLK+6~, CLRLK+11* |
INAE | RELDATE+3~, RELDATE+5*, RELDATE+10 |
INAPP | AUSER~, AUSER+18*, AUSER+23, AUSER+27, AUSER+28 |
INAS | RELDATE+3~, RELDATE+5*, RELDATE+9 |
INCRITDA | RELDATE~, RELDATE+2, RELDATE+5, RELDATE+6, RELDATE+7, RELDATE+9, RELDATE+10 |
INCTRL | AUSER~, AUSER+16*, AUSER+23, AUSER+27, AUSER+28 |
INDA | CLRLK~, CLRLK+9, AUSER~, AUSER+10, AUSER+12, AUSER+14, AUSER+16, AUSER+18, AUSER+20, AUSER+23 , AUSER+27, AUSER+28 |
INDEL | AUSER~, AUSER+22 |
INDUZ | AUSER~, AUSER+12*, AUSER+23, AUSER+27, AUSER+28 |
INE | RELDATE+3~, RELDATE+5*, RELDATE+7 |
INFMT | RELDT~, RELDT+5*, RELDT+7*, RELDT+9*, RELDT+10 |
INFUNC | AUSER~, AUSER+20*, AUSER+23, AUSER+27, AUSER+28 |
INNULL | AUSER+11~*, AUSER+13*, AUSER+15*, AUSER+17*, AUSER+19*, AUSER+21*, AUSER+26~ |
INOPT | CLRLK~, TASK+2, SPACEBAR+7, SPACEBAR+8 |
INOPT("LOCK" | CLRLK+7, CLRLK+8, CLRLK+9*, CLRLK+10! |
INPMT | RELDT~, RELDT+10 |
INS | RELDATE+3~, RELDATE+5*, RELDATE+6 |
INSRCH | TYPE~, TYPE+10 |
INSTR | RELDT~, RELDT+10 |
INTYPE | AUSER~, AUSER+14*, AUSER+23, AUSER+27, AUSER+28, TYPE~, TYPE+9, TYPE+10, TYPE+11 |
INY | SPACEBAR+8~*, SPACEBAR+10* |
U | AUSER+12, AUSER+14, AUSER+16, AUSER+18, AUSER+20, TYPE+10, TYPE+11, RELDATE+5, RELDATE+9, RELDATE+10 |
X | SPACEBAR~, SPACEBAR+7, SPACEBAR+11 |
Y | CLRLK+6~, CLRLK+7*, CLRLK+8, CLRLK+9, CLRLK+10, CLRLK+11 |