Routine: DPTLK1

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT $$FORMAT^XLFNAME7
Registration	1	$$EMPL^DGSEC4
VA Fileman	1	CLRMSG^DDS

Package

Total

Call Graph

Kernel

$$FMTE^XLFDT $$FORMAT^XLFNAME7

Registration

$$EMPL^DGSEC4

VA Fileman

CLRMSG^DDS

Package	Total	Caller Graph
Registration	7	DGPWBD DGQPT DGQPTQ6 DGRRLU DPTLK DPTLK2 DPTLK6
Order Entry Results Reporting	3	ORQPT ORQPTQ6 ORWPT
Barcode Medication Administration	1	PSBMLLKU
Care Management	1	ORRCLPT
General Medical Record - Vitals	1	GMVRPCP
IHS Electronic Health Record	1	BEHOPTPL
IHS Patient	1	AUPNLKID
Inpatient Medications	1	PSJDPT
Scheduling	1	SCUTBK11

Package

Total

Caller Graph

Registration

DGPWBD DGQPT DGQPTQ6 DGRRLU DPTLK DPTLK2 DPTLK6

Order Entry Results Reporting

ORQPT ORQPTQ6 ORWPT

Barcode Medication Administration

PSBMLLKU

Care Management

ORRCLPT

General Medical Record - Vitals

GMVRPCP

IHS Electronic Health Record

BEHOPTPL

IHS Patient

AUPNLKID

Inpatient Medications

PSJDPT

Scheduling

SCUTBK11

Entry Points

Name	Comments	DBIA/ICR reference
PRTDPT
CV1(DPTVAL)	;Look for input value matches
SET
SETDPT
DOB(DFN,DGYR)	;do not show dob identifier for patient ; input DFN = ien in file #2 [required] ; DGYR = 0/1 [optional] ; where 0 returns 4-digit year (default) ; 1 returns 2-digit year ; 2 returns File manager date ; output DOB = mm/dd/yyyy (default) ; = mm/dd/yy, if DGYR=1 ; = yyymmdd, if DGYR=2	ICR #3266 Status: Active Usage: Controlled Subscription ICR #5839 Status: Withdrawn Usage: Controlled Subscription ICR #5839 Status: Withdrawn Usage: Controlled Subscription
CHKVAL
Q
UCASE(DGX)	;Uppercase lookup value
SCREEN(DFN)	;Screening logic for SSN & DOB
CHKIFN
SSN(DFN)	;do not show ssn identifier for patient ; input DFN = ien in file #2 [required] ; output SSN = nnnnnnnnn	ICR #3267 Status: Active Usage: Controlled Subscription ICR #5839 Status: Withdrawn Usage: Controlled Subscription
LIST(DPTX,DPTLMAX,DPTLARR)	;Silent lookup list	ICR #4138 Status: Withdrawn Usage: Controlled Subscription
FIND	;Cross reference patient lookup
LOOK(DPTVAL)	;Look for x-ref matches

