©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
MCARAM ;WASH ISC/JKL-MUSE AUTO INSTRUMENT DATA LOAD INTO DHCP ;5/28/96 14:53
Source file <MCARAM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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 |
|
| DELP | ||
| READ | ||
| HSHAKE | ; MUSE dialog, called by LAB which executes HANDSHAKE fld of AI file
; Does checksum on MUSE input, sets OUT to ACK or NAK |
|
| DELPRO | ;delay process until record data is complete
|
|
| QUIT | ||
| 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 |
|
| TRAP | ;entry from MCARASE
|
|
| IN | ||
| ORPRM(MCPRO) | ;Get print name for ECG procedure
|
|
| OUT |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LA( | START+14, READ+1, IN, IN+1*, IN+2, IN+5*, IN+7, IN+9, DELP, OUT , RLAB+7, TRAP+2*, QUIT, QUIT+1!, QUIT+2 |
| ^LA("LOCK" | TRAP+1!, QUIT+3! |
| ^LA("Q" | OUT+1 |
| ^LAB(62.4 - [#62.4] | START+12, START+15 |
| ^MCAR(697.2 - [#697.2] | START+20, ORPRM+5 |
| Name | Line Occurrences |
|---|---|
| $$ORPRM | START+22 |
| @( | TRAP+3 |
| DELP | DELP |
| DELPRO | START+24, IN+2 |
| IN | READ+2, IN, IN+5, IN+13, IN+17 |
| QUIT | READ+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | IN |
| ^("O" | OUT* |
| ^("Q" | OUT+1* |
| >> | 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 |