Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: MPIFQED

MPIFQED.m

Go to the documentation of this file.

MPIFQED ;ALB/RJS-ADD PATIENT RETURNED IN QUERY ;AUG 22, 1997

 ;;1.0; MASTER PATIENT INDEX VISTA ;;30 Apr 99

EDIT(DFN,ARRAY) ;-- Edits existing patient

 ;--Data needs to be loaded in a certain sequence

 N ERR,FLD

 S FLD=".01;.03;.09"

 D EDIT^VAFCPTED(DFN,.ARRAY,FLD)

 S ERR=$$UPDATE^MPIFAPI(DFN,ARRAY)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMPIFQED   313     printed  Apr 23, 2025@18:25:51                                                                                                                                                                                                      Page 2

MPIFQED   ;ALB/RJS-ADD PATIENT RETURNED IN QUERY ;AUG 22, 1997

 +1       ;;1.0; MASTER PATIENT INDEX VISTA ;;30 Apr 99

EDIT(DFN,ARRAY) ;-- Edits existing patient

 +1       ;--Data needs to be loaded in a certain sequence

 +2        NEW ERR,FLD

 +3        SET FLD=".01;.03;.09"

 +4        DO EDIT^VAFCPTED(DFN,.ARRAY,FLD)

 +5        SET ERR=$$UPDATE^MPIFAPI(DFN,ARRAY)

 +6        QUIT