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: LR582

Package: Lab Service

Routine: LR582


Information

LR582 ;SLC/PBB - LR*5.2*582 PATCH UNIVERSAL ENVIRONMENT CHECK ROUTINE ;01/21/06

Source Information

Source file <LR582.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 APPERROR^%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(ZZP,ZZV) ; KIDS Pre install for LR*5.2*582
POST(ZZP,ZZV) ; KIDS Post install for LR*5.2*582
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
APPERROR^%ZTER P1+28
^DIC CHK+6, CHK+21
$$FIND1^DIC CMP+4
FIND^DIC DSS+9
FILE^DIE SET+1, CHGNM+3, DSS+15
UPDATE^DIE PRE+25, AREC+1
^DIK DEL+2, KREC+4
ENALL^DIK POST+32, POST+35
ENALL2^DIK POST+31, POST+34
IXALL^DIK REINDEX+6
$$GET1^DIQ DSS+6
GETS^DIQ GNDE+2, GNDE+8, GNDE+12
$$HTE^XLFDT EN+9, PRE+7, POST+26
$$HTFM^XLFDT REINDEX+9, REINDEX+13, POST1+5
$$CJ^XLFSTR EN+13, PRE+12, PRE+28, PRE+31, POST+5, POST+36, POST+38, POST+39, P1+31
BMES^XPDUTL EN+13, PRE+12, PRE+28, PRE+31, POST+5, POST+36, POST+38, POST+39, P1, P1+31
SETUP^XQALERT EN+11, PRE+9, POST+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LRIEN_" ( "_LRFILE_" ERROR"
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: POST1+8
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+25
    • 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)
^%ZOSF("DEL" POST+40
^DD(64 NLT1+6*
^DD(64.061 PRE+23!, POST+19*, NLT1+7*
^DD(64.2 NLT1+8*
^DD(64.21 NLT1+9*
^DD(95.3 PRE+17!, PRE+19!, POST+12*, POST+16!, NLT1+2*, NLT1+4*
^DD(95.3099 NLT1+3*
^DD(95.31 NLT1+5*
^LAB(64.061 - [#64.061] NLT1+19*
^LAB(64.2 - [#64.2] NLT1+20*, CHK+30
^LAB(64.21 - [#64.21] NLT1+21*
^LAB(64.81 - [#64.81] P1+10, P1+13, P1+14, GNDE+5, GNDE+6
^LAB(95.3 - [#95.3] PRE+21*, POST+17*, NLT1+16*
^LAB(95.31 - [#95.31] NLT1+17*
^LAM - [#64] REINDEX+1, REINDEX+16, P1, CMP+9*, DSS+13
^LAM("C" CHK+14
^LAM("VR" NLT1+18*
^LAM(0 REINDEX+7*, P1+3*, P1+24*
^LAM(99999 P1+1
^XTMP("LRNLT" REINDEX+11!, REINDEX+13*, POST1+3!, POST1+5*, POST1+7*, SCR+2, SCR+4*
^XTMP("LRNLT642" P1+4, ERMSG+1, ERMSG+2*, ERMSG+5*, ERMSG+6*
^XTMP("LRNLTERR" REINDEX+9!*

Label References

Name Line Occurrences
AREC GNDE+15
CHGNM P1+20
CMP P1+18
DEL CHK+6, CHK+21, SET+3
EN1 POST+29, REINDEX+1
ERMSG CHGNM+7, AREC+4
GNDE P1+21
KREC P1+17, P1+22
NLT1 POST+29
POST1 REINDEX+15
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+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS CMP+1~
DA EN1+1~, REINDEX+14~, 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+31!*, POST+32!*, POST+34!*, POST+35!*, EN1+1~, REINDEX+4~, REINDEX+6*, REINDEX+14~, DEL+1~, DEL+2*
, KREC+2~, KREC+4*
DIK(1 POST+31*, POST+32*, POST+34*, POST+35*
DIRUT EN1+1~
DIU EN1+1~, REINDEX+4~
DIU(0 REINDEX+6*
DT REINDEX+9, REINDEX+13, POST1+5
DTOUT EN1+1~
DUOUT EN1+1~
ERR PRE+24~, PRE+26, DSS+3~, DSS+8!, DSS+10, DSS+14!, DSS+16
FDA PRE+24~, DSS+3~, DSS+14!
FDA( PRE+25*
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+14~, 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+14~, 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+4
LRN P1+4*, KIL+2!, CMP+6*, ERMSG+1*, ERMSG+2, ERMSG+4*, ERMSG+5, ERMSG+6
LRN0 REINDEX+14~, CHK+2, CHK+4, CHK+9, CHK+10, CHK+12, CHK+13, CHK+18, CHK+23, CHK+24
, KIL+2!
LRN1 REINDEX+14~, 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+2*, SCR+4
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!
LRZZP PRE+2~, PRE+3*, PRE+4, POST+2~, POST+3*, POST+4, REINDEX+9, REINDEX+11
LRZZPP PRE+4*, POST+2~, POST+4*, POST1+3, POST1+5, POST1+7, P1+28, SCR+2, SCR+4
LST DSS+3~, DSS+11*, DSS+12
MSG EN+12*, EN+13!, PRE+11*, PRE+12!, PRE+27*, PRE+28!, P1+29*, P1+30*, P1+31!
NODE DSS+3~, DSS+4*, DSS+5*, DSS+6
OUT DSS+3~, DSS+8!
OUT("DILIST" DSS+11, DSS+12
U PRE+21, POST+17, 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+5, P1+3, P1+16
, P1+17, P1+24, CMP+3, CMP+9, GNDE+5
X POST+40~*, EN1+1~, CHK~, CHK+2*, CHK+18*, KIL+4!, CMP+1~, DSS+3~, DSS+6*, DSS+7
, DSS+9
>> XPDENV EN+6
>> XPDNM EN+8, PRE+6, POST+25
XQA EN+7~, PRE+2~, POST+2~
XQA("G.LMI" EN+10*, PRE+8*, POST+27*
XQAMSG EN+7~, EN+8*, EN+9*, PRE+2~, PRE+6*, PRE+7*, POST+2~, POST+25*, POST+26*
Y NLT1+15*, NLT1+16, NLT1+17, NLT1+18, NLT1+19, NLT1+20, NLT1+21, 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
ZZP PRE~, PRE+3, POST~, POST+3, NLT1+15, REINDEX+9, REINDEX+13
ZZV PRE~, POST~, NLT1+4, NLT1+5, NLT1+6, NLT1+7, NLT1+8, NLT1+9, NLT1+15
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