DPTLK ;ALB/RMO,RTK,ARF,JAM - MAS Patient Look-up Main Routine ; 3/22/05 4:19pm
Source file <DPTLK.m>
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
; DG*5.3*1031;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 DG*5.3*993) 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 |
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
RPC Name | Call Tags |
---|---|
DG VIC PATIENT LOOKUP | RPCVIC |
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
^DGEN(27.15 - [#27.15] | EXTERNAL^DILFD |