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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BLRMERGT

Package: IHS Changes To Lab

Routine: BLRMERGT


Information

BLRMERGT ; IHS/ISD/EDE - MANUAL PROCESS MERGE BLRMERG ; [ 12/21/1998 3:56 PM ]

Source Information

Source file <BLRMERGT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
IHS Changes To Lab 1 ^BLRMERG  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 $$LJ^XLFSTR  

Entry Points

Name Comments DBIA/ICR reference
OK
SETDPT ; SET ^DPT "LR" NODES -- LR*5.2*1030 Note: OLD, DEAD CODE -- All lines commented out
; S ^DPT(222,"LR")=8
WALTCHEK ; EP
START ;
TEST ; EP -- LR*5.2*1030 Note: OLD, DEAD CODE -- All lines commented out
; D SETDPT
; S XDRMRG("FR")=222
; S XDRMRG("TO")=333
; S ^TMP("XDRMRGFR",$J,XDRMRG("FR"),"LR")=^DPT(222,"LR")
; S ^TMP("XDRMRGTO",$J,XDRMRG("TO"),"LR")=^DPT(333,"LR")
; D ^BLRMERG
TWOLRDFN ; EP

External References

Name Field # of Occurrence
^BLRMERG OK+11, TWOLRDFN+51
^DIC START+1, START+3
YN^DICN OK
^DIR TWOLRDFN+6, TWOLRDFN+16, TWOLRDFN+26, TWOLRDFN+40
^XBFMK TWOLRDFN+3, TWOLRDFN+13, TWOLRDFN+23, TWOLRDFN+36
$$LJ^XLFSTR WALTCHEK+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This patient has no lab data to purge. ",!!
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"Is everything OK"
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !,"Answer NO if you are unsure, or '^' to quit.",!
  • Condition for execution: %=0
  • Line Location: OK+0
Function Call: WRITE
  • Prompt: !!,"This will take about one minute..."
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!,"Done..."
  • Line Location: OK+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: TWOLRDFN+2
Function Call: WRITE
  • Prompt: !,"No or invalid Entry. Routine Stops.",!!
  • Line Location: TWOLRDFN+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: TWOLRDFN+12
Function Call: WRITE
  • Prompt: !,"No or invalid Entry. Routine Stops.",!!
  • Line Location: TWOLRDFN+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: TWOLRDFN+22
Function Call: WRITE
  • Prompt: !,"No or invalid entry. Routine Stops.",!!
  • Line Location: TWOLRDFN+28
Function Call: WRITE
  • Prompt: !!,"Variables Setup:",!
  • Line Location: TWOLRDFN+32
Function Call: WRITE
  • Prompt: ?5,"FROM LRDFN:",LRDFN1,!
  • Line Location: TWOLRDFN+33
Function Call: WRITE
  • Prompt: ?5,"TO LRDFN:",LRDFN2,!
  • Line Location: TWOLRDFN+34
Function Call: WRITE
  • Prompt: ?5,"DPT IEN:",DPTIEN,!
  • Line Location: TWOLRDFN+35
Function Call: WRITE
  • Prompt: !,"NO or invalid entry. Routine Stops.",!!
  • Line Location: TWOLRDFN+42
Function Call: WRITE
  • Prompt: !!,"Merged On:",$P(^XDRM(MREC,0),U,3)," PatNam= ",$P(^DPT(IEN,0),"^",1)
  • Line Location: WALTCHEK+18
Function Call: WRITE
  • Prompt: !," ^DPT(",IEN,",-9) PointsTo:",TOIEN," the DPT 'LR' Ptr=",LRIEN
  • Line Location: WALTCHEK+19
Function Call: WRITE
  • Prompt: !," LR ptr Back To DPT=",$P(LRREC,U,3)," it should be->",TOIEN
  • Line Location: WALTCHEK+20
Function Call: WRITE
  • Prompt: !!,"Total Number of ^DPT IENs = ",CNTIEN,!
  • Line Location: WALTCHEK+23
