source: FOIAVistA/trunk/r/NETWORK_HEALTH_EXCHANGE-AFJX/AFJXPATS.m@ 1535

Last change on this file since 1535 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 397 bytes
Line 
1AFJXPATS ;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.)
4ENTER ; 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
9PROCESS ;
10 D PROCESS^AFJXPNHA("Summary Network Patients",0,1)
11 Q
Note: See TracBrowser for help on using the repository browser.