Routine: BLRMERGT

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 -- LR5.21030 Note: OLD, DEAD CODE -- All lines commented out ; S ^DPT(222,"LR")=8
WALTCHEK	; EP
START	;
TEST	; EP -- LR5.21030 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

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

>>	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

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRMERGT

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: