Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
304 bytes
|
Rev | Line | |
---|
[628] | 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.