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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LR539

Package: Lab Service

Routine: LR539


Information

LR539 ;PBB - LR*5.2*539 PATCH ENVIRONMENT CHECK ROUTINE ;07/20/17

Source Information

Source file <LR539.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 ^%ZTER  ($$HTE,$$HTFM)^XLFDT  $$CJ^XLFSTR  BMES^XPDUTL  SETUP^XQALERT  
VA FileMan 4 (,$$FIND1,FIND)^DIC  (FILE,UPDATE)^DIE  (,ENALL,ENALL2,IXALL)^DIK  ($$GET1,GETS)^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EN ; Does not prevent loading of the transport global.
; Environment check is done only during the install.
; DBIA #7126
; DBIA #7127
PRE ; KIDS Pre install for LR*5.2*539
POST ; KIDS Post install for LR*5.2*539
NLT1 ;
EN1 ;Find and correct existing spelling or duplicate numbers errors.
REINDEX ;Reindex LAM to fire new x-refs
CHK
SET ;
DEL ;
ERR ;
WRT ;
POST1 ;TRANSPORT FILE 64.81 INTO FILE 64 IF REQUIRED
P1
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
DSS ;Update WKLD CODE file , DSS Feeder Key (#14) field to 'Yes"

External References

Name Field # of Occurrence
^%ZTER P1+26
^DIC CHK+6, CHK+21
$$FIND1^DIC CMP+4
FIND^DIC DSS+9
FILE^DIE SET+1, CHGNM+3, DSS+15
UPDATE^DIE PRE+23, AREC+1
^DIK DEL+2, KREC+4
ENALL^DIK POST+30, POST+33
ENALL2^DIK POST+29, POST+32
IXALL^DIK REINDEX+6
$$GET1^DIQ DSS+6
GETS^DIQ GNDE+2, GNDE+8, GNDE+12
$$HTE^XLFDT EN+7, PRE+5, POST+24
$$HTFM^XLFDT REINDEX+8, REINDEX+10, POST1+3
$$CJ^XLFSTR EN+11, PRE+10, PRE+26, PRE+29, POST+3, POST+34, POST+36, POST+37, P1+28
BMES^XPDUTL EN+11, PRE+10, PRE+26, PRE+29, POST+3, POST+34, POST+36, POST+37, P1P1+28
SETUP^XQALERT EN+9, PRE+7, POST+26

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LRIEN_" ( "_LRFILE_" ERROR"
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: POST1+5
Function Call: WRITE
  • Prompt: ". "
  • Line Location: P1+12
Function Call: WRITE
  • Prompt: !,LRREC_" "
  • Line Location: P1+15
Function Call: WRITE
  • Prompt: !,"NEW IEN=",$G(LRSIXT4(LRTRIEN))
  • Line Location: GNDE+15
Function Call: WRITE
  • Prompt: !,$C(7),ERR
  • Line Location: DSS+16
Function Call: WRITE
  • Prompt: "*"
  • Line Location: DSS+17
Routine Call
  • DIC
  • Line Location:
    • CHK+6
    • CHK+21
Routine Call
  • DIC
  • Line Location:
    • CMP+4
Routine Call
  • DIC
  • Line Location:
    • DSS+9
Routine Call
  • DIE
  • Line Location:
    • SET+1
    • CHGNM+3
    • DSS+15
Routine Call
  • DIE
  • Line Location:
    • PRE+23
    • AREC+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] Classic Fileman Calls,  FIND1^DIC,  FIND^DIC
