Routine: XDRDVAL1

Package	Total	Call Graph
Toolkit	5	$$FILE^XDRDPICK DOENTRY^XDRDVAL LISTPROB^XDRDVAL1 CHKMERG^XDRDVAL2 SETUP^XDRMERG
VA Fileman	5	(,$$FIND1)^DIC FILE^DIE ^DIK $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC $$NOW^XLFDT
Inpatient Medications	1	($$EN,EN)^PSJPATMR
MailMan	1	^XMD

Package	Total	Caller Graph
Toolkit	3	XDRDVAL1 XDRMERG0 XDRMERGC

Entry Points

Name	Comments	DBIA/ICR reference
PAIRID(FILE,FROM,TO,IEN)	;
PAIROUT(FILE,FROM,TO,IEN,DATA)	;
EN	;
STRIP(X1)	;
LISTPROB(DATA)	;
EN1(FILE,IEN,ARRAY)	;
SENDMESG(XMSUB,XMTEXT)	;
RMOVPAIR(FROM,TO,IEN,ARRAY)	;	ICR #3168 Status: Active Usage: Private
FILENAME(FILE)	;
LOOP	;
ENPAIR(FILE,ARRAY,MERGEFLG)	; ENTRY POINT FOR CHECKING AN ARRAY OF PAIRS AT START OF MERGE

External References

