Routine: DGQPT

Package	Total	Call Graph
Registration	6	$$CONTEXT^DGQPT1 TEAMPTS^DGQPTQ1 (CLINPTS,PROVPTS,SPECPTS,WARDPTS)^DGQPTQ2 COMBPTS^DGQPTQ6 ($$DOB,$$SSN)^DPTLK1 (ELIG,OERR,SDA)^VADPT
List Manager	3	(CHGCAP,EN)^VALM FULL^VALM1 (CLEAN,CNTRL)^VALM10
VA FileMan	3	^%DT ^DIC ^DIR
Kernel	2	($$DOW,$$FMTE)^XLFDT ($$LJ,$$UP)^XLFSTR
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Registration	1	DGQPT1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for DG PATIENT SELECTION
HDR	; -- header code
INIT	; -- init variables and list array ; Modifications for multiple "Combination" lists by PKS.
DEFAULT()	; -- Returns default action
MSG()	; -- Lmgr msg bar
HELP	; -- help code
EXIT	; -- exit code
BUILD(LIST)	; -- build list in ^TMP("DG",$J,"PATIENTS")
B1
B2
BQ
ID(DFN)	; -- Returns short ID for patient ID
APPT(DFN,CLINIC,FROM,TO)	; -- Return [next?] clinic appointment
ALT	; -- XQORM("ALT") code to search File 2 for patient X
FIND	; -- find patient in ^DPT
SELECT	; -- select patient from list
SLCT1	; -- may enter here with DFN from FIND
SLCT2	; -- convert patient's orders, if not already done
OK(DATE)	; -- Patient is deceased; ok to continue?

External References

