source:
WorldVistAEHR/trunk/r/NETWORK_HEALTH_EXCHANGE-AFJX/AFJXPATS.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 397 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | AFJXPATS ;FO-OAKLAND/GMB-NETWORK HEALTH CROSS REF PATIENT ;1/17/96 13:11 |
| 2 | ;;5.1;Network Health Exchange;**23,31**;Jan 23, 1996 | |
| 3 | ; Totally rewritten 11/2001. (Previously FJ/CWS.) | |
| 4 | ENTER ; Send data from patient file 0 node | |
| 5 | N ZTSAVE,ZTIO,ZTRTN,ZTDESC | |
| 6 | S ZTIO="",ZTRTN="PROCESS^AFJXPATS",ZTDESC="NETWORK PATIENT LIST" | |
| 7 | D ^%ZTLOAD | |
| 8 | Q | |
| 9 | PROCESS ; | |
| 10 | D PROCESS^AFJXPNHA("Summary Network Patients",0,1) | |
| 11 | Q |
Note:
See TracBrowser
for help on using the repository browser.
