Routine: DPTLK

Information

DPTLK ;ALB/RMO,RTK - MAS Patient Look-up Main Routine ; 3/22/05 4:19pm

Source Information

Source file <DPTLK.m>

Call Graph

Call Graph Total: 22

Package	Total	Call Graph
Registration	14	$$CVEDT^DGCV ($$FINDCUR,$$GET)^DGENA $$CATEGORY^DGENA4 ($$FINDCUR,$$GET)^DGENEGT $$ABOVE^DGENEGT1 $$EXT^DGENU ^DGSEC $$BADADR^DGUTL3 (,SETDPT)^DPTLK1 ^DPTLK2 ($$VAADV,EP2)^DPTLK3 $$FILE^DPTLK4 ($$BS5,$$DMT,FFP)^DPTLK5 $$TESTPAT^VADPT
VA Fileman	6	CLRMSG^DDS DO^DIC1 YN^DICN DQ^DICQ $$EXTERNAL^DILFD ^DIR
Kernel	2	ENDR^%ZISS $$FMTE^XLFDT

Caller Graph

Caller Graph Total: 6

Package	Total	Caller Graph
Lab Service	3	LRHY0 LRHY01 LRHYAFT
Scheduling	2	SDRRCLR2 SDRRINQ
Registration	1	DGENACL1

Entry Points

Name	Comments	DBIA/ICR reference
Q1	; -- Clean up variables
IX	; --
EN	; -- Entry point
NOPAT	; -- No patient found, ask to add new
TRACK(X,START,END)	; find track where start/end are sentinels
CHKPAT1
ENR	;Display Enrollment information after patient selection
IATA(X)	; --
Q	; --
EN2
ASKPAT	; -- Prompt for patient
MAG	; -- No patient found, check for mag stripe input, create stub
FIELDS(IATA)	; -- Sets fields
CV	;check for Combat Vet status
CHKPAT	; -- Custom Patient Lookup
QK
QK1
CHKDFN	; --

External References

