LR7OFAO ;DALOI/JMC - Setup file 69 for AP orders ;02/17/17 15:58
Source file <LR7OFAO.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 |
|---|---|---|
| EN(LRODT,LRDFN,LRSAMP,LRORDR,LRNT,LRPRAC,LRLLOC,LRSDT,ORIFN,LRSPEC,LRSS,LRTST,LRUID,LRRECINF) | ; Called from LDSI^LRAPLG1
; LRODT=Order date ; LRDFN=Patient Lab ID ; LRSAMP=Sample ptr to 62 ; LRORDR=Collection type ; LRNT=d/t Ordered ; LRSDT=Start date ; ORIFN=OE/RR # ; LRSPEC=Specimen ptr to 61 ; LRSS=Test subscript ; LRTST=Ordered test ; LRUID=UID ; LRRECINF:<byref> Output Array that holds the record numbers created. |
|
| ZSN(LRSN,LRRECINF) | ;
; Create new LRSN entry for specimen ; Expects LRODT,LRDFN,LRAA,LRAD,LRAN ; Inputs ; LRSN: <byref><opt> Output only. See Outputs below. ; LRRECINF:<byref> See Outputs ; Outputs ; The LRSN array passed in byref is used to return the ; new LRSN value (record #) ; LRRECINF: Holds the IENs the API created. LRRECINF(69), LRRECINF(69.01), LRRECINF(69.03) |
|
| ERRMSG(LRARRAY,ARR2) | ;
; Filing error notification ; Inputs ; LRARRAY: <byref><opt> FM compliant message array ; ARR2: <byref><byval><opt> Additional text |
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | FIND^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LR - [#63] | ZSN+83*, ZSN+99, ZSN+162, ZSN+164 |
| ^LRO(68 - [#68] | ZSN+115 |
| ^LRO(69 - [#69] | EN+20, EN+21, ZSN+15, ZSN+40 |
| Name | Line Occurrences |
|---|---|
| ERRMSG | EN+33, ZSN+28, ZSN+78, ZSN+97, ZSN+110, ZSN+132, ZSN+153, ZSN+159 |
| ZSN | EN+36 |
| Name | Field # of Occurrence |
|---|---|
| ^( | ZSN+99 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARR2 | ERRMSG~, ERRMSG+9, ERRMSG+12 |
| ARR2( | ERRMSG+14 |
| >> DFN | ZSN+164* |
| DIERR | EN+15~, EN+18!, ZSN+12~, ZSN+50!, ZSN+59!, ZSN+89~, ZSN+124!, ZSN+140! |
| DUZ | ZSN+62, ZSN+73 |
| DUZ(2 | ZSN+75 |
| I | ERRMSG+6~, ERRMSG+13*, ERRMSG+14* |
| IEN | ZSN+12~, ZSN+23*, ZSN+24, ZSN+59!, ZSN+60*, ZSN+61, ZSN+62, ZSN+63, ZSN+64, ZSN+65 , ZSN+66, ZSN+67, ZSN+68, ZSN+69, ZSN+70, ZSN+71, ZSN+72, ZSN+73, ZSN+74, ZSN+75 , ZSN+89~, ZSN+92*, ZSN+93, ZSN+98~, ZSN+101!, ZSN+102*, ZSN+103, ZSN+104, ZSN+105, ZSN+106 , ZSN+124!, ZSN+125*, ZSN+126, ZSN+127, ZSN+128, ZSN+140!, ZSN+141*, ZSN+142, ZSN+143, ZSN+144 , ZSN+145, ZSN+146, ZSN+147, ZSN+149, ZSN+150 |
| IEN63 | ZSN+98~, ZSN+99*, ZSN+104 |
| II | ERRMSG+6~ |
| J | ERRMSG+6~, ERRMSG+10*, ERRMSG+11*, ERRMSG+12, ERRMSG+14* |
| >> LRAA | ZSN+115, ZSN+125, ZSN+145 |
| >> LRAD | ZSN+115, ZSN+125, ZSN+144 |
| >> LRAN | ZSN+115, ZSN+120, ZSN+125, ZSN+146 |
| >> LRAPLGX | ZSN+91, ZSN+98 |
| LRARRAY | ERRMSG~, ERRMSG+17 |
| LRDATA | ZSN+11~, ZSN+50! |
| LRDATA("DILIST" | ZSN+54, ZSN+55 |
| LRDFN | EN~, ZSN+24, ZSN+83, ZSN+99, ZSN+162, ZSN+164, ERRMSG+7 |
| LRFDA | EN+15~, ZSN+12~, ZSN+59!, ZSN+89~, ZSN+101!, ZSN+124!, ZSN+140! |
| LRFDA(1 | EN+31* |
| LRFDA(2 | ZSN+24* |
| LRFDA(3 | ZSN+61*, ZSN+62*, ZSN+63*, ZSN+64*, ZSN+65*, ZSN+66*, ZSN+67*, ZSN+68*, ZSN+69*, ZSN+70* , ZSN+71*, ZSN+72*, ZSN+73*, ZSN+74*, ZSN+75* |
| LRFDA(4 | ZSN+126*, ZSN+127*, ZSN+128* |
| LRFDA(5 | ZSN+93*, ZSN+103*, ZSN+104*, ZSN+105*, ZSN+106* |
| LRFDA(6 | ZSN+142*, ZSN+143*, ZSN+144*, ZSN+145*, ZSN+146*, ZSN+147*, ZSN+149*, ZSN+150* |
| LRFDAIEN | EN+15~, EN+18!, ZSN+12~, ZSN+59!, ZSN+124!, ZSN+140! |
| LRFDAIEN(1 | EN+30*, ZSN+31, ZSN+154 |
| >> LRIDT | ZSN+99 |
| LRIENLOC | EN+14~, ZSN+53*, ZSN+55*, ZSN+56, ZSN+69 |
| LRLCK1 | EN+14~, EN+20*, EN+22, EN+35, ZSN+11~, ZSN+15*, ZSN+16, ZSN+30, ZSN+40*, ZSN+41 , ZSN+167 |
| LRLCK2 | ZSN+11~, ZSN+115*, ZSN+116, ZSN+166 |
| LRLLOC | EN~, ZSN+49*, ZSN+52, ZSN+56*, ZSN+67, ZSN+83 |
| LRMSG | EN+15~, EN+18!, EN+33, ZSN+12~, ZSN+26, ZSN+28, ZSN+50!, ZSN+59!, ZSN+77, ZSN+78 , ZSN+89~, ZSN+95, ZSN+97, ZSN+98~, ZSN+108, ZSN+110, ZSN+124!, ZSN+130, ZSN+132, ZSN+140! , ZSN+153 |
| LRNODE | ZSN+98~, ZSN+99*, ZSN+100, ZSN+105, ZSN+106 |
| LRNT | EN~, ZSN+65 |
| LRODT | EN~, EN+20, EN+21, EN+30, EN+31, ZSN+15, ZSN+23, ZSN+40, ZSN+60, ZSN+92 , ZSN+102, ZSN+126, ZSN+141, ZSN+162, ZSN+165, ERRMSG+7 |
| >> LRORD | ZSN+61, ZSN+128 |
| LRORDR | EN~, ZSN+64 |
| >> LROUTINE | ZSN+143 |
| LRPRAC | EN~, ZSN+66 |
| LRQUIET | EN+14~, EN+16* |
| LRRECINF | EN~, EN+18!, EN+36, ZSN~ |
| LRRECINF( | ZSN+31*, ZSN+154* |
| LRRECINF(69 | EN+30* |
| LRSAMP | EN~, ZSN+63 |
| LRSDT | EN~, ZSN+68, ZSN+71 |
| LRSN | EN+14~, ZSN~, ZSN+13*, ZSN+31*, ZSN+33, ZSN+40, ZSN+44, ZSN+60, ZSN+92, ZSN+102 , ZSN+127, ZSN+141, ZSN+162, ZSN+165 |
| LRSPEC | EN~, ZSN+93, ZSN+98~, ZSN+100*, ZSN+103 |
| >> LRSRDT | ZSN+72 |
| LRSS | EN~, ZSN+99 |
| LRSTOP | EN+14~, EN+19*, EN+24*, EN+33*, EN+36, ZSN+11~, ZSN+14*, ZSN+27*, ZSN+32, ZSN+79* , ZSN+83, ZSN+85, ZSN+96*, ZSN+98, ZSN+99, ZSN+109*, ZSN+113, ZSN+118*, ZSN+131*, ZSN+139 , ZSN+156*, ZSN+162 |
| LRSUM | EN+14~ |
| LRTST | EN~, ZSN+142 |
| LRUID | EN~, ZSN+147 |
| MSG | EN+25~, EN+28, ZSN+18~, ZSN+21, ZSN+34~, ZSN+37, ZSN+43~, ZSN+46, ZSN+119~, ZSN+122 , ZSN+157~, ERRMSG+6~, ERRMSG+16 |
| MSG( | ERRMSG+12*, ERRMSG+14* |
| MSG(" " | ERRMSG+10, ERRMSG+14 |
| MSG(1 | EN+26*, ZSN+19*, ZSN+35*, ZSN+44*, ZSN+120*, ZSN+158*, ERRMSG+7* |
| MSG(2 | EN+27*, ZSN+20*, ZSN+36*, ZSN+45*, ZSN+121* |
| NATURE | ZSN+163~*, ZSN+165 |
| ORIFN | EN~, ZSN+70 |
| R6903 | ZSN+11~, ZSN+138*, ZSN+154*, ZSN+155 |
| U | ZSN+100, ZSN+105, ZSN+106, ZSN+162, ZSN+164 |
| X | EN+14~, EN+22*, EN+23, ZSN+11~, ZSN+16*, ZSN+17, ZSN+41*, ZSN+42, ZSN+54*, ZSN+55 , ZSN+116*, ZSN+117 |
| Y | EN+14~, ZSN+11~ |