Name	Field # of Occurrence
CLRMSG^DDS	PRTDPT
$$EMPL^DGSEC4	SCREEN+12
$$FMTE^XLFDT	DOB+16
$$FORMAT^XLFNAME7	FIND+15, FIND+17, SET+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: DPTP1 Line Location: PRTDPT+10
Function Call: WRITE	Prompt: "ENTER '^' TO STOP, OR " Line Location: PRTDPT+12
Function Call: READ	Timeout: DTIME Variable: X Line Location: PRTDPT+13
Function Call: WRITE	Prompt: "CHOOSE ",DPTBEG,"-",DPTNUM,": " Line Location: PRTDPT+13
Routine Call	DDS Line Location: PRTDPT

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	PRTDPT
^DGSL(38.1 - [#38.1]	SCREEN+10
^DISV(	LIST+23
^DPT - [#2]	LOOK+2, LOOK+3, CHKVAL+11, CHKVAL+12, CV1+1, CHKIFN, SETDPT, SETDPT+2, SETDPT+6, SETDPT+7 , PRTDPT+11, LIST+24, LIST+25, SSN+8, DOB+13
^TMP("DPTLK"	Q+1!, SETDPT+5!, SETDPT+8, SETDPT+9*

Label References

Name	Line Occurrences
$$DOB	SETDPT+15
$$SCREEN	SSN+7, DOB+12
$$SSN	SETDPT+15
$$UCASE	FIND+6
CHKIFN	LOOK+2, CHKVAL+3, CHKVAL+7, CHKVAL+8, CV1+1
CHKVAL	LOOK+3
CV1	CHKVAL+7, CHKVAL+8, CHKVAL+10, CHKVAL+13
FIND	LIST+27
LOOK	FIND+16, FIND+17, SET+15
PRTDPT	SET, SETDPT+17
SET	SET+16
SETDPT	CHKIFN, LIST+25

Name	Field # of Occurrence
^("^DPT("	LIST+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	DOB+9~, DOB+13*, DOB+16, DOB+17
DDCOMA	FIND+4~, FIND+7, SET+6, SETDPT+4
>> DDS	PRTDPT, PRTDPT+3, PRTDPT+11, PRTDPT+12, PRTDPT+13
>> DDSHBX	PRTDPT
>> DDXY	PRTDPT, PRTDPT+11
DFN	SSN~, SSN+5, SSN+6, SSN+7, SSN+8, DOB~, DOB+10, DOB+11, DOB+12, DOB+13 , SCREEN~, SCREEN+10, SCREEN+12
DG1	SCREEN+6~
DGA1	SCREEN+6~
DGI	UCASE+3~, UCASE+4*
DGLASTLK	FIND+4~, FIND+5, SET+4, SET+8, SET+16*, SET+17
DGT	SCREEN+6~
DGTIME	SCREEN+6~
DGX	UCASE~, UCASE+3, UCASE+6, UCASE+7
DGXFR0	SCREEN+6~
DGY	UCASE+3~, UCASE+4, UCASE+5, UCASE+6
DGYR	DOB~, DOB+10*, DOB+14, DOB+15
DGZ	UCASE+3~*, UCASE+4
DIC	LIST+19~
DIC("S"	SETDPT+4
DIC(0	FIND+8, SET, LOOK+3, SETDPT+17, LIST+20*
>> DO("SCR"	SETDPT+4
DOB	DOB+9~, DOB+10, DOB+12, DOB+16, DOB+17, DOB+18
>> DPT("NOPRT^"	SET*!, PRTDPT+12
DPTBEG	FIND+12, Q!, CHKIFN, PRTDPT+13
DPTCNT	SET, SET+4, SET+16, SET+17, SETDPT+5, SETDPT+9, SETDPT+11, SETDPT+12, SETDPT+15, SETDPT+17 , PRTDPT+2, LIST+19~, LIST+20, LIST+22, LIST+25*, LIST+28
DPTDFN	FIND+12, FIND+13, SET, SET+1, SET+2, SET+13, LOOK+2, CV1+1, CHKIFN, PRTDPT+16* , PRTDPT+17, LIST+19~
DPTIFN	Q!, CHKIFN, PRTDPT+2, PRTDPT+11
DPTIFNS	Q!, LIST+19~
DPTIFNS(	SET, CHKIFN!, SETDPT+9*, SETDPT+15, PRTDPT+2, PRTDPT+4, PRTDPT+5, PRTDPT+16
>> DPTIX	FIND+9
DPTLARR	SETDPT+10, SETDPT+12, SETDPT+15, LIST~
DPTLMAX	SETDPT+11, LIST~, LIST+20*, LIST+28
DPTLP	FIND+13, SET+13, Q!
DPTLP1	Q!, CV1+1*
>> DPTNOFZY	FIND+15, FIND+17, SET+4
DPTNUM	FIND+12, SET, Q!, CHKIFN, PRTDPT+2, PRTDPT+4, PRTDPT+5, PRTDPT+6, PRTDPT+13
DPTNVAL	SETDPT+3~, SETDPT+7*, SETDPT+8, SETDPT+9
DPTOUT	FIND+4~, FIND+12, FIND+13, SET+13, Q+1!, LOOK+2, CHKIFN, SETDPT+13, PRTDPT+2, PRTDPT+14* , PRTDPT+15*
DPTOVAL	FIND+4~, Q+1!, CHKVAL, SETDPT+3~, SETDPT+4, SETDPT+6, PRTDPT+14
DPTP1	PRTDPT+1~, PRTDPT+5*, PRTDPT+10
DPTP2	PRTDPT+1~, PRTDPT+4*, PRTDPT+8, PRTDPT+10
>> DPTPSREF	FIND+11, SET+12
DPTREF	FIND+13, FIND+15, FIND+17, SET+13, Q!, LOOK+2, LOOK+3, CHKVAL+2, CHKVAL+5, CHKVAL+11 , CHKVAL+12, CV1+1, CHKIFN, SETDPT, SETDPT+6, SETDPT+7
DPTREFS	FIND+8!, FIND+9, FIND+11, FIND+13, SET+9, SET+12*, SET+13, Q!
DPTS	LIST+19~
DPTS(	CHKIFN!, SETDPT, SETDPT+6*, PRTDPT+16
DPTSEED	CHKVAL+1~*, CV1+1
>> DPTSEL	SET, PRTDPT+13, PRTDPT+14, PRTDPT+16, PRTDPT+17
DPTSZ	CHKIFN, LIST+19~, LIST+20*
DPTVAL	FIND+14, FIND+15, FIND+16, FIND+17, SET+14, SET+15, Q!, LOOK~, LOOK+2, LOOK+3 , CHKVAL, CHKVAL+1, CHKVAL+2, CHKVAL+3, CHKVAL+5, CHKVAL+6, CHKVAL+7, CHKVAL+8, CHKVAL+10, CHKVAL+11 , CHKVAL+12, CHKVAL+13, CV1~, CV1+1*, CHKIFN, SETDPT+6, SETDPT+7, PRTDPT+14
DPTX	FIND+6, FIND+7, FIND+8, FIND+9, FIND+14, FIND+17, SET, SET+1, SET+2, SET+4 , SET+5, SET+6, SET+7, SET+14, SET+17, SETDPT+3, PRTDPT+14, PRTDPT+16*, LIST~, LIST+22 , LIST+23, LIST+24
DPTXOLD	FIND+4~, FIND+6, FIND+7, SET+1, SET+2, SET+17, Q+1!, PRTDPT+14, PRTDPT+17*
DTIME	PRTDPT+13
>> DTOUT	PRTDPT+13, PRTDPT+14*
>> DUOUT	PRTDPT+13, PRTDPT+15*
DUZ	LIST+23
>> DX	PRTDPT, PRTDPT+11
>> DY	PRTDPT, PRTDPT+11
>> I	CHKIFN*
>> J	CHKIFN*
SSN	SSN+4~, SSN+5, SSN+7, SSN+8, SSN+11, SSN+13
U	SETDPT+6, SETDPT+7, SETDPT+9, SETDPT+15, PRTDPT+4, PRTDPT+5, SSN+8, DOB+13
X	SETDPT+4, PRTDPT, PRTDPT+13*, PRTDPT+15, LIST+19~
Y	CHKIFN, SETDPT, SETDPT+2, SETDPT+6, SETDPT+7, SETDPT+8, SETDPT+9, SETDPT+15, PRTDPT+11, LIST+19~ , LIST+23, LIST+24, LIST+25
YEAR	DOB+9~, DOB+15*, DOB+16

Customize PDF page

Package: Registration

Routine: DPTLK1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: