BLRRLU ;cmi/anch/maw - BLR Reference Lab Utilities ; 02-Nov-2015 13:43 ; MAW
Source file <BLRRLU.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 7 | ^%DT (C,NOW)^%DTC ^DIC FILE^DICN ^DIE (,ENALL)^DIK ^DIR |
Kernel | 2 | ($$DEL,$$LIST)^%ZISH ($$FMTE,$$HL7TFM)^XLFDT |
IHS Changes To Lab | 1 | JOB^BLRPARAM |
IHS Support HL7 Interfaces | 1 | COMPILE^BHLU |
Name | Comments | DBIA/ICR reference |
---|---|---|
COPY(RL) | ;-- copy existing BLRRL settings to BLRSITE
|
|
PRG(PSK) | ;-- purge entries before this date
|
|
XREF | ;-- reindex the UPIN index if not existent
|
|
QPASK | ;-- queueable pask
|
|
EMC | ;-- edit the master control file
|
|
LOG(FNM,TYP,USER) | ||
NOW() | ;-- get now
|
|
SITE | ;EP - setup the site parameters in BLR MASTER CONTROL
|
|
PURGESM | ;-- purge the shipping manifest over time
|
|
PORD | ;-- purge the BLR REFERENCE LAB ORDER ACCESSION file
|
|
PURGE | ; EP -- purge entries in storage directory
|
|
PASK() | ;-- ask the purge date
|
|
BLST(DT,DAYS) | ;-- return day to purge by
|
|
PURGELSM(START) | ;-- purge the ledi shipping manifest over time
|
|
BEFORE(PD,PS) | ;-- is the accession before the purge date
|
|
HOLD | ;-- hold or release labs to pcc
|
|
LOGM(FNM,ENT) |
Name | Field # of Occurrence |
---|---|
^%DT | PASK+3 |
C^%DTC | PURGESM+11, BLST+1 |
NOW^%DTC | NOW+1 |
$$DEL^%ZISH | PURGE+33 |
$$LIST^%ZISH | PURGE+21 |
COMPILE^BHLU | SITE+41 |
JOB^BLRPARAM | HOLD+5 |
^DIC | SITE+5, SITE+21, EMC+4 |
FILE^DICN | SITE+36, LOG+11, LOGM+8, LOGM+15 |
^DIE | SITE+17, SITE+24, SITE+39, EMC+7, HOLD+3, LOG+4 |
^DIK | PURGE+19, PURGESM+18, PURGELSM+10, PRG+6 |
ENALL^DIK | XREF+4 |
^DIR | PURGESM+6 |
$$FMTE^XLFDT | PURGE+11 |
$$HL7TFM^XLFDT | PURGELSM+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^INTHL7M - [#4011] | Classic Fileman Calls |
^LAHM(62.48 - [#62.48] | Classic Fileman Calls |
^LAHM(62.8 - [#62.8] | Classic Fileman Calls |
^BLRRL - [#9009026] | Classic Fileman Calls |
^BLRRLG - [#9009026.1] | Classic Fileman Calls |
^BLRSHPM - [#9009026.2] | Classic Fileman Calls |
^BLRRLO - [#9009026.3] | Classic Fileman Calls |
^BLRSITE - [#9009029] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BLRRL - [#9009026] | SITE+8, HOLD+4, PURGE+4, PURGE+5, PURGE+8 |
^BLRRLG - [#9009026.1] | PURGE+18 |
^BLRRLG("B" | LOG+1, LOG+2, LOGM+1 |
^BLRRLG("BDT" | PURGE+14, PURGE+16 |
^BLRRLO("ACC" | PRG+2, PRG+3 |
^BLRSHPM - [#9009026.2] | PURGESM+15, PURGESM+16, PURGESM+17 |
^BLRSITE - [#9009029] | SITE+12, COPY+1, HOLD+1, PURGE+1, PURGESM+13 |
^DD(62.48 | SITE+33 |
^DD(9009026.1 | LOGM+7, LOGM+14 |
^INTHL7M - [#4011] | SITE+34 |
^INTHL7M("B" | SITE+14 |
^LAHM(62.48 - [#62.48] | SITE+27, SITE+29 |
^LAHM(62.8 - [#62.8] | PURGELSM+2, PURGELSM+6, PURGELSM+8, PURGELSM+9 |
^LRO(68 - [#68] | BEFORE+2, BEFORE+6 |
^VA(200 - [#200] | XREF+1 |
Name | Line Occurrences |
---|---|
$$BEFORE | PRG+4 |
$$BLST | PURGE+10, QPASK+2 |
$$NOW | LOG+3, LOG+9 |
$$PASK | PORD+2 |
COPY | SITE+12 |
PRG | PORD+4, QPASK+3 |
PURGELSM | PURGESM+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | NOW+2 |
%DT | PASK+1!, PASK+2* |
%DT("A" | PASK+2* |
AA | BEFORE+1~, BEFORE+3*, BEFORE+6 |
AD | BEFORE+1~, BEFORE+4*, BEFORE+6 |
AN | BEFORE+1~, BEFORE+5*, BEFORE+6 |
>> BLRCDA | PURGE+12*, PURGE+14*, PURGE+16 |
>> BLRCIEN | PURGE+15*, PURGE+16*, PURGE+18, PURGE+19 |
BLRDA | PURGELSM+1~, PURGELSM+2*, PURGELSM+3, PURGELSM+6 |
BLRDAYS | PURGE+8*, PURGESM+1~, PURGESM+2, PURGESM+8*, PURGESM+9*, PURGESM+10 |
>> BLRDMSG | PURGE+33* |
BLREXP | COPY+3~ |
>> BLRFDA | PURGE+25*, PURGE+26 |
>> BLRFILES | PURGE+21 |
>> BLRFILES( | PURGE+18*, PURGE+25, PURGE+26 |
>> BLRFILES("" | PURGE+22 |
>> BLRFLST | PURGE+21* |
>> BLRFNM | PURGE+26*, PURGE+28, PURGE+33, PURGE+35 |
>> BLRHM | SITE+29*, SITE+30, SITE+31, SITE+38 |
>> BLRHOLD | HOLD+4* |
BLRIDT | PURGELSM+1~, PURGELSM+3*, PURGELSM+4*, PURGELSM+5 |
BLRIEN | PURGELSM+1~, PURGELSM+6*, PURGELSM+8, PURGELSM+9, PURGELSM+10 |
>> BLRLDA | LOGM+10*, LOGM+13 |
>> BLRLGI | LOG+1, LOG+2*, LOG+3, LOGM+1*, LOGM+2, LOGM+5, LOGM+12 |
>> BLRLLGI | LOGM+3, LOGM+9*, LOGM+16*, LOGM+17 |
>> BLRMSG | SITE+14*, SITE+15, SITE+16, SITE+34, SITE+41 |
BLRPRG | PURGELSM+1~, PURGELSM+7*, PURGELSM+8*, PURGELSM+9*, PURGELSM+10 |
>> BLRRID | SITE+34*, SITE+35 |
>> BLRRL | SITE+6*, SITE+7, SITE+8, SITE+12, SITE+23, HOLD+1*, HOLD+2, HOLD+4, PURGE+1*, PURGE+2 , PURGE+4, PURGE+5, PURGE+8 |
BLRRLDA | PURGESM+14~, PURGESM+15*, PURGESM+16, PURGESM+17, PURGESM+18 |
>> BLRRLE | SITE+8*, SITE+14, SITE+27, SITE+29 |
>> BLRSDIR | PURGE+4*, PURGE+6, PURGE+21, PURGE+28, PURGE+33 |
>> BLRSFL | PURGE+5*, PURGE+21 |
BLRST | PURGELSM+1~ |
BLRSTART | PURGESM+1~, PURGESM+12*, PURGESM+13, PURGESM+16, PURGESM+17 |
>> BLRT | PURGE+10*, PURGE+14 |
>> BLRTE | PURGE+11*, PURGE+13, PURGE+20 |
>> BLSDAYS | PURGE+9*, PURGE+10 |
>> BLST | PURGE+11 |
DA | SITE+11!, SITE+16*, SITE+18!, SITE+23*, SITE+25!, SITE+38*, EMC+1!, EMC+6*, EMC+8!, HOLD+2* , PURGE+19*, PURGESM+18*, PURGELSM+10*, LOG+3*, PORD+5!, PRG+6*, QPASK+4! |
DA(1 | SITE+31*, SITE+32, LOGM+5*, LOGM+6, LOGM+12*, LOGM+13 |
DAYS | BLST~, BLST+1 |
DD | SITE+28!, LOG+7!, LOGM+4!, LOGM+11! |
DIC | SITE+3*, SITE+11!, SITE+19*, SITE+23, SITE+25!, SITE+28!, SITE+32*, EMC+2*, EMC+6, EMC+8! , LOG+7!, LOG+8*, LOG+12!, LOGM+4!, LOGM+6*, LOGM+11!, LOGM+13* |
DIC("A" | SITE+4*, SITE+20*, EMC+3* |
DIC("DR" | LOG+9* |
DIC("P" | SITE+33*, LOGM+7*, LOGM+14* |
DIC(0 | SITE+3*, SITE+19*, SITE+32*, EMC+2*, LOG+8*, LOGM+6*, LOGM+13* |
DIE | SITE+11!, SITE+16*, SITE+18!, SITE+23*, SITE+25!, SITE+38*, EMC+1!, EMC+6*, EMC+8!, HOLD+2* , LOG+3*, LOG+5! |
DIK | PURGE+19*, PURGESM+18*, PURGELSM+10*, XREF+3*, PORD+5!, PRG+6*, QPASK+4! |
DIK(1 | XREF+3* |
DIR | PURGESM+3! |
DIR("A" | PURGESM+4* |
DIR("B" | PURGESM+5* |
DIR(0 | PURGESM+4* |
>> DIRUT | PURGESM+7 |
DO | SITE+28!, LOG+7!, LOGM+4!, LOGM+11! |
DR | SITE+11!, SITE+16*, SITE+18!, SITE+23*, SITE+25!, SITE+38*, EMC+1!, EMC+6*, EMC+8!, HOLD+2* , LOG+3* |
DT | PURGE+10, PURGESM+10, BLST~, BLST+1, QPASK+2 |
DUZ(2 | SITE+12, COPY+1, HOLD+1, PURGE+1, PURGESM+13 |
ENT | LOGM~, LOGM+3, LOGM+6 |
ENT( | LOGM+10 |
ENT("" | LOGM+3 |
FNM | LOG~, LOG+1, LOG+2, LOG+10, LOGM~, LOGM+1 |
OD | BEFORE+1~, BEFORE+6*, BEFORE+7 |
PASK | PORD+1~, PORD+2*, PORD+3, PORD+4, QPASK+1~, QPASK+2*, QPASK+3 |
PD | BEFORE~, BEFORE+2 |
PDA | PRG+1~, PRG+2*, PRG+3, PRG+4 |
PIEN | PRG+1~, PRG+3*, PRG+6 |
PS | BEFORE~, BEFORE+7 |
PSK | PRG~, PRG+4 |
RL | COPY~ |
RT | BEFORE+1~, BEFORE+2*, BEFORE+3, BEFORE+4, BEFORE+5 |
START | PURGELSM~, PURGELSM+5 |
TYP | LOG~, LOG+9 |
U | SITE+8, SITE+33, SITE+34, COPY+1, HOLD+1, HOLD+4, PURGE+1, PURGE+4, PURGE+5, PURGE+8 , PURGE+18, PURGESM+13, PURGESM+16, PURGESM+17, PURGELSM+8, PURGELSM+9, LOGM+7, LOGM+14, BEFORE+6 |
USER | LOG~, LOG+3, LOG+9 |
>> X | SITE+35*, PURGESM+12, LOG+10*, LOGM+6*, LOGM+13*, BLST+2 |
>> X1 | PURGESM+10*, BLST+1* |
>> X2 | PURGESM+10*, BLST+1* |
Y | SITE+6, SITE+22, SITE+23, SITE+37, EMC+5, EMC+6, PURGESM+7!, PURGESM+8, LOG+13, LOGM+9 , LOGM+16, PASK+4, PASK+5 |
>> ZTQUEUED | PURGE+2, PURGE+6, PURGE+23, PURGE+27, PURGE+34, PURGESM+2, PRG+5 |