©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
INHOU ;JSH,DP; 09 Nov 1999 11:21 ;Output Driver utilities
Source file <INHOU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETNEXT | ; Get next entry from UIF
|
|
| CK1 | ;
; Quit if last record encountered. |
|
| MC | ;Mark as complete (need INH MESSAGE EDIT key to do this)
|
|
| GQ | ||
| GET(%U,%I) | ;Get a line from message - internal call
|
|
| EDIT | ;Edit a message in an ERROR state
|
|
| GETLINE(%U,%L,%D,%I,%C) | ;Function which returns the next line from a UIF entry
|
|
| REQ | ;Reque an Entry for processing
|
|
| GL(%U,%L) | ;Function which returns first 250 characters of the next line from a UIF entry
|
|
| REQ1 | ;Reque an Entry for processing
|
|
| VERIFY() | ;Function returns a 1 if OUTPUT CONTROLLER is running, 0 otherwise
|
|
| QTSK | ;Display currently queued entries
|
|
| EDIT1 | ||
| DONE | ; If no valid seg found and end of entries or next valid entry is
; located, log error if missing required. Indicate next valid UIF entry ; (or set to last entry in file if no valid remaining entries), and ; Q 0 (no further processing in current loop) |
|
| NOL(UIF) | ;Function to return the number of lines for Entry #UIF
|
|
| UPDATE(%U,%S,%M) | ||
| CHECKSEG(INSEG,INREQ,INLVL) | ; Validate segs for required and unexpected
|
|
| NEXT(%D) | ;Function to return next UIF entry queued
|
|
| GQ2 |
| Name | Field # of Occurrence |
|---|---|
| ^DIC | EDIT+3 |
| ^DIE | UPDATE+12 |
| $$VER^INHB | VERIFY+1 |
| ENT^INHE | UPDATE+14 |
| $$GL^INHOU | CHECKSEG+47 |
| GET^INHOU | GETNEXT+1 |
| REQ^INHOU1 | REQ+5 |
| REQ1^INHOU1 | REQ1+5 |
| QTSK^INHOU3 | QTSK+1 |
| MC^INHOU4 | MC+1 |
| ERROR^INHS | DONE+4 |
| EDIT^INHT | EDIT+7 |
| ULOG^INHU | UPDATE+11 |
| $$NOW^UTDT | UPDATE+12 |
| $$YN^UTSRD | EDIT1+3 |
| FileNo | Call Tags |
|---|---|
| ^INTHU - [#4001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^INLHSCH | UPDATE+17! |
| ^INLHSCH("DEST" | NEXT+3, NEXT+4, UPDATE+16! |
| ^INRHD - [#4005] | EDIT+5 |
| ^INTHU - [#4001] | GETLINE+9, GETLINE+11, GETLINE+13, GET+7, GET+9, GET+11, GL+4, GL+5, NOL+1, NOL+2 , EDIT1+2*, UPDATE+9, UPDATE+13 |
| Name | Line Occurrences |
|---|---|
| CK1 | CHECKSEG+53, CHECKSEG+56 |
| DONE | CHECKSEG+53, CHECKSEG+56 |
| EDIT1 | EDIT+5 |
| GETNEXT | CHECKSEG+56 |
| GQ | GETLINE+11, GETLINE+12 |
| GQ2 | GET+9, GET+10 |
| REQ1 | EDIT1+3 |
| Name | Field # of Occurrence |
|---|---|
| ^("ED" | EDIT+5 |
| ^(0 | GETLINE+12, GETLINE+13, GET+10, GET+11, NOL+2, EDIT1+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NOL+1~, NOL+2*, NOL+3 |
| %C | GETLINE~, GQ* |
| %D | GETLINE~, GETLINE+7!, GETLINE+12*, NEXT~, NEXT+2, NEXT+3, NEXT+4 |
| %D( | GETLINE+13*! |
| %I | GETLINE~, GQ, GET~, GQ2 |
| %L | GETLINE~, GETLINE+8, GETLINE+10, GQ*, GL~, GL+3, GL+5 |
| %M | UPDATE~, UPDATE+11, UPDATE+14 |
| %S | UPDATE~, UPDATE+8, UPDATE+11, UPDATE+14, UPDATE+15 |
| %U | GETLINE~, GETLINE+8, GETLINE+9, GETLINE+11, GETLINE+13, GET~, GET+7, GET+9, GET+11, GL~ , GL+3, GL+4, GL+5, UPDATE~, UPDATE+8, UPDATE+9, UPDATE+11, UPDATE+12, UPDATE+13, UPDATE+14 , UPDATE+16, UPDATE+17 |
| >> CNT | GQ2* |
| DA | EDIT+7*, UPDATE+10~, UPDATE+12* |
| >> DATA | CHECKSEG+40, CHECKSEG+42, CHECKSEG+47*, CHECKSEG+52, CK1+6* |
| DDSAVE | EDIT+1~ |
| DDSPARM | EDIT+1~, EDIT+6* |
| >> DDSSAVE | EDIT1 |
| >> DELIM | CHECKSEG+40, CHECKSEG+52, GETNEXT+3 |
| DES | EDIT+1~, EDIT+4*, EDIT+5 |
| DEST | UPDATE+10~, UPDATE+13*, UPDATE+14, UPDATE+16 |
| DIC | EDIT+1~, EDIT+2* |
| DIC("A" | EDIT+2* |
| DIC(0 | EDIT+2* |
| DIE | EDIT+7*, UPDATE+10~, UPDATE+12* |
| DR | UPDATE+10~, UPDATE+12* |
| DUZ | EDIT1+2 |
| DWFILE | EDIT+1~, EDIT+5*, EDIT1 |
| H | UPDATE+10~, UPDATE+16*, UPDATE+17 |
| I | GETLINE+10~, GETLINE+13*, GETLINE+14, GET+8~, GET+11*, GET+12, NOL+1~, NOL+2* |
| INCURSEG | CHECKSEG+33~, CHECKSEG+52*, CK1+4, CK1+6, CK1+9, CK1+14, CK1+19, GETNEXT+3* |
| INDATA | CHECKSEG+33~, CK1+6, GETNEXT+1*, GETNEXT+2, GETNEXT+3 |
| >> INDEFSEG( | CK1+9, CK1+14, CK1+19 |
| INDONE | CHECKSEG+33~, CHECKSEG+44*, CHECKSEG+53, CHECKSEG+56, CHECKSEG+57, CK1+2, CK1+4*, CK1+19*, GETNEXT+2* |
| INILCT | CHECKSEG+33~, CHECKSEG+44* |
| INLOW | CHECKSEG+33~, CHECKSEG+44*, DONE+5, CK1+14*, GETNEXT+2 |
| INLVL | CHECKSEG~, CK1+14, CK1+19 |
| INMATCH | CHECKSEG+33~, CHECKSEG+44*, CHECKSEG+53, CHECKSEG+56, CHECKSEG+58, CK1+6* |
| INREQ | CHECKSEG~, CHECKSEG+40, CHECKSEG+42, CHECKSEG+47, CHECKSEG+57, DONE+4 |
| INSEG | CHECKSEG~, CHECKSEG+40, DONE+4, CK1+6 |
| INY | EDIT+1~, EDIT+3*, EDIT+7, EDIT1+2, EDIT1+3 |
| L | GETLINE+10~*, GETLINE+11*, GETLINE+13, GETLINE+14*, GQ, GET+8~*, GET+9*, GET+11, GET+12*, GQ2 , GL+5~*, GL+6*, GL+7 |
| >> LCT | GET+8, GQ2*, CHECKSEG+44*, CHECKSEG+47, CHECKSEG+57*, DONE+5*, CK1+14, GETNEXT+2* |
| LINE | GET+7!, GET+10*, GETNEXT+1 |
| LINE( | GET+11*! |
| P | NEXT+2~, NEXT+3*, NEXT+4 |
| PRIO | EDIT+1~, EDIT1+2*, UPDATE+10~, UPDATE+13*, UPDATE+16, UPDATE+17 |
| U | EDIT+4, EDIT1+2, UPDATE+13 |
| UIF | NOL~, NOL+1, NOL+2, CHECKSEG+47, GETNEXT+1 |
| X | NOL+1~, NOL+2*, VERIFY+1~*, EDIT1+3* |
| >> Y | EDIT+3*, EDIT1+3* |
| >> Y(0 | EDIT+4 |