Name	Field # of Occurrence
ENDR^%ZISS	ENR+21
CLRMSG^DDS	CHKDFN+3
$$CVEDT^DGCV	ENR+12, CV+2
$$FINDCUR^DGENA	ENR+2, CV+4
$$GET^DGENA	ENR+2, CV+4
$$CATEGORY^DGENA4	ENR+3
$$FINDCUR^DGENEGT	ENR+14
$$GET^DGENEGT	ENR+15
$$ABOVE^DGENEGT1	ENR+18
$$EXT^DGENU	ENR+5, ENR+10
^DGSEC	CHKDFN+15
$$BADADR^DGUTL3	Q+6
DO^DIC1	CHKPAT+1
YN^DICN	CHKPAT+17, CHKDFN+11
DQ^DICQ	CHKPAT1+1
$$EXTERNAL^DILFD	ENR+4
^DIR	MAG+10
^DPTLK1	CHKPAT1+17
SETDPT^DPTLK1	CHKPAT1+5, CHKPAT1+10, CHKPAT1+17
^DPTLK2	NOPAT+1
$$VAADV^DPTLK3	Q+7
EP2^DPTLK3	MAG+16
$$FILE^DPTLK4	MAG+19
$$BS5^DPTLK5	CHKDFN+7
$$DMT^DPTLK5	Q+20
FFP^DPTLK5	Q+9
$$TESTPAT^VADPT	Q+5
$$FMTE^XLFDT	ENR+7, ENR+23, CV+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,"Unable to proceed. Fileman version node ^DD(""VERSION"") is undefined." Line Location: EN+3
Function Call: WRITE	Prompt: !,"Could not add patient to patient file" Line Location: MAG+20
Function Call: WRITE	Prompt: $S('$D(DPTSEL)&('$D(DIVP)):$P(DPTS(DPTDFN),U,2)_" "_$P(DPTS(DPTDFN),U)_" ",$D(^DPT(DPTDFN,0)):" "_$P(^(0),U)_" ",1:"") Line Location: CHKDFN+2
Function Call: WRITE	Prompt: *7,!,"Warning : You have selected a test patient." Line Location: Q+4
Function Call: WRITE	Prompt: *7,!,"WARNING : You may have selected a test patient." Line Location: Q+5
Function Call: WRITE	Prompt: 7,!,"WARNING : * This patient has been flagged with a Bad Address Indicator." Line Location: Q+6
Function Call: WRITE	Prompt: 7,!,"* Patient is VA ADVANTAGE." Line Location: Q+7
Function Call: WRITE	Prompt: !?1,"Enrollment Priority: ",$S($G(DGENR("PRIORITY")):$$EXT^DGENU("PRIORITY",DGENR("PRIORITY")),1:""),$S($G(DGENR("SUBGRP"))="":"",1:$$EXT^DGENU("SUBGRP",$G(DGENR("SUBGRP")))) Line Location: ENR+5
Function Call: WRITE	Prompt: ?33,"Category: ",DGENCAT Line Location: ENR+6
Function Call: WRITE	Prompt: ?57,"End Date: ",$S($G(DGENR("END")):$$FMTE^XLFDT(DGENR("END"),"5DZ"),1:""),! Line Location: ENR+7
Function Call: WRITE	Prompt: ?1,"Enrollment Status: ",$S($G(DGENR("STATUS")):$$EXT^DGENU("STATUS",DGENR("STATUS")),1:"") Line Location: ENR+10
Function Call: WRITE	Prompt: IORVON Condition for execution: $D(IORVON) Line Location: ENR+22
Function Call: WRITE	Prompt: "* WARNING *" Line Location: ENR+22
Function Call: WRITE	Prompt: IORVOFF Condition for execution: $D(IORVOFF) Line Location: ENR+22
Function Call: WRITE	Prompt: !?14 Line Location: ENR+23
Function Call: WRITE	Prompt: IORVON Condition for execution: $D(IORVON) Line Location: ENR+23
Function Call: WRITE	Prompt: "* PATIENT ENROLLMENT END",$S(DT>+DGENR("END"):"ED",1:"S")," EFFECTIVE ",$$FMTE^XLFDT(DGENR("END"),"5DZ")," *" Line Location: ENR+23
Function Call: WRITE	Prompt: IORVOFF Condition for execution: $D(IORVOFF) Line Location: ENR+23
Function Call: WRITE	Prompt: IORVON Condition for execution: $D(IORVON) Line Location: ENR+24
Function Call: WRITE	Prompt: "* PATIENT ENROLLMENT ENDING. ENROLLMENT END DATE IS NOT KNOWN. *" Line Location: ENR+24
Function Call: WRITE	Prompt: IORVOFF Condition for execution: $D(IORVOFF) Line Location: ENR+24
Function Call: WRITE	Prompt: ! Line Location: CV+4
Function Call: WRITE	Prompt: ?3,"Combat Vet Status: "_$S($P(DGCV,U,3)=1:"ELIGIBLE",1:"EXPIRED"),?57,"End Date: "_$$FMTE^XLFDT($P(DGCV,U,2),"5DZ") Line Location: CV+5
Routine Call	DDS Line Location: CHKDFN+3
Routine Call	DIR Line Location: MAG+10

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGEN(27.15 - [#27.15]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("OS" - [#.7]	EN2+1
^DD("VERSION"	EN+3, EN+4
^DD(2	IX+1
^DG(40.8 - [#40.8]	Q+22
^DISV(	CHKPAT1+4, Q+2*
^DPT - [#2]	CHKPAT1+9, CHKPAT1+17, CHKDFN+2, CHKDFN+8, CHKDFN+16, Q+2
^DPT("AXFFP"	Q+9
^DPT(0	EN+4, CHKPAT+17
^TMP("DGVIC"	MAG+9

Label References

Name	Line Occurrences
$$IATA	ASKPAT+9
$$TRACK	IATA+17
ASKPAT	CHKPAT+8, CHKPAT+10, CHKPAT1+17, NOPAT+1, CHKDFN+1, CHKDFN+7, CHKDFN+15
CHKDFN	CHKPAT+6, CHKPAT1+3, CHKPAT1+8, CHKPAT1+13, CHKPAT1+17
CHKPAT	CHKPAT1+17
CHKPAT1	CHKPAT+13
CV	Q+14
DPTLK	IX+2
EN2	MAG+5, MAG+12, MAG+17
ENR	Q+11
FIELDS	MAG+14
NOPAT	CHKPAT1+15, MAG+1
Q	QK
Q1	MAG+6, MAG+12, MAG+17, QK1
QK	EN+2, EN+3, EN+4, ASKPAT+1, CHKPAT+8, CHKPAT+10, CHKPAT1+17, CHKDFN+1, CHKDFN+7, CHKDFN+15
QK1	MAG+20, MAG+21, NOPAT+1

Name	Field # of Occurrence
^("OS"	EN2+1
^("^DPT("	CHKPAT1+4
^(0	EN2+1, CHKDFN+2, Q+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CHKPAT+14~, CHKPAT+17, CHKPAT+18, CHKDFN+7, CHKDFN+11, CHKDFN+12
CNT	FIELDS+2~, FIELDS+3, FIELDS+5, FIELDS+6, FIELDS+7
D	CHKPAT+11*, Q1+1!, IX+1
>> DDS	CHKDFN+3
>> DDSHBX	CHKDFN+3
>> DDXY	CHKDFN+3
DGCV	CV+1~, CV+2*, CV+3, CV+5
DGEGT	ENR+1~, ENR+15*
DGEGT("PRIORITY"	ENR+16, ENR+18
DGEGT("SUBGRP"	ENR+18
DGEGTIEN	ENR+1~, ENR+14*, ENR+15
DGENCAT	ENR+1~, ENR+3, ENR+4, ENR+6
DGENDFN	ENR+1~
DGENR	ENR+1~, ENR+2, CV+4
DGENR("END"	ENR+7, ENR+23
DGENR("PRIORITY"	ENR+5, ENR+16, ENR+18
DGENR("STATUS"	ENR+9, ENR+10
DGENR("SUBGRP"	ENR+5, ENR+18
DGFLDS	MAG+19, Q1+6!, FIELDS+3*, FIELDS+4, FIELDS+6, FIELDS+9, FIELDS+10, FIELDS+11
DGOPT	MAG+3~, MAG+4*, MAG+5
>> DIC	EN2*
>> DIC("A"	ASKPAT+3
>> DIC("B"	ASKPAT+3, ASKPAT+5
>> DIC("W"	CHKPAT+2*, Q1+1!
>> DIC(0	EN+2, EN2*, ASKPAT+1, CHKPAT+8, CHKPAT+10, CHKPAT1+17, NOPAT+1, CHKDFN+1, CHKDFN+2, CHKDFN+7 , CHKDFN+15, Q+2, Q+5, Q+6, Q+7, Q+11, Q+14, Q+20
>> DICR	Q1+2
DIE	EN+1~
DIR	MAG+11!
DIR("A"	MAG+8*
DIR("B"	MAG+8*
DIR(0	MAG+8*
>> DIVP	CHKDFN+2
DO	EN2!, Q1+1!
DPTBTDT	CHKDFN+15*, Q1+2!
DPTCNT	CHKPAT+4*, Q1+1!
DPTDFN	EN+2!, CHKPAT1+6, CHKPAT1+11, CHKPAT1+17, MAG+17, NOPAT+1, CHKDFN+1, CHKDFN+2, CHKDFN+7, CHKDFN+8 , CHKDFN+12, CHKDFN+15, CHKDFN+16*, Q+1, Q1+1!, ENR+2, ENR+3, ENR+12, ENR+18, CV+2 , CV+4
DPTDIV	Q+18~, Q+20*, Q+22
>> DPTIDS(	FIELDS+10, FIELDS+11
DPTIFNS	CHKPAT+3!, Q1+1!
DPTIX	Q1+1!, IX+1*
DPTLSNME	CHKDFN+8~*, CHKDFN+9
>> DPTNOFZK	QK, QK1
DPTNOFZY	QK!, QK1!
DPTS	CHKPAT+3!, Q1+1!
DPTS(	CHKPAT1+6, CHKPAT1+11, CHKPAT1+17, CHKDFN+1, CHKDFN+2, CHKDFN+16, Q+1
DPTSAVX	EN+2!, EN2*, Q+1, Q1+3!
DPTSEL	CHKPAT+3!, CHKDFN+2, Q1+3!
DPTSSN	CHKDFN+8~*, CHKDFN+10
DPTSZ	EN2+1*, Q1+3!
DPTX	EN+2!, EN2, ASKPAT+1, ASKPAT+5, ASKPAT+9, CHKPAT+6, CHKPAT+8, CHKPAT+10, CHKPAT+12, CHKPAT1 , CHKPAT1+3, CHKPAT1+8, CHKPAT1+9, CHKPAT1+13, CHKPAT1+15, CHKPAT1+17, CHKDFN+16, Q+1, Q1+3!, FIELDS+9*
DPTZERO	CHKDFN+8~*
DR	EN+1~
DT	ENR+23
DTIME	ASKPAT+4
DTOUT	EN2!, ASKPAT+2!, ASKPAT+5*, CHKPAT1+17, NOPAT+1
DUOUT	EN2!, ASKPAT+2!, ASKPAT+5*, CHKPAT1+17
DUZ	CHKPAT1+4, Q+2
DUZ(2	Q+19, Q+20
>> DX	CHKDFN+3*
>> DY	CHKDFN+3*
>> DZ	CHKPAT+12, CHKPAT+13, CHKPAT+19
END	TRACK~, TRACK+2
FIELD	FIELDS+2~, FIELDS+5*, FIELDS+6
GCHK	ASKPAT+7~, MAG+9*
IATA	MAG+14, Q1+5!, IATA+13, IATA+17, IATA+19, IATA+21, FIELDS~, FIELDS+1, FIELDS+5
IORVOFF	ENR+19~, ENR+22, ENR+23, ENR+24
IORVON	ENR+19~, ENR+22, ENR+23, ENR+24
MAG	ASKPAT+7~, ASKPAT+8, ASKPAT+9, MAG+1
START	TRACK~, TRACK+2
U	EN2*, EN2+1, CHKDFN+2, CHKDFN+8, CHKDFN+16, Q+2, Q+22, CV+3, CV+5
X	EN+2, EN2, ASKPAT+4, ASKPAT+5, ASKPAT+9, CHKPAT1, CHKPAT1+17, Q+1, IATA~, IATA+14 , IATA+15, IATA+17, TRACK~, TRACK+2, ENR+19~, ENR+20*
>> XQY0	MAG+4
>> Y	CHKPAT1+4, CHKPAT1+5, CHKPAT1+6, CHKPAT1+9, CHKPAT1+10, CHKPAT1+11, CHKPAT1+17, MAG+12, MAG+19, MAG+20 , NOPAT+1, CHKDFN+2, CHKDFN+15, Q+1, Q+2, Q+5, Q+6, Q+7, Q+9, Q+11 , Q+14, Q+20
>> Y(0	Q+2*

Customize PDF page

Package: Registration

Routine: DPTLK

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: