Routine: BDGP1003

Information

BDGP1003 ;IHS/ITSC/LJF - PRE & POST INSTALL, ENVIRON CHECK FOR PATCH 1003

Source file <BDGP1003.m>

Name	Comments	DBIA/ICR reference
PRE	;EP;
CDEF	; mark awaiting transcription entries under Admin grouping
FORM	; update line 4 in ADT FORM - IHS format
CKENV	; environment check code
KILLID	; remove VA identifier from file 45.7
OLDPATCH	;;
PATCH(X)	;return 1 if patch X was installed, X=aaaann.nnnnnn
STUFF	; stuff new "Print A Sheet at Admission" parameter to 1 ; and reset days to delinquency if greater than 30
DSFIX	; find and fix any old day surgery entries without zero nodes
CLEAN	; clean out ADT ITEM file before restoring data
BULL	; send bulletins to appropriate users
POST	;EP; post install code
PATCHES	; mark package file entry with old PIMS patch #s required by CSV

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You must first install "_PATCH_"." Line Location: CKENV+7
Function Call: WRITE	Prompt: !?5,"Entry for patient #",$$HRCN^BDGF2(IEN,DUZ(2))," fixed." Line Location: DSFIX+5
Routine Call	DIE Line Location: STUFF+6 STUFF+8 CDEF+6 FORM+5 FORM+7 FORM+9
Routine Call	DIC Line Location: PATCHES+13

FileNo	Call Tags
^BDGCD - [#9009016.4]	Classic Fileman Calls
^BDGPAR - [#9009020.1]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	DSFIX+3, DSFIX+4*
^ADGDS("B"	DSFIX+4*
^BDGCD("B"	CDEF+5
^BDGFRM(1	FORM+4, FORM+6, FORM+8
^BDGITM - [#9009016.9]	CLEAN+2!
^BDGITM("B"	CLEAN+3!
^BDGITM(0	CLEAN+4*
^BDGPAR - [#9009020.1]	STUFF+4
^DD(45.7	KILLID+2!
^DD(9.49	PATCHES+11
^DIC(9.4 - [#9.4]	PATCH+4, PATCH+5, PATCH+7, PATCH+8, PATCHES+4, PATCHES+5, PATCHES+8
^XUSEC("DGZSYS"	BULL+4
^XUSEC("SDZAC"	BULL+8

Name	Field # of Occurrence
$$HRCN^BDGF2	DSFIX+5
^DIC	PATCHES+13
^DIE	STUFF+6, STUFF+8, CDEF+6, FORM+5, FORM+7, FORM+9
$$GET1^DIQ	STUFF+5, STUFF+7
$$NOW^XLFDT	BULL+3, BULL+7
^XMB	BULL+5, BULL+9
BMES^XPDUTL	STUFF+2, KILLID+1, CDEF+1, FORM+1, DSFIX+1, BULL+1, PATCHES+1

Name	Field # of Occurrence
BDGI	CDEF+2~, CDEF+4*, CDEF+5
COUNT	PATCHES+2~, PATCHES+6*
DA	STUFF+3~, STUFF+4, STUFF+5, STUFF+7, CDEF+2~, CDEF+5, FORM+2~, FORM+4, FORM+5, FORM+6 , FORM+7, FORM+8*, FORM+9, PATCHES+2~
DA(1	FORM+3, PATCHES+10
DA(2	FORM+3, PATCHES+10
DIC	PATCHES+2~, PATCHES+9*
DIC("DR"	PATCHES+12*
DIC("P"	PATCHES+11*
DIC(0	PATCHES+10*
DIE	STUFF+3~, STUFF+6, STUFF+8, CDEF+2~, CDEF+3, FORM+2~, FORM+3
DR	STUFF+3~, STUFF+6, STUFF+8, CDEF+2~, CDEF+3, FORM+2~, FORM+5, FORM+7, FORM+9
DT	PATCHES+12
DUZ	PATCHES+12
DUZ(2	DSFIX+5
I	PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8
IEN	DSFIX+2~, DSFIX+3, DSFIX+4, DSFIX+5
J	PATCH+3~, PATCH+5*, PATCH+7, PATCH+8
>> NMSP	PATCHES+3*, PATCHES+4, PATCHES+7
NUM	PATCH+3~, PATCH+8*, PATCH+9
PATCH	CKENV+5, CKENV+6, CKENV+7, PATCHES+2~, PATCHES+6, PATCHES+8, PATCHES+12
PKG	PATCHES+2~, PATCHES+4*, PATCHES+5, PATCHES+8, PATCHES+9, PATCHES+10
U	CLEAN+4, PATCHES+11
USER	BULL+2~, BULL+4, BULL+8
VER	PATCHES+2~, PATCHES+5*, PATCHES+8, PATCHES+9, PATCHES+10
X	PATCH~, PATCH+2, PATCH+4, PATCH+5, PATCH+7, PATCH+8, PATCH+9, CLEAN+1~, CLEAN+2, PATCHES+2~ , PATCHES+12*
XMB	BULL+2~, BULL+3, BULL+7
XMDT	BULL+2~, BULL+3, BULL+7
XMY	BULL+2~, BULL+8!
XMY(	BULL+4, BULL+8
>> XPDDIQ("XPZ1"	CKENV+2*
>> XPDQUIT	CKENV+7*
>> XPPDIQ("XPZ2"	CKENV+2*
Y	PATCHES+2~