MCARAM ;WASH ISC/JKL-MUSE AUTO INSTRUMENT DATA LOAD INTO DHCP ;5/28/96 14:53
Source file <MCARAM.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
START | ; Driver for MUSE-run by task manager
; WHERE: LANM,TSK,MCINST,T are required for MCARASE ; LANM = routine name, T and TSK = auto instrument IEN, ; MCINST = auto instrument name ; MCL = data type line number, MCLT = data transmission line number ; MCD = one line of lab data, MCA = array of local data, ; MCE = internal record number of EKG file where data is stored ; MCRD = attempts to read lab data ; MCCD= current data transmission number ; MCPRO= EKG procedure number from Procedure/Subspecialty file |
|
READ | ||
IN | ||
DELPRO | ;delay process until record data is complete
|
|
DELP | ||
OUT | ||
RLAB(MCA,MCL,MCLT) | ; Read Lab data and place in local array
; USAGE: S X=$$RLAB^MCARAM(.A,.B,C) ; WHERE: .A=Array into which data is placed ; .B=Data type line number ; C=Data transmission line number |
|
TRAP | ;entry from MCARASE
|
|
ORPRM(MCPRO) | ;Get print name for ECG procedure
|
|
HSHAKE | ; MUSE dialog, called by LAB which executes HANDSHAKE fld of AI file
; Does checksum on MUSE input, sets OUT to ACK or NAK |
|
QUIT |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> BASE | HSHAKE+3, HSHAKE+5 |
>> IN | HSHAKE+2, HSHAKE+3, HSHAKE+4, HSHAKE+5 |
LANM | START+10~, START+12*, TRAP+3 |
MCA | START+10~, IN+11, IN+13!~, IN+16!~, RLAB~, RLAB+17 |
MCA("CONT" | READ*, RLAB+8*, RLAB+9*, RLAB+10*, RLAB+12*, RLAB+13* |
MCA("ERR" | START+18*, IN+3* |
MCCD | START+10~, READ*, READ+1*, IN+5*, IN+7*, IN+9*, IN+11, RLAB+8*, RLAB+9*, RLAB+10* , RLAB+11*, RLAB+12*, RLAB+15*, RLAB+17* |
MCCNT | START+10~, DELPRO+1*, DELP*, DELP+1! |
>> MCD | RLAB+7*, RLAB+8, RLAB+9, RLAB+10, RLAB+11, RLAB+12, RLAB+17 |
MCE | START+10~, IN+16!~ |
MCERR | START+10~, IN+1*, IN+11*, IN+13!~, IN+16*!~, RLAB+11*, RLAB+12*, RLAB+15, RLAB+17* |
MCI | HSHAKE+4~*, HSHAKE+6! |
MCINST | START+10~, START+15* |
MCL | START+10~, READ*, IN+11, RLAB~, RLAB+8*, RLAB+9*, RLAB+10*, RLAB+12*, RLAB+13*, RLAB+15 , RLAB+17 |
MCLT | START+10~, READ+1*, IN*, IN+1, IN+2, IN+5, IN+7, IN+9, IN+11, OUT* , RLAB~, RLAB+7, RLAB+8, RLAB+9, RLAB+10, RLAB+11, RLAB+12, RLAB+15, RLAB+17 |
>> MCOEON | ORPRM+4 |
MCPRNM | START+10~, START+22* |
MCPRO | START+10~, START+20*, START+22, ORPRM~, ORPRM+5 |
MCRD | START+10~, READ*, IN*, IN+1* |
MCREC | START+11~, IN+2*, IN+13!, IN+16! |
MCS | START+11~, IN+16!~ |
MCSM | HSHAKE+2!, HSHAKE+3!, HSHAKE+4*, HSHAKE+5! |
MCTOT | START+11~, DELP*, DELP+1! |
>> MCTR | RLAB+15* |
MCTYPE | START+11~, START+22* |
MCZ | START+11~, IN+2* |
>> OUT | OUT, HSHAKE+2*, HSHAKE+3*, HSHAKE+5* |
>> Q | OUT+1* |
T | START+10~, TRAP+1*, HSHAKE+3*, HSHAKE+5* |
>> TRAP | START+16 |
TSK | START+10~, START+12*, START+14, START+15, READ+1, IN, IN+1, IN+2, IN+5, IN+7 , IN+9, DELP, OUT, OUT+1, RLAB+7, TRAP+1, TRAP+2, QUIT, QUIT+1, QUIT+2 , QUIT+3 |
U | START+12*, START+15, TRAP+3, ORPRM+5 |
>> ZTQUEUED | QUIT+5 |
>> ZTREQ | QUIT+5* |
ZTSK | QUIT+5! |
Name | Field # of Occurrence |
---|---|
$T( | START+12 |