Routine: BRNP01

Information

BRNP01 ; IHS/OIT/LJF - PRE & POST INIT CODE FOR PATCH 1

Source file <BRNP01.m>

Name	Comments	DBIA/ICR reference
PRE	;EP; pre-init code
RPTMENU	; remove old BRN GS AGING1 RPT option from Reports Menu
XREF	; reindex ROI LISTING RECORD file ; make sure all new and fixed indices are in good shape
ERR	; report error if action could not be performed
ONEFAC(FAC)	; stuff all entries with the one facility in the site parameter file
STUFFAC(DA,FAC)	; stuff this entry with this facility
ACTIVE	; set all current ROI LISTING REC PARTY entries as Active
FAC	; stuff new facility field where possible ; This code will attempt to determine the facility involved for ; each past disclosure. If the site has only one facility set up ; in the parameter file, that will be stuffed. For sites with more ; than one facility, the code will try to match on patient, user who ; initiated, staff assignment or user who completed. If none match ; exactly, the field will be left blank.
POST	;EP; post init code
CHKEN	;
FIX	; fix test sites for trigger problems on reindexing

Name	Field # of Occurrence
HOME^%ZIS	CHKEN+1
$$ACTIVFAC^BRNU	ONEFAC+2, STUFFAC+2
DELIX^DDMOD	PRE+2
^DIE	ACTIVE+6, ONEFAC+7, STUFFAC+5
^DIK	RPTMENU+7
ENALL^DIK	XREF+4, XREF+5
$$VERSION^XPDUTL	CHKEN+9
BMES^XPDUTL	PRE+1, ACTIVE+1, XREF+2, RPTMENU+1, ERR+1, FAC+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: CHKEN+2
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: CHKEN+3
Function Call: WRITE	Prompt: !,"You must first install IHS RELEASE OF INFORMATION V2.0." Line Location: CHKEN+10
Routine Call	%ZIS Line Location: CHKEN+1
Routine Call	DIE Line Location: ACTIVE+6 ONEFAC+7 STUFFAC+5

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	FAC+18
^BRNPARM("B"	FAC+10, FAC+11, FAC+20, FAC+26, ONEFAC+1, STUFFAC+1
^BRNREC - [#90264]	FAC+15, FAC+17, FAC+24, ONEFAC+5, FIX+2, FIX+4, FIX+5, FIX+6, FIX+16, FIX+17 , FIX+18*
^BRNREC("AA"	XREF+3!
^BRNREC("AC"	XREF+3!
^BRNREC("AD"	XREF+3!
^BRNREC("AP"	XREF+3!
^BRNTREQ - [#90264.1]	ACTIVE+4, ACTIVE+5
^DIC(19 - [#19]	RPTMENU+3, RPTMENU+4, RPTMENU+5
^VA(200 - [#200]	FAC+26

Name	Field # of Occurrence
BRN	ACTIVE+2~, ACTIVE+4, ACTIVE+5, ACTIVE+6, FAC+9~, FAC+15, FAC+17, FAC+21, FAC+24, FAC+27 , ONEFAC+3~, ONEFAC+5, ONEFAC+7, FIX+1~, FIX+2, FIX+4, FIX+5, FIX+6, FIX+16, FIX+17 , FIX+18
BRN1	FIX+1~, FIX+4, FIX+5, FIX+6, FIX+10, FIX+12
CLOSED	FIX+8~, FIX+9, FIX+13, FIX+16, FIX+17
DA	ACTIVE+2~, ACTIVE+6, RPTMENU+2~, RPTMENU+6, ONEFAC+3~, ONEFAC+7*, STUFFAC~
DA(1	RPTMENU+6*
DATE	FIX+8~, FIX+12*, FIX+13
DIE	ACTIVE+2~, ACTIVE+3, ONEFAC+3~, ONEFAC+4, STUFFAC+3~, STUFFAC+4*
DIK	XREF+4~, RPTMENU+2~, RPTMENU+6
DIK(1	XREF+4, XREF+5
DR	ACTIVE+2~, ACTIVE+3, ONEFAC+3~, ONEFAC+4, STUFFAC+3~, STUFFAC+4*
DUZ	CHKEN+2
DUZ(0	CHKEN+3
FAC	FAC+9~, FAC+10, FAC+11, FAC+18, FAC+19, FAC+20, FAC+25, FAC+26, ONEFAC~, ONEFAC+1 , STUFFAC~, STUFFAC+1
FOUND	FAC+9~, FAC+19, FAC+20, FAC+21, FAC+25, FAC+26, FAC+27
HRCN	FAC+9~, FAC+18!
HRCN(	FAC+18*, FAC+20
IEN	ONEFAC+1~, ONEFAC+2, ONEFAC+4, STUFFAC+1~, STUFFAC+2, STUFFAC+4
IOM	CHKEN+1
ITEM	RPTMENU+2~
>> ITM	RPTMENU+5*, RPTMENU+6
LAST	FIX+8~, FIX+9, FIX+12, FIX+18
LIST	FIX+1~, FIX+3!
LIST(	FIX+6*, FIX+10, FIX+12
MENU	RPTMENU+2~, RPTMENU+4*, RPTMENU+5, RPTMENU+6
OPEN	FIX+8~, FIX+11*, FIX+15, FIX+16, FIX+17
OPT	RPTMENU+2~, RPTMENU+3*, RPTMENU+5
PAT	FAC+9~, FAC+17*, FAC+18
SAV	FAC+9~, FAC+19!, FAC+20, FAC+21, FAC+25!, FAC+26, FAC+27
U	ACTIVE+5, FAC+17, FAC+24, FIX+12, FIX+16, FIX+17, FIX+18
USER	FAC+9~, FAC+24*, FAC+26
>> XPDDIQ("XPZ1"	CHKEN+6*
>> XPDQUIT	CHKEN+2, CHKEN+3, CHKEN+10*
>> XPPDIQ("XPZ2"	CHKEN+6*