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 |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DGWPT

Package: Registration

Routine: DGWPT


Information

DGWPT ; SLC/KCM/REV - Patient Lookup Functions ;3/20/02

Source Information

Source file <DGWPT.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 3 ($$CWAD,$$EN1)^DGQPT2  SAVDFLT^DGWPT1  ELIG^VADPT  
Kernel 1 $$HTFM^XLFDT  
Toolkit 1 $$GET^XPAR  
Uncategorized 1 ($$GETICN,GETICN)^MPIF001  

Entry Points

Name Comments DBIA/ICR reference
SELCHK(REC,DFN) ; Check for sensitive pt
; SENSITIVE
DFLTSRC(VAL) ; return default patient list source (T, W, C, P, S)
SELECT(REC,DFN) ; Selects patient & returns key information
; 1 2 3 4 5 6 7 8 9 10 11 12
; NAME^SEX^DOB^SSN^LOCIEN^LOCNM^RMBD^CWAD^SENSITIVE^ADMITTED^CONV^SC^
; 13 14 15 16
; SC%^ICN^AGE^TS
TOP(LST) ; Return top for all patients list (last selected for now)
SAVDFLT(OK,X) ; save new default patient list settings (X=type^ien^sdt;edt)
BYWARD(LST,WARD)
AGE(DFN,BEG)
DIEDON(VAL,DFN) ; Check for a date of death
CLINRNG(LST) ; return date ranges for clinic appointments

External References

Name Field # of Occurrence
$$CWAD^DGQPT2 SELECT+9
$$EN1^DGQPT2 SELCHK+2, SELECT+9
SAVDFLT^DGWPT1 SAVDFLT+1
$$GETICN^MPIF001 SELECT+15
GETICN^MPIF001 SELECT+15
ELIG^VADPT SELECT+14
$$HTFM^XLFDT CLINRNG+10, CLINRNG+13, CLINRNG+14
$$GET^XPAR DFLTSRC+2

Used in RPC

RPC Name Call Tags
DGWPT DFLTSRC DFLTSRC
DGWPT TOP TOP
DGWPT SELCHK SELCHK
DGWPT SAVDFLT SAVDFLT
DGWPT CLINRNG CLINRNG
DGWPT BYWARD BYWARD
DGWPT DIEDON DIEDON
DGWPT SELECT SELECT

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] SELECT+11
^DIC(42 - [#42] BYWARD+4, SELECT+8
^DISV( TOP+2, SELECT+19*
^DPT - [#2] DIEDON+1, BYWARD+6, TOP+3, SELECT+7, SELECT+11, SELECT+17, AGE+2
^DPT("CN" BYWARD+5
^TMP("DGWPCE" SELECT+6!
^VA(200 - [#200] DFLTSRC+1

Label References

Name Line Occurrences
$$AGE SELECT+16

Naked Globals

Name Field # of Occurrence
^( SELECT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CLINRNG+9~
%H CLINRNG+9~
BEG AGE~, AGE+3
DFN SELCHK~, SELCHK+2, DIEDON~, DIEDON+1, BYWARD+1~, BYWARD+3*, BYWARD+5*, BYWARD+6, SELECT~, SELECT+7
, SELECT+9, SELECT+11, SELECT+15, SELECT+16, SELECT+17, SELECT+19, AGE~, AGE+2
DT CLINRNG+10, CLINRNG+15, CLINRNG+16, AGE+2
DUZ TOP+2, DFLTSRC+1, SELECT+19
END AGE+1~, AGE+2*, AGE+3
IEN TOP+1~, TOP+2*, TOP+3
ILST BYWARD+1~, BYWARD+3*, BYWARD+6*, BYWARD+7
IOST SELECT+12*
LST BYWARD~, TOP~, CLINRNG~
LST( BYWARD+6*
LST(1 BYWARD+2*, BYWARD+7*, TOP+3*, CLINRNG+1*, CLINRNG+10*
LST(2 CLINRNG+2*, CLINRNG+11*
LST(3 CLINRNG+3*, CLINRNG+13*
LST(4 CLINRNG+4*, CLINRNG+14*
LST(5 CLINRNG+5*, CLINRNG+15*
LST(6 CLINRNG+6*, CLINRNG+17*
LST(7 CLINRNG+18*
OK SAVDFLT~
REC SELCHK~, SELCHK+2*, SELECT~, SELECT+7*, SELECT+8*, SELECT+9*, SELECT+11*, SELECT+13*, SELECT+14*, SELECT+15*
, SELECT+16*, SELECT+17*
SRV DFLTSRC+1~*, DFLTSRC+2
START CLINRNG+9~
SUNDAY CLINRNG+9~
U BYWARD+6, TOP+3, SELECT+7, SELECT+8, SELECT+9, SELECT+11, SELECT+13, SELECT+14, SELECT+15, SELECT+16
, SELECT+17
VAEL SELECT+18!
VAEL(3 SELECT+14
VAERR SELECT+18!
VAL DIEDON~, DIEDON+1*, DFLTSRC~, DFLTSRC+2*
WARD BYWARD~, BYWARD+2, BYWARD+4*, BYWARD+5
X CLINRNG+9~, CLINRNG+10*, CLINRNG+11, CLINRNG+12*, CLINRNG+13, CLINRNG+14, CLINRNG+16*, CLINRNG+17, SAVDFLT~, SELECT+5~
, SELECT+7*, SELECT+8*, SELECT+11*, SELECT+15*, AGE+1~, AGE+3*, AGE+4

Marked Items

Name Field # of Occurrence
$T(GETICN^MPIF001 SELECT+15
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All