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 |