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 |  Marked Items |  All
Print Page as PDF
Routine: BDGP1005

Package: IHS Changes To ADT

Routine: BDGP1005


Information

BDGP1005 ;IHS/OIT/LJF - PRE & POST INSTALL, ENVIRON CHECK FOR PATCH 1005

Source Information

Source file <BDGP1005.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 FILE^DICN  ^DIE  ^DIK  $$GET1^DIQ  
Kernel 2 $$REPLACE^XLFSTR  BMES^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
CKENV ; environment check code
AGE ; fix code in ADT ITEM to use AGE^AUPNPAT instead of delelted line AGE^BDGF2
115 ;;OB;;
114 ;;PS;;
117 ;;TB;;
116 ;;NB;;
111 ;;AM;;
113 ;;PM;;
112 ;;AS;;
119 ;;MH;;
118 ;;AL;;
PRE ;EP;
AUTHBED ; copy authorized bed info to new data structure
PROT1 ; switch Rx Profiles with Other Reports under BSDAM MENU protocol menu
PROT2 ; fix entry action for BSDAM ADD ENCOUNTER (only run at check-in)
TEST(X) ; return 1 if site is running an iteration version of patch
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
FIELD ;;
102 ;;IC;;
103 ;;PC;;
POST ;EP; post install code
PREFIX ; remove all additional prefixes to PIMS Package file entry

External References

Name Field # of Occurrence
FILE^DICN AUTHBED+14
^DIE PROT1+10, AUTHBED+16
^DIK PREFIX+8
$$GET1^DIQ AUTHBED+9, AUTHBED+12
$$REPLACE^XLFSTR AGE+5
BMES^XPDUTL AGE+1, PROT1+6, PROT2+3, PREFIX+7, AUTHBED+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"You must first install "_PATCH_"."
  • Line Location: CKENV+7
Function Call: WRITE
  • Prompt: !,"You have a TEST version of "_PATCH_" installed. Please install the released patch. . ."
  • Line Location: CKENV+11
Routine Call
  • DIE
  • Line Location:
    • PROT1+10
    • AUTHBED+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DG(43 - [#43] GET1^DIQ
^BDGWD - [#9009016.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BDGITM - [#9009016.9] AGE+3, AGE+4, AGE+5, AGE+6*
^BDGWD - [#9009016.5] AUTHBED+3, AUTHBED+4, AUTHBED+10
^DIC(9.4 - [#9.4] PATCH+4, PATCH+5, PATCH+7, PATCH+8, PREFIX+2, PREFIX+6, PREFIX+8
^ORD(101 - [#101] PROT1+2, PROT1+3, PROT1+4, PROT1+5, PROT2+2, PROT2+4*
^XPD(9.6 - [#9.6] TEST+2, TEST+3

Label References

Name Line Occurrences
$$PATCH CKENV+6
$$TEST CKENV+10
AGE POST+1
AUTHBED POST+1
PREFIX POST+1
PROT1 POST+1
PROT2 POST+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEDS AUTHBED+1~, AUTHBED+12*, AUTHBED+15
CALL AGE+2~, AGE+5
CALL("AGE^BDGF2" AGE+5*
CENI AUTHBED+1~, AUTHBED+9*, AUTHBED+14
DA PROT1+1~, PROT1+8*, PREFIX+1~, PREFIX+8*, AUTHBED+1~, AUTHBED+15*
DA(1 PROT1+8*, PREFIX+8*, AUTHBED+14*
DD PREFIX+1~, AUTHBED+14!
DIC PREFIX+1~, AUTHBED+1~, AUTHBED+13*, AUTHBED+15
DIC(0 AUTHBED+13*
DIE PROT1+1~, PROT1+8*, AUTHBED+1~, AUTHBED+15*
>> DIK PREFIX+3*
DLAYGO AUTHBED+1~, AUTHBED+13*
DO PREFIX+1~, AUTHBED+14!
DONE AUTHBED+1~, AUTHBED+3*, AUTHBED+4*, AUTHBED+5
DR PROT1+1~, PROT1+9*, AUTHBED+1~, AUTHBED+15*
FIELD AUTHBED+1~, AUTHBED+11*, AUTHBED+12
FIRST PREFIX+1~, PREFIX+4*, PREFIX+7*
I PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8
IEN TEST+1~, TEST+2*, TEST+3, AGE+2~, AGE+3*, AGE+4, AGE+5, AGE+6, PROT1+1~, PROT1+5*
, PROT1+8, PREFIX+1~
J PATCH+3~, PATCH+5*, PATCH+7, PATCH+8
NEW PROT1+1~, PROT1+4*, PROT1+9
NUM PATCH+3~, PATCH+8*, PATCH+9
OLD PROT1+1~, PROT1+3*, PROT1+5
PATCH CKENV+5~*, CKENV+6, CKENV+7, CKENV+10, CKENV+11
PFX PREFIX+1~, PREFIX+5*, PREFIX+6, PREFIX+8
PKG PREFIX+1~, PREFIX+2*, PREFIX+3, PREFIX+6, PREFIX+8
PROT PROT1+1~, PROT1+2*, PROT1+5, PROT1+8
STR AGE+2~, AGE+5*, AGE+6
WARD AUTHBED+1~, AUTHBED+3*, AUTHBED+4, AUTHBED+10*, AUTHBED+12, AUTHBED+13, AUTHBED+14
X PATCH~, PATCH+2, PATCH+4, PATCH+5*, PATCH+7, PATCH+8, PATCH+9, TEST~, TEST+2, PROT2+1~
, PROT2+2*, PROT2+4, AUTHBED+1~, AUTHBED+14*
>> XPDDIQ("XPZ1" CKENV+2*
>> XPDQUIT CKENV+7*, CKENV+12*
>> XPPDIQ("XPZ2" CKENV+2*
Y AUTHBED+1~, AUTHBED+14, AUTHBED+15

Marked Items

Name Field # of Occurrence
$T(@FIELD AUTHBED+15
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 |  Marked Items |  All