Routine: DGQPTQ1

Package	Total	Call Graph
Scheduling	2	($$PRPT,$$TMPT)^SCAPMC ($$OUTPTAP,$$OUTPTPR)^SDUTL3
VA Fileman	2	NOW^%DTC $$EXTERNAL^DILFD
Kernel	1	$$NOW^XLFDT
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Registration	3	DGQPT DGQPTQ11 DGQPTQ6

Entry Points

Name	Comments	DBIA/ICR reference
TEAMPROV(DGY,TEAM)	; return list of providers linked to a team
PROVPT(DGY,DGPT)	; return PCMM primary provider for a patient
VAMCPTS(Y)	; RETURN LIST OF PATIENTS IN VAMC: DFN^NAME
PERSPR(DGY)	; return list of personal lists linked to current user
PDLINK(DGDEV,DGPT)	; returns '1' if patient is linked to device via team
VAMCLONG(Y,DIR,FROM)	; return a bolus of patients in VAMC: DFN^NAME
PCMMLINK(DGPROV,DGPT)	;returns '1' if patient is linked to provider via PCMM
PRIMPT(DGY,DGPT)	; return patient's PCMM primary care team
TPTPR(DGY,PT)	;return list of providers linked to a patient via teams
DEFTM(DGY)	; return current user's default team list
TEAMS(DGY)	; return list of teams for a system ; Also called under DBIA # 2692.
TEAMPR2(DGY,PROV)	; return list of teams linked to a provider ; This tag added by PKS/slc - 8/1999.
TEAMPR(DGY,PROV)	; return list of teams linked to a provider
TEAMPTS(DGY,TEAM,TMPFLAG)	; RETURN LIST OF PATIENTS IN A TEAM ; Also called under DBIA # 2692. ; If TMPFLAG passed and = TRUE, code expects a "^TMP(xxx" ; global root string passed in DGY, and builds the returned ; list in that global instead of to a memory array.
TPROVPT(PROV)	;return list of patients linked to a provider via teams ; Modified by PKS: 8/1999.
PPLINK(DGPROV,DGPT)	; returns '1' if patient is linked to provider
TMSPT(DGY,PT)	;return list of teams linked to a patient (patient is active)

Name	Field # of Occurrence
NOW^%DTC	PRIMPT+4
$$EXTERNAL^DILFD	TMSPT+7
$$PRPT^SCAPMC	PCMMLINK+12
$$TMPT^SCAPMC	PRIMPT+5
$$OUTPTAP^SDUTL3	PCMMLINK+9
$$OUTPTPR^SDUTL3	PROVPT+2, PCMMLINK+6
$$NOW^XLFDT	PROVPT+2, PCMMLINK+6, PCMMLINK+9
$$GET^XPAR	DEFTM+3

FileNo	Call Tags
^OR(100.21 - [#100.21]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	PDLINK+6, PDLINK+7
^DPT - [#2]	TEAMPTS+18, TEAMPTS+19, TPROVPT+9, TPROVPT+11
^DPT("AAP"	PPLINK+5
^DPT("APR"	PPLINK+4
^DPT("B"	VAMCPTS+3, VAMCLONG+3, VAMCLONG+4, VAMCLONG+7, VAMCLONG+8
^OR(100.21 - [#100.21]	TEAMS+4, TEAMS+5, TEAMPTS+14, TEAMPTS+15, TEAMPR+4, TEAMPR+5, TEAMPR2+5, TEAMPR2+6, TEAMPROV+4, TEAMPROV+5 , TPROVPT+5, TPROVPT+6, TPROVPT+7, TPROVPT+8, TMSPT+4, TMSPT+5, TMSPT+6, TPTPR+4, TPTPR+5, TPTPR+6 , PERSPR+3, PERSPR+4, PERSPR+5, PDLINK+13
^TMP("DGLPUPT"	TPROVPT+2, TPROVPT+9, TPROVPT+11, TPROVPT+12, PPLINK+8, PPLINK+10!
^TMP("DGPCMMLK"	PCMMLINK+14, PCMMLINK+16!
^VA(200 - [#200]	DEFTM+2, TEAMPROV+6, TPTPR+7

Name	Line Occurrences
$$PCMMLINK	PPLINK+13
TMSPT	PDLINK+10
TPROVPT	PPLINK+7

Name	Field # of Occurrence
^(0	PDLINK+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRIMPT+4, PRIMPT+11!
CNT	VAMCLONG+1~*, VAMCLONG+3, VAMCLONG+5, VAMCLONG+7
DGADT	PRIMPT+2~, PRIMPT+8*, PRIMPT+9
DGDATA	TEAMPR2+3~, TEAMPR2+6*
DGDEV	PDLINK~, PDLINK+4, PDLINK+6, PDLINK+7, PDLINK+8*, PDLINK+9, PDLINK+13
DGDEVIEN	PDLINK+2~, PDLINK+7*, PDLINK+8
DGDP	PDLINK+2~, PDLINK+3, PDLINK+13, PDLINK+14
DGI	TEAMPTS+12~, TEAMPTS+14, TEAMPTS+15, TPROVPT+3~, TPROVPT+7, TPROVPT+8
DGIDT	PRIMPT+2~, PRIMPT+8*, PRIMPT+9
DGPCMM	PCMMLINK+1~, PCMMLINK+12*
DGPCP	PCMMLINK+1~, PCMMLINK+13, PCMMLINK+14, PCMMLINK+15
DGPP	PPLINK+1~, PPLINK+2, PPLINK+9, PPLINK+13, PPLINK+15, PCMMLINK+1~, PCMMLINK+2, PCMMLINK+14, PCMMLINK+15*, PCMMLINK+18
DGPROV	PPLINK~, PPLINK+3, PPLINK+4, PPLINK+5, PPLINK+7, PPLINK+13, PCMMLINK~, PCMMLINK+3, PCMMLINK+6, PCMMLINK+9 , PCMMLINK+15
DGPT	TEAMPTS+12~, TEAMPTS+15, TEAMPTS+18, TEAMPTS+19, TPROVPT+3~, TPROVPT+8, TPROVPT+9, TPROVPT+11, PRIMPT~, PRIMPT+1 , PRIMPT+5, PROVPT~, PROVPT+1, PROVPT+2, PPLINK~, PPLINK+3, PPLINK+4, PPLINK+5, PPLINK+9, PPLINK+13 , PDLINK~, PDLINK+4, PDLINK+10, PCMMLINK~, PCMMLINK+3, PCMMLINK+6, PCMMLINK+9, PCMMLINK+12
DGQDT	PRIMPT+2~
DGQDT("BEGIN"	PRIMPT+4*
DGQDT("END"	PRIMPT+4*
DGQDT("INCL"	PRIMPT+4*
DGQERR	PRIMPT+2~
DGQERROR	PRIMPT+2~, PRIMPT+5*, PRIMPT+6
DGQLST	PRIMPT+2~
DGQLST(1	PRIMPT+7, PRIMPT+8
DGQPUR	PRIMPT+2~
DGQPUR(2	PRIMPT+3*
DGSRV	DEFTM+2~*, DEFTM+3
DGTM	TEAMS+2~, TEAMS+5, TEAMS+6, TEAMPR+2~, TEAMPR+3, TEAMPR+4, TEAMPR+5, TEAMPR+6, TEAMPR2+3~, TEAMPR2+4 , TEAMPR2+5, TEAMPR2+9, TPROVPT+3~, TPROVPT+4, TPROVPT+5, TPROVPT+6, TPROVPT+7, TPROVPT+8, TMSPT+2~, TMSPT+3 , TMSPT+4, TMSPT+5, TMSPT+6, TMSPT+8, TPTPR+2~, TPTPR+3, TPTPR+4, TPTPR+5, TPTPR+6, PERSPR+1~ , PERSPR+2, PERSPR+3, PERSPR+4, PERSPR+5, PERSPR+6, PDLINK+2~, PDLINK+12, PDLINK+13
DGTMDEV	PDLINK+2~
DGTMN	TEAMS+2~, TEAMS+3, TEAMS+4, TEAMS+5, TEAMS+6, TEAMPR+2~, TEAMPR+5, TEAMPR+6, TEAMPR2+3~, TEAMPR2+7 , TEAMPR2+9, TPROVPT+3~, TPROVPT+6, TPROVPT+11, TMSPT+2~, TMSPT+5, TMSPT+8, PERSPR+1~, PERSPR+5*, PERSPR+6
DGTMTYP	TMSPT+2~, TMSPT+6, TMSPT+7, TMSPT+8
DGTYPE	TEAMPR2+3~, TEAMPR2+8*, TEAMPR2+9
DGX	PRIMPT+2~, PRIMPT+8, PRIMPT+9, PPLINK+1~, PPLINK+2, PPLINK+8, PPLINK+9, PDLINK+2~, PDLINK+11, PDLINK+12
DGY	DEFTM~, DEFTM+3, TEAMS~, TEAMPTS~, TEAMPTS+10, TEAMPTS+17, TEAMPR~, TEAMPR2~, TEAMPROV~, TMSPT~ , TPTPR~, TPTPR+8, PERSPR~, PRIMPT~, PRIMPT+6, PRIMPT+9, PRIMPT+10, PROVPT~, PDLINK+2~, PDLINK+10
DGY(	TEAMS+6, TEAMPTS+19, TEAMPR+6, TEAMPR2+9, TEAMPROV+6, TMSPT+8, TPTPR+7, PERSPR+6, PDLINK+11, PDLINK+12
DGY(1	TEAMS+7, TEAMPTS+11, TEAMPTS+21, TEAMPR+1, TEAMPR+7, TEAMPR2+2, TEAMPR2+10, TEAMPROV+1, TEAMPROV+7, TMSPT+1 , TMSPT+9, TPTPR+1, TPTPR+8, PERSPR+7, PRIMPT+1, PROVPT+1, PROVPT+2*
DIR	VAMCLONG~, VAMCLONG+2, VAMCLONG+6
DOTMP	TEAMPTS+5~, TEAMPTS+6, TEAMPTS+8, TEAMPTS+10, TEAMPTS+11, TEAMPTS+16, TEAMPTS+19, TEAMPTS+20, TEAMPTS+21
DUZ	DEFTM+1, DEFTM+2, PERSPR+3
FROM	VAMCLONG~, VAMCLONG+3, VAMCLONG+4, VAMCLONG+7, VAMCLONG+8
I	VAMCPTS+1~, VAMCPTS+2, VAMCPTS+3, VAMCLONG+1~, VAMCLONG+3, VAMCLONG+4, VAMCLONG+5, VAMCLONG+7, VAMCLONG+8, TEAMS+2~ , TEAMS+3, TEAMS+6, TEAMPTS+12~, TEAMPTS+13, TEAMPTS+17, TEAMPTS+19, TEAMPTS+20, TEAMPTS+21, TEAMPR+2~, TEAMPR+3 , TEAMPR+6, TEAMPR2+3~, TEAMPR2+4, TEAMPR2+9, TEAMPROV+2~, TEAMPROV+3, TEAMPROV+6, TMSPT+2~, TMSPT+3, TMSPT+8* , PERSPR+1~, PERSPR+2, PERSPR+6
IEN	VAMCLONG+1~
J	VAMCPTS+1~, VAMCPTS+3*
NEWTMP	TEAMPTS+5~, TEAMPTS+10, TEAMPTS+17, TEAMPTS+18, TEAMPTS+20*
>> ORDATA	TEAMPR2+7, TEAMPR2+8
>> ORDEVIEN	PDLINK+7
>> ORTM	TEAMPR2+6
>> ORY	TEAMPTS+20
PROV	TEAMPR~, TEAMPR+1, TEAMPR+4, TEAMPR2~, TEAMPR2+2, TEAMPR2+5, TEAMPROV+2~, TEAMPROV+5, TEAMPROV+6, TPROVPT~ , TPROVPT+2, TPROVPT+5, TPTPR+2~, TPTPR+6, TPTPR+7
PT	TMSPT~, TMSPT+1, TMSPT+4, TPTPR~, TPTPR+1, TPTPR+4
SEQ	TEAMPROV+2~, TEAMPROV+4, TEAMPROV+5, TPTPR+2~, TPTPR+5, TPTPR+6
TEAM	TEAMPTS~, TEAMPTS+9, TEAMPTS+14, TEAMPTS+15, TEAMPROV~, TEAMPROV+1, TEAMPROV+4, TEAMPROV+5
TMPFLAG	TEAMPTS~, TEAMPTS+7, TEAMPTS+8
U	DEFTM+2, TEAMS+6, TEAMPTS+18, TEAMPTS+19, TEAMPR+5, TEAMPR+6, TEAMPR2+7, TEAMPR2+8, TEAMPR2+9, TEAMPROV+6 , TPROVPT+6, TPROVPT+9, TPROVPT+11, TMSPT+5, TMSPT+6, TMSPT+8, TPTPR+7, PERSPR+4, PERSPR+5, PERSPR+6 , PRIMPT+8, PRIMPT+9, PDLINK+7, PDLINK+13
V	VAMCPTS+1~, VAMCPTS+3*
Y	VAMCPTS~, VAMCLONG~
Y(	VAMCPTS+3, VAMCLONG+4, VAMCLONG+5, VAMCLONG+8

Customize PDF page

Package: Registration

Routine: DGQPTQ1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: