Routine: BDGP1005

Information

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

Source file <BDGP1005.m>

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

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=aaaann.nnnnnn
FIELD	;;
102	;;IC;;
103	;;PC;;
POST	;EP; post install code
PREFIX	; remove all additional prefixes to PIMS Package file entry

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

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

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

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