Routine: LR258PO

Information

LR258PO ;DALOI/FHS/RSH - LR*5.2*258 PATCH POST INSTALL ROUTINE

Source file <LR258PO.m>

Name	Comments	DBIA/ICR reference
PRE	;
EN1	;Find and correct existing spelling or duplicate numbers errors.
REINDEX	;Reindex LAM to fire new x-refs
ALERT	;
CHK
SET	;
DEL	;
ERR	;
WRT	;
POST	;TRANSPORT FILE 64.81 INTO FILE 64 IF REQUIRED
KIL
CHGNM	; CHANGE THE PROCEDURE NAME IN THE RECORD
CMP	; COMPARE FOUND CODES AND PROCEDURE NAMES
SCR(LRMSG)	;Store message in ^XTMP("LRNLT" Global
SETUP	; SETS UP THE FDA ARRAY TO ADD A NODE
GNDE	; RETRIEVES NODES FROM THE TRANSPORT MULTIPLE
AREC	; ADDS ENTRIES FROM THE TRANSPORT MULTIPLE TO FILE 64
ERMSG	;STUFF THE TEMP GLOBAL WITH ANY ERROR MESSAGES
KREC	; DELETES THE RECORD FROM THE FILE
MAIL	;Send message to G.LMI local mail group of added 64 codes
NEWLST	;Build list of added WKLD CODES
CHK642	;Looking for locally added suffix
MES642	;

Name	Line Occurrences
Function Call: WRITE	Prompt: $$CJ^XLFSTR("You must install LR5.2263 Patch",80) Line Location: PRE+20
Function Call: WRITE	Prompt: "." Line Location: REINDEX+19
Function Call: WRITE	Prompt: !,LRIEN_" ( "_LRFILE_" ERROR" Line Location: ERR+1
Function Call: WRITE	Prompt: ". " Line Location: POST+11
Function Call: WRITE	Prompt: !,LRREC_" " Line Location: POST+13
Function Call: WRITE	Prompt: !,"ADD=",LRADD," CHG=",LRCHG Line Location: CMP+16
Function Call: WRITE	Prompt: !,"NEW IEN=",$G(LRSIXT4(LRTRIEN)) Line Location: GNDE+15