Routine: DGQPTQ2

Information

DGQPTQ2 ; slc/CLA - Functions which return patient lists and list sources pt 2 ;05/05/2004

Package	Total	Call Graph
Registration	4	$$ACTIVE^DGACT $$FAPCHK^DGENRPD2 WIN^DGPMDDCF SDA^VADPT
Kernel	3	$$NOW^XLFDT $$UP^XLFSTR $$ACTIVE^XUSER
Scheduling	2	$$SDAPI^SDAMA301 $$ACTLOC^SDWU
Toolkit	1	($$GET,GETLST)^XPAR
VA FileMan	1	DT^DILF

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	DGQPT DGQPTQ11 DGQPTQ6

Entry Points

Name	Comments	DBIA/ICR reference
CLIN(Y)	; RETURN LIST OF CLINICS
CLINPTS(Y,CLIN,DGBDATE,DGEDATE)	; RETURN LIST OF PTS W/CLINIC APPT W/IN BEGINNING AND END DATES
CDATRANG(DGY)	; return default start and stop dates for clinics in form start^stop
PTAPPTS(Y,DFN,DGBDATE,DGEDATE,CLIN)	; return appts for a patient between beginning and end dates for a clinic, if no clinic return all appointments
PROV(Y)	; RETURN LIST OF PROVIDERS
PROVPTS(Y,PROV)	; RETURN LIST OF PATIENTS LINKED TO A PRIMARY PROVIDER
SPEC(Y)	; RETURN LIST OF TREATING SPECIALTIES
SPECPTS(Y,SPEC)	; RETURN LIST OF PATIENTS LINKED TO A TREATING SPECIALTY
WARD(Y)	; RETURN LIST OF ACTIVE WARDS
WARDPTS(Y,WARD)	; RETURN LIST OF PATIENTS IN A WARD ; SLC/PKS - Modifications for Room/Bed data on 1/19/2001.
NLIST(DGQY)	; return a null list

External References