Name	Field # of Occurrence
^%DT	BUILD+9, BUILD+10
$$CONTEXT^DGQPT1	SLCT1+4
TEAMPTS^DGQPTQ1	BUILD+11
CLINPTS^DGQPTQ2	BUILD+15
PROVPTS^DGQPTQ2	BUILD+12
SPECPTS^DGQPTQ2	BUILD+13
WARDPTS^DGQPTQ2	BUILD+14
COMBPTS^DGQPTQ6	BUILD+17
^DIC	ALT+3, FIND+3, SELECT+5
^DIR	OK+4
$$DOB^DPTLK1	B2+14
$$SSN^DPTLK1	B2+12
ELIG^VADPT	SLCT1+2
OERR^VADPT	SLCT1+2
SDA^VADPT	APPT+3
CHGCAP^VALM	BQ+3
EN^VALM	EN+2
FULL^VALM1	HELP+1, ALT+1, FIND+2, SELECT+5
CLEAN^VALM10	BUILD+23
CNTRL^VALM10	B2+16
$$DOW^XLFDT	INIT+17
$$FMTE^XLFDT	INIT+22, INIT+25, B2+2, B2+4, OK+3
$$LJ^XLFSTR	B2+15
$$UP^XLFSTR	INIT+17, INIT+21, INIT+24
$$GET^XPAR	INIT+13, INIT+18, INIT+21, INIT+24, INIT+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the display number of the patient whose chart you wish to open" Line Location: HELP+2
Function Call: WRITE	Prompt: !,"or enter a patient name, SSN, or initial/last 4 combination. To" Line Location: HELP+3
Function Call: WRITE	Prompt: !,"change the list of patients displayed on this screen, enter CV. To" Line Location: HELP+4
Function Call: WRITE	Prompt: !,"have the new list automatically displayed when selecting a new patient," Line Location: HELP+5
Function Call: WRITE	Prompt: !,"enter SV. Enter FD to search by patient name or identifier." Line Location: HELP+6
Function Call: WRITE	Prompt: !!,"Press <return> to continue ..." Line Location: HELP+7
Function Call: WRITE	Prompt: $C(7),!!,NMBR_" is not a valid selection.",! Line Location: SELECT+3
Function Call: WRITE	Prompt: !!,"Press <return> to continue ..." Line Location: SLCT1+14
Function Call: WRITE	Prompt: !,"DONE" Line Location: SLCT2+2
Function Call: WRITE	Prompt: $C(7),!!,$P(DGCNV,U,2) Line Location: SLCT2+3
Function Call: WRITE	Prompt: $C(7),!!,"This patient died "_$$FMTE^XLFDT(DATE)_"!" Line Location: OK+3
Routine Call	DIC Line Location: ALT+3 FIND+3 SELECT+5
Routine Call	DIR Line Location: OK+4
Routine Call	VALM Line Location: BQ+3
Routine Call	VALM Line Location: EN+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGSL(38.1 - [#38.1]	SLCT1+10
^DIC(42 - [#42]	BUILD+14, SLCT1+3
^DIC(45.7 - [#45.7]	BUILD+13
^DPT - [#2]	B1+7, B2+2, B2+3, ID+1, ID+2, ALT+4, FIND+4, SELECT+6, SLCT1+10
^OR(100.21 - [#100.21]	BUILD+11
^ORD(101 - [#101]	BQ+1
^SC - [#44]	BUILD+15, SLCT1+6
^TMP("DG"	DEFAULT+1, EXIT+1!, BUILD+22, B1+11, B1+12, B1+17, B2, B2+4, B2+7, B2+15* , BQ, BQ+1, SELECT+2
^UTILITY("VASD"	APPT+1!, APPT+3, APPT+4!
^VA(200 - [#200]	INIT+11, BUILD+12
^XUSEC("DG SENSITIVITY"	SLCT1+10

Label References

Name	Line Occurrences
$$ID	B2+11
$$OK	ALT+4, FIND+4, SELECT+6
BQ	BUILD+19, B1+12
BUILD	INIT+30
SLCT1	ALT+5, FIND+5

Naked Globals

Name	Field # of Occurrence
^(	B2, APPT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BUILD+1~, BUILD+9, BUILD+10
BEG	BUILD+1~, BUILD+9*, BUILD+15, BUILD+17
CLINIC	APPT~, APPT+2
DATE	OK~, OK+3
DFN	BUILD+1~, B1+1, B1+11, B2+1, B2+2, B2+3, B2+11, B2+12, B2+14, ID~ , ID+1, ID+2, APPT~, ALT+1~, ALT+5, FIND+1~, FIND+5, SELECT+1~, SELECT+2*, SELECT+3 , SELECT+5, SLCT1+7
>> DGAGE	SLCT1+8*
>> DGATTEND	SLCT1+9*
>> DGDOB	SLCT1+8*
DGI	BUILD+1~, B1*, B1+1, B1+4, B1+6, B1+7, B1+10, B1+11
>> DGL	SLCT1+6*
>> DGL(0	SLCT1+6*
>> DGL(1	SLCT1+6*
>> DGPNM	EN+1, HDR+2, SLCT1+7*
>> DGSC	SLCT1+9*
>> DGSEX	SLCT1+8*
DGSRV	INIT+11~*, INIT+13, INIT+18, INIT+21, INIT+24, INIT+27
>> DGSSN	EN+1, HDR+2, SLCT1+7*
>> DGTS	SLCT1+9*
DGVP	EN+1!, HDR+1, ALT+5, FIND+5, SLCT1+7*, SLCT1+10
>> DGWARD	SLCT1+9*
DGX	INIT+8~, INIT+14, INIT+18, INIT+23, INIT+26, BUILD+1~, B1+3, B1+4, B1+5, B1+6* , B1+7, B1+8, B1+10, B1+11, B2, B2+4, ALT+1~, ALT+2, ALT+4, FIND+1~ , FIND+4, SELECT+1~, SELECT+6
DGY	INIT+8~, INIT+13, INIT+14, INIT+16, INIT+17, INIT+20, INIT+27, INIT+30, BUILD+1~, BUILD+11 , BUILD+12, BUILD+13, BUILD+14, BUILD+15, B2, B2+1, B2+7
DGY(	B1, B1+1, B1+4, B1+6, B1+7, B1+10, B1+11
DGY(1	B1+16
DGYZB	INIT+8~, INIT+21, INIT+22, INIT+23
DGYZE	INIT+8~, INIT+24, INIT+25, INIT+26
DIC	ALT+1~, ALT+2, FIND+1~, FIND+2, SELECT+1~, SELECT+5*
DIC(0	ALT+2, FIND+2, SELECT+5*
DIR	OK+1~
DIR("A"	OK+2*
DIR("B"	OK+1*
DIR(0	OK+1*
DOB	BUILD+1~, B2+2, B2+14, B2+15
DT	INIT+17, INIT+22, INIT+25
DTIME	HELP+7, SLCT1+15
DUZ	INIT+11, SLCT1+10
END	BUILD+1~, BUILD+10*, BUILD+15, BUILD+17
FROM	APPT~, APPT+2
ID	ID+1~, ID+2, ID+3
>> IOINHI	B2+16
>> IOINORM	B2+16
LCNT	BUILD+1~, BUILD+21, BUILD+23, B1+15, B2+6, B2+15, B2+16, BQ, BQ+4
LIST	BUILD~, BUILD+2, BUILD+8*, BUILD+9, BUILD+10, BQ
LOC	SLCT1+1~, SLCT1+3, SLCT1+4, SLCT1+5*, SLCT1+6
MSG	BUILD+17~, BUILD+20, BUILD+22, B1+13~, B1+14, B1+16, B1+17
NAME	BUILD+1~, B2+1*, B2+15, ID+3
>> NEXT	APPT+3*, APPT+5
NMBR	SELECT+1~*, SELECT+2, SELECT+3, SLCT1+4
NUM	BUILD+1~, BUILD+21, BUILD+23, B1+15, B2+6, B2+7, B2+15, BQ, BQ+1
ORCNV	SLCT1+1~
PARAM	INIT+8~, INIT+16, INIT+17, INIT+18
PTID	BUILD+1~, B2+10, B2+11, B2+13*, B2+15
PTR	BUILD+1~, BUILD+2*, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BUILD+17
RBED	BUILD+1~, B2+3, B2+4, B2+15, BQ+2*, BQ+3
SENS	BUILD+1~, B2+12*, B2+13
SORT	BUILD+1~, BUILD+2, BUILD+4, BUILD+6, BUILD+7*, BUILD+8, B1+4, B1+7, B1+8, B2+4
TITLE	BUILD+1~, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BUILD+17, BQ+4
TO	APPT~, APPT+2
TYPE	BUILD+1~, BUILD+2*, BUILD+4, BUILD+5, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, BUILD+17 , BUILD+19, B1+4, B1+7, B2+3, B2+4, BQ+2
U	INIT+11, DEFAULT+1, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15, B1+4, B1+6, B1+7 , B1+10, B2+1, B2+2, B2+3, B2+4, BQ, ID+1, ID+2, APPT+3, SLCT1+6 , SLCT1+7, SLCT1+8
VA	SLCT1+1~
VADM	SLCT1+1~
VADM(1	SLCT1+7
VADM(2	SLCT1+7
VADM(3	SLCT1+8
VADM(4	SLCT1+8
VADM(5	SLCT1+8
VAEL	SLCT1+1~
VAEL(3	SLCT1+9
VAERR	APPT+1~, SLCT1+1~
VAIN	SLCT1+1~
VAIN(11	SLCT1+9
VAIN(3	SLCT1+9
VAIN(4	SLCT1+3, SLCT1+9
VAIN(5	SLCT1+6
>> VALM("TITLE"	BQ+4*
>> VALMBCK	HELP+1, BQ+4, ALT+3, ALT+4, FIND+3, FIND+4, SELECT+3, SELECT+5, SELECT+6*
>> VALMBG	BQ+4*
>> VALMCNT	BQ+4*
VALMHDR	BQ+3!
VALMHDR(1	HDR+3*
VASD	APPT+1~
VASD("C"	APPT+2*
VASD("F"	APPT+2*
VASD("T"	APPT+2*
X	HDR+1~, HDR+2, HDR+3, HELP+1~, HELP+7, BUILD+1~, BUILD+9, BUILD+10, ALT+1, ALT+2 , FIND+1~, SELECT+1~, SELECT+5, SLCT1+4~, SLCT1+13~, SLCT1+15*, OK+1~
>> XQAID	SLCT1+3
>> XQORM("ALT"	EXIT+1!
>> XQORM("B"	DEFAULT+2
>> XQORMRCL	ALT+2
>> XQORNOD(0	SELECT+1
Y	BUILD+1~, BUILD+9, BUILD+10, ALT+1~, ALT+3, ALT+4, ALT+5, FIND+1~, FIND+3, FIND+4 , FIND+5, SELECT+1~, SELECT+2*, SELECT+5, SELECT+6, OK+1~, OK+5
Z	SELECT+1~

Customize PDF page

Package: Registration

Routine: DGQPT

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: