INHUTIL ;JSH; 6 Mar 96 13:04;Function library part 1 - VA version
Source file <INHUTIL.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CASECONV(STRING,CODE) | ;Returns STRING case converted according to CODE | |
| JUST(S,W,T,P) | ;returns string S in a field of width W | |
| TB(X) | ;Returns X with trailing spaces stripped | |
| NOCTRL(X) | ;Returns X with all control characters removed | |
| CENTER(S,L) | ;center text S in field of length L | |
| FORMAT(S,W,D) | ;Formats string S into an array referenced by D with a | |
| ACTV(BIT) | ;activate/inactivate all active messages in Script Generator ; Message file #4011 | |
| LB(X) | ;Returns X with leading spaces stripped | |
| ENV | ;Set up user environment | |
| DUP(C,L) | ;Returns a string of length L made by duplicating | |
| TRANS(%E) | ;input transform for reader | |
| LBTB(X) | ;Returns X with both leading and trailing spaces removed | |
| REPLACE(STRING,ST1,ST2) | ;Replace all occurrences of ST1 in STRING with ST2 | |
| NAME(NAME,F) | ;Returns NAME (in FileMan storage form LAST,FIRST MIDDLE) | |
| SOC(P1,P2,SOC,T) | ;Set of Codes front end to readers | |
| QS(GLB,SUB) | ; return subscript - temporary replacement for $QS ; Input: ; (r) GLB - Global node ; (r) SUB - Subscript of node | 
| Name | Field # of Occurrence | 
|---|---|
| ^DIC | TRANS+3, ENV+1 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^DIC(3 - [#3] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^%ZOSF("EOFF" | TRANS+4 | 
| ^%ZOSF("EON" | TRANS+2 | 
| ^INRHSITE(1 | ENV+2 | 
| ^INTHL7M - [#4011] | ACTV+9* | 
| ^INTHL7M("B" | ACTV+6, ACTV+8 | 
| ^UTILITY("UTSOC" | SOC+6!, SOC+7*, SOC+8*, SOC+9! | 
| Name | Line Occurrences | 
|---|---|
| $$LB | LBTB+1 | 
| $$TB | LBTB+1 | 
| @( | SOC+9 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | DUP+2~*, FORMAT+2~*, FORMAT+4, FORMAT+6*, QS+4~, QS+9*, QS+11* | 
| %1 | REPLACE+2~, REPLACE+3* | 
| %E | TRANS~, TRANS+2, TRANS+4 | 
| %F | NAME+2~* | 
| %L | NAME+2~* | 
| %M | NAME+2~* | 
| %N | NAME+2~, NAME+3*, NAME+4*, NAME+5*, NAME+6 | 
| %P | JUST+3~, JUST+4*, JUST+5 | 
| %S | REPLACE+2~*, REPLACE+3*, REPLACE+4 | 
| BIT | ACTV~, ACTV+9, ACTV+10, ACTV+11 | 
| C | DUP~, DUP+2 | 
| CODE | CASECONV~, CASECONV+3*, CASECONV+4, CASECONV+5 | 
| D | FORMAT~, FORMAT+2, FORMAT+4, FORMAT+6 | 
| DIC | SOC+4~, TRANS+3*, ENV+1* | 
| DIC(0 | TRANS+3*, ENV+1* | 
| DUZ | ENV+1* | 
| F | NAME~, NAME+3, NAME+4, NAME+5 | 
| GLB | QS~, QS+5*, QS+6, QS+7, QS+8*, QS+9, QS+10*, QS+11*, QS+12 | 
| I | SOC+4~, SOC+7*, SOC+8, LB+1~*, TB+1~*, NAME+2~, NAME+3*, NAME+4, NAME+5, DUP+2~ , FORMAT+2~, FORMAT+5*, FORMAT+6*, QS+4~ | 
| INI | ACTV+4~, ACTV+7*, ACTV+8*, ACTV+9 | 
| IOM | ACTV+10 | 
| J | SOC+4~, SOC+7* | 
| L | CENTER~, CENTER+1, DUP~, DUP+2 | 
| N | QS+4~, QS+10*, QS+11 | 
| NAME | NAME~, NAME+2 | 
| P | JUST~, JUST+4, QS+4~, QS+9* | 
| P01 | ACTV+4~, ACTV+5*, ACTV+6*, ACTV+8, ACTV+10, ACTV+11 | 
| P1 | SOC~, SOC+5* | 
| P2 | SOC~, SOC+8* | 
| P21 | SOC+4~, SOC+7*, SOC+8 | 
| PO | QS+4~, QS+9* | 
| S | CENTER~, CENTER+1*, DUP+2~*, FORMAT~, FORMAT+3, FORMAT+4*, FORMAT+5, FORMAT+6*, JUST~, JUST+4 , JUST+5, QS+4~, QS+9* | 
| S1 | FORMAT+2~ | 
| SOC | SOC~, SOC+7 | 
| ST1 | REPLACE~, REPLACE+3 | 
| ST2 | REPLACE~, REPLACE+3 | 
| STRING | CASECONV~, CASECONV+4, CASECONV+5, CASECONV+6, REPLACE~, REPLACE+3*, REPLACE+4 | 
| SUB | QS~, QS+5, QS+9, QS+10 | 
| T | SOC~, SOC+5, SOC+9, JUST~, JUST+5 | 
| U | SOC+7, TRANS+3, ACTV+9 | 
| W | FORMAT~, FORMAT+4, FORMAT+5, FORMAT+6, JUST~, JUST+4, JUST+5 | 
| X | SOC+4~, SOC+9, TRANS+2, TRANS+3!*, LB~, LB+1, TB~, TB+1, LBTB~, LBTB+1 , NOCTRL~, NOCTRL+2, QS+4~ | 
| X( | QS+5, QS+6*, QS+9*, QS+10 | 
| X(0 | QS+6*, QS+7* | 
| Y | SOC+4~, TRANS+3, LB+1~*, LB+2, TB+1~*, TB+2, ENV+1 |