©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
INHVCRA1 ;KAC,JKB ; 7 Mar 96 14:11; Application Server (ApS) Cont'd
Source file <INHVCRA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPEN(INCHNL,INMEM,INADDR,INPORT,INIP) | ; open a TCP socket
; Input : INCHNL (req) = will return channel of created socket or error ; msg if open fails, PBR ; INMEM ( ? ) = ?? - may be unnecessary, PBR ; INADDR (opt) = IP address of remote server to connect to as a ; client, or null to open as a server; if null, ; and PBR, will return address of client that ; connects ; INPORT (req) = IP port to open (client or server) ; INIP (req) = array of backround proc params, PBR ; also requires INBPN ; Output: void |
|
| RECEIVE(INV,INCHNL,INIP,INERR,INMEM) | ; read socket
; Input : INV (req) = location to store message, PBR ; INCHNL (req) = socket ; INIP (req) = array of backround proc params, PBR ; INERR (opt) = error array, PBR ; INMEM ( ? ) = ?? - may be unnecessary, PBR ; also requires INBPN,U ; Output: 0=ok, 1=no response, 2=failure during receive, 3=fatal err ; init vars |
|
| DEBUG(L) | ; set debug params for a BACKGROUND PROCESS
; Input : L (opt) = debug level; "" = look it up (def), 0 = turn it ; off, positive integer = set it ; also expects INBPN ; Output: void ; INDEBUG = Debug Level ; INDEBUGD = Log Location ; if debug level input is null, look it up |
|
| LOG(MSG,TYP,ACK) | ; log BACKGROUND PROCESS activity and errors
; Input : MSG (req) = status/error/debug message; status msg must be a ; string, error/debug msg can be a string (PBV) or ; an array of strings (PBR) ; TYP (opt) = msg type: S=status(def), E=error, or integer ; corresponding to level of a debug msg ; ACK (opt) = boolean flag; set true only when logging a ; positive ack (sets piece 3 of run node = $H) ; INBPN,U (req) ; INDEBUG,INDEBUGD,INHSRVR (opt) ; Output: void ; INDEBUG,INDEBUGD if not set coming in ; if debug on, will write to debug log (file, device or global) ; Local : ENUM = INTERFACE ERROR ptr ; T = timestamp ; SRVR = server number or 0 if not a multiple background proc |
|
| LOGLOCI | ; LOG LOCATION input transform (4004,9.02)
|
|
| LOGLOCO | ; LOG LOCATION output transform (4004,9.02)
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | LOGLOCO+1, DEBUG+17 |
| ^INRHB("RUN" | LOG+30*, LOG+31* |
| ^INRHSITE(1 | RECEIVE+11 |
| ^INTHPC - [#4004] | DEBUG+8, DEBUG+13 |
| ^UTILITY("INDEBUG" | LOG+23 |
| ^UTILITY("INREC" | RECEIVE+37! |
| Name | Line Occurrences |
|---|---|
| DEBUG | LOG+16 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LOG+24*, LOG+30*, LOG+31* |
| ^($J | RECEIVE+37* |
| ^(0 | RECEIVE+11, LOGLOCO+1, DEBUG+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACK | LOG~, LOG+30, LOG+31 |
| AP | RECEIVE+9~, RECEIVE+10*, RECEIVE+38*, RECEIVE+42 |
| APREC | RECEIVE+9~, RECEIVE+10*, RECEIVE+14, RECEIVE+27, RECEIVE+29, RECEIVE+31*, RECEIVE+33*, RECEIVE+35, RECEIVE+38 |
| APREC(0 | RECEIVE+16, RECEIVE+18, RECEIVE+20!, RECEIVE+40 |
| ENUM | LOG+28~ |
| I | LOG+23~*, LOG+24* |
| INADDR | OPEN~, OPEN+13 |
| >> INBPN | OPEN+13, RECEIVE+23, LOG+23, LOG+25, LOG+28, LOG+30, LOG+31, DEBUG+8, DEBUG+13 |
| INCHNL | OPEN~, OPEN+13, OPEN+14*, RECEIVE~, RECEIVE+14, RECEIVE+29 |
| >> INDEBUG | LOG+16, LOG+19, DEBUG+8*, DEBUG+10 |
| INDEBUGD | LOG+22, LOG+25, DEBUG+11!, DEBUG+13*, DEBUG+15*, DEBUG+17*, DEBUG+19, DEBUG+20* |
| INDONE | RECEIVE+9~, RECEIVE+10*, RECEIVE+13, RECEIVE+18*, RECEIVE+31* |
| INERR | RECEIVE~, RECEIVE+40*, RECEIVE+42*, RECEIVE+44* |
| >> INHSRVR | LOG+17 |
| INI | OPEN+12~, OPEN+13* |
| INIP | OPEN~, RECEIVE~ |
| INIP("OHNG" | OPEN+13 |
| INIP("OTRY" | OPEN+13 |
| INIP("RHNG" | RECEIVE+23, RECEIVE+24 |
| INIP("RTO" | RECEIVE+14, RECEIVE+24 |
| INIP("TMAX" | RECEIVE+25 |
| INMEM | OPEN~, OPEN+13, RECEIVE~ |
| INORESP | RECEIVE+9~, RECEIVE+10*, RECEIVE+13, RECEIVE+23, RECEIVE+25*, RECEIVE+44 |
| INPORT | OPEN~, OPEN+13 |
| INREC | RECEIVE+9~, RECEIVE+10*, RECEIVE+37*, RECEIVE+38, RECEIVE+46 |
| INSMIN | RECEIVE+9~, RECEIVE+11*, RECEIVE+37 |
| INSTOP | OPEN+12~, OPEN+13, OPEN+14 |
| INTTOT | RECEIVE+9~, RECEIVE+10*, RECEIVE+24*, RECEIVE+25 |
| INULRD | RECEIVE+9~, RECEIVE+10*, RECEIVE+21*, RECEIVE+38* |
| INV | RECEIVE~ |
| IO | DEBUG+20 |
| >> IOP | DEBUG+19* |
| J | LOG+21~*, LOG+24*, LOG+25* |
| L | DEBUG~, DEBUG+8 |
| MSG | LOG~, LOG+20, LOG+28*, LOG+30, LOG+31 |
| MSG( | LOG+24, LOG+25 |
| MSG(1 | LOG+20* |
| >> POP | DEBUG+19 |
| REC | RECEIVE+9~ |
| SRVR | LOG+17~*, LOG+23, LOG+25, LOG+30 |
| T | LOG+21~*, LOG+24, LOG+25 |
| TYP | LOG~, LOG+17*, LOG+19, LOG+26, LOG+28 |
| U | RECEIVE+11, LOGLOCI+4, LOGLOCO+1, LOG+24, LOG+25, LOG+30, LOG+31, DEBUG+8, DEBUG+13, DEBUG+17 |
| X | RECEIVE+29~*, LOGLOCI+1*, LOGLOCI+2!, LOGLOCI+3, LOGLOCI+4* |
| >> Y | LOGLOCI+4, LOGLOCO+1* |