Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRRLU

Package: IHS Changes To Lab

Routine: BLRRLU


Information

BLRRLU ;cmi/anch/maw - BLR Reference Lab Utilities ; 02-Nov-2015 13:43 ; MAW

Source Information

Source file <BLRRLU.m>

Call Graph

Call Graph Total: 11

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Changes To Lab 2 BLRRLMP  BLRRLXP  

Entry Points

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)

External References

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Now setting up reference lab parameters.."
  • Line Location: SITE+2
Function Call: WRITE
  • Prompt: !!,"Now setting up GIS HL7 Message Parameters.."
  • Line Location: SITE+13
Function Call: WRITE
  • Prompt: !!,"Now setting up Lab HL7 Message Parameter File.."
  • Line Location: SITE+26
Function Call: WRITE
  • Prompt: !!,"Error creating entry in LAHM(62.48"
  • Line Location: SITE+30
Function Call: WRITE
  • Prompt: !!,"Error creating entry in LAHM(62.48"
  • Line Location: SITE+37
Function Call: WRITE
  • Prompt: !!,"Now activating Reference Lab Interface.."
  • Line Location: SITE+40
Function Call: WRITE
  • Prompt: !,"Now copying existing settings in BLR REFERENCE LAB file to each division in the BLR MASTER CONTROL FILE"
  • Line Location: COPY+2
Function Call: WRITE
  • Prompt: !!,"No reference lab defined in BLR MASTER CONTROL file"
  • Line Location: PURGE+3
Function Call: WRITE
  • Prompt: !!,"No storage directory to remove files from"
  • Line Location: PURGE+7
Function Call: WRITE
  • Prompt: !,"Now cleaning up import/export log file entries older than "_BLRTE
  • Line Location: PURGE+13
Function Call: WRITE
  • Prompt: "."
  • Line Location: PURGE+17
Function Call: WRITE
  • Prompt: !!,"Now cleaning up host files older than "_BLRTE
  • Line Location: PURGE+20
Function Call: WRITE
  • Prompt: !!,"No host files to remove"
  • Line Location: PURGE+24
Function Call: WRITE
  • Prompt: !,"Removing export file "_BLRFNM_" in directory "_BLRSDIR
  • Line Location: PURGE+28
Function Call: WRITE
  • Prompt: !,"File "_BLRFNM_" removed"
  • Line Location: PURGE+35
Function Call: WRITE
  • Prompt: !,"Reindexing UPIN cross reference, stand by..."
  • Line Location: XREF+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: PRG+5
Routine Call
  • DIE
  • Line Location:
    • SITE+17
    • SITE+24
    • SITE+39
    • EMC+7
    • HOLD+3
    • LOG+4
Routine Call
  • DIC
  • Line Location:
    • SITE+5
    • SITE+21
    • EMC+4
Routine Call
  • DIR
  • Line Location:
    • PURGESM+6

FileMan Files Accessed Via FileMan Db 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

Global Variables Directly Accessed

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

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All