DPTLK7 ;OAK/ELZ,ARF - MAS PATIENT LOOKUP ENTERPRISE SEARCH ;15 May 2020 2:31 PM
Source file <DPTLK7.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SEARCH(DGX,DGXOLD) | ; do a search, pass in what the user entered
; DGX is what the user originally entered, name is assumed unless it ; is exactly 9 digits, DON'T pass by reference it may change ; Return: DFN (new or found locally), 0 if nothing found/added |
|
YN | ;Enterprise Search?
|
|
PROMPT | ||
QUIT | ||
MPIADD(DGMPIR) | ; - call to add patient to the MPI and store ICN locally
; - web service call for adding and getting new ICN |
|
NAME(DGX,DG20NAME,DGOUT) | ;- ask for name components
|
|
START | ||
AGAIN | ||
ASK | ||
ADDRESS(DGFLDS,DGOUT) | ;- prompt for address
|
|
FLDS(DGFLDS,DGNAME,DGOUT) | ;- prompt for the various FM fields
; Data returned in array |
|
ASKREQID(DGNAME,DPTIDS) | ;Use code from CHKID1^DPTLK2 to prompt for additional required identifiers
|
|
PSREASON(DGFLDS,DGOUT) | ; - prompts (and requires) pseudo reason
|
|
PSAGAIN | ||
FORMAT(DGR,DGN,DGF) | ; - format data for MPI call
|
|
FORMATR(DGF,DGM,DG20NAME) | ; - merge MPI and user input (MPI authorative)
|
|
ADD(DGF,DG20NAME) | ; - stuff in patient
; Pass in the fields to set in the DGF array. ; Alaso Name components in DG20NAME array. Returns new DFN |
|
ADDREQ(DGFLDS) | ; - determine if enough address data entered
; returns OK to proceed (1) or not (0) |
|
PSEUDO(NAM,DOB) | ; - return pseudo ssn
|
|
BULL(SAVY) | ; - send bulletin that new patient added
|
Name | Line Occurrences |
---|---|
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 |
|
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 |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
5.01 | FIND1^DIC |