Routine: DGRRLU0

Information

DGRRLU0 ;alb/GAH - DG Replacement and Rehosting RPC for VADPT ;10/10/05 09:53

Package	Total	Call Graph
Registration	3	ADD^DGRRLU PTDATA^DGRRLUA ($$CHARCHK,ADD)^DGRRUTL
Kernel	2	$$NOW^XLFDT $$UP^XLFSTR
VA FileMan	2	DT^DILF GETS^DIQ
Health Level Seven	1	$$UPPER^HLFNC
Master Patient Index VistA	1	$$GETICN^MPIF001
Scheduling	1	GETPLIST^SDAMA202
VistALink	1	$$STOP^XOBVLIB

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Registration	3	DGRRLU DGRRLU6 DGRRLUA

Entry Points

Name	Comments	DBIA/ICR reference
BYFILTER(FILTER,FILTERV,BDATE,EDATE,SEARCH,VALUE,DELIM)	; -- search type by clinic, provider, or ward.
FILTCHK(DFN,TYPE,VALUE)	; -- Filter search - ; -- check patients to match search type and search value for filter searches ; -- returns 1 if matches, 0 if no match
WARDPTS(WARD)	; RETURN LIST OF PATIENTS IN A WARD ; Based on ORQPTQ2
PROVPTS(PROV)	; RETURN LIST OF PATIENTS LINKED TO A PRIMARY PROVIDER ; Based on ORQPTQ2 ; "APR" xref is on field PROVIDER in file 2 (2;.104) ; "AAP" xref is on field ATTENDING PHYSICIAN in file 2 (2;.1041) ;
CLINPTS(CLIN,BDATE,EDATE)	; RETURN LIST OF PTS W/CLINIC APPT W/IN BEGINNING AND END DATES
CLINPT2(CLIN,BEGIN,END)	; -- Use scheduling rehosting API from patches SD5.3253 and SD5.3275 ; -- GETPLIST^SDAMA202(SDIEN,SDFIELDS,SDAPSTAT,SDSTART,SDEND,.SDRESULT,SDIOSTAT)
SPECPTS(SPEC)	;Returns a list of patients associated with a specialty ; "ATR" cross reference is on the Treating Specialty (#.103) field ; in the Patient (#2) file and is a pointer to the Facility ; Treating Specialty (#45.7) file.
ADDPTS()	;
NAMECOMP(DFN,DGRRCNT)	; ENTRY IS +$P($G(^DPT(DFN,"NAME")),"^",1) ;

External References

Name	Field # of Occurrence
ADD^DGRRLU	ADDPTS+19
PTDATA^DGRRLUA	ADDPTS+9
$$CHARCHK^DGRRUTL	NAMECOMP+6, NAMECOMP+7, NAMECOMP+8, NAMECOMP+9, NAMECOMP+10, NAMECOMP+11
ADD^DGRRUTL	BYFILTER+5, BYFILTER+13, BYFILTER+18, BYFILTER+19, ADDPTS+11, ADDPTS+15, ADDPTS+16, ADDPTS+17, NAMECOMP+12
DT^DILF	CLINPTS+11, CLINPTS+12
GETS^DIQ	NAMECOMP+4
$$UPPER^HLFNC	NAMECOMP+6, NAMECOMP+7, NAMECOMP+8, NAMECOMP+9, NAMECOMP+10, NAMECOMP+11
$$GETICN^MPIF001	FILTCHK+21
GETPLIST^SDAMA202	CLINPT2+8
$$NOW^XLFDT	CLINPTS+5
$$UP^XLFSTR	FILTCHK+4
$$STOP^XOBVLIB	BYFILTER+7, WARDPTS+7, PROVPTS+10, SPECPTS+8

FileNo	Call Tags
^VA(20 - [#20]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WARDPTS+5
^DPT - [#2]	FILTCHK+13, FILTCHK+16, FILTCHK+24, WARDPTS+10, PROVPTS+10, PROVPTS+12, SPECPTS+10, NAMECOMP+3
^DPT("ATR"	SPECPTS+8
^DPT("CN"	WARDPTS+8
^TMP("DGPTLKUP"	BYFILTER+2!, WARDPTS+10, PROVPTS+12, CLINPT2+21, SPECPTS+10, ADDPTS+5, ADDPTS+6, ADDPTS+14, ADDPTS+21!
^TMP($J	CLINPT2+3!, CLINPT2+11!, CLINPT2+14, CLINPT2+18, CLINPT2+20, CLINPT2+22!

Label References

Name	Line Occurrences
$$FILTCHK	WARDPTS+9, PROVPTS+11, CLINPT2+19, SPECPTS+9
ADDPTS	BYFILTER+16
CLINPT2	CLINPTS+16
CLINPTS	BYFILTER+9
PROVPTS	BYFILTER+10
SPECPTS	BYFILTER+11
WARDPTS	BYFILTER+8

Naked Globals

Name	Field # of Occurrence
^(	CLINPT2+18

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPTDT	CLINPT2+4~, CLINPT2+20, CLINPT2+21, ADDPTS+12~, ADDPTS+13, ADDPTS+14*, ADDPTS+15
APPTS	CLINPT2+4~*, CLINPT2+8, CLINPT2+11
BDATE	BYFILTER~, BYFILTER+9, CLINPTS~, CLINPTS+8*, CLINPTS+11, CLINPTS+13, CLINPTS+16
BEGIN	CLINPT2~, CLINPT2+8
CHKIN	CLINPTS+3~
CHKVAL	FILTCHK+9~, FILTCHK+13, FILTCHK+14, FILTCHK+16, FILTCHK+18, FILTCHK+21, FILTCHK+22, FILTCHK+24, FILTCHK+25
CHKX	CLINPTS+3~
CLIN	CLINPTS~, CLINPTS+1, CLINPTS+16, CLINPT2~, CLINPT2+8
CLNAM	CLINPTS+3~
DE	NAMECOMP+2~, NAMECOMP+11*, NAMECOMP+12
DELIM	BYFILTER~, BYFILTER+7
DFN	FILTCHK~, FILTCHK+7, FILTCHK+13, FILTCHK+16, FILTCHK+21, FILTCHK+24, WARDPTS+3~, WARDPTS+4, WARDPTS+7, WARDPTS+8 , WARDPTS+9, WARDPTS+10, PROVPTS+7~, PROVPTS+8, PROVPTS+10, PROVPTS+11, PROVPTS+12, CLINPTS+3~, CLINPTS+7, SPECPTS+6~ , SPECPTS+7, SPECPTS+8, SPECPTS+9, SPECPTS+10, ADDPTS+1~, ADDPTS+6, ADDPTS+9, ADDPTS+14, NAMECOMP~, NAMECOMP+3
DGA	NAMECOMP+2~, NAMECOMP+3*, NAMECOMP+4, NAMECOMP+6, NAMECOMP+7, NAMECOMP+8, NAMECOMP+9, NAMECOMP+10, NAMECOMP+11
DGNMC	NAMECOMP+2~
DGNMC(20	NAMECOMP+6, NAMECOMP+7, NAMECOMP+8, NAMECOMP+9, NAMECOMP+10, NAMECOMP+11
DGRRAPTS	ADDPTS+1~, ADDPTS+4*
DGRRCNT	NAMECOMP~, NAMECOMP+12
DGRRCTR	ADDPTS+1~, ADDPTS+3, ADDPTS+7, ADDPTS+8, ADDPTS+18
>> DGRRESLT	BYFILTER+17
DGRRFLG	ADDPTS+1~, ADDPTS+3, ADDPTS+5, ADDPTS+6, ADDPTS+8
>> DGRRLINE	BYFILTER+6
EDATE	BYFILTER~, BYFILTER+9, CLINPTS~, CLINPTS+9, CLINPTS+12, CLINPTS+13, CLINPTS+14, CLINPTS+16
END	CLINPT2~, CLINPT2+8
FILTER	BYFILTER~, BYFILTER+8, BYFILTER+9, BYFILTER+10, BYFILTER+11, ADDPTS+4, ADDPTS+10
FILTERV	BYFILTER~, BYFILTER+7
FN	NAMECOMP+2~, NAMECOMP+7*, NAMECOMP+12
I	BYFILTER+7, FILTCHK+9~, CLINPTS+3~, CLINPTS+7, CLINPT2+4~, CLINPT2+17, CLINPT2+18, CLINPT2+20
J	FILTCHK+9~, CLINPTS+3~
>> LINENO	BYFILTER+6*, BYFILTER+17
LN	NAMECOMP+2~, NAMECOMP+6*, NAMECOMP+12
MAXAPPTS	CLINPTS+3~, CLINPTS+4*
>> MAXSIZE	ADDPTS+8, ADDPTS+18, ADDPTS+19
>> MAXSIZRE	BYFILTER+18, ADDPTS+19, ADDPTS+20*
MI	NAMECOMP+2~, NAMECOMP+8*, NAMECOMP+12
NAME	CLINPTS+3~, ADDPTS+1~, ADDPTS+2, ADDPTS+5, ADDPTS+6, ADDPTS+14
NOWDT	CLINPTS+3~, CLINPTS+5*
OKAY	BYFILTER+1~, BYFILTER+3, BYFILTER+8, BYFILTER+9, BYFILTER+10, BYFILTER+11, BYFILTER+13, FILTCHK+9~, FILTCHK+10, FILTCHK+14* , FILTCHK+18, FILTCHK+22, FILTCHK+25*, FILTCHK+26
ORC	CLINPTS+3~
ORJ	CLINPTS+3~
ORNOWDT	CLINPTS+3~
ORSRV	CLINPTS+3~
PCNT	BYFILTER+1~, BYFILTER+3*, BYFILTER+17, ADDPTS+9
PR	NAMECOMP+2~, NAMECOMP+9*, NAMECOMP+12
PROV	PROVPTS~, PROVPTS+5, PROVPTS+10
SEARCH	BYFILTER~, WARDPTS+9, PROVPTS+11, CLINPT2+19, SPECPTS+9
SPEC	SPECPTS~, SPECPTS+5, SPECPTS+8
SU	NAMECOMP+2~, NAMECOMP+10*, NAMECOMP+12
TYPE	FILTCHK~, FILTCHK+6, FILTCHK+11, FILTCHK+15, FILTCHK+19, FILTCHK+23
U	SPECPTS+10, NAMECOMP+3
VAL	BYFILTER+1~, BYFILTER+7*, BYFILTER+8, BYFILTER+9, BYFILTER+10, BYFILTER+11
VALUE	BYFILTER~, FILTCHK~, FILTCHK+4, FILTCHK+5, FILTCHK+12, FILTCHK+14, FILTCHK+17*, FILTCHK+18, FILTCHK+22, FILTCHK+25 , WARDPTS+9, PROVPTS+11, CLINPT2+19, SPECPTS+9
WARD	WARDPTS~, WARDPTS+2, WARDPTS+5*, WARDPTS+6, WARDPTS+8
X	DGRRLU0+3, CLINPTS+3~, CLINPT2+4~, CLINPT2+17, CLINPT2+18*, CLINPT2+19, CLINPT2+21
XREF	PROVPTS+7~, PROVPTS+9*, PROVPTS+10
Y	CLINPTS+3~
Y(1	CLINPTS+13*

Customize PDF page

Package: Registration