AFJXPATL ;FO-OAKLAND/GMB-NETWORK HEALTH PATIENT LIST ;1/17/96  13:11
 ;;5.1;Network Health Exchange;**31**;Jan 23, 1996
 ; Totally rewritten 11/2001.  (Previously FJ/CWS.)
ENTER ; Send data from patient file 0 node
 N ZTSAVE,ZTIO,ZTRTN,ZTDESC
 S ZTIO="",ZTRTN="PROCESS^AFJXPATL",ZTDESC="NETWORK PATIENT LIST"
 D ^%ZTLOAD
 Q
PROCESS ;
 D PROCESS^AFJXPNHA("Network Patient List",0,1,5000,1)
 Q