Routine: LR302PO

Package	Total	Call Graph
VA Fileman	4	(,$$FIND1,FIND)^DIC (FILE,UPDATE)^DIE (,IXALL)^DIK ($$GET1,GETS)^DIQ
Lab Service	2	BMES^LR302 (ALERT,MAIL)^LR302POA
Kernel	1	$$HTFM^XLFDT

Package	Total	Caller Graph
Lab Service	2	LR302 LR302POA

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; EP
REINDEX	;EP - Reindex LAM to fire new x-refs
SET	;
VENDOR	; EP - Save the vender pointer name into the VENDOR field.
AREC	; ADDS ENTRIES FROM THE TRANSPORT MULTIPLE TO FILE 64
ERR	;
SETUP	; SETS UP THE FDA ARRAY TO ADD A NODE
CHK
DSS	;Update WKLD CODE file , DSS Feeder Key (#14) field to 'Yes"
CHGNM	; CHANGE THE PROCEDURE NAME IN THE RECORD
EN1	;EP - Find and correct existing spelling or duplicate numbers errors.
WRT	;
P1
DEL	;
ERMSG	;STUFF THE TEMP GLOBAL WITH ANY ERROR MESSAGES
KIL
SCR(LRMSG)	;EP - Store message in ^XTMP("LRNLT" Global
KREC	; DELETES THE RECORD FROM THE FILE
POST	; EP - TRANSPORT FILE 64.81 INTO FILE 64 IF REQUIRED
GNDE	; RETRIEVES NODES FROM THE TRANSPORT MULTIPLE
CMP	; COMPARE FOUND CODES AND PROCEDURE NAMES

External References

Name	Field # of Occurrence
^DIC	CHK+6, CHK+21
$$FIND1^DIC	CMP+4
FIND^DIC	DSS+9
FILE^DIE	SET+1, CHGNM+3, DSS+15
UPDATE^DIE	AREC+1
^DIK	DEL+2, KREC+4
IXALL^DIK	REINDEX+4
$$GET1^DIQ	DSS+6
GETS^DIQ	GNDE+2, GNDE+8, GNDE+12
BMES^LR302	P1, DSS+2, DSS+18
ALERT^LR302POA	REINDEX+10
MAIL^LR302POA	P1+27
$$HTFM^XLFDT	VENDOR+9, REINDEX+6, REINDEX+8, POST+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LRIEN_" ( "_LRFILE_" ERROR" Line Location: ERR+1
Function Call: WRITE	Prompt: ! Line Location: POST+3
Function Call: WRITE	Prompt: ". " Line Location: P1+12
Function Call: WRITE	Prompt: !,LRREC_" " Line Location: P1+14
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	DIE Line Location: AREC+1
Routine Call	DIC Line Location: DSS+9
Routine Call	DIC Line Location: CMP+4
Routine Call	DIE Line Location: SET+1 CHGNM+3 DSS+15
Routine Call	DIC Line Location: CHK+6 CHK+21

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)
^LAB(	P1+26*
^LAB(64.2 - [#64.2]	VENDOR+2, VENDOR+4*, VENDOR+7, VENDOR+10, CHK+30
^LAB(64.3 - [#64.3]	VENDOR+3
^LAB(64.81 - [#64.81]	P1+10, P1+13, GNDE+5, GNDE+6
^LAM - [#64]	REINDEX+1, P1, DSS+13
^LAM("C"	CHK+14
^LAM("VR"	P1+24*
^LAM(0	REINDEX+5, P1+3, P1+23*
^LAM(99999	P1+1
^XTMP("LRNLT"	REINDEX+7!, REINDEX+8, POST+1!, POST+2, SCR+1, SCR+2*
^XTMP("LRNLT642"	VENDOR+5, VENDOR+8, VENDOR+9, VENDOR+10, P1+4, ERMSG+1, ERMSG+2, ERMSG+5, ERMSG+6
^XTMP("LRNLTERR"	REINDEX+6!*

Label References

Name	Line Occurrences
AREC	GNDE+15
CHGNM	P1+19
CMP	P1+17
DEL	CHK+6, CHK+21, SET+3
DSS	POST+3
EN1	REINDEX+1
ERMSG	CHGNM+7, AREC+4
GNDE	P1+20
KREC	P1+16, P1+21
POST	REINDEX+10
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
^(	VENDOR+2
^(0	SCR+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	CMP+1~
DA	EN1+1~, REINDEX+9~, 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	EN1+1~, REINDEX+3~, REINDEX+4, REINDEX+9~, DEL+1~, DEL+2, KREC+2~, KREC+4*
DIRUT	EN1+1~
DIU	EN1+1~
DT	VENDOR+9, REINDEX+6, REINDEX+8, POST+2
DTOUT	EN1+1~
DUOUT	EN1+1~
ERR	DSS+3~, DSS+8!, DSS+10, DSS+14!, DSS+16
FDA	DSS+3~, DSS+14!
FDA(1	DSS+14*
IEN	DSS+3~, DSS+12*, DSS+13, DSS+14
LRADD	P1+5, P1+20, 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+19, 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+14, P1+27, 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+18, 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+9~, 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	VENDOR+1~, VENDOR+2, VENDOR+4, P1+25~, P1+26, KIL+1!
LRIEN	REINDEX+9~, DEL+2, ERR+1, P1+9*, P1+10, P1+13, 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	VENDOR+6~, VENDOR+7*, VENDOR+8
>> 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+9~, CHK+2, CHK+4, CHK+9, CHK+10, CHK+12, CHK+13, CHK+18, CHK+23, CHK+24 , KIL+2!
LRN1	REINDEX+9~, 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, 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+22!, KIL+3!
LROUT(42	P1+21, CHGNM+4, CHGNM+8
LROUT(45	P1+21, AREC+2
LRPROCNM	KIL+3!, CHGNM+2, CHGNM+8, CHGNM+9!, CMP+3*, CMP+7, ERMSG+2
LRREC	P1+13*, P1+14, P1+15, P1+16, KIL+3!, CMP+3
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+15*, 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
LRVEN	VENDOR+1~, VENDOR+2, VENDOR+3, VENDOR+4
LRVR	P1+23*, P1+24, P1+26, KIL+4!
LST	DSS+3~, DSS+11*, DSS+12
NODE	DSS+3~, DSS+4, DSS+5, DSS+6
OUT	DSS+3~, DSS+8!
OUT("DILIST"	DSS+11, DSS+12
U	VENDOR+2, VENDOR+3, VENDOR+4, REINDEX+5, 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, POST+2, P1+3 , P1+15, P1+16, P1+23, CMP+3, GNDE+5
X	EN1+1~, CHK~, CHK+2, CHK+18, KIL+4!, CMP+1~, DSS+3~, DSS+6*, DSS+7, DSS+9
>> XPDNM	PRE+16
Y	EN1+1~, CHK~, CHK+6, CHK+7, CHK+8, CHK+21, CHK+22, CHK+33, KIL+4!, CMP+1~ , CMP+4*, CMP+5

Marked Items

Customize PDF page

Package: Lab Service

Routine: LR302PO

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items