Routine: DGWPT

Information

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

Source file <DGWPT.m>

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

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

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

Name	Line Occurrences
$$AGE	SELECT+16

Name	Field # of Occurrence
^(	SELECT+7

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

Name	Field # of Occurrence
$T(GETICN^MPIF001	SELECT+15