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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DPTLK1

Package: Registration

Routine: DPTLK1


Information

DPTLK1 ;ALB/RMO,EG - MAS Patient Look-up Check Cross-References ; 08/15/2006

Source Information

Source file <DPTLK1.m>

Entry Points

Name Comments DBIA/ICR reference
FIND ;Cross reference patient lookup
SET
YN
Q
LOOK(DPTVAL) ;Look for x-ref matches
CHKVAL
CV1(DPTVAL) ;Look for input value matches
CHKIFN
SETDPT
PRTDPT
LIST(DPTX,DPTLMAX,DPTLARR) ;Silent lookup list
  • ICR #4138
    • Status: Withdrawn
    • Usage: Controlled Subscription
    UCASE(DGX) ;Uppercase lookup value
    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
    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
    SCREEN(DFN) ;Screening logic for SSN & DOB

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Found: ",$P(^DPT(DPTDFN,0),"^")," ",$$FMTE^XLFDT($P(^DPT(DPTDFN,0),"^",3),"2D")," ",$P(^DPT(DPTDFN,0),"^",9)," ",$$GET1^DIQ(2,DPTDFN_",",.301)," ",$$GET1^DIQ(2,DPTDFN_",",391)
    • Line Location: YN+2
    Function Call: WRITE
    • Prompt: !," Ok"
    • Line Location: YN+3
    Function Call: WRITE
    • Prompt: DPTP1
    • Line Location: PRTDPT+10
    Function Call: WRITE
    • Prompt: "ENTER '^' TO STOP, OR "
    • Line Location: PRTDPT+12
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: PRTDPT+13
    Function Call: WRITE
    • Prompt: "CHOOSE ",DPTBEG,"-",DPTNUM,": "
    • Line Location: PRTDPT+13

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call