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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLR138PO

Package: IHS Changes To Lab

Routine: BLR138PO


Information

BLR138PO ; IHS/MSC/MKK - Modified version of LR*5.2*138 Post Install Routine ; [ 09/30/2012 8:00 AM ]

Source Information

Source file <BLR138PO.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 FIND^DIC  FILE^DICN  ^DIE  ($$GET1,GETS)^DIQ  
Kernel 1 (BMES,MES)^XPDUTL  
Lab Service 1 SHOW^LRCAPPH2  
Registration 1 $$SITE^VASITE  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Lab 1 BLRPRE31  

Entry Points

Name Comments DBIA/ICR reference
VAR(IEN,SC) ; set up variables for ADD and EDIT calls based on existing entry
VARQ
ERRORS ; list of error messages
LOADB
CHKQ
EN ;Builds Laboratory OOS Location
ADD(SCNAME,SCPKG) ; add new entry
EDIT(SCIEN,SCNAME,SCINST,SCSTOP,SCPKG,SCINACT) ; update fields
SET
SCREEN(PKG) ; screen to only allow OOS locations for specified package
LK ;
LOC(NAME,INST,STOP,PKG,IEN,INACT) ; add/edit location for ancillary app
NEW(IEN,PKG) ; create new entry given parameters from existing entry
ERRCHKQ
ERR(NUMBER) ; return error message corresponding to the number passed in
LOCMAKE ;
END ;
CHK(IEN) ; check to see if patterns exist for IEN
PKGIENQ
LOCQ
ERRCHK(SC,RAD) ; check input variables for consistency
EXEMPT() ; screen on clinic stop file to select only OOS stops
UPD(IEN,PKG) ; update existing entry
PKGNM(SCPKG) ; Return Name of Package
; Input: SCPKG - Pointer to Package File (9.4)
; Returned: Name of Package or 'Bad or Missing Pointer'
PKGIEN(PKG) ; get IEN of package file entry
DIV(INST) ; return division associated with institution
NONCOUNT(IEN) ; convert location to non-count

External References

Name Field # of Occurrence
FIND^DIC LK+5
FILE^DICN ADD+5
^DIE NONCOUNT+7, EDIT+22
$$GET1^DIQ SET+5
GETS^DIQ PKGNM+5
SHOW^LRCAPPH2 LOADB+7
$$SITE^VASITE SET+3
BMES^XPDUTL EN+2, LOCMAKE+4, LOCMAKE+5, LOCMAKE+8, SET+6, SET+9, SET+11, SET+12, SET+13, LK+8
, LK+9, LOADB+5, LOADB+8
MES^XPDUTL SET+10, SET+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Load SD*5.3*63 Patch",80),!!
  • Line Location: LOADB+1
Function Call: WRITE
  • Prompt: !,"LROK = ",LROK
  • Line Location: LOADB+4
Routine Call
  • DIE
  • Line Location:
    • NONCOUNT+7
    • EDIT+22
Routine Call
  • DIC
  • Line Location:
    • LK+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] FIND^DIC