^LAB(64.81 - [#64.81] Classic Fileman Calls
64.8117 GET1^DIQ,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(64 NLT1+6*
^DD(64.061 PRE+21!, POST+17*, NLT1+7*
^DD(64.2 NLT1+8*
^DD(64.21 NLT1+9*
^DD(95.3 PRE+15!, PRE+17!, POST+10*, POST+14!, NLT1+2*, NLT1+4*
^DD(95.3099 NLT1+3*
^DD(95.31 NLT1+5*
^LAB(64.061 - [#64.061] NLT1+18*
^LAB(64.2 - [#64.2] NLT1+19*, CHK+30
^LAB(64.21 - [#64.21] NLT1+20*
^LAB(64.81 - [#64.81] P1+10, P1+13, P1+14, GNDE+5, GNDE+6
^LAB(95.3 - [#95.3] PRE+19*, POST+15*, NLT1+15*
^LAB(95.31 - [#95.31] NLT1+16*
^LAM - [#64] REINDEX+1, REINDEX+13, P1CMP+9*, DSS+13
^LAM("C" CHK+14
^LAM("VR" NLT1+17*
^LAM(0 REINDEX+7*, P1+3*, P1+24*
^LAM(99999 P1+1
^XTMP("LRNLT" REINDEX+9!, REINDEX+10*, POST1+2!, POST1+3*, POST1+4*, SCR+1, SCR+2*
^XTMP("LRNLT642" P1+4, ERMSG+1, ERMSG+2*, ERMSG+5*, ERMSG+6*
^XTMP("LRNLTERR" REINDEX+8!*

Label References

Name Line Occurrences
AREC GNDE+15
CHGNM P1+20
CMP P1+18
DEL CHK+6, CHK+21, SET+3
EN1 POST+27, REINDEX+1
ERMSG CHGNM+7, AREC+4
GNDE P1+21
KREC P1+17, P1+22
NLT1 POST+27
POST1 REINDEX+12
SCR WRT+1, WRT+2, P1+6, P1+7, P1+8, CHGNM+8, CMP+7
SET CHK+34
SETUP GNDE+4, GNDE+10, GNDE+14
WRT SET+3

Naked Globals

Name Field # of Occurrence
^(0 SCR+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS CMP+1~
DA EN1+1~, REINDEX+11~, DEL+1~, DEL+2*, KREC+2~, KREC+3*
DA(1 KREC+3*, KREC+4
DIC EN1+1~, CHK~, CHK+4*, CHK+17~, CHK+19*, CMP+1~
DIC("S" CHK+5*, CHK+20*
DIC(0 CHK+2*
DIK POST+29!*, POST+30!*, POST+32!*, POST+33!*, EN1+1~, REINDEX+4~, REINDEX+6*, REINDEX+11~, DEL+1~, DEL+2*
KREC+2~, KREC+4*
DIK(1 POST+29*, POST+30*, POST+32*, POST+33*
DIRUT EN1+1~
DIU EN1+1~, REINDEX+4~
DIU(0 REINDEX+6*
DT REINDEX+8, REINDEX+10, POST1+3
DTOUT EN1+1~
DUOUT EN1+1~
ERR PRE+22~, PRE+24, DSS+3~, DSS+8!, DSS+10, DSS+14!, DSS+16
FDA PRE+22~, DSS+3~, DSS+14!
FDA( PRE+23*
FDA(1 DSS+14*
I NLT1+1~, NLT1+2*
IEN DSS+3~, DSS+12*, DSS+13, DSS+14
LRADD P1+5*, P1+21, KIL!, CMP+2*, CMP+6*
LRANS CHK+1!, SET+2, KIL!
LRAR1 P1+11!, KIL!, SETUP+19!
LRBEG KIL!, SETUP+11*, SETUP+13
LRCHG P1+5*, P1+20, KIL!, CHGNM+2, CMP+2*
LRCNT KIL!
LRCODE KIL!, CHGNM+8, CMP+3*, CMP+4, CMP+7, ERMSG+2
LRCTR KIL!, GNDE+1*
>> LRDBUG CHK+7, CHK+33, SET+2, P1+15, P1+25, GNDE+15, KREC+1
LRDOT P1+5*, P1+12*, KIL!
LREND KIL!, SETUP+12*, SETUP+13
LRENODE KIL+1!, CHGNM+6*, AREC+3*, ERMSG+3*, ERMSG+5, ERMSG+8!
LRERR P1+13*, P1+19, KIL+1!, CHGNM+5*, CMP+2*, ERMSG+7*
LRFDA CHK+1!, CHK+34, P1+11!, KIL+1!, CHGNM+1!
LRFDA( CHK+11*, CHK+15*, CHK+25*, CHK+28*, CHK+32*
LRFDA(42 CHGNM+2*, CHGNM+9!
LRFDA(45 SETUP+17*, GNDE+16!, AREC+5!
LRFILE REINDEX+11~, CHK+3, CHK+7, CHK+11, CHK+15, CHK+16, CHK+25, CHK+28, CHK+33, ERR+1
KIL+1!
LRFLD KIL+1!, SETUP+3*, SETUP+6*, SETUP+7*, SETUP+14, SETUP+17
LRFLE KIL+1!, SETUP+2*, SETUP+4, SETUP+9, SETUP+11, SETUP+12
LRFNAM KIL+1!
LRI KIL+1!
LRIEN REINDEX+11~, DEL+2, ERR+1, P1+9*, P1+10, P1+13, P1+14, KIL+1!, GNDE+2, GNDE+8
GNDE+12, KREC+3
LRIENS CHK+8*, CHK+11, CHK+15, CHK+22*, CHK+25, CHK+28, CHK+30, CHK+32, KIL+1!, SETUP+8*
SETUP+15*, SETUP+17
LRLAST KIL+2!
>> LRLAST64 P1+1*, P1+2*
LRMLT KIL+2!, GNDE+1*, GNDE+2, GNDE+7*, GNDE+8, GNDE+11*, GNDE+12
LRMSG SCR~, SCR+2
LRN P1+4*, KIL+2!, CMP+6*, ERMSG+1*, ERMSG+2, ERMSG+4*, ERMSG+5, ERMSG+6
LRN0 REINDEX+11~, CHK+2, CHK+4, CHK+9, CHK+10, CHK+12, CHK+13, CHK+18, CHK+23, CHK+24
KIL+2!
LRN1 REINDEX+11~, CHK+19, CHK+26, CHK+27, CHK+29, CHK+30, KIL+2!
LRNAMX CHK+1!, CHK+2*, CHK+18*, WRT+1, KIL+2!
LRNAMY CHK+1!, CHK+2*, CHK+10*, CHK+11, CHK+18*, CHK+24*, CHK+25, WRT+2, KIL+2!
LRNEXT P1+1*, P1+2*, P1+3, P1+9*, P1+10*, P1+13, P1+14, KIL+2!
LRNIEN KIL+2!
LRNODE KIL+2!, SETUP+1*, SETUP+2, SETUP+3, SETUP+16, GNDE+3*, GNDE+9*, GNDE+13*
LRNUM KIL+2!, GNDE+5*
LRNUMX CHK+1!, CHK+4*, CHK+19*, WRT+1, KIL+3!
LRNUMY CHK+1!, CHK+4*, CHK+13*, CHK+14, CHK+15, CHK+27*, CHK+28, WRT+2, KIL+3!
LRNX KIL+3!
LROUT P1+11!, P1+23!, KIL+3!
LROUT(42 P1+22, CHGNM+4, CHGNM+8
LROUT(45 P1+22, AREC+2
LRPROCNM KIL+3!, CHGNM+2, CHGNM+8, CHGNM+9!, CMP+3*, CMP+7, ERMSG+2
LRREC POST1+1~, P1+13*, P1+15, P1+16, P1+17, KIL+3!, CMP+3
LRREC9 POST1+1~, P1+14*, CMP+8, CMP+9
LRSC KIL+3!
LRSCR KIL+3!, SCR+1*, SCR+2
LRSEQ KIL+3!, SETUP+14*, SETUP+15, GNDE+5*, GNDE+6*, GNDE+11*
LRSIXT4 P1+11!, KIL+3!, GNDE+16!
LRSIXT4( GNDE+15
LRSUBFLE KIL+4!, SETUP+5*, SETUP+13*, SETUP+17
LRSYN CHK+30*, KIL+4!
LRSYNIEN CHK+30*, CHK+31, CHK+32, KIL+4!
LRTRIEN P1+16*, KIL+4!, SETUP+8, SETUP+15, GNDE+2, GNDE+5, GNDE+6, GNDE+8, GNDE+12, GNDE+15
ERMSG+2, KREC+3
LRVAL KIL+4!, SETUP+16*, SETUP+17
LRVR KIL+4!
LST DSS+3~, DSS+11*, DSS+12
MSG EN+10*, EN+11!, PRE+9*, PRE+10!, PRE+25*, PRE+26!, P1+27*, P1+28!
NODE DSS+3~, DSS+4*, DSS+5*, DSS+6
OUT DSS+3~, DSS+8!
OUT("DILIST" DSS+11, DSS+12
U PRE+19, POST+15, REINDEX+7, CHK+2, CHK+4, CHK+9, CHK+10, CHK+12, CHK+13, CHK+18
CHK+19, CHK+23, CHK+24, CHK+26, CHK+27, CHK+29, CHK+30, POST1+3, P1+3, P1+16
P1+17, P1+24, CMP+3, CMP+9, GNDE+5
X EN1+1~, CHK~, CHK+2*, CHK+18*, KIL+4!, CMP+1~, DSS+3~, DSS+6*, DSS+7, DSS+9
>> XPDENV EN+4
>> XPDNM EN+6, PRE+4, POST+23
XQA EN+5~, PRE+2~, POST+2~
XQA("G.LMI" EN+8*, PRE+6*, POST+25*
XQAMSG EN+5~, EN+6*, EN+7*, PRE+2~, PRE+4*, PRE+5*, POST+2~, POST+23*, POST+24*
Y NLT1+14*, NLT1+15, NLT1+16, NLT1+17, NLT1+18, NLT1+19, NLT1+20, EN1+1~, CHK~, CHK+6
CHK+7, CHK+8, CHK+21, CHK+22, CHK+33, KIL+4!, CMP+1~, CMP+4*, CMP+5, CMP+8
CMP+9
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All