Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All
Print Page as PDF
Routine: DPTLK

Package: Registration

Routine: DPTLK


Information

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

Source Information

Source file <DPTLK.m>

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
; 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
  • 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

    Used in RPC

    RPC Name Call Tags
    DG VIC PATIENT LOOKUP RPCVIC

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls,  GET1^DIQ
    ^DGEN(27.15 - [#27.15] EXTERNAL^DILFD
    Info |  Source |  Entry Points |  Interaction Calls |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call  | All