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

Package: IHS GPRA Information System

Routine: BGP8P181


Information

BGP8P181 ; IHS/CMI/LAB - V18.1 PATCH 1 POST INIT

Source Information

Source file <BGP8P181.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 3 (,IX)^DIC  ^DIE  (,IX1)^DIK  
Kernel 2 $$CJ^XLFSTR  ($$VERSION,MES)^XPDUTL  
IHS GPRA Information System 1 (DRUGS,LAB)^BGP8POS1  
IHS VA Utilities 1 $$VAL^XBDIQ1  
M Transfer 1 GUIEP^BMXPO  

Entry Points

Name Comments DBIA/ICR reference
PRE ;EP
IMES ;
RXNORM1 ;
CLEAN(APP) ;-- clean out the RPC multiple first
OOO ;
S17 ;WIPE OUT ALL 18.0 FILES SO START CLEAN WITH 18.1 FILES
RXNORM ;
SORRY(X) ;
T ;OOO OPTIONS
ADA ;
POST ;EP - called from kids build
BMXPO ;-- update the RPC file
INSTALLD(BGPSTAL) ;EP - Determine if patch BGPSTAL was installed, where
; BGPSTAL is the name of the INSTALL. E.g "AG*6.0*11".

External References

Name Field # of Occurrence
DRUGS^BGP8POS1 POST+1
LAB^BGP8POS1 POST+2
GUIEP^BMXPO BMXPO+5, BMXPO+6
^DIC INSTALLD+9, INSTALLD+12, ADA+5, ADA+9, RXNORM1+5
IX^DIC INSTALLD+6
^DIE OOO+5
^DIK S17+2, S17+4, S17+6, S17+8, S17+10, S17+12, S17+14, S17+16, S17+18, CLEAN+6
, ADA+3
IX1^DIK ADA+13, RXNORM1+8, RXNORM1+17
$$VAL^XBDIQ1 RXNORM1+14
$$CJ^XLFSTR BGP8P181+10, IMES+1, SORRY+4
$$VERSION^XPDUTL BGP8P181+10
MES^XPDUTL BGP8P181+10, IMES+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!,$$CJ^XLFSTR("Sorry....FIX IT!",IOM)
  • Line Location: SORRY+4
Function Call: WRITE
  • Prompt: !,"Creating/Updating BGP IPC BMI ADA Codes Taxonomy..."
  • Line Location: ADA+4
Function Call: WRITE
  • Prompt: !!,"ERROR IN CREATING BGP IPC BMI ADA CODES TAX"
  • Line Location: ADA+6
Function Call: WRITE
  • Prompt: !,BGPRXN
  • Line Location: RXNORM1+1
Function Call: WRITE
  • Prompt: !,"Creating ",BGPX," Taxonomy..."
  • Line Location: RXNORM1+2
Function Call: WRITE
  • Prompt: !!,"ERROR IN CREATING ",BGPX," TAX"
  • Line Location: RXNORM1+6
Routine Call
  • DIE
  • Line Location:
    • OOO+5
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+9
    • INSTALLD+12
    • ADA+5
    • ADA+9
    • RXNORM1+5
Routine Call
  • DIC
  • Line Location:
    • INSTALLD+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] Classic Fileman Calls
