10 lines
304 B
Mathematica
10 lines
304 B
Mathematica
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)
|
|
Q
|