©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
BLRMANP2 ; IHS/MSC/MKK - Multiple Accession Not Performed utility, part 2 ; 22-Apr-2016 15:12 ; MKK
Source file <BLRMANP2.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To Lab | 7 | ^BLREVTQ EEP^BLRGMENU XTMPISET^BLRMANPU $$RELAHMID^BLRRLMUU (STORTXNS,XTMPNSET)^BLRRLTDU $$ISPIMS^BLRUTIL MAILALMI^BLRUTIL3 |
| Lab Service | 7 | NEW^LR7OB1 $$VER^LR7OU1 DC^LRCENDE1 ^LRPARAM END^LRTSTJAM XREF^LRVER3A PT^LRX |
| Kernel | 3 | ($$FMTE,$$NOW)^XLFDT $$TRIM^XLFSTR DUZ^XUP |
| VA Fileman | 2 | (,UPDATE)^DIE $$GET1^DIQ |
| Automated Lab Instruments | 1 | EN^LA7ADL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM) | ; EP
|
|
| NOTPERF(UID,CANCLRSN) | ; EP - Not Performed
|
|
| USELAHG(UID) | ; EP - Use the LAH global. If successful, quit with "OK"
|
|
| EEP | ; Ersatz EP
|
|
| LMIMAIL(UID,CANCLRSN) | ; EP - E-mail LMI Mail Group with Ref Lab Cancellations
|
|
| ADDSPCON(UID) | ; EP - Add the SPECIMEN CONDITION from the SPM segment, if it exists
|
|
| GETNTEC(MSG,ARRAY) | ; EP - Stuff ARRAY with NTE comments from message
|
|
| SET | ; EP
|
|
| ROL | ; EP
|
|
| CHG(LRAA,LRAD,LRAN) | ; EP - Have LRACN,LRUID,LRDFN,LRSS,LRIDT and CANCLRSN
|
|
| FX1 | ; EP
|
|
| FX3 | ; EP
; S (LRCCOM,LRCCOMX)="*NP Reason:Reference Lab Rejected Test." |
|
| FX2 | ; EP
|
|
| LREND | ; EP
|
|
| LRACC | ; EP
|
|
| 631 | ; EP
|
|
| END | ; EP
|
|
| FIX | ; EP
|
|
| UNLOCK | ; EP
|
|
| GETSPMC(MSG,ARRAY) | ; EP - Stuff ARRAY with SPM comments from message
|
|
| COMPDATE(LRAA,LRAD,LRAN) | ; EP - Put Completed Date on Accession
|
|
| CLNPENDG | ;Remove pending from Lab test when set to not performed
|
|
| EXIT | ; EP
|
|
| ADDCOMNT(LRDFN,LRIDT,MSG) | ; EP - Add the Ref Lab comments from the NTE segments to file 63
|
| Name | Field # of Occurrence |
|---|---|
| ^BLREVTQ | CHG+16 |
| EEP^BLRGMENU | EEP+1 |
| XTMPISET^BLRMANPU | NOTPERF+9, FIX+6, FIX+8, FIX+16, FIX+18, CHG+6, LRACC+7 |
| $$RELAHMID^BLRRLMUU | ADDSPCON+5 |
| STORTXNS^BLRRLTDU | SET+19 |
| XTMPNSET^BLRRLTDU | SET+18 |
| $$ISPIMS^BLRUTIL | END+4 |
| MAILALMI^BLRUTIL3 | LMIMAIL+16 |
| ^DIE | 63+19, 631+7 |
| UPDATE^DIE | COMPDATE+8, ADDCOMNT+10 |
| $$GET1^DIQ | NOTPERF+13, NOTPERF+15, NOTPERF+16, LMIMAIL+3, LMIMAIL+9, FX1+4, 63+11, ADDSPCON+20, ADDSPCON+22, ADDSPCON+23 , USELAHG+3, USELAHG+9 |
| EN^LA7ADL | SET+25 |
| NEW^LR7OB1 | SET+12 |
| $$VER^LR7OU1 | SET+13 |
| DC^LRCENDE1 | SET+13 |
| ^LRPARAM | NOTPERF+3 |
| END^LRTSTJAM | END+5 |
| XREF^LRVER3A | SET+24 |
| PT^LRX | FIX+14 |
| $$FMTE^XLFDT | SET+10, 63+9, 63+12, 63+15 |
| $$NOW^XLFDT | COMPDATE+6, FIX+1, SET+1, 63+5 |
| $$TRIM^XLFSTR | GETNTEC+10, GETSPMC+10 |
| DUZ^XUP | LMIMAIL+6 |
| FileNo | Call Tags |
|---|---|
| ^LAB(60 - [#60] | GET1^DIQ |
| ^LAB(62.4 - [#62.4] | GET1^DIQ |
| ^LRO(68 - [#68] | GET1^DIQ |
| 68.02 | GET1^DIQ |
| 68.04 | GET1^DIQ |
| ^BLRSITE - [#9009029] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | CHG+10, CLNPENDG+2 |
| ^LAB(62.4 - [#62.4] | USELAHG+6 |
| ^LAH( | USELAHG+12, USELAHG+14 |
| ^LAHM(62.49 - [#62.49] | GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC+4, GETSPMC+5, GETSPMC+7, ADDSPCON+9, ADDSPCON+10, ADDSPCON+14 |
| ^LR - [#63] | FIX+12, FIX+16, FIX+18, SET+22, UNLOCK+1, CLNPENDG+4*, ADDCOMNT+7, ADDSPCON+25*, ADDSPCON+26*, USELAHG+21* |
| ^LRO(68 - [#68] | NOTPERF+6, LMIMAIL+8, FIX+6, FIX+8, FIX+10, FIX+16, FX1+3, CHG+13, SET+17, SET+18 , SET+19, SET+20, SET+21, SET+24, SET+25, ROL+1, ROL+2*, LRACC+4, LRACC+6, UNLOCK+1 , ADDSPCON+19 |
| ^LRO(69 - [#69] | CHG+6, SET+2, SET+5, SET+6, SET+7*, SET+8, SET+9*, SET+10*, SET+11*, SET+14* , SET+15* |
| Name | Line Occurrences |
|---|---|
| $$GETNTEC | ADDCOMNT+3 |
| $$USELAHG | ADDSPCON+3 |
| 63 | SET+23 |
| @( | END+4 |
| ADDSPCON | 63+21 |
| CHG | FX1+5 |
| CLNPENDG | CHG+13 |
| COMPDATE | NOTPERF+27 |
| END | NOTPERF+25, CHG+6, UNLOCK+2 |
| FIX | NOTPERF+24 |
| FX2 | CHG+8 |
| LRACC | FIX+2 |
| ROL | SET+20, SET+21 |
| SET | CHG+13 |
| UNLOCK | FIX+18, CHG+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FIX+10, SET+5 |
| ^(0 | FIX+12, CHG+11, SET+5, SET+6, SET+8, SET+14*, SET+17* |
| ^(4 | SET+17, ROL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARRAY | GETNTEC~, GETSPMC~ |
| ARRAY( | GETNTEC+15*, GETSPMC+15* |
| ARRAYL | ADDCOMNT+1~, ADDCOMNT+3*, ADDCOMNT+4, ADDCOMNT+6 |
| AUTOIEN | ADDSPCON+1~, USELAHG+1~, USELAHG+6*, USELAHG+7, USELAHG+9 |
| AUTOINSP | ADDSPCON+1~ |
| BLRATCNT | FX1+1~, FX1+2*, FX1+5* |
| >> BLRLOG | NOTPERF+4*, CHG+16 |
| BLRLRAT | FX1+1~, FX1+2*, FX1+3*, FX1+4, FX1+5 |
| >> BLROPT | NOTPERF+18*, CHG+16 |
| CANCELDT | COMPDATE+1~, COMPDATE+6*, COMPDATE+7 |
| CANCLRSN | NOTPERF~, NOTPERF+1, LMIMAIL~, LMIMAIL+14, FX3+2 |
| CL | ADDCOMNT+1~, ADDCOMNT+6*, ADDCOMNT+8 |
| COMARRAY | ADDCOMNT+1~, ADDCOMNT+3 |
| COMARRAY( | ADDCOMNT+8 |
| COML | GETNTEC+1~, GETNTEC+3*, GETNTEC+14*, GETNTEC+15, GETNTEC+18, GETSPMC+1~, GETSPMC+3*, GETSPMC+14*, GETSPMC+15, GETSPMC+18 |
| COMLS | GETNTEC+1~, GETNTEC+10*, GETNTEC+12, GETNTEC+15, GETNTEC+16, GETSPMC+1~, GETSPMC+10*, GETSPMC+12, GETSPMC+15, GETSPMC+16 |
| COMLS( | GETNTEC+12, GETNTEC+16*, GETSPMC+12, GETSPMC+16* |
| CONDSPEC | ADDSPCON+16*, ADDSPCON+17, ADDSPCON+25, USELAHG+1~, USELAHG+18*, USELAHG+19, USELAHG+21 |
| D0 | 63+1~, 631+1! |
| D1 | 63+1~, 631+1! |
| DA | 63+1~, 63+17*, 631+1!, 631+3* |
| DA(1 | LRACC+6*, 63+17*, 631+3* |
| DA(2 | LRACC+6* |
| >> DFN | FIX+12* |
| DI | END+2! |
| DIC | CHG+2!, 63+1~, 631+1!, 631+3* |
| DIC(0 | 63+4*, 631+2* |
| DIE | 63+1~, 63+17*, 631+1!, 631+3* |
| >> DILOCKTM | NOTPERF+1 |
| DIR | END+2! |
| >> DISYS | NOTPERF+1 |
| DLAYGO | 63+1~, 63+4* |
| DR | 63+1~, 63+19*, 631+1!, 631+6* |
| DT | NOTPERF+1, SET+11, SET+24 |
| DTIME | NOTPERF+1 |
| DUZ | NOTPERF+1, LMIMAIL+5~, SET+7, SET+14, SET+15, SET+17, ROL+2, 63+9, 63+12, 63+15 |
| DUZ(2 | LMIMAIL+3, USELAHG+3 |
| ERRS | COMPDATE+1~ |
| >> F60IEN | FX1+4*, FX1+5 |
| FDA | COMPDATE+1~, COMPDATE+5!, ADDCOMNT+1~ |
| FDA( | COMPDATE+7*, ADDCOMNT+8* |
| FOUNDIT | ADDSPCON+1~, ADDSPCON+8*, ADDSPCON+9, ADDSPCON+10*, ADDSPCON+12, ADDSPCON+14 |
| HRCN | END+6! |
| IEN | NOTPERF+14*, NOTPERF+15, NOTPERF+16, COMPDATE+1~, COMPDATE+3*, COMPDATE+7, ADDSPCON+1~, ADDSPCON+21*, ADDSPCON+22, ADDSPCON+23 , USELAHG+12*, USELAHG+14 |
| IENS | ADDCOMNT+1~ |
| IENS(1 | ADDCOMNT+7* |
| II | SET+3~, SET+5!, SET+12 |
| II( | SET+5* |
| INST | ADDSPCON+1~ |
| INSTUID | ADDSPCON+1~ |
| IO | NOTPERF+1 |
| >> IOBS | NOTPERF+1 |
| IOF | NOTPERF+1 |
| IOM | NOTPERF+1 |
| ION | NOTPERF+1 |
| >> IOS | NOTPERF+1 |
| IOSL | NOTPERF+1 |
| IOST | NOTPERF+1 |
| >> IOT | NOTPERF+1 |
| >> IOXY | NOTPERF+1 |
| LA7INST | ADDSPCON+1~, USELAHG+1~, USELAHG+3*, USELAHG+4, USELAHG+6 |
| LOADWORK | ADDSPCON+1~, USELAHG+1~, USELAHG+9*, USELAHG+12, USELAHG+14 |
| LRAA | NOTPERF+6*, NOTPERF+9, NOTPERF+11, NOTPERF+13, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8*, LMIMAIL+9 , FIX+6, FIX+8, FIX+10, FIX+16, FX1+3, FX1+4, FX1+5, CHG~, CHG+13, CHG+16 , SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25, ROL+1, ROL+2, LRACC+3 , LRACC+4, LRACC+6, UNLOCK+1, ADDSPCON+19*, ADDSPCON+20, ADDSPCON+21 |
| LRACC | FIX+2*, FIX+4! |
| LRACN | FIX+10*, EXIT+1!, END+2! |
| LRACN0 | END+2! |
| LRAD | NOTPERF+6*, NOTPERF+9, NOTPERF+11, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8*, LMIMAIL+9, FIX+6 , FIX+8, FIX+10, FIX+16, FX1+3, FX1+4, FX1+5, CHG~, CHG+13, CHG+16, SET+17 , SET+18, SET+19, SET+20, SET+21, SET+24, SET+25, LRACC+6, UNLOCK+1, ADDSPCON+19*, ADDSPCON+21 |
| LRAGE | END+2! |
| LRAN | NOTPERF+6*, NOTPERF+9, NOTPERF+11, NOTPERF+14, COMPDATE~, COMPDATE+3, LMIMAIL+1~, LMIMAIL+8*, LMIMAIL+9, FIX+4 , FIX+6, FIX+8, FIX+10, FIX+16, FX1+3, FX1+4, FX1+5, CHG~, CHG+13, CHG+16 , SET+17, SET+18, SET+19, SET+20, SET+21, SET+24, SET+25, ROL+1, ROL+2, LRACC+3 , LRACC+7*, UNLOCK+1, ADDSPCON+19*, ADDSPCON+21 |
| LRAS | LMIMAIL+1~, LMIMAIL+9*, LMIMAIL+13, LMIMAIL+16 |
| LRCCOM | CHG+2!, CHG+5*, SET+9, SET+22, SET+23, FX3+2*, 63~, 631+4*, 631+5*, 631+6 |
| LRCCOM0 | END+1!, 63+1~, 63+12*, 63+15*, 63+18*, 63+19 |
| LRCCOM1 | END+1! |
| LRCCOMX | END+1!, FX3+2* |
| LRCOM | END+2! |
| LRCTST | CHG+2!, CHG+18!, END+2! |
| >> LRDBUG | SET+4 |
| LRDFN | NOTPERF+15*, FIX+11*, FIX+12, FIX+16, FIX+18, SET+22, SET+23, ROL+1, UNLOCK+1, 63~ , 63+17, 631+3, CLNPENDG+4, ADDCOMNT~, ADDCOMNT+7, ADDCOMNT+8, ADDSPCON+22*, ADDSPCON+25, ADDSPCON+26, USELAHG+21 |
| LRDOC | END+2! |
| >> LRDPF | FIX+12* |
| LREND | NOTPERF+23*, FIX+1*, FIX+4*, CHG+5*, CHG+6*, CHG+8, CHG+18*, LRACC+1*, LREND+1*, END+1! , FX2+1* |
| LREXMPT | LRACC+1*! |
| LRI | SET+3~, SET+5*, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11, SET+14, SET+15 , END+1! |
| LRIDT | NOTPERF+16*, FIX+16*, FIX+18, SET+22, SET+23, UNLOCK+1, 63~, 63+17, 631+3, CLNPENDG+4 , ADDCOMNT~, ADDCOMNT+7, ADDCOMNT+8, ADDSPCON+23*, ADDSPCON+25, ADDSPCON+26, USELAHG+21 |
| LRIFN | CHG+3~, CLNPENDG+1~, CLNPENDG+2*, CLNPENDG+3, CLNPENDG+4 |
| LRL | END+1!, FX2+2* |
| LRLABRV | EXIT+1! |
| LRLL | END+2! |
| >> LRLLOC | SET+2* |
| LRMSTATI | SET+12, END+1! |
| LRNATURE | FIX+4!, SET+9, SET+12, END+1! |
| LRNOECHO | EXIT+1!, FX2+7!, 63+1~, 63+6* |
| LRNOP | NOTPERF+23*, FIX+1*, FIX+2, FIX+6*, FIX+8*, FIX+16*, FIX+18*, LRACC+7*, END+1! |
| LRNOW | FIX+1*, SET+1*, SET+10, SET+17, ROL+2, EXIT+1!, END+2!, 63+5*, 63+9, 63+12 , 63+15 |
| LROD0 | END+3! |
| LROD1 | END+3! |
| LROD3 | END+3! |
| >> LRODT | FIX+11*, CHG+6, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12, SET+14, SET+15 |
| LROOS | END+3! |
| LRORDTST | CHG+13*, END+1! |
| LROS | END+3! |
| LROSD | END+3! |
| LROT | END+3! |
| LROWDT | SET+20*, SET+21*, ROL+1, ROL+2, END+1! |
| LRPRAC | END+1! |
| LRROD | END+3! |
| LRSCN | END+1!, FX2+8*, FX2+10* |
| LRSCNX | EXIT+1! |
| LRSCNXB | NOTPERF+22!, FX2+7!, FX2+10* |
| >> LRSN | FIX+11*, CHG+6, SET+2, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10, SET+11 , SET+12, SET+14, SET+15 |
| LRSS | NOTPERF+13*, FIX+16, FIX+18, SET+22, SET+23, LRACC+6*, LRACC+7, UNLOCK+1, 63~, 63+17 , 63+23, 631+3, CLNPENDG+4, ADDSPCON+20*, ADDSPCON+25, ADDSPCON+26, USELAHG+21 |
| LRSTATUS | SET+3~, SET+5*, SET+12 |
| LRTNM | CHG+11*, SET+23, 63~, 63+9, 63+15 |
| LRTSTS | FX1+4*, CHG+10, CHG+13, SET+5, SET+17, SET+18, SET+19, ROL+1, ROL+2, END+1! , 63+11, CLNPENDG+2 |
| LRTT | END+3! |
| LRUID | FIX+10*, END+1! |
| >> LRX | FIX+10*, FIX+11 |
| LRXX | NOTPERF+22!, END+2! |
| MSG | ADDCOMNT~, ADDCOMNT+3, GETNTEC~, GETNTEC+4, GETNTEC+5, GETNTEC+7, GETSPMC~, GETSPMC+4, GETSPMC+5, GETSPMC+7 |
| MSGARRAY | LMIMAIL+1~, LMIMAIL+16 |
| MSGARRAY(1 | LMIMAIL+12* |
| MSGARRAY(2 | LMIMAIL+12* |
| MSGARRAY(3 | LMIMAIL+13* |
| MSGARRAY(4 | LMIMAIL+13* |
| MSGARRAY(5 | LMIMAIL+14* |
| MSGARRAY(6 | LMIMAIL+14* |
| OCXTRACE | SET+3~, SET+4* |
| ORIFN | SET+6*, SET+12, SET+13, SET+16! |
| ORSTS | SET+16! |
| >> PIEN | ADDSPCON+5*, ADDSPCON+6, ADDSPCON+9, ADDSPCON+10, ADDSPCON+14, ADDSPCON+26 |
| PRNTNAM | 63+2~, 63+11*, 63+12 |
| Q9 | END+2! |
| REFLAB | LMIMAIL+1~, LMIMAIL+3*, LMIMAIL+12 |
| >> SAVLRAA | NOTPERF+11*, NOTPERF+27 |
| >> SAVLRAD | NOTPERF+11*, NOTPERF+27 |
| >> SAVLRAN | NOTPERF+11*, NOTPERF+27 |
| SEG | ADDCOMNT+1~, GETNTEC+1~, GETNTEC+3*, GETNTEC+4*, GETNTEC+5, GETNTEC+7, GETSPMC+1~, GETSPMC+3*, GETSPMC+4*, GETSPMC+5 , GETSPMC+7 |
| SEGCNT | ADDSPCON+1~, ADDSPCON+8*, ADDSPCON+9*, ADDSPCON+10 |
| STR | ADDCOMNT+1~, GETNTEC+1~, GETNTEC+7*, GETNTEC+8, GETNTEC+10, GETSPMC+1~, GETSPMC+7*, GETSPMC+8, GETSPMC+10, ADDSPCON+14* , ADDSPCON+16, USELAHG+14*, USELAHG+18 |
| TAB | LMIMAIL+1~, LMIMAIL+11*, LMIMAIL+12, LMIMAIL+13, LMIMAIL+14 |
| >> TESTDESC | NOTPERF+1 |
| TMPSTR | 63+2~, 63+9*, 63+10, 63+15 |
| U | NOTPERF+1, FIX+6, FIX+10, FIX+11, FIX+12, FIX+16, CHG+11, CHG+13, SET+2, SET+6 , SET+7, SET+8, SET+9, SET+14, SET+17, SET+20, ROL+2, LRACC+6, CLNPENDG+2, CLNPENDG+4 |
| UID | NOTPERF~, NOTPERF+1, NOTPERF+6, NOTPERF+9, LMIMAIL~, LMIMAIL+8, 63+21, ADDSPCON~, ADDSPCON+3, ADDSPCON+5 , ADDSPCON+19, USELAHG~, USELAHG+12 |
| X | NOTPERF+6*, LMIMAIL+8*, SET+3~, SET+8*, SET+9*, SET+10, SET+11, FX2+5*, 63+1~, ADDSPCON+19* |
| X(1 | SET+8*, SET+9*, SET+11 |
| X4 | END+3! |
| >> XPARSYS | NOTPERF+1 |
| >> XQXFLG | NOTPERF+1 |
| Y | FX2+5*, FX2+10, 63+1~ |
| Y(0 | FX2+5*, FX2+10 |