^DIC(9.4 - [#9.4] Classic Fileman Calls
^ATXAX - [#9002226] Classic Fileman Calls
^BGPGPDCR - [#90560.03] Classic Fileman Calls
^BGPGPDPR - [#90560.04] Classic Fileman Calls
^BGPGPDBR - [#90560.05] Classic Fileman Calls
^BGPPEDCR - [#90560.12] Classic Fileman Calls
^BGPPEDPR - [#90560.13] Classic Fileman Calls
^BGPPEDBR - [#90560.14] Classic Fileman Calls
^BGPEDLCR - [#90561.03] Classic Fileman Calls
^BGPEDLPR - [#90561.04] Classic Fileman Calls
^BGPEDLBR - [#90561.05] Classic Fileman Calls
^AUTTADA - [#9999999.31] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] ADA+7*, ADA+11*, RXNORM1+7*, RXNORM1+10, RXNORM1+12*, RXNORM1+15, RXNORM1+16*
^ATXAX("B" ADA+2, RXNORM1+3
^BGPEDLBR - [#90561.05] S17+11
^BGPEDLCR - [#90561.03] S17+7
^BGPEDLPR - [#90561.04] S17+9
^BGPGPDBR - [#90560.05] S17+5
^BGPGPDCR - [#90560.03] S17+1
^BGPGPDPR - [#90560.04] S17+3
^BGPPEDBR - [#90560.14] S17+17
^BGPPEDCR - [#90560.12] S17+13
^BGPPEDPR - [#90560.13] S17+15
^BGPSNOMR - [#90560.21] RXNORM1+14
^BGPSNOMR("B" RXNORM1+13
^DIC(19 - [#19] OOO+1, OOO+2, BMXPO+2, CLEAN+4, CLEAN+7!
^PSDRUG - [#50] RXNORM1+14

Label References

Name Line Occurrences
CLEAN BMXPO+4
IMES INSTALLD+7, INSTALLD+10, INSTALLD+14
OOO T+1
RXNORM POST+3
RXNORM1 RXNORM+2, RXNORM+3, RXNORM+4
S17 POST+4
SORRY BGP8P181+10

Naked Globals

Name Field # of Occurrence
^(0 ADA+7*, ADA+11*, RXNORM1+7*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A RXNORM1+10*
APP CLEAN~, CLEAN+1, CLEAN+4, CLEAN+7
>> ATXFLG ADA+1*, RXNORM+1*
>> B RXNORM1+10*, RXNORM1+11, RXNORM1+12
>> BGPC RXNORM1+11*, RXNORM1+16*
BGPDA CLEAN+3~, CLEAN+4*, CLEAN+5, ADA+2*, ADA+3
>> BGPN OOO+1*, OOO+2
BGPRPC BMXPO+1~, BMXPO+2*, BMXPO+3, BMXPO+4, BMXPO+5, BMXPO+6
>> BGPRXN RXNORM+2*, RXNORM+3*, RXNORM+4*, RXNORM1+1, RXNORM1+9, RXNORM1+13
BGPSTAL INSTALLD~, INSTALLD+4, INSTALLD+8, INSTALLD+11, IMES+1
>> BGPTX ADA+7*, ADA+11, ADA+13, RXNORM1+3*, RXNORM1+4, RXNORM1+7*, RXNORM1+8, RXNORM1+10, RXNORM1+12, RXNORM1+15
, RXNORM1+16, RXNORM1+17
>> BGPX S17+1*, S17+2, S17+3*, S17+4, S17+5*, S17+6, S17+7*, S17+8, S17+9*, S17+10
, S17+11*, S17+12, S17+13*, S17+14, S17+15*, S17+16, S17+17*, S17+18, ADA+8*, ADA+10*
, ADA+11, RXNORM+2*, RXNORM+3*, RXNORM+4*, RXNORM1+2, RXNORM1+3, RXNORM1+5, RXNORM1+6, RXNORM1+7
BGPY INSTALLD+3~, INSTALLD+13*, INSTALLD+15
>> C RXNORM1+14*
>> D INSTALLD+5*
D0 ADA+9!
D1 ADA+9!
DA OOO+2*, OOO+5!, S17+2*, S17+4*, S17+6*, S17+8*, S17+10*, S17+12*, S17+14*, S17+16*
, S17+18*, CLEAN+5*, ADA+3*, ADA+5!, ADA+9!, ADA+13*, RXNORM1+5!, RXNORM1+8*, RXNORM1+17*
DA(1 CLEAN+1*, CLEAN+2
DI ADA+9!
DIADD ADA+5*!, ADA+9!, RXNORM1+5*!
DIC INSTALLD+3~, INSTALLD+5*, INSTALLD+8*, INSTALLD+11*, ADA+5*!, ADA+9*!, RXNORM1+5*!
DIC(0 INSTALLD+5*, ADA+5*, ADA+9*, RXNORM1+5*
DIE OOO+3*, OOO+5!
DIFQ SORRY+1!
>> DIK S17+2*, S17+4*, S17+6*, S17+8*, S17+10*, S17+12*, S17+14*, S17+16*, S17+18*, CLEAN+2*
, ADA+3*, ADA+13*, RXNORM1+8*, RXNORM1+17*
DLAYGO ADA+5*!, ADA+9!, RXNORM1+5*!
DQ ADA+9!
DR OOO+4*, OOO+5!, ADA+9!
DT ADA+7, RXNORM1+7
DUZ ADA+7
I ADA+5!, RXNORM1+5!
IOM IMES+1, SORRY+4
>> J RXNORM1+14*, RXNORM1+15, RXNORM1+16
>> RETVAL BMXPO+5, BMXPO+6
U ADA+7, ADA+9, ADA+11, RXNORM1+7, RXNORM1+12, RXNORM1+16
X BGP8P181+8*, INSTALLD+3~, INSTALLD+4*, INSTALLD+8*, INSTALLD+11*, SORRY~, SORRY+2, SORRY+3, ADA+5*, ADA+9*
, RXNORM1+5*
>> XPDDIQ( BGP8P181+8*
>> XPDDIQ("XPZ1" BGP8P181+7*
>> XPDDIQ("XPZ2" BGP8P181+7*
>> XPDENV BGP8P181+7
>> XPDQUIT SORRY+2*, SORRY+3*
Y INSTALLD+3~, INSTALLD+7, INSTALLD+8, INSTALLD+10, INSTALLD+11, INSTALLD+13, IMES+1, ADA+6, ADA+7, ADA+9
, ADA+11, RXNORM1+4, RXNORM1+6, RXNORM1+7
>> Z RXNORM1+13*, RXNORM1+14
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All