source:
WorldVistAEHR/trunk/r/MASTER_PATIENT_INDEX_VISTA-MPIF/MPIFQED.m
Last change on this file was 613, checked in by , 16 years ago | |
---|---|
File size: 304 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | MPIFQED ;ALB/RJS-ADD PATIENT RETURNED IN QUERY ;AUG 22, 1997 |
2 | ;;1.0; MASTER PATIENT INDEX VISTA ;;30 Apr 99 | |
3 | EDIT(DFN,ARRAY) ;-- Edits existing patient | |
4 | ;--Data needs to be loaded in a certain sequence | |
5 | N ERR,FLD | |
6 | S FLD=".01;.03;.09" | |
7 | D EDIT^VAFCPTED(DFN,.ARRAY,FLD) | |
8 | S ERR=$$UPDATE^MPIFAPI(DFN,ARRAY) | |
9 | Q |
Note:
See TracBrowser
for help on using the repository browser.