Name	Field # of Occurrence
^%ZIS	EN+3, LOOP+13, ENPAIR+33, ENPAIR+34
^%ZISC	EN+3, LOOP+9, LOOP+19, ENPAIR+59
^DIC	LOOP+9
$$FIND1^DIC	ENPAIR+5
FILE^DIE	RMOVPAIR+11
^DIK	RMOVPAIR+15
$$GET1^DIQ	SENDMESG+2, SENDMESG+3
^DIR	LISTPROB+13
$$EN^PSJPATMR	ENPAIR+20
EN^PSJPATMR	ENPAIR+20
$$FILE^XDRDPICK	LOOP+4
DOENTRY^XDRDVAL	EN1+2, EN1+6
LISTPROB^XDRDVAL1	PAIROUT+2
CHKMERG^XDRDVAL2	ENPAIR+23
SETUP^XDRMERG	EN1+1
$$NOW^XLFDT	ENPAIR+8
^XMD	SENDMESG+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!! Line Location: LOOP+5
Function Call: WRITE	Prompt: !," .... WORKING HARD (may take a while)...",! Line Location: LOOP+11
Function Call: WRITE	Prompt: @IOF,!!! Line Location: LOOP+15
Function Call: WRITE	Prompt: !!,"DFN=",+XDRY," ",$P(@(FILEDIC_(+XDRY)_",0)"),U) Line Location: LOOP+16
Function Call: WRITE	Prompt: " [",$P(^(0),U,9),"]" Line Location: LOOP+16
Function Call: WRITE	Prompt: !?10,"No Problems Found....",!! Line Location: LOOP+17
Function Call: WRITE	Prompt: @IOF Line Location: LISTPROB+11
Function Call: WRITE	Prompt: !,"Field ",FIELD," [",$P(^DD(FILE,FIELD,0),U),"] IENS=",IENS Line Location: LISTPROB+16
Function Call: WRITE	Prompt: !," value: ",X Line Location: LISTPROB+17
Function Call: WRITE	Prompt: !," ",^(NNOTE) Line Location: LISTPROB+18
Function Call: WRITE	Prompt: !! Line Location: ENPAIR+42
Function Call: WRITE	Prompt: !," ******** REDIRECTED TO" Line Location: ENPAIR+51
Function Call: WRITE	Prompt: !,"FROM: DFN=",FROM," ",FRNAME Line Location: PAIRID+5
Function Call: WRITE	Prompt: " [",FRSSN,"]" Condition for execution: FILE=2!(FILE=200) Line Location: PAIRID+5
Function Call: WRITE	Prompt: " FILE 15 IEN: ",IEN Line Location: PAIRID+5
Function Call: WRITE	Prompt: !,"TO: DFN=",TO," ",TONAME Line Location: PAIRID+6
Function Call: WRITE	Prompt: " [",TOSSN,"]" Condition for execution: FILE=2!(FILE=200) Line Location: PAIRID+6
Routine Call	DIC Line Location: LOOP+9
Routine Call	DIC Line Location: ENPAIR+5
Routine Call	DIE Line Location: RMOVPAIR+11
Routine Call	DIR Line Location: LISTPROB+13
Routine Call	%ZIS Line Location: EN+3 LOOP+13 ENPAIR+33 ENPAIR+34

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(15.1 - [#15.1]	GET1^DIQ
15.23	FIND1^DIC
^XMB(3.8 - [#3.8]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	LISTPROB+16, FILENAME+3
^DIC - [#1]	LOOP+4, FILENAME+3, FILENAME+4, PAIRID+2
^TMP("XDRRMOV"	RMOVPAIR+2, RMOVPAIR+6
^TMP("XDRVALDATA"	ENPAIR+4
^TMP("XDRVALMESG"	ENPAIR+3
^TMP($J	LOOP+1, EN1+3, EN1+4
^VA(15 - [#15]	ENPAIR+45, RMOVPAIR+5
^VA(15.2 - [#15.2]	ENPAIR+8*, RMOVPAIR+14

Label References

Name	Line Occurrences
$$FILENAME	LISTPROB+3
$$STRIP	PAIRID+3, PAIRID+4
EN1	LOOP+12
LISTPROB	LOOP+18
LOOP	LOOP+17, LOOP+20
PAIRID	ENPAIR+50, PAIROUT+1
PAIROUT	ENPAIR+55
RMOVPAIR	ENPAIR+29, ENPAIR+57
SENDMESG	ENPAIR+64

Naked Globals

Name	Field # of Occurrence
^(	EN1+3, LISTPROB+18, RMOVPAIR+14
^(0	LOOP+16, PAIRID+3, PAIRID+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	EN1~, EN1+2, EN1+6, ENPAIR~, ENPAIR+7, ENPAIR+9, ENPAIR+24, ENPAIR+25, ENPAIR+26, ENPAIR+27 , ENPAIR+28, ENPAIR+29, ENPAIR+37, ENPAIR+38, ENPAIR+39, ENPAIR+40, ENPAIR+41, ENPAIR+57, RMOVPAIR~, RMOVPAIR+2 , RMOVPAIR+17
AUPNLK	LOOP+7~
AUPNLK("ALL"	LOOP+7*
DA	RMOVPAIR+1~, RMOVPAIR+14*, RMOVPAIR+15
DA(1	RMOVPAIR+15*
DATA	LOOP+1*, LOOP+2, LOOP+12, LOOP+17, LOOP+18, LISTPROB~, LISTPROB+2, LISTPROB+4, LISTPROB+5, LISTPROB+6 , LISTPROB+7, LISTPROB+8, LISTPROB+18, ENPAIR+1~, PAIROUT~, PAIROUT+2
>> DIC	LOOP+5*
>> DIC(0	LOOP+5*
DIK	RMOVPAIR+1~, RMOVPAIR+15*
DIR	EN+1~, LISTPROB+12~
DIR(0	LISTPROB+13*
DIRECT	ENPAIR+44~, ENPAIR+45*, ENPAIR+46
DUPIEN	ENPAIR+1~, ENPAIR+27, ENPAIR+28, ENPAIR+29, ENPAIR+40, ENPAIR+41, ENPAIR+43, ENPAIR+45, ENPAIR+50, ENPAIR+55 , ENPAIR+57
>> FIELD	LISTPROB+5*, LISTPROB+6, LISTPROB+7, LISTPROB+8, LISTPROB+16, LISTPROB+18
FILE	EN+1~, EN1~, EN1+1, EN1+2, LISTPROB+2, LISTPROB+3, LISTPROB+4, LISTPROB+5, LISTPROB+6, LISTPROB+7 , LISTPROB+8, LISTPROB+16, LISTPROB+18, FILENAME~, FILENAME+2, FILENAME+3, FILENAME+4, ENPAIR~, ENPAIR+23, ENPAIR+50 , ENPAIR+55, PAIROUT~, PAIROUT+1, PAIRID~, PAIRID+2, PAIRID+5, PAIRID+6
FILEDIC	EN+1~, LOOP+4, LOOP+16, PAIRID+1~, PAIRID+2, PAIRID+3, PAIRID+4
FILENAME	EN+1~, LOOP+4, LISTPROB+3, LISTPROB+15, FILENAME+1~, FILENAME+2, FILENAME+3, FILENAME+4*, FILENAME+5
>> FILEX	EN1+3*, EN1+6
FRNAME	PAIRID+1~, PAIRID+3*, PAIRID+5
FROM	ENPAIR+1~, ENPAIR+7, ENPAIR+8, ENPAIR+9, ENPAIR+20, ENPAIR+21, ENPAIR+23, ENPAIR+24, ENPAIR+25, ENPAIR+26 , ENPAIR+27, ENPAIR+28, ENPAIR+29, ENPAIR+36, ENPAIR+37, ENPAIR+38, ENPAIR+39, ENPAIR+40, ENPAIR+41, ENPAIR+55 , ENPAIR+57, RMOVPAIR~, RMOVPAIR+2, RMOVPAIR+17, PAIROUT~, PAIROUT+1, PAIRID~, PAIRID+3, PAIRID+5
FRSSN	PAIRID+1~, PAIRID+3*, PAIRID+5
FRVARBL	ENPAIR+1~, ENPAIR+25, ENPAIR+26, ENPAIR+28, ENPAIR+38, ENPAIR+39, ENPAIR+41
>> GLOB	EN1+3*, EN1+4
IEN	EN1~, EN1+2, EN1+6, RMOVPAIR~, RMOVPAIR+2, RMOVPAIR+3, RMOVPAIR+4, RMOVPAIR+5, RMOVPAIR+14, PAIROUT~ , PAIROUT+1, PAIRID~, PAIRID+5
IENS	LISTPROB+4, LISTPROB+5, LISTPROB+6, LISTPROB+7, LISTPROB+8, LISTPROB+16, LISTPROB+18, RMOVPAIR+1~, RMOVPAIR+4, RMOVPAIR+7 , RMOVPAIR+8, RMOVPAIR+9, RMOVPAIR+10
IO	EN+3, LOOP+9, LOOP+14*, LOOP+15, LOOP+19, ENPAIR+35, ENPAIR+59
IO(0	EN+3, LOOP+3, LOOP+14
IOF	LOOP+15, LISTPROB+11
ION	EN+3
>> IOP	LOOP+13, ENPAIR+33, ENPAIR+34*
IOSL	LISTPROB+11
IOST	LISTPROB+11
>> JLICNT	RMOVPAIR+2, RMOVPAIR+6
MERGE	RMOVPAIR+1~, RMOVPAIR+5*, RMOVPAIR+6, RMOVPAIR+14, RMOVPAIR+15
MERGEFLG	ENPAIR~, ENPAIR+5, ENPAIR+8, ENPAIR+33, ENPAIR+34, ENPAIR+60
MFILE	EN+1~, LOOP+4*, LOOP+5, LOOP+12, LOOP+16
>> NEWHEAD	LISTPROB+3, LISTPROB+11, LISTPROB+15*
NFILE	FILENAME+1~, FILENAME+2*, FILENAME+4
NLINES	LISTPROB+10*, LISTPROB+11, ENPAIR+1~
>> NNOTE	LISTPROB+8, LISTPROB+18
>> NNOTES	LISTPROB+7, LISTPROB+8, LISTPROB+10
ORIGFR	ENPAIR+44~, ENPAIR+46, ENPAIR+47, ENPAIR+50
ORIGTO	ENPAIR+44~, ENPAIR+46, ENPAIR+47, ENPAIR+49, ENPAIR+50
>> POP	EN+3
TO	ENPAIR+1~, ENPAIR+9, ENPAIR+20, ENPAIR+21, ENPAIR+23, ENPAIR+24, ENPAIR+25, ENPAIR+26, ENPAIR+27, ENPAIR+28 , ENPAIR+29, ENPAIR+37*, ENPAIR+38, ENPAIR+39, ENPAIR+40, ENPAIR+41, ENPAIR+49, ENPAIR+55, ENPAIR+57, RMOVPAIR~ , RMOVPAIR+2, RMOVPAIR+17, PAIROUT~, PAIROUT+1, PAIRID~, PAIRID+4, PAIRID+6
TONAME	PAIRID+1~, PAIRID+4*, PAIRID+6
TOSSN	PAIRID+1~, PAIRID+4*, PAIRID+6
TOVARBL	ENPAIR+1~, ENPAIR+26, ENPAIR+27, ENPAIR+28, ENPAIR+39, ENPAIR+40, ENPAIR+41
U	LOOP+4, LOOP+16, EN1+5, LISTPROB+16, FILENAME+4, ENPAIR+8, ENPAIR+45, ENPAIR+46, ENPAIR+47, RMOVPAIR+2 , RMOVPAIR+5, RMOVPAIR+6, RMOVPAIR+14, PAIRID+3, PAIRID+4
X	LISTPROB+6, LISTPROB+12~, LISTPROB+17, ENPAIR+44~, ENPAIR+45, ENPAIR+46, ENPAIR+47, RMOVPAIR+1~, RMOVPAIR+5*, RMOVPAIR+6
X1	EN1+4, EN1+5, STRIP~, STRIP+1, STRIP+2
XDR	EN+1~
XDRDVALF	ENPAIR+33~*
>> XDREXIT	LISTPROB+1, LISTPROB+2, LISTPROB+4, LISTPROB+5, LISTPROB+11, LISTPROB+13
XDRFDA1	ENPAIR+1~, ENPAIR+5*, ENPAIR+8
XDRGRP	SENDMESG+1~, SENDMESG+2, SENDMESG+3, SENDMESG+4, SENDMESG+5, SENDMESG+6
XDRGRPN	SENDMESG+1~, SENDMESG+3*, SENDMESG+4
>> XDRION	EN+3*, LOOP+13, LOOP+19, ENPAIR+34
XDRMESG	ENPAIR+1~, ENPAIR+3*
>> XDRVDATA	ENPAIR+4*, ENPAIR+21, ENPAIR+23, ENPAIR+32, ENPAIR+36, ENPAIR+55
XDRY	EN+1~, LOOP+10*, LOOP+12, LOOP+16, LOOP+18
XMCHAN	SENDMESG+1~, SENDMESG+7*
XMDUZ	SENDMESG+1~, SENDMESG+7*
XMSUB	ENPAIR+61~, ENPAIR+62*, ENPAIR+64, SENDMESG~
XMTEXT	ENPAIR+61~, ENPAIR+63*, ENPAIR+64, SENDMESG~
XMY	SENDMESG+1~
XMY(	SENDMESG+5, SENDMESG+6
XXX	RMOVPAIR+1~
XXX(15	RMOVPAIR+7, RMOVPAIR+8, RMOVPAIR+9, RMOVPAIR+10
Y	LOOP+9, LOOP+10, LISTPROB+12~, LISTPROB+13

Marked Items

Customize PDF page

Package: Toolkit

Routine: XDRDVAL1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items