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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: BLRCHGPW

Package: IHS Changes To Lab

Routine: BLRCHGPW


Information

BLRCHGPW ; IHS/OIT/MKK - CHANGE PROVIDER AND/OR LOCATION UTILITY -- Part 2; 08/30/2005 8:05 AM ]

Source Information

Source file <BLRCHGPW.m>

Call Graph

Call Graph Total: 5

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  

Caller Graph

Caller Graph Total: 1

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All