Routine: BLRCHGPL

Package	Total	Call Graph
IHS Changes To Lab	4	(BADJUJU,BADSTUFF)^BLRCHGER ($$SETPTXLG,ESIGCHNG,PEP)^BLRCHGPW BLRGPGR^BLRGMENU TOP^BLRQUE
VA Fileman	3	^DIC (FILE,UPDATE)^DIE EN1^DIP
Kernel	2	$$NOW^XLFDT $$CJ^XLFSTR
Lab Service	2	^LRWU4 URG^LRX
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
LOCREPT	; EP - Location Report
CHNGPROV	;
PROVREPT	; EP - Provider Report
SETLTXLG()	;
SETINDX(WOT,LRAA,LRAD,LRAN,OLD,NEW)
SETLACC()	;
GETPHY()	;
BOTHREPT	; EP - Provider and/or Location Report (Combined)
SETLORD()	;
SETPACC()	;
SETLLAB()	;
SETPORD()	; ; Order file
MAIN	; EP ; Temp vars -- discard after routine completes
SETPLAB()	;
CHNGLOC	;

External References

Name	Field # of Occurrence
BADJUJU^BLRCHGER	SETLTXLG+5
BADSTUFF^BLRCHGER	SETPLAB+9, SETPACC+7, SETPORD+25, SETINDX+21, SETLLAB+12, SETLACC+8, SETLORD+25, SETLTXLG+21
$$SETPTXLG^BLRCHGPW	CHNGPROV+33
ESIGCHNG^BLRCHGPW	SETPLAB+16
PEP^BLRCHGPW	MAIN+14
BLRGPGR^BLRGMENU	MAIN+29, MAIN+39, PROVREPT+5, LOCREPT+5, BOTHREPT+5
TOP^BLRQUE	MAIN+59
^DIC	CHNGPROV+19, CHNGLOC+9
FILE^DIE	SETPLAB+7, SETPACC+5, SETPORD+23, SETLLAB+10, SETLACC+6, SETLORD+23, SETLTXLG+13
UPDATE^DIE	SETINDX+19
EN1^DIP	PROVREPT+4, LOCREPT+4, BOTHREPT+4
^LRWU4	MAIN+24
URG^LRX	MAIN+17
^XBFMK	CHNGPROV+11, SETPLAB+2, SETPACC+1, SETPORD+19, SETINDX+12, CHNGLOC+3, SETLLAB+3, SETLACC+1, SETLORD+18, SETLTXLG+9 , PROVREPT+1, LOCREPT+1, BOTHREPT+1
$$NOW^XLFDT	SETINDX+17
$$CJ^XLFSTR	SETPORD+31

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: MAIN+21
Function Call: WRITE	Prompt: !,"Doesn't exist." Line Location: MAIN+28
Function Call: WRITE	Prompt: !,"Accession is tied to an OERR order. This order cannot be modified.",! Line Location: MAIN+38
Function Call: WRITE	Prompt: !?5,"Provider Change filed",! Line Location: CHNGPROV+36
Function Call: WRITE	Prompt: !!!,?5,$TR($J("",45)," ","*"),!! Line Location: SETPORD+30
Function Call: WRITE	Prompt: ?5,$$CJ^XLFSTR("PROVIDER NOT CHANGED IN ORDER FILE",45),!! Line Location: SETPORD+31
Function Call: WRITE	Prompt: ?5,"Old Provider IEN:",OPN Line Location: SETPORD+32
Function Call: WRITE	Prompt: ?35,"New Prov IEN:",NPN Line Location: SETPORD+33
Function Call: WRITE	Prompt: ?5,$TR($J("",45)," ","*"),!! Line Location: SETPORD+34
Function Call: WRITE	Prompt: !?5,"Location Change filed",! Line Location: CHNGLOC+23
Function Call: WRITE	Prompt: !! Line Location: SETLTXLG+16
Function Call: WRITE	Prompt: "BLRSN:",BLRSN,! Line Location: SETLTXLG+17
Function Call: WRITE	Prompt: " IENS:",IENS,! Line Location: SETLTXLG+18
Function Call: WRITE	Prompt: " NPN:",NPN,! Line Location: SETLTXLG+19
Function Call: WRITE	Prompt: " ON:",ON,! Line Location: SETLTXLG+20
Routine Call	DIE Line Location: SETINDX+19
Routine Call	DIE Line Location: SETPLAB+7 SETPACC+5 SETPORD+23 SETLLAB+10 SETLACC+6 SETLORD+23 SETLTXLG+13
Routine Call	DIC Line Location: CHNGPROV+19 CHNGLOC+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRTXLOG("C"	SETLTXLG+3
^DPT - [#2]	SETPORD+42
^LR - [#63]	SETPORD+39
^LRO(68 - [#68]	MAIN+27, MAIN+34, MAIN+35, MAIN+44, MAIN+45, CHNGPROV+1, CHNGPROV+6, CHNGPROV+7, SETPORD+4, SETPORD+5 , SETINDX+10, CHNGLOC+1, SETLORD+3, SETLORD+4, SETLTXLG+2, SETLTXLG+5
^LRO(69 - [#69]	MAIN+36, MAIN+37, CHNGPROV+8, CHNGPROV+9, SETPORD+8, SETPORD+9, SETPORD+11, SETPORD+12, SETPORD+29, SETPORD+47 , SETPORD+51, SETPORD+57*, SETLORD+7, SETLORD+9, SETLORD+10
^SC - [#44]	CHNGLOC+15
^VA(200 - [#200]	SETPORD+46, SETPORD+54

Label References

Name	Line Occurrences
$$GETPHY	CHNGPROV+2
$$SETLACC	CHNGLOC+19
$$SETLLAB	CHNGLOC+18
$$SETLORD	CHNGLOC+20
$$SETLTXLG	CHNGLOC+21
$$SETPACC	CHNGPROV+27
$$SETPLAB	CHNGPROV+26
$$SETPORD	CHNGPROV+28
CHNGLOC	MAIN+49
CHNGPROV	MAIN+47
SETINDX	CHNGPROV+39, CHNGLOC+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACCNDX	SETINDX+2~
ACCNXT	SETINDX+2~
ACCSTR	SETINDX+2~, SETINDX+10*, SETINDX+14
BLRLOGDA	MAIN+3~, MAIN+43!, MAIN+56, MAIN+57, MAIN+58, MAIN+59, SETLTXLG+25*
BLRLOGDA(	MAIN+58
BLRSN	SETLTXLG+1~, SETLTXLG+3*, SETLTXLG+4, SETLTXLG+11, SETLTXLG+17, SETLTXLG+25
>> BY	PROVREPT+2, LOCREPT+2, BOTHREPT+2*
CCN	MAIN+5~, MAIN+22*
>> D	CHNGPROV+17*
>> DHD	PROVREPT+3, LOCREPT+3, BOTHREPT+3*
DIC	CHNGPROV+13, CHNGPROV+19!, CHNGLOC+7, CHNGLOC+9!, PROVREPT+2, LOCREPT+2, BOTHREPT+2*
DIC("A"	CHNGPROV+16, CHNGLOC+5
DIC("B"	CHNGPROV+12, CHNGLOC+4
DIC("S"	CHNGPROV+15*
DIC("W"	CHNGPROV+18*
DIC(0	CHNGPROV+14, CHNGLOC+8
DICT0	SETINDX+1~, SETINDX+4, SETINDX+14, SETLTXLG+7, SETLTXLG+12
DICT1	SETINDX+1~, SETINDX+8*, SETINDX+15, SETINDX+16, SETINDX+17, SETINDX+18
DIE	SETPLAB+3!, SETPACC+2!, SETPORD+20!, SETINDX+13!, SETLACC+2!, SETLORD+19!, SETLTXLG+10!
DONE	SETPORD+2~, SETPORD+7, SETPORD+8, SETPORD+11, SETPORD+18, SETLORD+1~, SETLORD+6, SETLORD+7, SETLORD+9, SETLORD+17
DUZ	SETINDX+18
EDD	MAIN+5~
ERRS	MAIN+7~, SETPLAB+3!, SETPACC+2!, SETPORD+20!, SETINDX+13!, SETLLAB+4!, SETLACC+2!, SETLORD+19!, SETLTXLG+10!
ERRS("DIERR"	SETPLAB+9, SETPLAB+10, SETPACC+7, SETPACC+8, SETPORD+25, SETPORD+26, SETINDX+20, SETLLAB+12, SETLLAB+13, SETLACC+8 , SETLACC+9, SETLORD+25, SETLORD+27, SETLTXLG+15, SETLTXLG+23
ESIGNODE	MAIN+9~, MAIN+11*
FDA	MAIN+7~, SETPLAB+3!, SETPACC+2!, SETPORD+20!, SETINDX+13!, SETLLAB+4!, SETLACC+2!, SETLORD+19!, SETLTXLG+10!
FDA(	SETPLAB+6, SETPACC+4, SETPORD+22, SETINDX+14, SETINDX+15, SETINDX+16, SETINDX+17, SETINDX+18, SETLLAB+7, SETLLAB+9 , SETLACC+4, SETLACC+5, SETLORD+21, SETLORD+22, SETLTXLG+12*
>> FLDS	PROVREPT+2, LOCREPT+2, BOTHREPT+2*
>> FR	PROVREPT+2, LOCREPT+2, BOTHREPT+2*
IEN	SETPORD+49~, SETPORD+50*
IENS	SETPLAB+3!, SETPLAB+4, SETPLAB+6, SETPACC+2!, SETPACC+3, SETPACC+4, SETPORD+20!, SETPORD+21, SETPORD+22, SETINDX+13! , SETLLAB+4!, SETLLAB+5, SETLLAB+7, SETLLAB+9, SETLACC+2!, SETLACC+3, SETLACC+4, SETLACC+5, SETLORD+19!, SETLORD+20 , SETLORD+21, SETLORD+22, SETLTXLG+10!, SETLTXLG+11*, SETLTXLG+12, SETLTXLG+18
>> L	PROVREPT+2, LOCREPT+2, BOTHREPT+2*
LOCGET	MAIN+6~
LOCGET(	SETLLAB+6, SETLLAB+7, SETLLAB+8, SETLLAB+9
LOCGET("ACCESSION"	SETLACC+4, SETLACC+5
LOCGET("ORDER	ENTRY" , SETLORD+21, SETLORD+22
LOCSTR	MAIN+5~
LRAA	MAIN+2~, MAIN+27, MAIN+34, MAIN+35, MAIN+44, MAIN+45, CHNGPROV+1, CHNGPROV+6, CHNGPROV+7, CHNGPROV+39 , SETPACC+3, SETPORD+4, SETPORD+5, SETPORD+14, SETINDX~, SETINDX+10, CHNGLOC+1, CHNGLOC+26, SETLACC+3, SETLORD+3 , SETLORD+4, SETLORD+12, SETLTXLG+2, SETLTXLG+5
LRAAS	MAIN+2~
LRACC	MAIN+4~, MAIN+23*
LRAD	MAIN+2~, MAIN+27, MAIN+34, MAIN+35, MAIN+44, CHNGPROV+1, CHNGPROV+6, CHNGPROV+7, CHNGPROV+39, SETPACC+3 , SETPORD+4, SETPORD+5, SETINDX~, SETINDX+10, CHNGLOC+1, CHNGLOC+26, SETLACC+3, SETLORD+3, SETLORD+4, SETLTXLG+2 , SETLTXLG+5
LRAN	MAIN+2~, MAIN+25, MAIN+27, MAIN+34, MAIN+35, MAIN+44, CHNGPROV+1, CHNGPROV+6, CHNGPROV+7, CHNGPROV+39 , SETPACC+3, SETPORD+4, SETPORD+5, SETPORD+15, SETINDX~, SETINDX+10, CHNGLOC+1, CHNGLOC+26, SETLACC+3, SETLORD+3 , SETLORD+4, SETLORD+13, SETLTXLG+2, SETLTXLG+5
LRDFN	MAIN+2~, MAIN+44, SETPLAB+4, SETPORD+9, SETPORD+39, SETLLAB+5
LREND	MAIN+4~, MAIN+20, MAIN+22, MAIN+25, MAIN+48, MAIN+56, SETPLAB+9, SETPLAB+10, SETPLAB+19, SETPACC+7 , SETPACC+8, SETPACC+10, SETPORD+26, SETPORD+35, SETPORD+59, SETLLAB+13, SETLLAB+16, SETLACC+9, SETLACC+11, SETLORD+27* , SETLORD+29, SETLTXLG+4, SETLTXLG+24*, SETLTXLG+27
LRIDT	MAIN+2~, CHNGPROV+1*, SETPLAB+4, SETLLAB+5
LRODT	MAIN+3~, MAIN+35, MAIN+36, MAIN+37, CHNGPROV+7, CHNGPROV+8, CHNGPROV+9, SETPORD+5, SETPORD+8, SETPORD+9 , SETPORD+11, SETPORD+12, SETPORD+13, SETPORD+21, SETPORD+29, SETPORD+47, SETPORD+51, SETPORD+55, SETPORD+57, SETLORD+4 , SETLORD+7, SETLORD+9, SETLORD+10, SETLORD+11, SETLORD+20
LRSN	MAIN+3~, MAIN+34, MAIN+36, CHNGPROV+8, CHNGPROV+9, SETPORD+7, SETPORD+8, SETPORD+9, SETPORD+11, SETPORD+12 , SETPORD+21, SETPORD+29, SETLORD+6, SETLORD+7, SETLORD+9, SETLORD+10, SETLORD+20
LRSP	MAIN+33~, MAIN+36*, MAIN+37
LRSS	MAIN+2~, MAIN+45*, GETPHY+1, SETPLAB+5, SETPLAB+6, SETLLAB+2, SETLLAB+6, SETLLAB+7, SETLLAB+8, SETLLAB+9
LRSTOP	MAIN+4~, MAIN+20, MAIN+22*
>> LRTEST	SETPORD+10, SETPORD+11, SETPORD+12, SETLORD+8, SETLORD+9, SETLORD+10
LRTSE	MAIN+4~, MAIN+22*
LRUNC	MAIN+4~, MAIN+22*
LRURG	MAIN+4~
NEW	SETINDX~, SETINDX+16
NLN	MAIN+8~, CHNGLOC+12*, CHNGLOC+13, CHNGLOC+15, CHNGLOC+26, SETLLAB+7, SETLACC+4, SETLORD+21, SETLTXLG+12
NLNMN	MAIN+8~, CHNGLOC+15*, SETLLAB+9, SETLACC+5, SETLORD+22
NPN	MAIN+7~, CHNGPROV+22*, CHNGPROV+23, CHNGPROV+39, SETPLAB+6, SETPACC+4, SETPORD+22, SETPORD+29, SETPORD+33, SETPORD+54 , SETLTXLG+19
NPNAME	SETPORD+53~, SETPORD+54*, SETPORD+57
OKNOW	SETPORD+49~, SETPORD+50*
OLD	SETINDX~, SETINDX+15
OLN	MAIN+8~, CHNGLOC+1*, CHNGLOC+4, CHNGLOC+13, CHNGLOC+26
ON	MAIN+8~, CHNGPROV+6, CHNGPROV+8, SETPORD+4, SETPORD+8, SETPORD+51, SETPORD+55, SETPORD+57, SETLORD+3, SETLORD+7 , SETLTXLG+2, SETLTXLG+3, SETLTXLG+5, SETLTXLG+20
OPN	MAIN+7~, CHNGPROV+2, CHNGPROV+5, CHNGPROV+9, CHNGPROV+12, CHNGPROV+23, CHNGPROV+39, SETPORD+32, SETPORD+46
OPNAME	SETPORD+45~, SETPORD+46*, SETPORD+47, SETPORD+51, SETPORD+55
PATNAME	SETPORD+38~, SETPORD+42*, SETPORD+43, SETPORD+51, SETPORD+55, SETPORD+57
PROVGET	MAIN+6~
PROVGET(	GETPHY+1, SETPLAB+6
PROVGET("ACCESSION"	SETPACC+4
PROVGET("ORDE	R ENTRY" , SETPORD+22
PROVSTR	MAIN+5~
PTPTR	SETPORD+38~, SETPORD+39*, SETPORD+40, SETPORD+42
STR	MAIN+7~, SETPORD+55*, SETPORD+56
SUBFILE	SETPLAB+1~, SETPLAB+5, SETPLAB+6, SETLLAB+1~, SETLLAB+2, SETLLAB+7, SETLLAB+9
SUBNODE	SETINDX+1~, SETINDX+6, SETINDX+7, SETINDX+8
TODT	SETPORD+49~
TON	SETPORD+49~
>> TSTSTR	SETPORD+12, SETPORD+13, SETPORD+14, SETPORD+15, SETLORD+10, SETLORD+11, SETLORD+12, SETLORD+13
WOT	SETINDX~, SETINDX+6, SETINDX+7
>> Y	CHNGPROV+20, CHNGPROV+22, CHNGLOC+10, CHNGLOC+12

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRCHGPL

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: