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 |  Local Variables |  All
Print Page as PDF
Routine: BLRCHGPL

Package: IHS Changes To Lab

Routine: BLRCHGPL


Information

BLRCHGPL ; IHS/OIT/MKK - CHANGE PROVIDER AND/OR LOCATION UTILITY ; 07/22/2005 8:05 AM ]

Source Information

Source file <BLRCHGPL.m>

Call Graph

Call Graph Total: 12

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