^SC - [#44] Classic Fileman Calls
^LAB(69.9 - [#69.9] GET1^DIQ
^DIC(9.4 - [#9.4] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" LOADB+2
^DG(40.8 - [#40.8] VAR+12, DIV+1
^DIC(4 - [#4] LK+4, ERRCHK+11
^DIC(40.7 - [#40.7] LOC+27, ERRCHK+21
^DIC(9.4 - [#9.4] LOCMAKE+1, LOCMAKE+2, PKGIEN+9, PKGIEN+10
^LAB(69.9 - [#69.9] SET+1*, SET+3, SET+4
^LRO(67.9 - [#67.9] SET+1, SET+2
^SC - [#44] LOC+30, ERRCHK+9, ERRCHK+13, ERRCHK+15, VAR+8, CHK+7, CHK+8, CHK+9, CHK+10
^SC("B" LOADB

Label References

Name Line Occurrences
$$ADD LOC+35, NEW+8
$$ERR LOC+27, LOC+32, LOC+34, LOC+35, ERRCHK+10, ERRCHK+12, ERRCHK+14, ERRCHK+16, ERRCHK+17, ERRCHK+22
$$ERRCHK LOC+25
$$LOC LOADB+3
$$PKGIEN LOC+23, SCREEN+1
CHKQ CHK+7, CHK+8, CHK+9
EDIT LOC+31, LOC+36, UPD+8, NEW+9
END LOCMAKE+3, SET+4
ERRCHKQ ERRCHK+6, ERRCHK+17, ERRCHK+18
LK SET+1, SET+2, SET+3
LOADB LK+12
LOCQ LOC+26, LOC+27
PKGIENQ PKGIEN+7, PKGIEN+8, PKGIEN+9, PKGIEN+10
VAR UPD+7, NEW+7
VARQ VAR+11

Naked Globals

Name Field # of Occurrence
^( SET+3*
^(99 LK+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BLROUT LK+3~
BLROUT("DILIST" LK+6
DA END+2!, LOADB+9!, NONCOUNT+5~, NONCOUNT+6*, EDIT+2~, EDIT+3*
DATA END+2!
DD ADD+2~
DIC END+2!, LOADB+9!, ADD+2~, ADD+3*
DIC("DR" ADD+4*
DIC(0 ADD+3*
DIE END+2!, LOADB+9!, NONCOUNT+5~, NONCOUNT+6*, EDIT+2~, EDIT+3*
DIK END+2!
DINUM ADD+2~
DIR LOADB+9!
DIV VAR+7~, VAR+12*
DO ADD+2~
DR END+2!, NONCOUNT+5~, NONCOUNT+6*, EDIT+2~, EDIT+3*, EDIT+4*, EDIT+5*, EDIT+7*, EDIT+8*, EDIT+9*
, EDIT+10*, EDIT+11*, EDIT+12*, EDIT+13*, EDIT+14*, EDIT+15*, EDIT+16*, EDIT+17*, EDIT+18*, EDIT+20*
, EDIT+21*
DT ERRCHK+14
ERR LOC+22~, LOC+25*, LOC+26, LOC+32*, LOC+34*, LOC+35*, LOCQ
I LOC+22~, LOC+24*, LOC+34*, CHK+5~, CHK+10*
IEN LOC~, LOC+28, LOC+30, LOC+31, LOC+35*, LOC+36, LOCQ, ERRCHK+7~, ERRCHK+8*, ERRCHK+9
, ERRCHK+13, ERRCHK+15, NONCOUNT~, NONCOUNT+6, UPD~, UPD+7, UPD+8, NEW~, NEW+7, NEW+8*
, NEW+9, NEW+10, VAR~, VAR+8, CHK~, CHK+7, CHK+8, CHK+9, CHK+10
INACT LOC~, LOC+31
INST LOC~, LOC+31, LOC+36, DIV~, DIV+1, EDIT+2~
IOM SET+8
LOC ERRCHK+4~, ERRCHK+9*, ERRCHK+10, ERRCHK+12
>> LRDBUG END+1, LOADB+4, LOADB+9
LRDIV END+2!, LK+4*, LK+11
LRDIVN SET+1*, SET+2*, SET+3*, END+2!, LK+4, LOADB+3
LRNAME END+2!, LK+11*, LOADB*, LOADB+3
LROK SET*, SET+1, SET+2, SET+3, END+2!, LOADB+3*, LOADB+4, LOADB+5
LRPKG LOCMAKE+1*, LOCMAKE+2*, LOCMAKE+3, END+2!, LOADB+3
LRSCODE END+2!, LK+6*, LK+7, LK+11, LOADB+3
>> LRSDCX LK+1
LRVN SET+1*, SET+2, END+2!
LRVN1 SET+2*, END+3!
NAME LOC~, LOC+31, LOC+35, LOC+36
NUMBER ERR~, ERR+5
OK ERRCHK+4~, CHK+5~, CHK+6*, CHK+7*, CHK+8*, CHK+9*, CHK+10*, CHKQ
PKG LOC~, LOC+23*, LOC+31, LOC+35, LOC+36, ERRCHK+17, UPD~, UPD+8, NEW~, NEW+8
, NEW+9, PKGIEN~, PKGIEN+6*, PKGIEN+7, PKGIEN+8, PKGIEN+9, PKGIEN+10, SCREEN~, SCREEN+1
RAD ERRCHK~, ERRCHK+11
SC ERRCHK~, UPD+6~, UPD+7, NEW+6~, NEW+7, VAR~
SC("IEN" ERRCHK+6, ERRCHK+8
SC("INST" ERRCHK+11, UPD+8, NEW+9, VAR+11*, VAR+12*
SC("NAME" UPD+8, NEW+8, NEW+9, VAR+9*
SC("PKG" ERRCHK+16
SC("STOP" ERRCHK+18, ERRCHK+20, UPD+8, NEW+9, VAR+10*
SCERR LOC+22~, LOC+25
SCERR( LOC+24*
SCIEN EDIT~, EDIT+3
SCINACT EDIT~, EDIT+19
SCINST EDIT~, EDIT+6
SCNAME ADD~, ADD+3, EDIT~, EDIT+4
SCOS PKGNM+4~
SCOS( PKGNM+6
SCPKG ADD~, EDIT~, PKGNM~, PKGNM+5, PKGNM+6
SCSTOP EDIT~, EDIT+9
STOP LOC~, LOC+27*, LOC+31, LOC+36, ERRCHK+19~, ERRCHK+20*, ERRCHK+21*, ERRCHK+22
>> STR SET+5*, SET+6, SET+8*, SET+9, SET+10, SET+13, SET+14
U LK+4, LOADB+5
X END+3!, LOADB+2*, LOC+22~, LOC+29~, LOC+30*, LOC+31, ERRCHK+4~, ERRCHK+13*, ERRCHK+14, ERRCHK+15*
, ERRCHK+16, VAR+7~, VAR+8*, VAR+9, VAR+10, VAR+11, VAR+12, ADD+2~, ADD+3*, EDIT+2~
>> XPDQUIT LOCMAKE+6*, SET+15*
Y LOC+27*, ERRCHK+4~, ERRCHK+5*, ERRCHK+6, ERRCHK+10*, ERRCHK+11, ERRCHK+12*, ERRCHK+14*, ERRCHK+16*, ERRCHK+17*
, ERRCHK+18, ERRCHK+22*, ERRCHKQ, PKGIEN+5~, PKGIEN+7*, PKGIEN+8*, PKGIEN+9*, PKGIEN+10*, PKGIEN+11*, PKGIENQ
, ADD+2~, ADD+6

Marked Items

Name Field # of Occurrence
$T(ERRORS+NUMBER ERR+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 |  Naked Globals |  Local Variables |  Marked Items |  All