Routine: BLRCHGPW

Package	Total	Call Graph
IHS Changes To Lab	2	(BADJUJU,BADSTUFF)^BLRCHGER BLRGPGR^BLRGMENU
IHS VA Utilities	1	^XBFMK
Kernel	1	$$CJ^XLFSTR
VA Fileman	1	FILE^DIE

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRCHGPL

Entry Points

Name	Comments	DBIA/ICR reference
ESIGCHNG	; EP ; If no E-SIG data for the accession, quit
SETPTXLG()	; EP
PEP	; EP ; Provider information

External References

Name	Field # of Occurrence
BADJUJU^BLRCHGER	SETPTXLG+58
BADSTUFF^BLRCHGER	SETPTXLG+55, ESIGCHNG+51, ESIGCHNG+60
BLRGPGR^BLRGMENU	ESIGCHNG+21, ESIGCHNG+31, ESIGCHNG+41
FILE^DIE	SETPTXLG+42, ESIGCHNG+50, ESIGCHNG+58
^XBFMK	SETPTXLG+38, ESIGCHNG+46, ESIGCHNG+54
$$CJ^XLFSTR	ESIGCHNG+18, ESIGCHNG+19, ESIGCHNG+27, ESIGCHNG+28, ESIGCHNG+29, ESIGCHNG+37, ESIGCHNG+38, ESIGCHNG+39

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SETPTXLG+25
Function Call: WRITE	Prompt: "BLRSN:",BLRSN,! Line Location: SETPTXLG+26
Function Call: WRITE	Prompt: " IENS:",IENS,! Line Location: SETPTXLG+27
Function Call: WRITE	Prompt: " NPN:",NPN,! Line Location: SETPTXLG+28
Function Call: WRITE	Prompt: " ON:",ON,! Line Location: SETPTXLG+29
Function Call: WRITE	Prompt: !! Line Location: SETPTXLG+50
Function Call: WRITE	Prompt: "BLRSN:",BLRSN,! Line Location: SETPTXLG+51
Function Call: WRITE	Prompt: " IENS:",IENS,! Line Location: SETPTXLG+52
Function Call: WRITE	Prompt: " NPN:",NPN,! Line Location: SETPTXLG+53
Function Call: WRITE	Prompt: " ON:",ON,! Line Location: SETPTXLG+54
Function Call: WRITE	Prompt: !!,IMNOTE,!! Line Location: ESIGCHNG+17
Function Call: WRITE	Prompt: $$CJ^XLFSTR("Accession's E-SIG Status is not Zero.",IOM),! Line Location: ESIGCHNG+18
Function Call: WRITE	Prompt: $$CJ^XLFSTR("No Change to E-SIG file.",IOM),!! Line Location: ESIGCHNG+19
Function Call: WRITE	Prompt: IMNOTE,!! Line Location: ESIGCHNG+20
Function Call: WRITE	Prompt: !!,IMNOTE,!! Line Location: ESIGCHNG+26
Function Call: WRITE	Prompt: $$CJ^XLFSTR("'New' Provider "_$E($P($G(^VA(200,NPN,0)),"^",1),1,18),IOM) Line Location: ESIGCHNG+27
Function Call: WRITE	Prompt: $$CJ^XLFSTR("IS NOT an E-SIG participant",IOM),! Line Location: ESIGCHNG+28
Function Call: WRITE	Prompt: $$CJ^XLFSTR("No Change to E-SIG file.",IOM),!! Line Location: ESIGCHNG+29
Function Call: WRITE	Prompt: IMNOTE,!! Line Location: ESIGCHNG+30
Function Call: WRITE	Prompt: !!,IMNOTE,!! Line Location: ESIGCHNG+36
Function Call: WRITE	Prompt: $$CJ^XLFSTR("'Original' Provider "_$E($P($G(^VA(200,OPN,0)),"^",1),1,18),IOM) Line Location: ESIGCHNG+37
Function Call: WRITE	Prompt: $$CJ^XLFSTR("IS NOT an E-SIG participant",IOM),! Line Location: ESIGCHNG+38
Function Call: WRITE	Prompt: $$CJ^XLFSTR("No Change to E-SIG file.",IOM),!! Line Location: ESIGCHNG+39
Function Call: WRITE	Prompt: IMNOTE,!! Line Location: ESIGCHNG+40
Routine Call	DIE Line Location: SETPTXLG+42 ESIGCHNG+50 ESIGCHNG+58

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRTXLOG("C"	SETPTXLG+37
^LR - [#63]	ESIGCHNG+2, ESIGCHNG+16
^LR("BLRA"	ESIGCHNG+65*, ESIGCHNG+66!
^LRO(68 - [#68]	SETPTXLG+2, SETPTXLG+58
^VA(200 - [#200]	ESIGCHNG+23, ESIGCHNG+27, ESIGCHNG+33, ESIGCHNG+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLRLOGDA(	SETPTXLG+46*
BLRSN	SETPTXLG+1~, SETPTXLG+36, SETPTXLG+37, SETPTXLG+40, SETPTXLG+46, SETPTXLG+51
CNT	SETPTXLG+33~, SETPTXLG+36, SETPTXLG+47, SETPTXLG+57
DICT0	SETPTXLG+1~, SETPTXLG+35*, SETPTXLG+41
DIE	SETPTXLG+39!, ESIGCHNG+47!, ESIGCHNG+55!
ERRS	SETPTXLG+39!, ESIGCHNG+47!, ESIGCHNG+55!
ERRS("DIERR"	SETPTXLG+44, SETPTXLG+49, ESIGCHNG+51, ESIGCHNG+60
>> ESIGNODE	ESIGCHNG+2, ESIGCHNG+16
FDA	SETPTXLG+39!, ESIGCHNG+47!, ESIGCHNG+55!
FDA(	SETPTXLG+41, ESIGCHNG+49, ESIGCHNG+57*
IENS	SETPTXLG+39!, SETPTXLG+40, SETPTXLG+41, SETPTXLG+52, ESIGCHNG+47!, ESIGCHNG+48, ESIGCHNG+49, ESIGCHNG+55!, ESIGCHNG+56*, ESIGCHNG+57
ILRIDT	ESIGCHNG+63~, ESIGCHNG+64*, ESIGCHNG+65, ESIGCHNG+66
IMNOTE	ESIGCHNG+7~, ESIGCHNG+12, ESIGCHNG+13, ESIGCHNG+17, ESIGCHNG+20, ESIGCHNG+26, ESIGCHNG+30, ESIGCHNG+36, ESIGCHNG+40
IOM	ESIGCHNG+11, ESIGCHNG+12, ESIGCHNG+18, ESIGCHNG+19, ESIGCHNG+27, ESIGCHNG+28, ESIGCHNG+29, ESIGCHNG+37, ESIGCHNG+38, ESIGCHNG+39
>> LOCGET("ACCESSION"	PEP+18, PEP+19
>> LOCGET("AU"	PEP+23, PEP+24
>> LOCGET("BB"	PEP+25, PEP+26
>> LOCGET("CH"	PEP+27, PEP+28, PEP+29*
>> LOCGET("CY"	PEP+30, PEP+31
>> LOCGET("MI"	PEP+32, PEP+33
>> LOCGET("ORDER	ENTRY" , PEP+20, PEP+21
>> LOCGET("SP"	PEP+34, PEP+35
>> LRAA	SETPTXLG+2, SETPTXLG+58
>> LRAD	SETPTXLG+2, SETPTXLG+58
>> LRAN	SETPTXLG+2, SETPTXLG+58
>> LRDFN	ESIGCHNG+2, ESIGCHNG+16, ESIGCHNG+48, ESIGCHNG+56
>> LREND	SETPTXLG+37, SETPTXLG+45*, SETPTXLG+57, SETPTXLG+61, ESIGCHNG+51, ESIGCHNG+60
>> LRIDT	ESIGCHNG+2, ESIGCHNG+16, ESIGCHNG+48, ESIGCHNG+56, ESIGCHNG+64
>> LRSS	ESIGCHNG+2, ESIGCHNG+5, ESIGCHNG+8, ESIGCHNG+16
MID	ESIGCHNG+7~, ESIGCHNG+11*, ESIGCHNG+13
NESIG	ESIGCHNG+7~, ESIGCHNG+23*, ESIGCHNG+25
>> NPN	SETPTXLG+41, SETPTXLG+53, ESIGCHNG+23, ESIGCHNG+27, ESIGCHNG+49, ESIGCHNG+65
OESIG	ESIGCHNG+7~, ESIGCHNG+33*, ESIGCHNG+35
>> ON	SETPTXLG+2*, SETPTXLG+37, SETPTXLG+54, SETPTXLG+58
>> OPN	ESIGCHNG+33, ESIGCHNG+37, ESIGCHNG+65, ESIGCHNG+66
>> PROVGET("ACCESSION"	PEP+2*
>> PROVGET("AU"	PEP+4, PEP+5
>> PROVGET("BB"	PEP+6, PEP+7
>> PROVGET("CH"	PEP+8, PEP+9
>> PROVGET("CY"	PEP+10, PEP+11
>> PROVGET("MI"	PEP+12, PEP+13
>> PROVGET("ORDE	R ENTRY" , PEP+3*
>> PROVGET("SP"	PEP+14, PEP+15
QFLG	SETPTXLG+33~
SUBFILE	ESIGCHNG+7~, ESIGCHNG+8*, ESIGCHNG+49, ESIGCHNG+57

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRCHGPW

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Local Variables

Legend: