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 |  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: BLRRPOST

Package: IHS Changes To Lab

Routine: BLRRPOST


Information

BLRRPOST ; cmi/anch/maw - BLR Reference Lab Post Init ; [ 03/13/06 ]

Source Information

Source file <BLRRPOST.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 3 ^DIC  FILE^DICN  ^DIE  
IHS Support HL7 Interfaces 1 COMPILE^BHLU  
IHS VA Utilities 1 EN^XBVK  

Entry Points

Name Comments DBIA/ICR reference
UPIN ;-- create UPIN cross reference
CUSER ;-- create a lab technician user for the interface
EOJ ;-- kill variables and quit
SITE ;EP - setup the site parameters in BLR MASTER CONTROL
MAIN ;PEP - Main Routine Driver
SETLA7 ;-- setup the LA7 Message Parameter File

External References

Name Field # of Occurrence
COMPILE^BHLU SITE+45
^DIC SITE+6, SITE+25
FILE^DICN SITE+40, SETLA7+9, CUSER+6
^DIE SITE+11, SITE+19, SITE+21, SITE+28, SITE+43
EN^XBVK EOJ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Now setting up reference lab parameters.."
  • Line Location: SITE+3
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+30
Function Call: WRITE
  • Prompt: !!,"Error creating entry in LAHM(62.48"
  • Line Location: SITE+34
Function Call: WRITE
  • Prompt: !!,"Error creating entry in LAHM(62.48"
  • Line Location: SITE+41
Function Call: WRITE
  • Prompt: !!,"Now activating Reference Lab Interface.."
  • Line Location: SITE+44
Function Call: WRITE
  • Prompt: !,"Now creating TECHNICIAN,LAB for filing data..."
  • Line Location: CUSER+1
Routine Call
  • DIE
  • Line Location:
    • SITE+11
    • SITE+19
    • SITE+21
    • SITE+28
    • SITE+43
Routine Call
  • DIC
  • Line Location:
    • SITE+6
    • SITE+25

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
^BLRRL - [#9009026] Classic Fileman Calls
^BLRSITE - [#9009029] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOFF" EOJ+1
^%ZOSF("EON" SITE+2
^BLRRL - [#9009026] SITE+9, SETLA7+1, SETLA7+3
^DD(62.48 SITE+37
^INTHL7M - [#4011] SITE+38
^INTHL7M("B" SITE+14, SITE+16
^LAHM(62.48 - [#62.48] SITE+31, SITE+33, SETLA7+5
^VA(200 - [#200] CUSER+2

Label References

Name Line Occurrences
CUSER MAIN+3
EOJ MAIN+5
SETLA7 MAIN+1
SITE MAIN+2
UPIN MAIN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BLRDA SETLA7+1*, SETLA7+3
>> BLRHM SITE+33*, SITE+34, SITE+35, SITE+42
>> BLRMSG SITE+14*, SITE+15, SITE+18, SITE+38, SITE+45
>> BLRMSGI SITE+16*, SITE+17, SITE+20, SITE+45
>> BLRPIN SETLA7+4*, SETLA7+8
>> BLRRF SETLA7+3*, SETLA7+4, SETLA7+5, SETLA7+7
>> BLRRID SITE+38*, SITE+39
>> BLRRL SITE+7*, SITE+8, SITE+9, SITE+10, SITE+27
>> BLRRLE SITE+9*, SITE+14, SITE+16, SITE+31, SITE+33
>> BLRY SITE+45*
DA SITE+10*, SITE+12!, SITE+18*, SITE+20*, SITE+22!, SITE+27*, SITE+29!, SITE+42*
DA(1 SITE+35*, SITE+36
DD SITE+32!, SETLA7+2!, CUSER+3!
DIC SITE+4*, SITE+10, SITE+12!, SITE+23*, SITE+27, SITE+29!, SITE+32!, SITE+36*, SETLA7+2!, SETLA7+6*
, CUSER+4*, CUSER+7!
DIC("A" SITE+5*, SITE+24*
DIC("DR" SETLA7+8*, CUSER+5*
DIC("P" SITE+37*
DIC(0 SITE+4*, SITE+23*, SITE+36*, SETLA7+6*, CUSER+4*
DIE SITE+10*, SITE+12!, SITE+18*, SITE+22!, SITE+27*, SITE+29!, SITE+42*
DO SITE+32!, SETLA7+2!, CUSER+3!
DR SITE+10*, SITE+12!, SITE+18*, SITE+20*, SITE+22!, SITE+27*, SITE+29!, SITE+42*
U SITE+9, SITE+37, SITE+38, SETLA7+3
>> X SITE+39*, SETLA7+7*, CUSER+4*
>> Y SITE+7, SITE+26, SITE+27, SITE+41
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All