©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
INHD ; cmi/flag/maw - FRW,DGH,JSH 29 Aug 97 08:42 Interface Input Driver 07 Oct 91 6:44 AM ; [ 09/09/2004 1:23 PM ]
Source file <INHD.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 4 | ^%DT NOW^%DTC (,FILE)^DICN ^DIE |
| IHS Generic Interface System | 2 | (ENI,ENR)^INHE $$ERRMSG^INHU1 |
| Kernel | 1 | ($$ADDT,$$NOW)^%ZTFDT |
| Uncategorized | 1 | $$CDATF2H^UTDT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MESSID() | ;Function to return a unique Message ID
|
|
| FAILR | ;Creation of UIF entry by a receiver ( NEW ) failed
|
|
| ERRMES | ;Set up "creation failed" error message
|
|
| TIME | ;Get time to process. If STAT, set to 00000,00000
|
|
| SET(INH,IND,INU,INO,INPRIO) | ;Queue an entry into ^INLHSCH
|
|
| M1 | ||
| STORE | ;Store text in message file (INTHU)
|
|
| ERROR | ;Handle errors
|
|
| NEW(MID,DEST,SRC,G,ACK,DIR,%OUT,INMIDGEN) | ;Make a new entry from an outside program
|
|
| NEWO(DEST,G,ACK,TT,MID,%OUT,INORDUZ,INORDIV,INUIF6,INUIF7,INMIDGEN) | ;Make a new outgoing entry
|
|
| FAILO | ;Creation of UIF entry by NEWO failed
|
| FileNo | Call Tags |
|---|---|
| ^INTHU - [#4001] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("TRAP" | NEWO+27, NEW+15 |
| ^INLHDEST( | SET+20* |
| ^INLHSCH | SET+22* |
| ^INRHD - [#4005] | NEWO+29, SET+9, SET+12, TIME+9 |
| ^INRHD("B" | NEW+18 |
| ^INRHSITE(1 | M1 |
| ^INRHT - [#4000] | SET+16, TIME+11 |
| ^INTHL7M - [#4011] | STORE+11, STORE+14 |
| ^INTHOS(1 | ERROR+1 |
| ^INTHPC - [#4004] | FAILO+4 |
| ^INTHU - [#4001] | NEWO+36, NEWO+41*, NEWO+42*, NEWO+43*, NEWO+45*, NEWO+46*, NEWO+48, STORE+12*, STORE+13*, STORE+15* , STORE+16*, STORE+18*, STORE+19*, STORE+20*, NEW+25, NEW+31, SET+9 |
| ^INTHU("C" | NEWO+39, NEW+20, NEW+28, M1+1 |
| ^INTHU("MESSID" | MESSID+2, M1, M1+2 |
| Name | Line Occurrences |
|---|---|
| $$MESSID | NEW+21 |
| ERRMES | FAILR+2, FAILO+2 |
| FAILO | NEWO+35 |
| FAILR | NEW+17, NEW+19, NEW+20, NEW+24 |
| M1 | M1+1 |
| SET | STORE+21 |
| STORE | NEWO+47, NEW+30 |
| TIME | STORE+21 |
| Name | Field # of Occurrence |
|---|---|
| ^("MESSID" | M1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | NEWO+33, TIME+16~, TIME+18* |
| %DT | TIME+20~* |
| %OUT | NEWO~, NEWO+39, STORE+21, NEW~, NEW+28 |
| ACK | NEWO~, NEWO+28, NEWO+39, NEW~, NEW+17, NEW+28 |
| >> BHLMIEN | STORE+11, STORE+14, STORE+17 |
| C | NEWO+30~, STORE+9~, STORE+12*, STORE+13*, STORE+15*, STORE+16*, STORE+18*, STORE+19*, STORE+20 |
| DA | NEWO+30~, NEWO+36*, NEWO+41, NEWO+42, NEWO+43, NEWO+45, NEWO+46, NEWO+48, NEWO+49, STORE+12 , STORE+13, STORE+15, STORE+16, STORE+18, STORE+19, STORE+20, STORE+21, NEW+16~, NEW+25*, NEW+31 , NEW+32, SET+10~, SET+18* |
| DD | NEWO+30~, NEWO+34!, NEW+16~ |
| DEST | NEWO~, NEWO+28, NEWO+29, NEWO+39, STORE+21, NEW~, NEW+17, NEW+18*, NEW+19, NEW+28 , ERRMES+2, ERROR+2, TIME+9 |
| DIC | NEWO+30~, NEWO+34*, NEW+16~, NEW+23* |
| DIC(0 | NEWO+34*, NEW+23* |
| DIE | NEWO+30~, NEWO+40*, NEW+16~, NEW+29*, SET+10~, SET+18* |
| DIR | NEW~, NEW+22*, NEW+28 |
| DLAYGO | NEWO+30~, NEWO+34*, NEW+16~, NEW+23* |
| DO | NEWO+30~, NEWO+34!, NEW+16~ |
| DR | NEWO+30~, NEWO+40*, NEW+16~, NEW+29*, SET+10~, SET+18* |
| ERROR | FAILR+1~, FAILR+3, FAILO+1~, FAILO+10 |
| ERROR(1 | ERRMES+1* |
| ERROR(2 | ERRMES+2* |
| ERROR(3 | ERRMES+2* |
| ERROR(4 | ERRMES+2* |
| ERROR(5 | ERRMES+2* |
| G | NEWO~, NEWO+28, NEWO+39, STORE+12, STORE+13, STORE+15, STORE+16, STORE+18, STORE+19, NEW~ , NEW+17, NEW+28, ERRMES+2 |
| H | NEWO+30~, SET+10~, SET+13*, SET+14 |
| I | NEWO+30~, STORE+9~, STORE+12*, STORE+13, STORE+15*, STORE+16, STORE+18*, STORE+19 |
| >> INA("DMISID" | NEWO+45 |
| >> INA("MSGTYPE" | NEWO+46 |
| INBNZ | FAILO+1~, FAILO+4* |
| >> INBPN | FAILO+4, FAILO+10 |
| INBZ | FAILO+1~, FAILO+4* |
| IND | SET~, SET+9, SET+12, SET+20 |
| >> INDA | NEWO+42 |
| INDELQ | SET+10~, SET+12*, SET+20 |
| INDEST | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| INDIR | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| ING | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| INH | SET~, SET+13, SET+14*, SET+18, SET+20, SET+22 |
| INHNOW | NEWO+30~, NEWO+33*, NEWO+34 |
| INMID | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| INMIDGEN | NEWO~, NEWO+38*, NEWO+39, NEW~, NEW+27*, NEW+28 |
| INNEACK | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| INNEOUT | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| INO | SET~, SET+9 |
| INORDIV | NEWO~ |
| INORDUZ | NEWO~ |
| INORGIEN | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| INP | SET+10~, SET+17*, SET+18, SET+20, SET+22 |
| INPRIO | SET~, SET+17 |
| INSRC | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| INTT | NEWO+37~, NEWO+39*, NEW+26~, NEW+28* |
| INU | SET~, SET+9, SET+18, SET+20, SET+22 |
| INUIF6 | NEWO~, NEWO+41, NEWO+42 |
| INUIF7 | NEWO~, NEWO+43, NEWO+44 |
| J | STORE+9~, STORE+13*, STORE+16*, STORE+19* |
| MID | NEWO~, NEWO+39, NEW~, NEW+17, NEW+19, NEW+20, NEW+21*, NEW+28, ERRMES+2 |
| P | TIME+16~ |
| P( | TIME+18* |
| P("D" | TIME+19 |
| P("H" | TIME+19 |
| P("M" | TIME+19 |
| P("S" | TIME+19 |
| SRC | NEWO+30~, NEW~, NEW+17, NEW+28, ERRMES+2 |
| T | TIME+16~*, TIME+18 |
| TIME | NEWO+30~, STORE+21, NEW+16~, TIME+10*, TIME+12*, TIME+13*, TIME+20*, TIME+21* |
| TT | NEWO~, NEWO+28, NEWO+39, NEW+16~, ERROR+2, SET+16, TIME+9*, TIME+10, TIME+11 |
| TT0 | SET+10~, SET+16*, SET+17 |
| TTP | TIME+7~, TIME+11*, TIME+12, TIME+13, TIME+15, TIME+16, TIME+19*, TIME+20 |
| U | STORE+11, STORE+14, FAILO+4, M1, SET+12, SET+17, TIME+9, TIME+11 |
| X | NEWO+27*, NEWO+30~, NEWO+34*, NEW+15*, NEW+16~, NEW+23*, MESSID+1~, M1*, SET+10~, TIME+20~* |
| Y | NEWO+30~, NEWO+35, NEWO+36, NEW+16~, NEW+24, NEW+25, MESSID+1~, M1*, M1+1, M1+3 , SET+10~, TIME+20~ |