Routine: DGQPT1

Information

DGQPT1 ; SLC/MKB - Change Patient Selection List ;6/5/01 12:36pm

Source Information

Source file <DGQPT1.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Registration	4	COMB^DGLP3USR BUILD^DGQPT ($$FDEFSRC,$$LISTSRC)^DGQPTQ11 FULL^VALM1
VA Fileman	3	^%DT (,IX)^DIC ^DIR
Toolkit	1	(DEL,EN)^XPAR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Registration	1	DGQPT

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; -- new sort order
SAVE	; -- Save current list definition as default
PROV	; -- new provider list
REBUILD	; -- Ok to rebuild listing?
COMBO	; New combination list. ; SLC/PKS - 5/2000.
REMOVE	; Remove current default patient list view parameter setting(s). ; SLC/PKS - 5/2000.
CONTEXT()	; -- Returns current patient list context
CLINIC	; -- new clinic list
OK()	; -- Current definition ok?
OKR()	; -- Remove current definition?
TEAM	; -- new team list
WARD	; -- new ward list
DATE(DEFLT,START)	; -- new start/stop date
SPEC	; -- new treating specialty list
D1

External References

Name	Field # of Occurrence
^%DT	D1+1
COMB^DGLP3USR	COMBO+7
BUILD^DGQPT	REBUILD+15
$$FDEFSRC^DGQPTQ11	REMOVE+21, REMOVE+25
$$LISTSRC^DGQPTQ11	WARD+3, CLINIC+3, PROV+3, TEAM+3, SPEC+3
^DIC	WARD+5, CLINIC+6, TEAM+5, SPEC+5
IX^DIC	PROV+5
^DIR	D1, SORT+12, OK+14, OKR+6
FULL^VALM1	WARD+2, CLINIC+2, PROV+2, TEAM+2, SPEC+2, COMBO+4
DEL^XPAR	REMOVE+18
EN^XPAR	SAVE+9, SAVE+11, SAVE+14, SAVE+15, SAVE+16, SAVE+17, SAVE+18, SAVE+19, SAVE+20, SAVE+22 , SAVE+23, SAVE+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,DIR("?"),! Line Location: D1+1
Function Call: WRITE	Prompt: !!,"Saving patient list definition ... " Line Location: SAVE+2
Function Call: WRITE	Prompt: !,"ERROR" Line Location: SAVE+5
Function Call: WRITE	Prompt: "done." Line Location: SAVE+25
Function Call: WRITE	Prompt: !!,"Current List: " Line Location: OK+1
Function Call: WRITE	Prompt: "Ward "_$P($G(^DIC(42,+PTR,0)),U) Line Location: OK+3
Function Call: WRITE	Prompt: "Clinic "_$P($G(^SC(+PTR,0)),U) Line Location: OK+4
Function Call: WRITE	Prompt: "Primary Provider "_$P($G(^VA(200,+PTR,0)),U) Line Location: OK+5
Function Call: WRITE	Prompt: "Team "_$P($G(^OR(100.21,+PTR,0)),U) Line Location: OK+6
Function Call: WRITE	Prompt: "Specialty "_$P($G(^DIC(45.7,+PTR,0)),U) Line Location: OK+7
Function Call: WRITE	Prompt: "Combination" Line Location: OK+9
Function Call: WRITE	Prompt: ", sorted by "_$S(SORT="P":"Appointment Date",SORT="R":"Room-Bed",1:"Name") Line Location: OK+10
Function Call: WRITE	Prompt: !?14,"from "_BEG_" to "_END Line Location: OK+11
Function Call: WRITE	Prompt: ! Line Location: OK+14
Function Call: WRITE	Prompt: !!,"Removing your personal patient list definition ... " Line Location: REMOVE+16
Function Call: WRITE	Prompt: !,"(NOTE: Service/Section default of """_$P(DGQSRC,U,3)_""" not affected.)" Line Location: REMOVE+22
Function Call: WRITE	Prompt: !,"(NOTE: Service/Section default of """_$P(DGQSRC,U,3)_""" not affected.)" Line Location: REMOVE+29
Function Call: WRITE	Prompt: ! Line Location: OKR+5
Function Call: WRITE	Prompt: !!,">> A Clinic list cannot be sorted by room-bed assignment!" Line Location: REBUILD+3
Function Call: WRITE	Prompt: !," Please select a new sorting order:",! Line Location: REBUILD+4
Function Call: WRITE	Prompt: !!,">> A Combination list cannot be sorted by room-bed assignment!" Line Location: REBUILD+8
Function Call: WRITE	Prompt: !," Please select a new sorting order:",! Line Location: REBUILD+9
Function Call: WRITE	Prompt: !!,">> A "_$S($E(DGY)="W":"Ward",$E(DGY)="P":"Primary Provider",$E(DGY)="T":"Team",$E(DGY)="S":"Specialty",1:"")_" list cannot be sorted by clinic appointment date!" Line Location: REBUILD+12
Function Call: WRITE	Prompt: !," Please select a new sorting order:",! Line Location: REBUILD+13
Routine Call	DIC Line Location: WARD+5 CLINIC+6 TEAM+5 SPEC+5
Routine Call	DIR Line Location: D1 SORT+12 OK+14 OKR+6
Routine Call	DIC Line Location: PROV+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	OK+3
^DIC(45.7 - [#45.7]	OK+7
^OR(100.21 - [#100.21]	OK+6
^SC - [#44]	OK+4
^TMP("DG"	CONTEXT+1
^VA(200 - [#200]	SAVE+7, OK+5

Name	Line Occurrences
$$CONTEXT	SAVE+3, OK+2
$$DATE	CLINIC+7, CLINIC+8
$$OK	SAVE+2
$$OKR	REMOVE+15
D1	D1+1
REBUILD	COMBO+11
SORT	REBUILD+5, REBUILD+10, REBUILD+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1~, D1+1*
BEG	CLINIC+1~, CLINIC+7, CLINIC+10, CLINIC+11, SAVE+1~, SAVE+21, SAVE+22, OK+1~, OK+2, OK+11
BEG1	CLINIC+1~, CLINIC+6, CLINIC+7, CLINIC+8, CLINIC+9, CLINIC+10
CPARAM	SAVE+13~, SAVE+14, SAVE+15, SAVE+16, SAVE+17, SAVE+18, SAVE+19, SAVE+20*
>> D	PROV+4*
DEFLT	DATE~, DATE+3
DGQDUZ	REMOVE+10~, REMOVE+14*, REMOVE+21, REMOVE+25
DGQENT	REMOVE+10~, REMOVE+17*, REMOVE+18
DGQERR	REMOVE+10~, REMOVE+12!, REMOVE+19, REMOVE+24, REMOVE+26, REMOVE+27, REMOVE+31
DGQSRC	REMOVE+10~, REMOVE+21, REMOVE+22, REMOVE+25, REMOVE+29
DGQUIT	REBUILD+1~, REBUILD+2, REBUILD+5, REBUILD+7, REBUILD+10, REBUILD+11, REBUILD+14*
DGSRV	SAVE+7~*
>> DGY	WARD+5, CLINIC+8, CLINIC+11, PROV+5, TEAM+5, SPEC+5, SORT+2, SORT+13, COMBO+10*, REBUILD+2 , REBUILD+5, REBUILD+7, REBUILD+10, REBUILD+11, REBUILD+12, REBUILD+14, REBUILD+15
DIC	WARD+1~, WARD+5, CLINIC+1~, CLINIC+4, PROV+1~, PROV+4, TEAM+1~, TEAM+4, SPEC+1~, SPEC+4*
DIC("A"	CLINIC+4, PROV+4, TEAM+4*
DIC("B"	WARD+3, CLINIC+3, PROV+3, TEAM+3, SPEC+3*
DIC("S"	WARD+4, CLINIC+5, SPEC+4*
DIC(0	WARD+5, CLINIC+4, PROV+4, TEAM+4, SPEC+4*
DIR	DATE+1~, SORT+1~, OK+1~, OKR+1~
DIR("?"	DATE+4, D1+1, SORT+11, OK+13, OKR+4
DIR("A"	DATE+2, SORT+4, SORT+9, OK+12, OKR+3*
DIR("B"	DATE+3, SORT+5, SORT+10*
DIR(0	DATE+2, SORT+3, SORT+8, OK+12, OKR+2*
>> DTOUT	D1, SORT+12
DUZ	WARD+3, CLINIC+3, PROV+3, TEAM+3, SPEC+3, SAVE+7, REMOVE+14, REMOVE+17
END	CLINIC+1~, CLINIC+8, CLINIC+10, CLINIC+11, SAVE+1~, SAVE+21, SAVE+23, OK+1~, OK+2, OK+11
END1	CLINIC+1~, CLINIC+6, CLINIC+8, CLINIC+9, CLINIC+10
IFN	SAVE+1~, SAVE+10*, SAVE+11, SAVE+14, SAVE+15, SAVE+16, SAVE+17, SAVE+18, SAVE+19, SAVE+20
LIST	SAVE+1~, SAVE+3, SAVE+10, SAVE+21, SAVE+24, OK+1~, OK+2, OK+3, OK+4, OK+5 , OK+6, OK+7, OK+9, OK+11, OKR+1~
>> ORQERR	REMOVE+18
>> ORY	CLINIC+7, SORT+7
PARAM	SAVE+1~, SAVE+5*, SAVE+11, SAVE+14, SAVE+15, SAVE+16, SAVE+17, SAVE+18, SAVE+19, SAVE+20
PTR	OK+1~, OK+2*, OK+3, OK+4, OK+5, OK+6, OK+7, OKR+1~
SORT	OK+1~, OK+2*, OK+10
START	DATE~, DATE+2, DATE+4
U	CONTEXT+1, WARD+3, CLINIC+3, CLINIC+7, CLINIC+8, D1+1, PROV+3, TEAM+3, SPEC+3, SAVE+7 , OK+3, OK+4, OK+5, OK+6, OK+7, REMOVE+22, REMOVE+27, REMOVE+29, REMOVE+31
>> VALMBCK	WARD+2, CLINIC+2, PROV+2, TEAM+2, SPEC+2, SAVE+1, SAVE+25, REMOVE+13, REMOVE+32, COMBO+4
X	WARD+1~, CLINIC+1~, CLINIC+10, DATE+1~, D1, D1+1, D1+2, PROV+1~, TEAM+1~, SPEC+1~ , SORT+1~, SORT+2, SORT+3, SORT+4, SORT+5, SAVE+1~, SAVE+3*, SAVE+5, SAVE+9, SAVE+11 , SAVE+12, OK+1~, OKR+1~
Y	WARD+1~, WARD+5, CLINIC+1~, CLINIC+6, CLINIC+11, DATE+1~, D1+1, PROV+1~, PROV+5, TEAM+1~ , TEAM+5, SPEC+1~, SPEC+5, SORT+1~, SORT+2, SORT+5, SORT+12, SORT+13, OK+1~, OK+15 , OKR+1~, OKR+7
Z	CLINIC+1~, CLINIC+7, CLINIC+8

Customize PDF page

Package: Registration

Routine: DGQPT1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: