Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGQPTQ1

Package: Registration

Routine: DGQPTQ1


Information

DGQPTQ1 ; SLC/CLA - Functs which return DG patient lists and sources pt 1 ;12/15/97

Source Information

Source file <DGQPTQ1.m>

Call Graph

Call Graph

Call Graph Total: 6

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 3

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)

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All