Last change
on this file since 1111 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
392 bytes
|
Line | |
---|
1 | AFJXPATL ;FO-OAKLAND/GMB-NETWORK HEALTH PATIENT LIST ;1/17/96 13:11
|
---|
2 | ;;5.1;Network Health Exchange;**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^AFJXPATL",ZTDESC="NETWORK PATIENT LIST"
|
---|
7 | D ^%ZTLOAD
|
---|
8 | Q
|
---|
9 | PROCESS ;
|
---|
10 | D PROCESS^AFJXPNHA("Network Patient List",0,1,5000,1)
|
---|
11 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.