Function Call: WRITE
  • Prompt: !,?5,"# of BAD ^LR Ptrs = ",CNT,!!
  • Line Location: WALTCHEK+24
Routine Call
  • DIC
  • Line Location:
    • START+1
    • START+3
Routine Call
  • DIR
  • Line Location:
    • TWOLRDFN+6
    • TWOLRDFN+16
    • TWOLRDFN+26
    • TWOLRDFN+40

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] START+2, OK+6, OK+9, TWOLRDFN+53*, WALTCHEK+5, WALTCHEK+9, WALTCHEK+11, WALTCHEK+18
^LR - [#63] WALTCHEK+13
^TMP("XDRMRGFR" OK+4!, OK+6*, TWOLRDFN+46!, TWOLRDFN+48*
^TMP("XDRMRGTO" OK+5!, OK+9*, TWOLRDFN+47!, TWOLRDFN+49*
^XDRM - [#15.4] WALTCHEK+18
^XDRM("B" WALTCHEK+17

Label References

Name Line Occurrences
OK OK
START START+2, OK+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OK*, OK+1
>> BLRP1 START+1*, OK+3, OK+6
>> BLRP2 START+3*, OK+3, OK+9
CNT WALTCHEK+3~, WALTCHEK+4*, WALTCHEK+7, WALTCHEK+21*, WALTCHEK+24
CNTIEN WALTCHEK+3~, WALTCHEK+4*, WALTCHEK+6*, WALTCHEK+7, WALTCHEK+23
>> DIC START+1*, START+3*
>> DIC("A" START+1*, START+3*
>> DIC(0 START+1*, START+3*
>> DIR("A" TWOLRDFN+5*, TWOLRDFN+15*, TWOLRDFN+25*, TWOLRDFN+38*
>> DIR("B" TWOLRDFN+39*
>> DIR(0 TWOLRDFN+4*, TWOLRDFN+14*, TWOLRDFN+24*, TWOLRDFN+37*
DPTIEN TWOLRDFN+1~, TWOLRDFN+30*, TWOLRDFN+35, TWOLRDFN+44, TWOLRDFN+45, TWOLRDFN+53
FIXLRDFN TWOLRDFN+1~, TWOLRDFN+20*, TWOLRDFN+53
IEN WALTCHEK+3~, WALTCHEK+4*, WALTCHEK+5*, WALTCHEK+9, WALTCHEK+18, WALTCHEK+19
LRDFN1 TWOLRDFN+1~, TWOLRDFN+10*, TWOLRDFN+33, TWOLRDFN+48
LRDFN2 TWOLRDFN+1~, TWOLRDFN+20*, TWOLRDFN+34, TWOLRDFN+49
LRIEN WALTCHEK+3~, WALTCHEK+11*, WALTCHEK+12, WALTCHEK+13, WALTCHEK+19
LRREC WALTCHEK+3~, WALTCHEK+13*, WALTCHEK+14, WALTCHEK+15, WALTCHEK+16, WALTCHEK+20
MREC WALTCHEK+3~, WALTCHEK+17*, WALTCHEK+18
PTR WALTCHEK+3~, WALTCHEK+16*, WALTCHEK+17
QFLG TWOLRDFN+1~
TOIEN WALTCHEK+3~, WALTCHEK+9*, WALTCHEK+10, WALTCHEK+11, WALTCHEK+15, WALTCHEK+19, WALTCHEK+20
U WALTCHEK+15, WALTCHEK+16, WALTCHEK+18, WALTCHEK+20
>> XDRMRG("FR" OK+3*, OK+6, TWOLRDFN+44*, TWOLRDFN+48
>> XDRMRG("TO" OK+3*, OK+9, TWOLRDFN+45*, TWOLRDFN+49
>> Y START+1, START+2, START+3, TWOLRDFN+7, TWOLRDFN+10, TWOLRDFN+17, TWOLRDFN+20, TWOLRDFN+27, TWOLRDFN+30, TWOLRDFN+41
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All