Name	Field # of Occurrence
$$ACTIVE^DGACT	SPEC+4
$$FAPCHK^DGENRPD2	CLINPTS+19
WIN^DGPMDDCF	WARD+5
DT^DILF	CLINPTS+11, CLINPTS+12, PTAPPTS+13, PTAPPTS+14
$$SDAPI^SDAMA301	CLINPTS+18
$$ACTLOC^SDWU	CLIN+4, CLINPTS+2, PTAPPTS+2
SDA^VADPT	PTAPPTS+19
$$NOW^XLFDT	CLINPTS+5
$$UP^XLFSTR	CLINPTS+8, CLINPTS+9, CDATRANG+3, CDATRANG+4, CDATRANG+6, PTAPPTS+7, PTAPPTS+10
$$GET^XPAR	CLINPTS+8, CLINPTS+9, CDATRANG+3, CDATRANG+4, PTAPPTS+7, PTAPPTS+10
GETLST^XPAR	CLIN+2
$$ACTIVE^XUSER	PROV+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WARD+4, WARDPTS+6
^DIC(45.7 - [#45.7]	SPEC+4
^DPT - [#2]	CLINPTS+29, PROVPTS+4, SPECPTS+4, WARDPTS+10, WARDPTS+13
^DPT("APR"	PROVPTS+4
^DPT("ATR"	SPECPTS+4
^DPT("CN"	WARDPTS+9
^SC - [#44]	CLIN+5, CLINPTS+32
^TMP($J	CLINPTS+19!, CLINPTS+20, CLINPTS+21, CLINPTS+22*, CLINPTS+24, CLINPTS+25, CLINPTS+26, CLINPTS+35!
^UTILITY("VASD"	PTAPPTS+21, PTAPPTS+22, PTAPPTS+23
^VA(200 - [#200]	CLINPTS+6, CDATRANG+2, PTAPPTS+5, PROV+3
^XUSEC("PROVIDER"	PROV+5

Naked Globals

Name	Field # of Occurrence
^(	PROV+3, SPEC+4, WARD+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASTAT	CLINPTS+16~, CLINPTS+26*, CLINPTS+28, CLINPTS+35!
CHKIN	CLINPTS+3~
CHKX	CLINPTS+3~
CLIN	CLINPTS~, CLINPTS+1, CLINPTS+2, CLINPTS+17, CLINPTS+29, CLINPTS+32, PTAPPTS~, PTAPPTS+2, PTAPPTS+7, PTAPPTS+10 , PTAPPTS+18
CLNAM	CLINPTS+3~, CLINPTS+32*, CLINPTS+33
CNT	PTAPPTS+3~, PTAPPTS+24, PTAPPTS+25
D0	WARD+1~, WARD+5*
DFN	CLINPTS+3~, CLINPTS+7, CLINPTS+25, CLINPTS+26, CLINPTS+29, PTAPPTS~, PROVPTS+2~, PROVPTS+3, PROVPTS+4, SPECPTS+2~ , SPECPTS+3, SPECPTS+4, WARDPTS+3~, WARDPTS+4, WARDPTS+8, WARDPTS+9, WARDPTS+10, WARDPTS+13
DGARRAY	CLINPTS+16~, CLINPTS+18, CLINPTS+35!
DGARRAY("FLDS"	CLINPTS+17*
DGARRAY("SORT"	CLINPTS+18*
DGARRAY(1	CLINPTS+17*
DGARRAY(2	CLINPTS+17*
DGBDATE	CLINPTS~, CLINPTS+8, CLINPTS+11, CLINPTS+13, CLINPTS+17, CDATRANG+1~, CDATRANG+3, CDATRANG+5, CDATRANG+6, PTAPPTS~ , PTAPPTS+4, PTAPPTS+6, PTAPPTS+7, PTAPPTS+8*, PTAPPTS+13, PTAPPTS+15, PTAPPTS+16
DGC	CLINPTS+3~
DGEDATE	CLINPTS~, CLINPTS+9, CLINPTS+12, CLINPTS+13, CLINPTS+14, CLINPTS+17, CDATRANG+1~, CDATRANG+4, CDATRANG+5, CDATRANG+6 , PTAPPTS~, PTAPPTS+4, PTAPPTS+9, PTAPPTS+10, PTAPPTS+11, PTAPPTS+14, PTAPPTS+15, PTAPPTS+17
DGI	PROVPTS+2~, PROVPTS+3, PROVPTS+4, SPECPTS+2~, SPECPTS+3, SPECPTS+4, WARDPTS+3~, WARDPTS+4, WARDPTS+10, WARDPTS+19 , WARDPTS+20
DGJ	CLINPTS+3~, CLINPTS+24*, CLINPTS+25, CLINPTS+26, CLINPTS+29
DGLST	CLIN+1~, CLIN+2
DGLST(	CLIN+3, CLIN+4
DGNOWDT	CLINPTS+3~, CLINPTS+5*
DGQY	NLIST~
DGQY(1	NLIST+1*
DGSRV	CLINPTS+3~, CLINPTS+6, CLINPTS+8, CLINPTS+9, CDATRANG+1~, CDATRANG+2, CDATRANG+3, CDATRANG+4, PTAPPTS+3~, PTAPPTS+5* , PTAPPTS+7, PTAPPTS+10
DGY	CDATRANG~, CDATRANG+6*
DUZ	CLINPTS+6, CDATRANG+2, PTAPPTS+5
EXT	PTAPPTS+3~, PTAPPTS+23*, PTAPPTS+24
I	CLIN+1~, CLIN+3, CLIN+4, CLIN+5, CLINPTS+3~, CLINPTS+7, CLINPTS+29, CLINPTS+31, PROV+1~, PROV+2 , PROV+5, SPEC+1~, SPEC+2, SPEC+4, WARD+1~, WARD+2, WARD+6*
IEN	CLIN+1~, CLIN+4, CLIN+5, PROV+1~, PROV+3, PROV+5, SPEC+1~, SPEC+4, WARD+1~, WARD+4 , WARD+5, WARD+6
INT	PTAPPTS+3~, PTAPPTS+22*, PTAPPTS+24
INVDT	PTAPPTS+3~, PTAPPTS+22*, PTAPPTS+24
J	CLINPTS+3~
MAXAPPTS	CLINPTS+3~, CLINPTS+4*, CLINPTS+31
NAME	CLINPTS+3~, PROV+1~, PROV+2, PROV+3, PROV+4, PROV+5, SPEC+1~, SPEC+2, SPEC+4, WARD+1~ , WARD+2, WARD+4, WARD+6
NUM	PTAPPTS+3~, PTAPPTS+21, PTAPPTS+22, PTAPPTS+23
PROV	PROVPTS~, PROVPTS+1, PROVPTS+4
RBDAT	WARDPTS+3~, WARDPTS+11, WARDPTS+13, WARDPTS+15, WARDPTS+16, WARDPTS+17, WARDPTS+18, WARDPTS+19
SAPPT	CLINPTS+16~, CLINPTS+21*, CLINPTS+22, CLINPTS+35!
SDCNT	CLINPTS+16~, CLINPTS+18*, CLINPTS+19, CLINPTS+35!
SDFN	CLINPTS+16~, CLINPTS+20*, CLINPTS+21, CLINPTS+22, CLINPTS+35!
SPEC	SPECPTS~, SPECPTS+1, SPECPTS+4
TDATE	PROV+1~
U	CLIN+4, CLIN+5, CLINPTS+6, CLINPTS+32, CDATRANG+2, PTAPPTS+5, PTAPPTS+22, PTAPPTS+24, WARDPTS+13, WARDPTS+19
VAERR	PTAPPTS+20, PTAPPTS+27!
VASD	PTAPPTS+3~
VASD("C"	PTAPPTS+18*
VASD("F"	PTAPPTS+16*
VASD("T"	PTAPPTS+17*
WARD	WARDPTS~, WARDPTS+2, WARDPTS+6*, WARDPTS+9
X	CLINPTS+3~, CLINPTS+19*, WARD+6
Y	CLIN~, CLINPTS~, CLINPTS+33!, CLINPTS+34, PTAPPTS~, PROV~, PROVPTS~, SPEC~, SPECPTS~, WARD~ , WARDPTS~
Y(	CLIN+5, CLINPTS+29, PTAPPTS+24, PROV+5, PROVPTS+4, SPEC+4, SPECPTS+4, WARD+6, WARDPTS+10, WARDPTS+19
Y(1	CLINPTS+1, CLINPTS+2, CLINPTS+13, CLINPTS+19, CLINPTS+33, CLINPTS+34, PTAPPTS+2, PTAPPTS+15, PTAPPTS+26, PROVPTS+1 , PROVPTS+5, SPECPTS+1, SPECPTS+5, WARDPTS+2, WARDPTS+22*

Customize PDF page

Package: Registration