Routine: DPTLK

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- Entry point
EN2
ASKPAT	; -- Prompt for patient
CHKPAT	; -- Custom Patient Lookup
CHKPAT1
MAG	; -- No patient found, check for mag stripe input, create stub
STOP	;
NOPAT	; -- No patient found, ask to add new ; DG5.31031;jam; If in Load/Edit or Admit, and not in "Ask" mode (DIC(0)'["A"), then quit. This allows trigger code that does lookups which end up in this routine, to quit (and not call STOP and go back to ASKPAT) ; Otherwise, (per patch DG5.3993) do not allow adding a new patient and reprompt for the patient entry.
CHKDFN	; --
Q	; --
Q1	; -- Clean up variables
QK
QK1
IX	; --
IATA(X)	; --
TRACK(X,START,END)	; find track where start/end are sentinels
FIELDS(IATA)	; -- Sets fields
BARCODE(X)	;
CACCARD(X)	;
EDIPI(EDIPI)	; - returns `DFN from EDIPI number
CARD(CARD)	; - returns `DFN from card number
VIC40(DGFLDS,DGVIC40,DGCAC)	; - returns the data used to create the ; patient file entry from mpi
ENR	;Display Enrollment information after patient selection
CV	;check for Combat Vet status
B32TO10(X)	; - convert from base 32 to base 10
RPCVIC(RETURN,DPTX)	; - patient lookup from VIC card, rpc/api ; non-interactive ; this function will return a patient's DFN based on input. input must ; be in the form of the FULL input from a VIC card (magstripe or bar ; code), the patient must be locally known (FULL doesn't but can contain ; additional card tracks) ; RETURN input should be passed by reference	ICR #5888 Status: Active Usage: Controlled Subscription

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: READ	Variable: X(1) Timeout: 1 Line Location: ASKPAT+12
Function Call: WRITE	Prompt: !,"Could not add patient to patient file" Line Location: MAG+15
Function Call: WRITE	Prompt: !,"Could not add patient to patient file" Line Location: MAG+23
Function Call: WRITE	Prompt: !!?5,"Use Register A Patient option to add a new person." Line Location: STOP+2
Function Call: READ	Variable: X Timeout: DTIME Line Location: STOP+3
Function Call: WRITE	Prompt: !!?5,"Press RETURN to continue..." Line Location: STOP+3
Function Call: WRITE	Prompt: *7,!,"WARNING : You may have selected a test patient." Line Location: Q+4
Function Call: WRITE	Prompt: 7,!,"WARNING : * This patient has been flagged with a Bad Address Indicator." Line Location: Q+5
Function Call: WRITE	Prompt: 7,!,"* Patient is VA ADVANTAGE." Line Location: Q+6
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

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

Customize PDF page

Package: Registration

Routine: DPTLK

Information

Source Information

Entry Points

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call